'QChartist charting software source code
'Copyright 2010-2022 Julien Moog - All rights reserved
'Contact email: julien.moog@laposte.net
'Website: http://www.qchartist.net

'>>> SOURCE LICENSE >>>
'This program is free software; you can redistribute it and/or modify
'it under the terms of the GNU General Public License as published by
'the Free Software Foundation (www.fsf.org); either version 2 of the
'License, or (at your option) any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.
'
'A copy of the GNU General Public License is available at
'http://www.fsf.org/licensing/licenses
'
'>>> END OF LICENSE >>>

$Include "QChartistTiny.Inc" ' added by RQPC (add only comments above me)
''pre cmd FBVERSION=017 FBLANG=deprecated run enc noopt exe con NoDone icon QChartist.ico kill includes\cppincludes.cpp
''pre end

'Compiler Directives
$APPTYPE console  'GUI
$OPTIMIZE on
$TYPECHECK on

if curdir$<>"C:\QChartist" then
showmessage "QChartist won't work properly, please install it in directory C:\QChartist"
application.terminate
end if

defstr bksl="\"
declare function MKSubDir (DirDst$) as short
declare Function StripPath (fullname as string) as string
declare sub FileCopy (FileSrc$, FileDst$)

if fileexists(curdir$+"\update2.exe") then ' used in case we need to update update.exe

kill curdir$+"\update.exe"
FileCopy (curdir$+"\update2.exe",curdir$+"\update.exe")
kill curdir$+"\update2.exe"

end if

dim versfile as qfilestream
versfile.open (curdir$+"\build.txt",0)
defstr QC_build=versfile.readline 
versfile.close

' setting budystream to 0 for the quotes grabber
dim busystream as qfilestream
busystream.open("c:\qchartist\perl\scripts\isbusy.txt",65535)
busystream.writeline "0"
busystream.close

PRINT "QChartist charting software"
PRINT "Copyright 2010-2022 Julien Moog - All rights reserved"
PRINT "Contact email: julien.moog@laposte.net"
PRINT "Website: http://www.qchartist.net"
PRINT "This program is free software; you can redistribute it and/or modify " + _
    "it under the terms of the GNU General Public License"


$IFNDEF TRUE
    $DEFINE TRUE 1
$ENDIF

$IFNDEF FALSE
    $DEFINE FALSE 0
$ENDIF

$INCLUDE "includes\RAPIDQ2.INC"
$Include "includes\QInputBox.inc"
$include "includes\rq-math.inc"
$include "includes\qcalendar.inc"
$include "includes\like.inc"
$include "includes\windows.inc"
'$Include "includes\CommCtrl.inc"
'$Include "includes\Memory.inc"
'$Include "includes\Callbacks.inc"
'$Include "includes\SysUtils.inc"
'$Include "includes\QUpDown.inc"
$include "includes\QINI.inc"
$include "includes\ap_rq.inc"
$include "includes\gammafunc_rq.inc"
$include "includes\betaf_rq.inc"
$include "includes\igammaf_rq.inc"
$include "includes\chisquaredistr_rq.inc"
$include "includes\dawson_rq.inc"
$include "includes\elliptic_rq.inc"
$include "includes\expintegrals_rq.inc"
$include "includes\normaldistr_rq.inc"
$include "includes\ibetaf_rq.inc"
$include "includes\fdistr_rq.inc"
$include "includes\poissondistr_rq.inc"
$include "includes\studenttdistr_rq.inc"
$include "includes\legendre.inc"
$include "includes\psif.inc"
$include "includes\fresnel.inc"
$include "includes\nearunityunit_rq.inc"
$include "includes\binomialdistr_rq.inc"
$include "includes\hermite_rq.inc"
$include "includes\jarquebera_rq.inc"
$include "includes\trigintegrals.inc"
$include "includes\stmttw.inc"
$include "includes\Ephem101.bas"
$include "includes\Earth_LBR.bas"
$include "includes\Earth_Header.bas"
$include "includes\Jupiter_LBR.bas"
$include "includes\Jupiter_Header.bas"
$include "includes\Mars_LBR.bas"
$include "includes\Mars_Header.bas"
$include "includes\Mercury_LBR.bas"
$include "includes\Mercury_Header.bas"
$include "includes\Neptune_LBR.bas"
$include "includes\Neptune_Header.bas"
$include "includes\Saturn_LBR.bas"
$include "includes\Saturn_Header.bas"
$include "includes\Uranus_LBR.bas"
$include "includes\Uranus_Header.bas"
$include "includes\Venus_LBR.bas"
$include "includes\Venus_Header.bas"
$include "includes\sweph.inc"
$include "includes\fftlib.inc"
$Include "includes\ShellRedir.Inc"
$Include "includes\qprogress.Inc"
$include "includes\clock.bas"

declare sub ShellRedirCallBack (Text As String)

Sub ShellRedirCallBack (Text As String)
'Print Text
End Sub

DefStr platform = ShellRedir ("c:\qchartist\getos.exe")

if like(platform,"*Wine*")=1 then
defstr tmppath0=curdir$
chdir "c:\qchartist\perl\scripts"
defint pid
pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x getcurrency.sh"+chr$(34),0)
pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x currency"+chr$(34),0)
pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x getstock.sh"+chr$(34),0)
pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x stock"+chr$(34),0)
pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x getstockvol.sh"+chr$(34),0)
pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x stockvol"+chr$(34),0)
chdir tmppath0
' ------- Useless -------
'tmppath0=curdir$
'chdir "c:\qchartist\gshareinvest"
'pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x getstock.sh"+chr$(34),0)
'pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x getstock2.sh"+chr$(34),0)
'pid=shell ("/bin/sh -c "+chr$(34)+"chmod u+x stock"+chr$(34),0)
'chdir tmppath0
' -----------------------
end if

DIM orderbuydb AS QSTRINGGRID
DIM orderselldb AS QSTRINGGRID
dim textlabelsdb as qstringgrid

' --------------- gshareinvest portfolio -------------------
' $Include "gshareinvest\login.bas" ' Useless
' ---------------------------------------------------------

' ------------------------ Text to speech variables----------------
DIM rtn2 AS LONG, counter AS LONG
DIM vdPtr AS LONG, vnPtr AS LONG
DIM voiceTotal AS WORD, currentVoice AS WORD, voiceNumber AS WORD
DIM stg$ AS STRING, volumespeech AS LONG, pitch AS LONG, speed AS LONG

voiceTotal=0 : currentVoice=0 : voiceNumber=0 : volumespeech=0 : pitch=0
speed=0
' -----------------------------------------------------------------

' ------------------------ Hot Keys --------------------------

'DECLARE FUNCTION RegisterHotKey LIB "USER32" ALIAS "RegisterHotKey" _
'                 (hWnd AS LONG, ID AS LONG, fsModifiers AS LONG, _
'                  vk AS LONG) AS LONG
'DECLARE FUNCTION UnRegisterHotKey LIB "USER32" ALIAS "UnregisterHotKey" _
'                 (hWnd AS LONG, ID AS LONG) AS LONG
'DECLARE SUB SetForegroundWindow LIB "USER32" ALIAS "SetForegroundWindow" _
'                 (HWnd AS LONG)

'DECLARE SUB FormWndProc (hWnd&, uMsg&, wParam&, lParam&)

' ----------------------- End Hot Keys ----------------------------

' ----------------------------------------------
'The PeekMessage function checks a thread message queue for a message 
'and places the message (if any) in the specified structure.
'$UNDEF TYPE
$DEFINE WM_CHAR &H102
$DEFINE PM_REMOVE &H01
$DEFINE NULL &H00 
STRUCT MSGStruct
    hwnd AS LONG
    message AS LONG
    wParam AS LONG
    lParam AS LONG
    time AS DWORD
    x as LONG
    y as LONG
END STRUCT
DIM MyMsg As MSGStruct
'DECLARE FUNCTION PeekMessage Lib "user32" Alias "PeekMessageA" _
'                  (ByRef lpMsg As MyMsg, ByVal hwnd As Long, _
'                      ByVal wMsgFilterMin As Long, _
'                      ByVal wMsgFilterMax As Long, _
'                      ByVal wRemoveMsg As Long) _
'                      As Long
'--------------------------------------------   

declare sub fibofanstandardradioclickedsub
declare sub fibofansymetryfrompointradioclickedsub
declare sub fibofanpricemirrorradioclickedsub

DECLARE FUNCTION degtorad(deg AS DOUBLE) AS DOUBLE
FUNCTION degtorad(deg AS DOUBLE)
    result = deg * rqPI / 180
END FUNCTION

'Prevent intial resize exception
DIM AppStart AS BYTE :  AppStart = TRUE

'Declaring public variables

declare sub timerautomationsub
dim timerautomation as qtimer
timerautomation.ontimer=timerautomationsub
defint timerautomationready=0

sub timerautomationsub
timerautomationready=1
end sub

DECLARE SUB ButtonClick  '"Send mail" button
DECLARE SUB TimerExpired  'Check for incomming messages from server
CONST DELAY = 500
DIM Timer1 AS QTIMER  'Timer for checking the socket
Timer1.Interval = DELAY
Timer1.OnTimer = TimerExpired
'and continue in sending a mail.
DIM TheFont AS QFONT  'Font for rich edit text box
TheFont.Name = "Courier New"
TheFont.Size = 10

DIM Socket AS QSOCKET  'Internet stuff
DIM SockNum AS INTEGER
SockNum = 0

DIM LastLine AS STRING  'Last line recieved from socket
DIM LastCode AS INTEGER  'Every SMTP response from the server is
'in the format "nnn Text..."
'LastCode=nnn

DIM MailStep AS INTEGER  'Which step have we got to do next?
'Used in SUB TimerExpired.

DIM numbars AS INTEGER
defint numbars_first,numbars_last
DIM valmin AS DOUBLE
DIM valmax AS DOUBLE
DIM chartstart AS INTEGER
DIM chartbars(1 TO 100) AS INTEGER
dim chartbarsdisplayedfilestr as string
DIM chartbarstmp(1 TO 100) AS INTEGER
dim chartbarstmpdisplayedfilestr as string
dim charttf(1 TO 100) AS INTEGER
DIM Timerdispbarsp AS QTIMER
DIM Timerdispbarsm AS QTIMER
Timerdispbarsp.Interval = 100
Timerdispbarsm.Interval = 100
Timerdispbarsp.Enabled = 0
Timerdispbarsm.Enabled = 0
DIM importedfile(1 TO 100) AS STRING
DIM openedfilesnb AS INTEGER
openedfilesnb = 0
dim openedfilesnbstr as string
dim importedfileopenedfilesnbstr as string
DIM displayedfile AS INTEGER
DIM Grid AS QSTRINGGRID
DIM Gridtmp AS QSTRINGGRID
DIM Grid_sep_indi AS QSTRINGGRID
DIM rowgridoffset AS INTEGER
rowgridoffset = 0
dim rowgridoffsetstr as string
dim offsetstr as string
dim displayedfilestr as string
DIM indigrid() AS DOUBLE
DIM open(0 TO 1000) AS DOUBLE , high(0 TO 1000) AS DOUBLE , low(0 TO 1000) AS DOUBLE , close(0 TO 1000) AS DOUBLE , volume(0 TO 1000) AS INTEGER, date(0 TO 1000) AS STRING, time(0 TO 1000) AS STRING, datetimeserial(0 TO 1000) AS double
DIM open1(0 TO 1000) AS DOUBLE , high1(0 TO 1000) AS DOUBLE , low1(0 TO 1000) AS DOUBLE , close1(0 TO 1000) AS DOUBLE , volume1(0 TO 1000) AS INTEGER, date1(0 TO 1000) AS STRING, time1(0 TO 1000) AS STRING, datetimeserial1(0 TO 1000) AS double
DIM open5(0 TO 1000) AS DOUBLE , high5(0 TO 1000) AS DOUBLE , low5(0 TO 1000) AS DOUBLE , close5(0 TO 1000) AS DOUBLE , volume5(0 TO 1000) AS INTEGER, date5(0 TO 1000) AS STRING, time5(0 TO 1000) AS STRING, datetimeserial5(0 TO 1000) AS double
DIM open15(0 TO 1000) AS DOUBLE , high15(0 TO 1000) AS DOUBLE , low15(0 TO 1000) AS DOUBLE , close15(0 TO 1000) AS DOUBLE , volume15(0 TO 1000) AS INTEGER, date15(0 TO 1000) AS STRING, time15(0 TO 1000) AS STRING, datetimeserial15(0 TO 1000) AS double
DIM open30(0 TO 1000) AS DOUBLE , high30(0 TO 1000) AS DOUBLE , low30(0 TO 1000) AS DOUBLE , close30(0 TO 1000) AS DOUBLE , volume30(0 TO 1000) AS INTEGER, date30(0 TO 1000) AS STRING, time30(0 TO 1000) AS STRING, datetimeserial30(0 TO 1000) AS double
DIM open60(0 TO 1000) AS DOUBLE , high60(0 TO 1000) AS DOUBLE , low60(0 TO 1000) AS DOUBLE , close60(0 TO 1000) AS DOUBLE , volume60(0 TO 1000) AS INTEGER, date60(0 TO 1000) AS STRING, time60(0 TO 1000) AS STRING, datetimeserial60(0 TO 1000) AS double
DIM open240(0 TO 1000) AS DOUBLE , high240(0 TO 1000) AS DOUBLE , low240(0 TO 1000) AS DOUBLE , close240(0 TO 1000) AS DOUBLE , volume240(0 TO 1000) AS INTEGER, date240(0 TO 1000) AS STRING, time240(0 TO 1000) AS STRING, datetimeserial240(0 TO 1000) AS double
DIM open1440(0 TO 1000) AS DOUBLE , high1440(0 TO 1000) AS DOUBLE , low1440(0 TO 1000) AS DOUBLE , close1440(0 TO 1000) AS DOUBLE , volume1440(0 TO 1000) AS INTEGER, date1440(0 TO 1000) AS STRING, time1440(0 TO 1000) AS STRING, datetimeserial1440(0 TO 1000) AS double
DIM open10080(0 TO 1000) AS DOUBLE , high10080(0 TO 1000) AS DOUBLE , low10080(0 TO 1000) AS DOUBLE , close10080(0 TO 1000) AS DOUBLE , volume10080(0 TO 1000) AS INTEGER, date10080(0 TO 1000) AS STRING, time10080(0 TO 1000) AS STRING, datetimeserial10080(0 TO 1000) AS double
DIM open43200(0 TO 1000) AS DOUBLE , high43200(0 TO 1000) AS DOUBLE , low43200(0 TO 1000) AS DOUBLE , close43200(0 TO 1000) AS DOUBLE , volume43200(0 TO 1000) AS INTEGER, date43200(0 TO 1000) AS STRING, time43200(0 TO 1000) AS STRING, datetimeserial43200(0 TO 1000) AS double
dim date2(0 TO 1000) AS STRING
DIM bars AS INTEGER
DIM barsdisplayed2 AS INTEGER
DIM sepindivalmax AS DOUBLE
DIM sepindivalmin AS DOUBLE
'dim sepindizoom as double
'sepindizoom=1
DIM mixgrid AS QSTRINGGRID
DIM mixgridcolcount() AS INTEGER
mixgrid.ColCount = 40
mixgrid.RowCount = 40
DIM mixgrid2 AS QSTRINGGRID
DIM mixgridcolcount2() AS INTEGER
mixgrid2.ColCount = 40
mixgrid2.RowCount = 40
DIM mixgrid3 AS QSTRINGGRID
DIM mixgridcolcount3() AS INTEGER
mixgrid3.ColCount = 40
mixgrid3.RowCount = 40
DIM mixgrid4 AS QSTRINGGRID
DIM mixgridcolcount4() AS INTEGER
mixgrid4.ColCount = 40
mixgrid4.RowCount = 40
DIM scrollchartpositionwait AS INTEGER
DIM graphclick AS INTEGER
graphclick = 0
DIM graphclicktimer AS QTIMER
graphclicktimer.Interval = 1
graphclicktimer.Enabled = 0
DIM firstclickgraph AS INTEGER , firstclickgraphx AS INTEGER , firstclickgraphy AS INTEGER
DIM secondclickgraphx AS INTEGER , secondclickgraphy AS INTEGER
firstclickgraph = 0
DIM sepindiclick AS INTEGER
sepindiclick = 0
DIM sepindiclicktimer AS QTIMER
sepindiclicktimer.Interval = 1
sepindiclicktimer.Enabled = 0
DIM firstclicksepindi AS INTEGER , firstclicksepindix AS INTEGER , firstclicksepindiy AS INTEGER
DIM secondclicksepindix AS INTEGER , secondclicksepindiy AS INTEGER
firstclicksepindi = 0
DIM scrollmode AS INTEGER
scrollmode = 0
DIM delsepindirows AS INTEGER
delsepindirows = 0
DIM scrollmodeofftimer AS QTIMER
scrollmodeofftimer.Interval = 2000
scrollmodeofftimer.Enabled = 0
DIM drawtxt AS STRING
DIM drawvectortxt AS STRING
defstr drawvectorstretchx="1.5"
defstr drawvectorstretchy="2"
defstr drawvectorangle="0"
DIM btnFont AS QFONT
btnFont.Name = "Arial"
btnFont.AddStyles(fsBold)
btnFont.Color = &h00b4ff
btnFont.Size = 9
DIM showcanvas AS INTEGER
showcanvas = 0
DIM FontDialog AS QFONTDIALOG
DIM Font AS QFONT
Font.Name = "Arial"
Font.Size = 10
DIM red AS INTEGER , orange AS INTEGER , yellow AS INTEGER , green AS INTEGER , blue AS INTEGER , lightblue AS INTEGER , purple AS INTEGER , _
    gray AS INTEGER , black AS INTEGER , pink AS INTEGER , olive AS INTEGER , aqua AS INTEGER , crimson AS INTEGER , gold AS INTEGER , _
    white AS INTEGER , mediumseagreen AS INTEGER , lightgray AS INTEGER , sweetblue AS INTEGER
defint darkgreen,darkslategray,teal,navy,maroon,indigo,midnightblue,darkblue,darkolivegreen,saddlebrown,forestgreen,olivedrab,_
seagreen,darkgoldenrod,darkslateblue,sienna,mediumblue,brown,darkturquoise,dimgray,lightseagreen,darkviolet,firebrick,_
mediumvioletred,chocolate,steelblue,goldenrod,mediumspringgreen,lawngreen,cadetblue,darkorchid,yellowgreen,_
limegreen,orangered,darkorange,chartreuse,lime,springgreen,_
deepskyblue,magenta,slategray,peru,blueviolet,_
lightslategray,deeppink,mediumturquoise,dodgerblue,turquoise,royalblue,slateblue,darkkhaki,_
indianred,mediumorchid,greenyellow,mediumaquamarine,darkseagreen,tomato,rosybrown,orchid,_
mediumpurple,palevioletred,coral,cornflowerblue,darkgray,sandybrown,mediumslateblue,clrtan,_
darksalmon,burlywood,hotpink,salmon,violet,lightcoral,skyblue,lightsalmon,_
plum,khaki,lightgreen,aquamarine,silver,lightskyblue,lightsteelblue,_
palegreen,thistle,powderblue,palegoldenrod,paleturquoise,wheat,navajowhite,_
moccasin,lightpink,gainsboro,peachpuff,bisque,lightgoldenrod,blanchedalmond,_
lemonchiffon,beige,antiquewhite,papayawhip,cornsilk,lightyellow,lightcyan,linen,_
lavender,mistyrose,oldlace,whitesmoke,seashell,ivory,honeydew,aliceblue,_
lavenderblush,mintcream,snow    
red = RGB(255 , 0 , 0)
orange = RGB(255 , 165 , 0)
yellow = RGB(255 , 255 , 0)
green = RGB(1 , 128 , 0)
blue = RGB(0 , 0 , 255)
lightblue = RGB(173 , 216 , 230)
purple = RGB(128 , 0 , 128)
gray = RGB(128 , 128 , 128)
black = RGB(0 , 0 , 0)
pink = RGB(255 , 192 , 203)
olive = RGB(128 , 128 , 0)
aqua = RGB(0 , 255 , 255)
crimson = RGB(220 , 20 , 60)
gold = RGB(255 , 215 , 0)
white = RGB(255 , 255 , 255)
lightgray = RGB(240 , 248 , 255)
sweetblue = RGB(166 , 166 , 210)
mediumseagreen = RGB(60 , 179 , 113)
darkgreen=RGB(0,64,0)
darkslategray=RGB(48,61,139)
teal=RGB(0,128,128)
navy=RGB(0,0,128)
maroon=RGB(128,0,0)
indigo=RGB(75,0,130)
midnightblue=RGB(25,25,112)
darkblue=RGB(0,0,139)
darkolivegreen=RGB(85,107,47)
saddlebrown=RGB(139,69,19)
forestgreen=RGB(34,139,34)
olivedrab=RGB(107,142,35)
seagreen=RGB(46,139,87)
darkgoldenrod=RGB(184,134,11)
darkslateblue=RGB(72,61,139)
sienna=RGB(160,82,45)
mediumblue=RGB(0,0,205)
brown=RGB(165,42,42)
darkturquoise=RGB(0,206,209)
dimgray=RGB(105,105,105)
lightseagreen=RGB(32,178,170)
darkviolet=RGB(148,0,211)
firebrick=RGB(178,34,34)
mediumvioletred=RGB(199,21,133)
chocolate=RGB(210,105,30)
steelblue=RGB(70,130,180)
goldenrod=RGB(218,165,32)
mediumspringgreen=RGB(0,250,154)
lawngreen=RGB(124,152,0)
cadetblue=RGB(95,158,160)
darkorchid=RGB(153,50,204)
yellowgreen=RGB(154,205,50)
limegreen=RGB(50,205,50)
orangered=RGB(255,69,0)
darkorange=RGB(255,140,0)
chartreuse=RGB(127,255,0)
lime=RGB(0,255,0)
springgreen=RGB(0,255,127)
deepskyblue=RGB(0,191,255)
magenta=RGB(255,0,255)
slategray=RGB(112,128,128)
peru=RGB(205,133,63)
blueviolet=RGB(138,43,226)
lightslategray=RGB(119,136,153)
deeppink=RGB(255,20,147)
mediumturquoise=RGB(72,209,204)
dodgerblue=RGB(30,144,255)
turquoise=RGB(64,224,208)
royalblue=RGB(65,105,225)
slateblue=RGB(106,90,205)
darkkhaki=RGB(189,183,107)
indianred=RGB(205,92,92)
mediumorchid=RGB(186,85,211)
greenyellow=RGB(173,255,47)
mediumaquamarine=RGB(102,205,170)
darkseagreen=RGB(143,188,143)
tomato=RGB(255,99,71)
rosybrown=RGB(188,143,143)
orchid=RGB(218,112,214)
mediumpurple=RGB(147,112,219)
palevioletred=RGB(219,112,147)
coral=RGB(255,127,80)
cornflowerblue=RGB(100,149,237)
darkgray=RGB(169,169,169)
sandybrown=RGB(244,164,96)
mediumslateblue=RGB(123,104,238)
clrtan=RGB(210,180,140)
darksalmon=RGB(233,150,122)
burlywood=RGB(222,184,135)
hotpink=RGB(255,105,180)
salmon=RGB(250,128,114)
violet=RGB(238,130,238)
lightcoral=RGB(240,128,128)
skyblue=RGB(135,206,235)
lightsalmon=RGB(255,160,122)
plum=RGB(221,160,221)
khaki=RGB(240,230,140)
lightgreen=RGB(144,238,144)
aquamarine=RGB(127,255,212)
silver=RGB(192,192,192)
lightskyblue=RGB(135,206,250)
lightsteelblue=RGB(176,196,222)
palegreen=RGB(152,251,152)
thistle=RGB(216,191,216)
powderblue=RGB(176,224,230)
palegoldenrod=RGB(238,232,170)
paleturquoise=RGB(175,238,238)
wheat=RGB(245,222,179)
navajowhite=RGB(255,222,173)
moccasin=RGB(255,228,181)
lightpink=RGB(255,182,193)
gainsboro=RGB(220,220,220)
peachpuff=RGB(255,218,185)
bisque=RGB(255,228,196)
lightgoldenrod=RGB(238,220,130)
blanchedalmond=RGB(255,235,205)
lemonchiffon=RGB(255,250,205)
beige=RGB(245,245,220)
antiquewhite=RGB(250,235,215)
papayawhip=RGB(255,239,213)
cornsilk=RGB(255,248,220)
lightyellow=RGB(255,255,224)
lightcyan=RGB(224,255,255)
linen=RGB(250,240,230)
lavender=RGB(230,230,250)
mistyrose=RGB(255,228,225)
oldlace=RGB(253,245,230)
whitesmoke=RGB(245,245,245)
seashell=RGB(255,245,238)
ivory=RGB(255,255,240)
honeydew=RGB(240,255,240)
aliceblue=RGB(240,248,255)
lavenderblush=RGB(255,240,245)
mintcream=RGB(245,255,250)
snow=RGB(255,250,250)
DIM textcolor AS INTEGER
textcolor = blue
DIM sepindicolor(1 TO 100) AS INTEGER
sepindicolor(1) = blue
DIM sepindicolormulti(1 TO 100,0 TO 1000) AS INTEGER
DIM indicolor(1 TO 100) AS INTEGER
indicolor(1) = blue
DIM pencolor AS INTEGER
pencolor = blue
DIM plotareacolor AS INTEGER
plotareacolor = sweetblue
DIM plotareacolor2 AS INTEGER
plotareacolor2 = white
DIM chartbackgroundcolor2 AS INTEGER
chartbackgroundcolor2 = white
DIM chartforegroundcolor AS INTEGER
chartforegroundcolor = black
DIM chartgridcolor AS INTEGER
chartgridcolor = dimgray
DIM bullcandlecolor AS INTEGER
bullcandlecolor = green
DIM bearcandlecolor AS INTEGER
bearcandlecolor = red
DIM linegraphcolor AS INTEGER
linegraphcolor = black
DIM pengraphcolor AS INTEGER
pengraphcolor = blue
DIM chartmaintitlecolor AS INTEGER
chartmaintitlecolor = black
DIM chartsubtitlecolor AS INTEGER
chartsubtitlecolor = black
DIM chartxaxistitlecolor AS INTEGER
chartxaxistitlecolor = black
DIM chartyaxistitlecolor AS INTEGER
chartyaxistitlecolor = black
DIM chartcopyrightmarkcolor AS INTEGER
chartcopyrightmarkcolor = black
DIM chartlabelscolor AS INTEGER
chartlabelscolor = black
DIM chartlegendcolor AS INTEGER
chartlegendcolor = black
DIM chartaxescolor AS INTEGER
chartaxescolor = black
DIM reverse AS INTEGER
reverse = 0
DIM flip AS INTEGER
flip = 0
DIM homepath AS STRING
homepath = CurDir$
DIM initialpath AS STRING
initialpath = homepath
DIM tmppath AS STRING
DIM ini AS QINI
ini.FileName = homepath + "\QChartist.ini"
dim indiini as qini
DIM mouseexcentricityx AS INTEGER
mouseexcentricityx = 0
DIM mouseexcentricityy AS INTEGER
mouseexcentricityy = 0
DIM graphpriceoncur AS DOUBLE
DIM sepgraphpriceoncur AS DOUBLE
DIM graphjuliendateoncur AS double
DIM graphdateoncur AS STRING
DIM graphserialdateoncur AS double
DIM graphbarnboncur AS INTEGER
DIM graphbarnboncurstatic AS INTEGER
dim graphbarnboncurstaticstr as string
DIM charttypecomboindex AS INTEGER

DIM trendlinesdb AS QSTRINGGRID
DIM fibofandb AS QSTRINGGRID
DIM gannfandb AS QSTRINGGRID
DIM speedresdb AS QSTRINGGRID
DIM fiboarcsdb AS QSTRINGGRID
DIM speedresarcsdb AS QSTRINGGRID
DIM seedoflifedb AS QSTRINGGRID
DIM gannsquaredb AS QSTRINGGRID
DIM fibospiraldb AS QSTRINGGRID
DIM archimedspiraldb AS QSTRINGGRID
DIM fiboretdb AS QSTRINGGRID
DIM paradb AS QSTRINGGRID
DIM hlinedb AS QSTRINGGRID
DIM vlinedb AS QSTRINGGRID
DIM sqrdb AS QSTRINGGRID
DIM griddb AS QSTRINGGRID
DIM tridb AS QSTRINGGRID
DIM sqr2db AS QSTRINGGRID
DIM tri2db AS QSTRINGGRID
DIM circledb AS QSTRINGGRID
DIM crossdb AS QSTRINGGRID
DIM invcircledb AS QSTRINGGRID
DIM textdb AS QSTRINGGRID
DIM vectortextdb AS QSTRINGGRID
DIM aimingdb AS QSTRINGGRID
DIM sindb AS QSTRINGGRID
DIM logdb AS QSTRINGGRID
DIM expdb AS QSTRINGGRID
DIM priceextdb AS QSTRINGGRID
DIM timeextdb AS QSTRINGGRID
DIM ellipsedb AS QSTRINGGRID
DIM ellipse3db AS QSTRINGGRID
DIM fibocirclesdb AS QSTRINGGRID
DIM timerulerdb AS QSTRINGGRID
DIM pricerulerdb AS QSTRINGGRID
DIM fillregiondb AS QSTRINGGRID
DIM pitchforkdb AS QSTRINGGRID
DIM schiffpitchforkdb AS QSTRINGGRID
DIM pentagdb AS QSTRINGGRID
DIM sq9fdb AS QSTRINGGRID
DIM tsq9fdb AS QSTRINGGRID
DIM sq144fdb AS QSTRINGGRID
DIM tsq144fdb AS QSTRINGGRID
DIM pricecyclesdb AS QSTRINGGRID
DIM timecyclesdb AS QSTRINGGRID

' offset of the object drawn on the chart
DIM trendlinesoffset AS INTEGER
DIM fibofanoffset AS INTEGER
DIM gannfanoffset AS INTEGER
DIM speedresoffset AS INTEGER
DIM speedresarcsoffset AS INTEGER
DIM fiboarcsoffset AS INTEGER
DIM seedoflifeoffset AS INTEGER
DIM gannsquareoffset AS INTEGER
DIM fibospiraloffset AS INTEGER
DIM archimedspiraloffset AS INTEGER
DIM fiboretoffset AS INTEGER
DIM paraoffset AS INTEGER
DIM hlineoffset AS INTEGER
DIM vlineoffset AS INTEGER
DIM sqroffset AS INTEGER
DIM gridoffset AS INTEGER
DIM trioffset AS INTEGER
DIM sqr2offset AS INTEGER
DIM tri2offset AS INTEGER
DIM circleoffset AS INTEGER
DIM crossoffset AS INTEGER
DIM invcircleoffset AS INTEGER
DIM textoffset AS INTEGER
DIM vectortextoffset AS INTEGER
DIM aimingoffset AS INTEGER
DIM sinoffset AS INTEGER
DIM logoffset AS INTEGER
DIM expoffset AS INTEGER
DIM priceextoffset AS INTEGER
DIM timeextoffset AS INTEGER
DIM ellipseoffset AS INTEGER
DIM ellipse3offset AS INTEGER
DIM fibocirclesoffset AS INTEGER
DIM timeruleroffset AS INTEGER
DIM priceruleroffset AS INTEGER
DIM fillregionoffset AS INTEGER
DIM pentagoffset AS INTEGER
DIM pitchforkoffset AS INTEGER
DIM schiffpitchforkoffset AS INTEGER
dim sq9foffset AS INTEGER
dim tsq9foffset AS INTEGER
dim sq144foffset AS INTEGER
dim tsq144foffset AS INTEGER
'DIM orderbuyoffset AS INTEGER
'DIM orderselloffset AS INTEGER
dim textlabelsoffset as integer
dim pricecyclesoffset as integer
dim timecyclesoffset as integer

DIM i AS INTEGER , n AS INTEGER
DIM useindi AS QCHECKBOX
DIM leftwidth AS INTEGER
leftwidth = 100
DIM resizesplittimer AS QTIMER
resizesplittimer.Enabled = 0
resizesplittimer.Interval = 1
DECLARE SUB resizesplitcurpos
resizesplittimer.OnTimer = resizesplitcurpos
DIM YVALs AS INTEGER

DIM resizesplithtimer AS QTIMER
resizesplithtimer.Enabled = 0
resizesplithtimer.Interval = 1
DECLARE SUB resizesplithcurpos
resizesplithtimer.OnTimer = resizesplithcurpos
DIM XVALs AS INTEGER
DIM sepindiheight AS INTEGER
sepindiheight = 150
DIM xvalgcp2 AS double
DIM yvalgcp2 AS INTEGER
TYPE objectcursor
    objtype AS INTEGER
    offset AS INTEGER
END TYPE
DIM moveobjcurtimer AS QTIMER
moveobjcurtimer.Enabled = 0
moveobjcurtimer.Interval = 1
DECLARE SUB moveobjectcursor
moveobjcurtimer.OnTimer = moveobjectcursor
DIM objectcursoroperation AS STRING
DIM xcur1 AS DOUBLE  'integer
DIM xcur2 AS DOUBLE  'integer
DIM ycur1 AS DOUBLE
DIM ycur2 AS DOUBLE
DIM clickedbarnb AS INTEGER
DIM axistypecomboitemindex AS INTEGER
axistypecomboitemindex = 0
DIM xscaletrackbarposition AS DOUBLE
xscaletrackbarposition = 1
DIM beginautotimer AS QTIMER
beginautotimer.Enabled = 0
beginautotimer.Interval = 5000
DECLARE SUB beginauto2
beginautotimer.OnTimer = beginauto2
DIM beginexitsignaltimer AS QTIMER
beginexitsignaltimer.Enabled = 0
beginexitsignaltimer.Interval = 5000
DECLARE SUB beginexitsignal2
DECLARE SUB beginexitsignal3
beginexitsignaltimer.OnTimer = beginexitsignal2


DIM drag AS INTEGER
DIM pbez AS pointapi
DIM curves AS INTEGER
DIM curve AS QMEMORYSTREAM
DIM ipoly AS INTEGER
ipoly = 0
DIM a AS INTEGER
DIM hdc AS LONG
DIM fkey AS INTEGER
DIM sx2(2000) AS INTEGER
DIM sy2(2000) AS INTEGER
DIM btypes(2000) AS BYTE
DIM btype AS INTEGER
btype = 1
DIM bezier? AS INTEGER
bezier? = 0
DIM ptl(600) AS QPANEL
dim cpptmpfuncreturn as string
dim symetryfrompoint as integer
symetryfrompoint=0
dim conicpointsx(5) as integer
dim conicpointsy(5) as integer
defint conicpointclicknb=0
dim circlegiven3pointsx(3) as integer
dim circlegiven3pointsy(3) as integer
defint circlegiven3pointsclicknb=0

trendlinesoffset = 0
fibofanoffset = 0
gannfanoffset = 0
speedresoffset = 0
speedresarcsoffset = 0
fiboarcsoffset = 0
seedoflifeoffset = 0
gannsquareoffset = 0
fibospiraloffset = 0
fiboretoffset = 0
paraoffset = 0
hlineoffset = 0
vlineoffset = 0
sqroffset = 0
gridoffset = 0
trioffset = 0
circleoffset = 0
sq9foffset = 0
sq144foffset = 0
pricecyclesoffset = 0
timecyclesoffset = 0
invcircleoffset = 0
textoffset = 0
vectortextoffset = 0
aimingoffset = 0
sinoffset = 0
logoffset = 0
expoffset = 0
priceextoffset = 0
timeextoffset = 0
ellipseoffset = 0
ellipse3offset = 0
fibocirclesoffset = 0
timeruleroffset = 0
priceruleroffset = 0
pitchforkoffset = 0
schiffpitchforkoffset = 0
'orderbuyoffset=0
'orderselloffset=0
textlabelsoffset=0


DIM firstclickgraphprice AS DOUBLE
DIM secondclickgraphprice AS DOUBLE
DIM firstclicksepindiprice AS DOUBLE
DIM secondclicksepindiprice AS DOUBLE
DIM firstclickgraphtime AS double
DIM secondclickgraphtime AS double
DIM graphserialdateend AS DOUBLE , graphserialdatebegin AS DOUBLE , graphserialdatespace AS DOUBLE
DIM graphhspace AS double , graphvspace AS INTEGER
DIM graphvlow AS DOUBLE
DIM graphvhigh AS DOUBLE
DIM sepgraphvlow AS DOUBLE
DIM sepgraphvhigh AS DOUBLE
DIM alltimelow AS DOUBLE
DIM alltimehigh AS DOUBLE
DIM graphpricespace AS DOUBLE
DIM graphhbegin AS double , graphhend AS double , graphvbegin AS INTEGER , graphvend AS INTEGER
DIM signaltrigger AS INTEGER
DIM reversecount AS INTEGER
reversecount = 0
DIM upordown AS INTEGER
DIM tmpreverse(0 TO 100) AS STRING
DIM relativecordx AS integer
DIM relativecordy AS INTEGER
dim mousediffx as integer
dim mousediffy as integer
dim mousediffsepindix as integer
dim mousediffsepindiy as integer
DIM relativecordsepindix AS integer
DIM relativecordsepindiy AS INTEGER
DIM mousemovegraphx AS integer
DIM mousemovegraphy AS INTEGER
DIM mousemovesepindix AS integer
DIM mousemovesepindiy AS INTEGER
DIM splitcurposx AS integer
DIM splitcurposy AS INTEGER
dim showdescindopened as integer
showdescindopened=0
dim hidedescindmsgbox as integer
dim cntbarseditstr as string
defstr setcntbarseditstr
dim barsstr as string
dim tfmultstr as string
dim lastpointofsymetryx as integer
dim lastpointofsymetryy as integer
dim fibofanangonce as integer
dim cnthotkey as byte
dim ang_a_pub as double
dim chatformtimer as qtimer
chatformtimer.interval=10000
chatformtimer.enabled=0
declare sub chatformtimerexpired
chatformtimer.ontimer=chatformtimerexpired
defdbl ymaxgraphglobal=0.0001
defdbl ymingraphglobal=0.0001

' sweph
Dim iday as integer
Dim imonth as integer
Dim iyear as integer
Dim ihour as single
Dim imin as single
Dim starname As String
Dim lon as double
Dim lat as double
Dim tjd_ut as double
Dim tdj_et as double
defstr parameters

' draw type (line=0 or empty,histogram=1,chronogram=2) indicator in separate canvas
dim drawtype(0 TO 1000) as integer

' helps to know pixel positions of the axes graduations
dim timechartpos(0 to 1000,0 to 1) as double
dim pricechartpos(0 to 1,0 to 1) as double

' helps to know pixel positions of the axes graduations for the separate canvas
dim septimechartpos(0 to 1000,0 to 1) as double
dim seppricechartpos(0 to 1,0 to 1) as double

dim clocktimer as qtimer
declare sub clockontimersub
clocktimer.interval=1000
clocktimer.ontimer=clockontimersub
clocktimer.enabled=1
defstr clockdate,clocktime

dim quotetimer as qtimer
declare sub quoteontimersub
quotetimer.interval=10000
quotetimer.ontimer=quoteontimersub
quotetimer.enabled=0
defstr currentquote="0"

defint astrowheelmarketbar=0

defdbl lastpricey
defdbl lastpricex

dim useindiCheckedtmp as integer

DIM drawidmaincanvas AS INTEGER
DIM drawidseparatecanvas AS INTEGER

declare sub enablegetchartbtnsub
dim getcharttimer as qtimer
getcharttimer.enabled=0
getcharttimer.interval=30000
getcharttimer.ontimer=enablegetchartbtnsub

defdbl yahoofinancecurrenttimestamp=val(varptr$(current_time()))
defdbl yahoofinancecurrenttimestamponeminute=yahoofinancecurrenttimestamp-129600
defdbl yahoofinancecurrenttimestampfiveminutes=yahoofinancecurrenttimestamp-800393
defdbl yahoofinancecurrenttimestamp15minutes=yahoofinancecurrenttimestamp-2401181
defdbl yahoofinancecurrenttimestamp30minutes=yahoofinancecurrenttimestamp-4802363
defdbl yahoofinancecurrenttimestamphourly=yahoofinancecurrenttimestamp-6243071
defdbl yahoofinancecurrenttimestamp4hours=yahoofinancecurrenttimestamp-12486142
defdbl yahoofinancecurrenttimestampdaily=yahoofinancecurrenttimestamp-137894400
defdbl yahoofinancecurrenttimestampweekly=yahoofinancecurrenttimestamp-160876800
defdbl yahoofinancecurrenttimestampmonthly=yahoofinancecurrenttimestamp-689472000

DEFSTR currentimeyfend
DEFSTR ftyfend
DEFSTR yearyfend
DEFSTR monthlyfend
DEFSTR dayyfend
DEFSTR houryfend
DEFSTR minuteyfend
defstr datetimefend

DEFSTR currentimeyfstart
DEFSTR ftyfstart
DEFSTR yearyfstart
DEFSTR monthlyfstart
DEFSTR dayyfstart
DEFSTR houryfstart
DEFSTR minuteyfstart
defstr datetimefstart

defint primecalculate=0
DEFSNG prime_x1,prime_y1

' ------------------ End of variables declaration ------------------------------

DECLARE SUB moveplanetred
DIM planettimerred AS QTIMER
planettimerred.Enabled = 0
planettimerred.Interval = 100
planettimerred.OnTimer = moveplanetred

DECLARE SUB moveplanetgreen
DIM planettimergreen AS QTIMER
planettimergreen.Enabled = 0
planettimergreen.Interval = 100
planettimergreen.OnTimer = moveplanetgreen

DECLARE SUB moveplanetwhite
DIM planettimerwhite AS QTIMER
planettimerwhite.Enabled = 0
planettimerwhite.Interval = 100
planettimerwhite.OnTimer = moveplanetwhite

DIM planetredbgspeed AS INTEGER
DIM planetgreenbgspeed AS INTEGER
DIM planetwhitebgspeed AS INTEGER
RANDOMIZE
planetredbgspeed = RND(5)
planetgreenbgspeed = RND(5)
planetwhitebgspeed = RND(5)

SCREEN.Cursors(1) = LoadCursorFromFile("cursors\pen_rm.cur")
SCREEN.Cursors(2) = LoadCursorFromFile("cursors\harrow.cur")
SCREEN.Cursors(3) = LoadCursorFromFile("cursors\move_rl.cur")
SCREEN.Cursors(4) = LoadCursorFromFile("cursors\size4_rl.cur")
SCREEN.Cursors(5) = LoadCursorFromFile("cursors\size3_rl.cur")
SCREEN.Cursors(6) = LoadCursorFromFile("cursors\lwait.cur")

DECLARE SUB InitStars

DIM MaxStars AS INTEGER
MaxStars = 333

DIM Starsx(1 TO MaxStars) AS INTEGER
DIM Starsy(1 TO MaxStars) AS INTEGER

SUB InitStars
    DIM Istars AS INTEGER

    RANDOMIZE

    FOR Istars = 1 TO MaxStars
        Starsx(Istars) = RND(600)
        Starsy(Istars) = RND(300 + 10000) - 10000
    NEXT Istars
END SUB

'--------------------------------------------------------------------------------
'Date routines

'From: "cyberrbtmail" <cyberrbtmail@yahoo.com>Thu, 01 Aug 2002 04:50:43 -0000

'To me the easiest technique for working with date and time
'calculations on the PC is to implement DateSerial and TimeSerial.
'The following DateSerial counts the number of days since 1-1-0001.  A
'TimeSerial counts the number of seconds since 00:00:00.

'You can construct numerous library routines founded on these two
'concepts.  Computing TimeSerials is rather simplistic (just count the
'seconds, minutes, and hours ... 60, 60, 24).  Computing DateSerials,
'on the other hand, requires some rather esoteric knowledge of Julian
'and Gregorian calendars.  When PC's were in their infancy, i began
'building such libraries in Assembly.  Later, they were converted to
'C, QBASIC, PASCAL, VB, DELPHI, Perl, JavaScript ... and now to RQ.
'Review the functions and tests below.  This is only a FOUNDATION.
'You can build about two dozen functions using these three:
'IsLeapYear, DateSerial, and DateFromSerial.

'These functions work from Monday January 1, 0001 through Monday, July
'11, 5879611.  VB's DateSerial works for years 100 through 9999.  They
'take into account the Julian to Gregorian transition and the missing
'11 days in the 12th century.

'Here are some advantages of DateSerials:
'* you can store and retrieve dates as numbers
'* you can manipulate dates as numbers
'* you can calculate dates as numbers, e.g.,
'DateSerial + 7 = ThisDayNextWeek
'DateSerialX - DateSerialY = NumberOfDaysBetween
'DateSerial MOD 7 = DayOfWeek (0=SUN; 6=SAT)
'* they are essentially locale independent

'Now to the code.  The Function Declarations here are for ease of use
'due to RQ's single-pass compiler.  Hope this is useful to you and
'others...

DECLARE FUNCTION isLeapYear(Year AS LONG) AS LONG
DECLARE FUNCTION DateSerial(Y AS LONG , M AS LONG , D AS LONG) AS DOUBLE
DECLARE FUNCTION DateFromSerial(DateSerial AS DOUBLE , ByRef Year AS LONG , ByRef Month AS LONG , ByRef Day AS LONG) AS LONG

'SIMPLE USAGE EXAMPLES
'works for Monday January 1, 0001
'through Monday, July 11, 5879611

'the DateSerial long value
'DEFSTR rqcrlf = CHR$(13) + CHR$(10)
'DEFLNG ds1, ds2, DayOfWeek
'ds1 = DateSerial (2002, 7, 27)
'ds2 = DateSerial (2002, 7, 31)
'SHOWMESSAGE "DateSerial (2002, 7, 31) = " + STR$(ds2)

'using DateFromSerial
'DEFLNG yy, mm, dd
'DayOfWeek = DateFromSerial(ds2, yy, mm, dd)
'SHOWMESSAGE "Testing DateFromSerial" + rqcrlf + rqcrlf + _
'"Year = " + STR$(yy) + rqcrlf + _
'"Month = " + STR$(mm) + rqcrlf + _
'"Date = " + STR$(dd) + rqcrlf + _
'"DayOfWeek = " + STR$(DayOfWeek)

'date difference
'DEFLNG DateDiff
'DateDiff = ds2 - ds1
'SHOWMESSAGE "DateSerial(2002, 7, 31) - DateSerial(2002, 7, 27)" + _
'rqcrlf + " = " + STR$(DateDiff)

'quick day of week from DateSerial
'DayOfWeek = ds2 MOD 7
'SHOWMESSAGE "Day of Week from DateSerial" + rqcrlf + _
'"DateSerial(2002, 7, 31) MOD 7 " + rqcrlf + _
'"results in " + STR$(DayOfWeek)

FUNCTION isLeapYear(Year AS LONG) AS LONG
    Result = 0
    IF ((Year MOD 4) = 0) AND ((Year MOD 100) > 0) OR ((Year MOD 400) = 0) THEN Result = 1
END FUNCTION


FUNCTION DateSerial(Y AS LONG , M AS LONG , D AS LONG) AS DOUBLE
    'declare
    DEFDBL daysCount , dayOfMonth , Year , Month

    'initialize
    daysCount = D

    'process
    IF M > 1 THEN
        Month = M
        dayOfMonth = &H3DFF7F9F
        IF Month > 2 AND isLeapYear(Y) THEN dayOfMonth = (dayOfMonth + 32)
        DO
            daysCount = daysCount + (dayOfMonth AND 31)
            IF Month = 2 THEN EXIT DO
            Month = Month - 1
            dayOfMonth = dayOfMonth \ 32
            IF dayOfMonth = 0 THEN dayOfMonth = &H3FEFFBFF
        LOOP
    END IF

    'exit
    Year = (Y - 1)
    Result = daysCount + (CLNG(Year) * 365) + (Year \ 4) - (Year \ 100) + (Year \ 400)
END FUNCTION


FUNCTION DateFromSerial(DateSerial AS DOUBLE , ByRef Year AS LONG , ByRef Month AS LONG , ByRef Day AS LONG) AS LONG
    'declare
    DEFDBL daysCount , dayOfMonth , dayTotal

    'initialize
    Year = 1
    Month = 1
    daysCount = DateSerial - 1

    'pre-process
    IF daysCount > 146096 THEN
        Year = Year + (daysCount \ 146097) * 400
        daysCount = (daysCount MOD 146097)
    END IF
    IF daysCount > 36523 THEN
        dayTotal = (daysCount \ 36524)
        IF dayTotal < 4 THEN
            Year = Year + (dayTotal * 100)
            daysCount = (daysCount MOD 36524)
        ELSE
            Year = Year + 300
            daysCount = 36524
        END IF
    END IF
    IF daysCount > 1460 THEN
        Year = Year + (daysCount \ 1461) * 4
        daysCount = (daysCount MOD 1461)
    END IF
    IF daysCount > 364 THEN
        dayTotal = (daysCount \ 365)
        IF dayTotal < 4 THEN
            Year = Year + dayTotal
            daysCount = (daysCount MOD 365)
        ELSE
            Year = Year + 3
            daysCount = 365
        END IF
    END IF

    'process
    Day = daysCount + 1
    dayOfMonth = &H3DFF7F9F
    IF Day > 58 AND isLeapYear(Year) THEN dayOfMonth = (dayOfMonth + 32)
    DO
        dayTotal = (dayOfMonth AND 31)
        IF dayTotal >= Day THEN EXIT DO
        Day = Day - dayTotal
        Month = Month + 1
        dayOfMonth = (dayOfMonth \ 32)
        IF dayOfMonth = 0 THEN dayOfMonth = &H3FEFFBFF
    LOOP

    'exit
    Result = (DateSerial MOD 7)
END FUNCTION

'This function calculates and returns a julian date given Day,Month,Year.
'Note:
'
FUNCTION JulianDate(Day AS INTEGER , Month AS INTEGER , Year AS INTEGER) AS DOUBLE
    DIM A AS INTEGER
    DIM B AS INTEGER
    DIM Year_Corr AS DOUBLE
    B = 0
    IF Month <= 2 THEN
        DEC(Year)
        INC(Month , 12)
    END IF
    IF (Year * 10000.0 + Month * 100.0 + Day >= 15821015.0) THEN
        A = Year \ 100
        B = 2 - A + A \ 4
    END IF
    IF Year > 0 THEN
        Year_Corr = 0.0
    ELSE
        Year_Corr = 0.75
    END IF
    Result = FIX((365.25 * Year - Year_Corr)) + FIX((30.6001 * (Month + 1) + Day + 1720994 + B))
END FUNCTION

'End date routines
'--------------------------------------------------------------------------------


TYPE mousepos
    xpos AS LONG
    ypos AS LONG
END TYPE

DIM NPOS AS mousepos
DIM nposrela AS mousepos


DIM firsttimevalue AS STRING
DIM firstimefile AS QFILESTREAM
firstimefile.open(homepath + "\config\firsttime.cfg" , fmOpenRead)
firsttimevalue = firstimefile.ReadLine() 'Read an entire line
firstimefile.close

IF firsttimevalue = "1" THEN
    SHOWMESSAGE "Welcome to QChartist!"
END IF


'WinAPI Calls
'CONST GWL_HWNDPARENT = (-8) ' Minimize to task bar
'CONST HWND_DESKTOP = 0
'DECLARE FUNCTION SetWindowLong LIB "user32" ALIAS "SetWindowLongA" (hwnd AS LONG, nIndex AS LONG,_
'dwNewLong AS LONG) AS LONG
DECLARE SUB SetFocus LIB "USER32" ALIAS "SetFocus"(HWnd AS LONG)
DECLARE SUB mouse_event LIB "User32.dll" ALIAS "mouse_event"(dwflag AS LONG , dx AS LONG , dy AS LONG , cbutton AS LONG , dwextra AS LONG)

'-------------------------------------------------------------------------------
'Global hotkeys declaration

'$TYPECHECK ON

'CONST WM_HOTKEY = &H312

'CONST MOD_CTRL = &H2
'CONST MOD_SHFT = &H4
'CONST MOD_ALT = &H1
'CONST MOD_GENERIC = &H0
'Const VK_ESCAPE = &H1B
'Const VK_SPACE = &H20


'DECLARE FUNCTION RegisterHotKey LIB "USER32" ALIAS "RegisterHotKey" _
'(hWnd AS LONG, ID AS LONG, fsModifiers AS LONG, _
'vk AS LONG) AS LONG
'DECLARE FUNCTION UnRegisterHotKey LIB "USER32" ALIAS "UnregisterHotKey" _
'(hWnd AS LONG, ID AS LONG) AS LONG
'DECLARE SUB SetForegroundWindow LIB "USER32" ALIAS "SetForegroundWindow" _
'(HWnd AS LONG)

'DECLARE SUB FormWndProc (hWnd&, uMsg&, wParam&, lParam&)

'End Global hotkeys declaration
'-------------------------------------------------------------------------------


'Code modules (Change path to point to the correct directory on your system)
'$INCLUDE "Common.inc"


DECLARE SUB hide_crossform
DECLARE SUB hide_fiboarcsform
DECLARE SUB hide_seedoflifeform
DECLARE SUB hide_gannsquareform
DECLARE SUB hide_fibospiralform
DECLARE SUB hide_sq144form
DECLARE SUB hide_tsq144form
DECLARE SUB hide_sq9form
DECLARE SUB hide_tsq9form
DECLARE SUB hide_fibofanform
DECLARE SUB hide_schiffpitchforkform
DECLARE SUB hide_gannfanform
DECLARE SUB hide_sqrform
DECLARE SUB hide_sqr2form
DECLARE SUB hide_triform
DECLARE SUB hide_tri2form
DECLARE SUB hide_speedresform
DECLARE SUB hide_speedresarcsform
DECLARE SUB hide_polygform
DECLARE SUB hide_sinform
DECLARE SUB hide_primeform
DECLARE SUB hide_archimedspiralform
DECLARE SUB crossremovebtnclick
DECLARE SUB crossaddbtnclick
declare sub onclickprimestopsub
'-====================================== Drawing tools Settings forms =============================================-

CREATE crossform AS QFORM

    Center
    Caption = "Settings for: Cross"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE crosslevelslab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Levels:"
    END CREATE

    CREATE crosslevelslist AS QLISTBOX
        Left = crosslevelslab.Width + 100
        Top = 0
        AddItems "0"
        AddItems "0.236"
        AddItems "0.382"
        AddItems "0.5"
        AddItems "0.618"
        AddItems "1"
    END CREATE

    CREATE crossremovebtn AS QBUTTON
        Left = crosslevelslab.Width + 100
        Top = crosslevelslist.Top + crosslevelslist.Height
        Width = crosslevelslist.Width / 2
        Caption = "Remove"
        OnClick = crossremovebtnclick
    END CREATE

    CREATE crossaddbtn AS QBUTTON
        Left = crosslevelslab.Width + 100 + crosslevelslist.Width / 2
        Top = crosslevelslist.Top + crosslevelslist.Height
        Width = crosslevelslist.Width / 2
        Caption = "Add"
        OnClick = crossaddbtnclick
    END CREATE

    CREATE crossbtnok AS QBUTTON
        Left = 0
        Top = crosslevelslab.Top + crosslevelslab.Height + 15
        Caption = "OK"
        OnClick = hide_crossform
    END CREATE

END CREATE

SUB hide_crossform
    crossform.Visible = 0
END SUB

CREATE fiboarcsform AS QFORM

    Center
    Caption = "Settings for: Fibonacci arcs"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE fiboarcsscalelab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Scale:"
    END CREATE

    CREATE fiboarcsscaleedit AS qedit
        Left = fiboarcsscalelab.Width + 100
        Top = 0
        Text = "2"
    END CREATE
    
    CREATE fiboarcsstep2lab AS QLABEL
        Left = 0
        Top = 30
        Caption = "Step2 (amount to add to theta each time (degrees)):"
    END CREATE

    CREATE fiboarcsstep2edit AS qedit
        Left = fiboarcsstep2lab.Width + 100
        Top = 30
        Text = "0.2"
    END CREATE

    CREATE fiboarcsbtnok AS QBUTTON
        Left = 0
        Top = fiboarcsstep2lab.Top + fiboarcsstep2lab.Height + 15
        Caption = "OK"
        OnClick = hide_fiboarcsform
    END CREATE

END CREATE

SUB hide_fiboarcsform
    fiboarcsform.Visible = 0
END SUB

CREATE speedresarcsform AS QFORM

    Center
    Caption = "Settings for: Speed Res. arcs"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE speedresarcsscalelab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Scale:"
    END CREATE

    CREATE speedresarcsscaleedit AS qedit
        Left = speedresarcsscalelab.Width + 100
        Top = 0
        Text = "2"
    END CREATE
    
    CREATE speedresarcsstep2lab AS QLABEL
        Left = 0
        Top = 30
        Caption = "Step2 (amount to add to theta each time (degrees)):"
    END CREATE

    CREATE speedresarcsstep2edit AS qedit
        Left = speedresarcsstep2lab.Width + 100
        Top = 30
        Text = "0.2"
    END CREATE

    CREATE speedresarcsbtnok AS QBUTTON
        Left = 0
        Top = speedresarcsstep2lab.Top + speedresarcsstep2lab.Height + 15
        Caption = "OK"
        OnClick = hide_speedresarcsform
    END CREATE

END CREATE

SUB hide_speedresarcsform
    speedresarcsform.Visible = 0
END SUB

CREATE seedoflifeform AS QFORM

    Center
    Caption = "Settings for: Seed of Life"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE seedoflifescalelab AS QLABEL
        Left = 0
        Top = 0
        Caption = "test:"
    END CREATE

    CREATE seedoflifescaleedit AS qedit
        Left = seedoflifescalelab.Width + 100
        Top = 0
        Text = "1"
    END CREATE       

    CREATE seedoflifebtnok AS QBUTTON
        Left = 0
        Top = seedoflifescalelab.Top + seedoflifescalelab.Height + 15
        Caption = "OK"
        OnClick = hide_seedoflifeform
    END CREATE

END CREATE

SUB hide_seedoflifeform
    seedoflifeform.Visible = 0
END SUB

CREATE gannsquareform AS QFORM

    Center
    Caption = "Settings for: Gann square"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE gannsquareheightcombo AS Qcombobox
        Left = 0
        Top = 0
	additems "Free height"
        additems "Fixed height in pixels"
	additems "Fixed height in price"
	itemindex=0
    END CREATE

    CREATE gannsquareheightedit AS Qedit
        Left = gannsquareheightcombo.width+15
        Top = 0
	text="90"
    END CREATE

    CREATE gannsquarewidthcombo AS qcombobox
        Left = 0
        Top = 30
        additems "Free width"
        additems "Fixed width in pixels"
	additems "Fixed width in bars"
	'additems "Fixed width in bars from price"
	itemindex=0
    END CREATE       

    CREATE gannsquarewidthedit AS Qedit
        Left = gannsquarewidthcombo.width+15
        Top = 30
	text="90"
    END CREATE

    CREATE gannsquarebtnok AS QBUTTON
        Left = 0
        Top = 60
        Caption = "OK"
        OnClick = hide_gannsquareform
    END CREATE

END CREATE

SUB hide_gannsquareform
    gannsquareform.Visible = 0
END SUB

CREATE fibospiralform AS QFORM

    Center
    Caption = "Settings for: Fibonacci spiral"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE fibospiralcombo AS qcombobox
        Left = 0
        Top = 0
	additems "default"	
	additems "horizontal and vertical mirror"
	'additems "horizontal mirror"
	'additems "vertical mirror"
	itemindex=0
    END CREATE

    'CREATE fibospiraledit AS Qedit
    '    Left = fibospirallabel.width+15
    '    Top = 0
'	text="0"
'    END CREATE

    CREATE fibospiralbtnok AS QBUTTON
        Left = 0
        Top = 30
        Caption = "OK"
        OnClick = hide_fibospiralform
    END CREATE

END CREATE

SUB hide_fibospiralform
    fibospiralform.Visible = 0
END SUB

CREATE archimedspiralform AS QFORM

    Center
    Caption = "Settings for: Archimed spiral"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE archimedspiralcombo AS qcombobox
        Left = 0
        Top = 0
	additems "default"	
	additems "horizontal and vertical mirror"
	'additems "horizontal mirror"
	'additems "mirror"
	itemindex=0
    END CREATE

    'CREATE archimedspiraledit AS Qedit
    '    Left = archimedspirallabel.width+15
    '    Top = 0
'	text="0"
'    END CREATE

    CREATE archimedspiralbtnok AS QBUTTON
        Left = 0
        Top = 30
        Caption = "OK"
        OnClick = hide_archimedspiralform
    END CREATE

END CREATE

SUB hide_archimedspiralform
    archimedspiralform.Visible = 0
END SUB

CREATE sq144form AS QFORM

        Caption = "Settings for: SQ144"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE sq144factlab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Factor:"
    END CREATE

    CREATE sq144edit AS QEDIT
        Left = sq144factlab.Width + 100
        Top = 0
        Text = "1"
    END CREATE

    CREATE sq144dirlab AS QLABEL
        Left = 0
        Top = 30
        Caption = "Direction:"
    END CREATE

    CREATE sq144diredit AS QEDIT
        Left = sq144dirlab.Width + 100
        Top = 30
        Text = "1"
    END CREATE


    CREATE sq144btnok AS QBUTTON
        Left = 0
        Top = sq144dirlab.Top + sq144dirlab.Height + 15
        Caption = "OK"
        OnClick = hide_sq144form
    END CREATE

END CREATE

SUB hide_sq144form
    sq144form.Visible = 0
END SUB

CREATE tsq144form AS QFORM

        Caption = "Settings for: TSQ144"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE tsq144factlab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Factor:"
    END CREATE

    CREATE tsq144edit AS QEDIT
        Left = tsq144factlab.Width + 100
        Top = 0
        Text = "1"
    END CREATE

    CREATE tsq144dirlab AS QLABEL
        Left = 0
        Top = 30
        Caption = "Direction:"
    END CREATE

    CREATE tsq144diredit AS QEDIT
        Left = tsq144dirlab.Width + 100
        Top = 30
        Text = "1"
    END CREATE


    CREATE tsq144btnok AS QBUTTON
        Left = 0
        Top = tsq144dirlab.Top + tsq144dirlab.Height + 15
        Caption = "OK"
        OnClick = hide_tsq144form
    END CREATE

END CREATE

SUB hide_tsq144form
    tsq144form.Visible = 0
END SUB

CREATE fibofanform AS QFORM

    Center
    Caption = "Settings for: fibofan"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE fibofanstandardradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Standard"
        checked=1
        onclick=fibofanstandardradioclickedsub
    END CREATE

    CREATE fibofansymetryfrompointradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "Symetry from point"
        onclick=fibofansymetryfrompointradioclickedsub
    END CREATE
    
    CREATE fibofanpricemirrorradio AS qradiobutton
        Left = 0
        Top = 60
        Caption = "Std+Price Mirror"
        onclick=fibofanpricemirrorradioclickedsub
    END CREATE

    CREATE fibofanbtnok AS QBUTTON
        Left = 0
        Top = 90
        Caption = "OK"
        OnClick = hide_fibofanform
    END CREATE

END CREATE

SUB hide_fibofanform
    fibofanform.Visible = 0
END SUB

CREATE schiffpitchforkform AS QFORM

    Center
    Caption = "Settings for: Schiff Pitchfork"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE schiffpitchforkstandardradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Standard"
        checked=1
        'onclick=fibofanstandardradioclickedsub
    END CREATE

    CREATE modifiedschiffpitchforkradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "Modified Schiff Pitchfork"
        'onclick=fibofansymetryfrompointradioclickedsub
    END CREATE
    
    CREATE insidepitchforkradio AS qradiobutton
        Left = 0
        Top = 60
        Caption = "Inside Pitchfork"
        'onclick=fibofanpricemirrorradioclickedsub
    END CREATE

    CREATE schiffpitchforkbtnok AS QBUTTON
        Left = 0
        Top = 90
        Caption = "OK"
        OnClick = hide_schiffpitchforkform
    END CREATE

END CREATE

SUB hide_schiffpitchforkform
    schiffpitchforkform.Visible = 0
END SUB

CREATE gannfanform AS QFORM

    Center
    Caption = "Settings for: Gann fan"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358

    CREATE gannfanstandardradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Standard"
        checked=1
        'onclick=fibofanstandardradioclickedsub
    END CREATE
    
    CREATE gannfanpricemirrorradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "Std+Price Mirror"
        'onclick=fibofanpricemirrorradioclickedsub
    END CREATE

    CREATE gannfanbtnok AS QBUTTON
        Left = 0
        Top = 60
        Caption = "OK"
        OnClick = hide_gannfanform
    END CREATE

END CREATE

SUB hide_gannfanform
    gannfanform.Visible = 0
END SUB

CREATE sqrform AS QFORM

    Center
    Caption = "Settings for: sqr"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE sqrstandardradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Standard"
        checked=1
        'onclick=fibofanstandardradioclickedsub
    END CREATE

    CREATE sqrmosaicradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "Mosaic"
        'onclick=fibofansymetryfrompointradioclickedsub
    END CREATE

    CREATE sqrbtnok AS QBUTTON
        Left = 0
        Top = 60
        Caption = "OK"
        OnClick = hide_sqrform
    END CREATE

END CREATE

SUB hide_sqrform
    sqrform.Visible = 0
END SUB

CREATE sqr2form AS QFORM

    Center
    Caption = "Settings for: sqr from center"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE sqr2standardradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Standard"
        checked=1
        'onclick=fibofanstandardradioclickedsub
    END CREATE

    CREATE sqr2mosaicradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "Mosaic"
        'onclick=fibofansymetryfrompointradioclickedsub
    END CREATE

    CREATE sqr2btnok AS QBUTTON
        Left = 0
        Top = 60
        Caption = "OK"
        OnClick = hide_sqr2form
    END CREATE

END CREATE

SUB hide_sqr2form
    sqr2form.Visible = 0
END SUB

CREATE triform AS QFORM

    Center
    Caption = "Settings for: tri"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE tristandardradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Standard"
        checked=1
        'onclick=fibofanstandardradioclickedsub
    END CREATE

    CREATE trimosaicradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "Mosaic"
        'onclick=fibofansymetryfrompointradioclickedsub
    END CREATE

    CREATE tribtnok AS QBUTTON
        Left = 0
        Top = 60
        Caption = "OK"
        OnClick = hide_triform
    END CREATE

END CREATE

SUB hide_triform
    triform.Visible = 0
END SUB

CREATE tri2form AS QFORM

    Center
    Caption = "Settings for: tri from center"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE tri2standardradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Standard"
        checked=1
        'onclick=fibofanstandardradioclickedsub
    END CREATE

    CREATE tri2mosaicradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "Mosaic"
        'onclick=fibofansymetryfrompointradioclickedsub
    END CREATE

    CREATE tri2btnok AS QBUTTON
        Left = 0
        Top = 60
        Caption = "OK"
        OnClick = hide_tri2form
    END CREATE

END CREATE

SUB hide_tri2form
    tri2form.Visible = 0
END SUB

CREATE speedresform AS QFORM

    Center
    Caption = "Settings for: speedres"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE speedresstandardradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Standard"
        checked=1
        'onclick=speedresstandardradioclickedsub
    END CREATE
    
    CREATE speedrespricemirrorradio AS qradiobutton
        Left = 0
        Top = 60
        Caption = "Std+Price Mirror"
        'onclick=speedrespricemirrorradioclickedsub
    END CREATE

    CREATE speedresbtnok AS QBUTTON
        Left = 0
        Top = 90
        Caption = "OK"
        OnClick = hide_speedresform
    END CREATE

END CREATE

SUB hide_speedresform
    speedresform.Visible = 0
END SUB

CREATE sq9form AS QFORM

    Center
    Caption = "Settings for: SQ9"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE sq9factlab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Factor:"
    END CREATE

    CREATE sq9edit AS QEDIT
        Left = sq9factlab.Width + 100
        Top = 0
        Text = "100"
    END CREATE

    CREATE sq9dirlab AS QLABEL
        Left = 0
        Top = 30
        Caption = "Direction:"
    END CREATE

    CREATE sq9diredit AS QEDIT
        Left = sq9dirlab.Width + 100
        Top = 30
        Text = "1"
    END CREATE


    CREATE sq9btnok AS QBUTTON
        Left = 0
        Top = sq9dirlab.Top + sq9dirlab.Height + 15
        Caption = "OK"
        OnClick = hide_sq9form
    END CREATE

END CREATE

SUB hide_sq9form
    sq9form.Visible = 0
END SUB

CREATE tsq9form AS QFORM

    Center
    Caption = "Settings for: TSQ9"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE tsq9factlab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Factor:"
    END CREATE

    CREATE tsq9edit AS QEDIT
        Left = tsq9factlab.Width + 100
        Top = 0
        Text = "100"
    END CREATE

    CREATE tsq9dirlab AS QLABEL
        Left = 0
        Top = 30
        Caption = "Direction:"
    END CREATE

    CREATE tsq9diredit AS QEDIT
        Left = tsq9dirlab.Width + 100
        Top = 30
        Text = "1"
    END CREATE


    CREATE tsq9btnok AS QBUTTON
        Left = 0
        Top = tsq9dirlab.Top + tsq9dirlab.Height + 15
        Caption = "OK"
        OnClick = hide_tsq9form
    END CREATE

END CREATE

SUB hide_tsq9form
    tsq9form.Visible = 0
END SUB

CREATE polygform AS QFORM

    Center
    Caption = "Settings for: polygone"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE pentagoneradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Pentagone"
        checked=1
    END CREATE

    CREATE hexagoneradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "Hexagone"
    END CREATE
    
    CREATE octogoneradio AS qradiobutton
        Left = 0
        Top = 60
        Caption = "Octogone"
    END CREATE

    CREATE polygbtnok AS QBUTTON
        Left = 0
        Top = 90
        Caption = "OK"
        OnClick = hide_polygform
    END CREATE

END CREATE

SUB hide_polygform
    polygform.Visible = 0
END SUB

CREATE sinform AS QFORM

    Center
    Caption = "Settings for: sinusoid"
    Visible = 0

    Top = 586
    Left = 422
    Width = 477
    Height = 358
    CREATE horizsinradio AS qradiobutton
        Left = 0
        Top = 0
        Caption = "Horizontal sinusoid"
        checked=1
    END CREATE

    CREATE sinfromtrendlineradio AS qradiobutton
        Left = 0
        Top = 30
        Caption = "sinusoid from trendline"
    END CREATE        

    CREATE sinbtnok AS QBUTTON
        Left = 0
        Top = 90
        Caption = "OK"
        OnClick = hide_sinform
    END CREATE

END CREATE

SUB hide_sinform
    sinform.Visible = 0
END SUB

declare SUB primenumbertypecombochangesub
declare SUB primeformulacombochangesub

CREATE primeform AS QFORM
      clientheight = screen.height/2
      clientwidth = screen.width/2
      center
      caption="Settings for: Prime Numbers Polar Spiral"
      'create button as qbutton
      'caption="Draw"
      'onclick=onclickdrawsub
      'end create
      'create buttonstop as qbutton
      'top=25
      'caption="Stop"
      'onclick=onclickstopsub
      'end create
      'create buttonquit as qbutton
      'top=50
      'caption="Quit"
      'onclick=onclickquitsub
      'end create
      create primeformulacombo as qcombobox
      top=0
      width=200
      additems "Polygons"
      additems "Polygons (larger)"
      additems "Flower"
      additems "Quite regular spiral"
      additems "Quite regular spiral (thiner)"
      additems "Flower 2"
      additems "Irregular spires"
      additems "Irregular spires (larger)"
      additems "Irregular spiral"
      additems "Irregular spiral 2"
      additems "Slow 1"
      additems "Slow 2"
      additems "Vine"
      additems "Nice spiral"
      additems "Spires 15"
      additems "Spires 16"
      additems "Regular Plotted Spiral"
      additems "Test"
      itemindex=16
      onchange=primeformulacombochangesub
      end create    
      create primenumbertypecombo as qcombobox
      top=25
      width=200
      left=primeformulacombo.left+primeformulacombo.width
      additems "Primes"
      additems "Factorials"
      additems "Fibonacci"   
      additems "Primes 2"   
      additems "Square table"  
      additems "Square root"
      additems "Primes 3"
      itemindex=3
      onchange=primenumbertypecombochangesub
      end create   
      'create primebuttonclear as qbutton
      'top=100
      'caption="Clear"
      'onclick=onclickclearsub
      'end create  
      create primeiterationslabel as qlabel
      top=50
      caption="Iterations:"
      width=55
      enabled=0
      end create  
      create primeiterationsedit as qedit
      top=50
      left=primeiterationslabel.left+primeiterationslabel.width
      text="10"
      end create
      create primeratiolabel as qlabel
      top=75
      caption="Ratio:"
      width=55
      enabled=0
      end create  
      create primeratioedit as qedit
      top=75
      left=primeratiolabel.left+primeratiolabel.width
      text="10"
      end create
      create primestartfromlabel as qlabel
      top=100
      caption="Start from:"
      width=55
      enabled=0
      end create  
      create primestartfromedit as qedit
      top=100
      left=primestartfromlabel.left+primestartfromlabel.width
      text="0"
      end create
      create primesteplabel as qlabel
      top=120
      caption="Step:"
      width=55
      enabled=0
      end create  
      create primestepedit as qedit
      top=120
      left=primesteplabel.left+primesteplabel.width
      text="10"
      end create
      create primepasseslabel as qlabel
      top=150
      caption="Passes:"
      width=55
      enabled=0
      end create  
      create primepassesedit as qedit
      top=150
      left=primepasseslabel.left+primepasseslabel.width
      text="1000"
      end create
      create primebuttonstop as qbutton
      top=175
      left=0
      caption="Stop calculation"
      onclick=onclickprimestopsub
      end create
      CREATE primebtnok AS QBUTTON
        Left = 0
        Top = 200
        Caption = "OK"
        OnClick = hide_primeform
      END CREATE
end create

SUB hide_primeform
    primeform.Visible = 0
END SUB      

'-====================================== End Drawing tools Settings forms =============================================-

SUB crossremovebtnclick
    crosslevelslist.DelItems(crosslevelslist.ItemIndex)
END SUB

SUB crossaddbtnclick
    DIM inputcrosslevel AS qinputbox , crossaddlevelstxt AS STRING
    crossaddlevelstxt = inputcrosslevel.INPUT("Enter your level:")
    crosslevelslist.AddItems VAL(crossaddlevelstxt)
END SUB

declare sub symbolrefreshintervaleditonchange
declare sub getquoteonoffbutonclick
declare sub previousbarbuttonclick
declare sub nextbarbuttonclick

declare sub citytopocombochange



create astrowheelsettingsform as qform

    height=600
    width=600
    
    create pointsper360deglab as qlabel
    caption="Points per 360 degrees:"
    top=0
    left=0
    end create
    
    create pointsper360degedit as qedit
    text="24"
    top=0
    left=pointsper360deglab.left+pointsper360deglab.width
    end create   
    
    create latitudelab as qlabel
    caption="Latitude in degrees:"
    top=40
    left=0
    end create
    
    create latitudeedit as qedit
    text="48.5833"
    top=40
    left=latitudelab.left+latitudelab.width
    end create
    
    create citytopocombo as qcombobox
    left=latitudeedit.left+latitudeedit.width+20    
    top=40
    additems "Choose a city"
additems "Accra,  Ghana"
additems "Ankara,  Turkey"
additems "Athens, Greece"
additems "Atlanta, USA"
additems "Baghdad, Iraq"
additems "Baku/Sumqayit, Azerbaijan"
additems "Baltimore, USA"
additems "Bangalore, India"
additems "Bangkok, Thailand"
additems "Barcelona, Spain"
additems "Beijing, China"
additems "Beirut, Lebanon"
additems "Belo Horizonte, Brazil"
additems "Berlin, Germany"
additems "Birmingham, UK"
additems "Bogota, Colombia"
additems "Boston, USA"
additems "Brasilia, Brazil"
additems "Brisbane, Australia"
additems "Brussels, Belgium"
additems "Budapest, Hungary"
additems "Buenos Aires, Argentina"
additems "Cairo, Egypt"
additems "Campinas, Brazil"
additems "Cape Town, South Africa"
additems "Chennai, India"
additems "Chicago, USA"
additems "Cincinnati, USA"
additems "Cleveland, USA"
additems "Cologne/Bonn, Germany"
additems "Copenhagen, Denmark"
additems "Curitiba, Brazil"
additems "Dalian, China"
additems "Dallas/Fort Worth, USA"
additems "Damman , Saudi Arabia"
additems "Delhi, India"
additems "Denver, USA"
additems "Detroit, USA"
additems "Dubai, UAE"
additems "Durban, South Africa"
additems "Essen/Dusseldorf, Germany"
additems "Fortaleza, Brazil"
additems "Frankfurt, Germany"
additems "Fukuoka, Japan"
additems "Guadalajara, Mexico"
additems "Hamburg, Germany"
additems "Harare, Zimbabwe"
additems "Ho Chi Minh City, Vietnam"
additems "Houston, USA"
additems "Hyderabad, India"
additems "Istanbul, Turkey"
additems "Jakarta, Indonesia"
additems "Jeddah, Saudi Arabia"
additems "Johannesburg/East Rand, South Africa"
additems "Karachi, Pakistan"
additems "Katowice, Poland"
additems "Khartoum, Sudan"
additems "Kinshasa, Congo"
additems "Kolkata, India"
additems "Kuala Lumpur, Malaysia"
additems "Kuwait, Kuwait"
additems "Lagos, Nigeria"
additems "Lahore, Pakistan"
additems "Lima, Peru"
additems "Lisbon, Portugal"
additems "London, UK"
additems "Los Angeles, USA"
additems "Madrid, Spain"
additems "Manchester, UK"
additems "Manila, Philippines"
additems "Melbourne, Australia"
additems "Mexico City, Mexico"
additems "Miami, USA"
additems "Milan, Italy"
additems "Minneapolis/St. Paul, USA"
additems "Monterey, Mexico"
additems "Montreal., Canada"
additems "Moscow, Russia"
additems "Mumbai, India"
additems "Munich, Germany"
additems "Nagoya, Japan"
additems "Naples, Italy"
additems "New York Metro, USA"
additems "Osaka/Kobe/Kyoto, Japan"
additems "Paris, France"
additems "Philadelphia, USA"
additems "Phoenix/Mesa, USA"
additems "Pittsburgh, USA"
additems "Portland, USA"
additems "Porto Alegre, Brazil"
additems "Pretoria, South Africa"
additems "Recife, Brazil"
additems "Rio de Janeiro, Brazil"
additems "Riverside/San Bernardino, USA"
additems "Riyadh, Saudi Arabia"
additems "Rome, Italy"
additems "San Diego, USA"
additems "San Francisco/Oakland , USA"
additems "San Jose, USA"
additems "San Juan, Puerto Rico"
additems "Santiago, Chile"
additems "Sao Paulo, Brazil"
additems "Sapporo, Japan"
additems "Seattle, USA"
additems "Seoul/Incheon, South Korea"
additems "Shanghai, China"
additems "Shenyang, China"
additems "Shenzhen, China"
additems "Singapore, Singapore"
additems "St Petersburg, Russia"
additems "St. Louis, USA"
additems "Strasbourg, France"
additems "Sydney, Australia"
additems "Taichung, Taiwan"
additems "Taipei, Taiwan"
additems "Tampa/St. Petersburg, USA"
additems "Tashkent, Uzbekistan"
additems "Tehran, Iran"
additems "Tel Aviv, Israel"
additems "Tianjin, China"
additems "Tokyo/Yokohama, Japan"
additems "Toronto, Canada"
additems "Vancouver, Canada"
additems "Vienna, Austria"
additems "Warsaw, Poland"
additems "Washington, USA"    
itemindex=0
    onchange=citytopocombochange
    end create
    
    create longitudelab as qlabel
    caption="Longitude in degrees:"
    top=60
    left=0
    end create
    
    create longitudeedit as qedit
    text="7.75"
    top=60
    left=longitudelab.left+longitudelab.width
    end create
    
    create altitudelab as qlabel
    caption="Altitude in meters:"
    top=80
    left=0
    end create
    
    create altitudeedit as qedit
    text="400"
    top=80
    left=altitudelab.left+altitudelab.width
    end create
    
    create timezonelab as qlabel
    caption="Timezone:"
    top=100
    left=0
    end create
    
    create timezoneedit as qedit
    text="-1"
    top=100
    left=timezonelab.left+timezonelab.width
    end create
    
    create summertime as qcheckbox
    caption="Summer time"
    top=100
    left=timezoneedit.left+timezoneedit.width
    end create
    
    create symbollab as qlabel
    caption="Symbol:"
    top=120
    left=0
    end create
    
    create symboledit as qedit
    text="EURUSD"
    top=120
    left=symbollab.left+symbollab.width
    end create
    
    create symboltypegroupbox as qgroupbox
    left=symboledit.left+symboledit.width
    top=120
    width=200
    create currencytype as qradiobutton
    caption="Currency"
    left=0
    top=0
    end create
    create stocktype as qradiobutton
    caption="Stock"
    left=currencytype.left+currencytype.width
    top=0
    end create
    end create  
    
    create placecombobox as qcombobox
    top=120
    left=380
    additems "australia","dwsfunds","fidelity","tiaacref","troweprice","europe","canada","usa","nyse","nasdaq","uk_unit_trusts","vanguard","vwd"
    itemindex=7
    end create
    
    create symbolrefreshintervallab as qlabel
    caption="Refresh every ? ms:"
    top=140
    left=0
    end create
    
    create symbolrefreshintervaledit as qedit
    text="13000"
    top=140
    left=symbolrefreshintervallab.left+symbolrefreshintervallab.width
    onchange=symbolrefreshintervaleditonchange
    end create
    
    create getquoteonofflab as qlabel
    caption="Realtime price-time:"
    top=160
    left=0
    end create
     
    create getquoteonoffbut as qbutton
    caption="Start"
    top=160
    left=getquoteonofflab.left+getquoteonofflab.width
    onclick=getquoteonoffbutonclick
    end create
    
    create specifydatelab as qlabel
    caption="Market date:"
    top=180
    left=0
    end create            
    
    CREATE specifydatecal AS qcalendar
        loadcal(DATE$)
        top=200
        left=0
    END CREATE
    
    CREATE specifytimelab AS QLABEL
        Top = specifydatecal.Top + specifydatecal.Height
        left=0
        Caption = "Market time: "
    END CREATE
    
    CREATE specifytimeedit AS QEDIT
        Top = specifytimelab.Top
        Left = specifytimelab.left+specifytimelab.Width
        Width = 50
        Text = "00:00"
    END CREATE
    
    create previousbarbutton as qbutton
    caption="Previous bar"
    top=specifytimeedit.top
    left=specifytimeedit.left+specifytimeedit.width
    onclick=previousbarbuttonclick
    end create
    
    create nextbarbutton as qbutton
    caption="Next bar"
    top=previousbarbutton.top
    left=previousbarbutton.left+previousbarbutton.width
    onclick=nextbarbuttonclick
    end create
    
    create marketpostponementlab1 as qlabel
    caption="Time of the market +"
    left=0
    top=specifytimeedit.top+30
    end create   
    
    create marketpostponement as qedit
    text="5"
    width=40
    left=marketpostponementlab1.left+marketpostponementlab1.width
    top=marketpostponementlab1.top
    end create
    
    create marketpostponementlab2 as qlabel
    caption="hours = my local time"
    left=marketpostponement.left+marketpostponement.width
    top=marketpostponement.top
    end create
    
    create pricesource as qgroupbox
    top=marketpostponementlab2.top+20
    width=300
    left=0
    height=50
    create openedchartpriceradio as qradiobutton
    caption="Use price of the opened chart for the specified date time"
    width=300
    top=0
    left=0
    end create
    create specifypriceradio as qradiobutton
    caption="Specify price manually:"
    width=150
    top=20
    left=0
    end create
    create specifypriceedit as qedit
    text=""
    top=20
    left=specifypriceradio.left+specifypriceradio.width
    width=80
    end create    
    end create

create astrowheelheliogeocombo as qcombobox
    top=pricesource.top+60
    additems "Heliocentric"
    additems "Geocentric"
    itemindex=0
    end create    
    
end create

declare sub checkupdatesstartupcheckboxonchange

CREATE generalsettingsfrm AS QFORM
    Height = 300    
    Visible = 0
    caption="Tools Settings"
    create generalsettingsfuturebarslabel as qlabel
    top=0
    left=0
    caption="Future bars to show:"
    end create
    create generalsettingsfuturebarsedit as qedit
    top=0
    left=generalsettingsfuturebarslabel.left+generalsettingsfuturebarslabel.width
    text="0"
    end create
    create checkupdatesstartupcheckbox as qcheckbox
    top=30
    width=200
    caption="Always check for updates on startup"    
    checked=1
    onclick=checkupdatesstartupcheckboxonchange
    end create
    create lockyscaleratiolabel as qlabel
    top=60
    left=0
    caption="Lock price scale ratio at:"
    end create
    create lockyscaleratioedit as qedit
    top=60
    width=50
    left=lockyscaleratiolabel.left+lockyscaleratiolabel.width
    text="1"
    end create
    create lockyscaleratio2label as qlabel
    top=85
    left=0
    height=20
    width=300
    caption="The above ratio is used when you choose axis type 'Fixed price scale'"
    end create
    create lockyscaleratio3label as qlabel
    top=105
    left=0
    height=20
    width=300
    caption="When you change number of bars displayed,"
    end create
    create lockyscaleratio4label as qlabel
    top=125
    left=0
    height=20
    width=300
    caption="please refresh the chart 2 times"
    end create
    create lockyscaleratio5label as qlabel
    top=145
    left=0
    height=20
    width=300
    caption="(click OK 2 times to display the correct locked scale"
    end create
    create lockyscaleratio6label as qlabel
    top=165
    left=0
    height=20
    width=300
    caption="or reclick on axis type 'Fixed price axis scale'"
    end create
    create lockyscaleratio7label as qlabel
    top=185
    left=0
    height=20
    width=300
    caption="in order to display the correct locked scale)"
    end create
    create maxnbofpersistobjectslabel as qlabel
    top=205
    left=0
    height=20
    width=300
    caption="Max nb of persistent objects:"
    end create
    create maxnbofpersistobjectsedit as qedit
    top=205
    left=maxnbofpersistobjectslabel.left+maxnbofpersistobjectslabel.width
    width=50
    text="100"
    end create
    create drawxaxisgridcheckbox as qcheckbox
    top=225
    width=200
    caption="Draw X Axis Grid"    
    checked=0
    end create
    create drawyaxisgridcheckbox as qcheckbox
    top=245
    width=200
    caption="Draw Y Axis Grid"    
    checked=0
    end create
END CREATE

DECLARE SUB choosepencolor
DECLARE SUB chartcolorssub
DECLARE SUB chooseplotareacolor
DECLARE SUB chooseplotareacolor2
DECLARE SUB chartbackgroundcolor2sub
DECLARE SUB chartforegroundcolorsub
DECLARE SUB chartgridcolorsub
DECLARE SUB bullcandlecolorsub
DECLARE SUB bearcandlecolorsub
DECLARE SUB linegraphcolorsub
DECLARE SUB pengraphcolorsub
DECLARE SUB chartmaintitlecolorsub
DECLARE SUB chartsubtitlecolorsub
DECLARE SUB chartxaxistitlecolorsub
DECLARE SUB chartyaxistitlecolorsub
DECLARE SUB chartcopyrightmarkcolorsub
DECLARE SUB chartlabelscolorsub
DECLARE SUB chartlegendcolorsub
DECLARE SUB chartaxescolorsub
declare sub chartcolorschemecombochangedsub

CREATE chartcolorsform AS QFORM
    Height = 300    
    Visible = 0
    caption="Chart colors"
    create chartbackgroundcolorbtn as qbutton
    top=0
    left=0
    caption="Background chart color"
    onclick=chooseplotareacolor
    end create
    create chartbackgroundcolor2btn as qbutton
    top=30
    left=0
    caption="Background color"
    onclick=chartbackgroundcolor2sub
    end create
    create chartforegroundcolorbtn as qbutton
    top=60
    left=0
    caption="Foreground color"
    onclick=chartforegroundcolorsub
    end create
    create chartgridcolorbtn as qbutton
    top=90
    left=0
    caption="Grid color"
    onclick=chartgridcolorsub
    end create
    create bullcandlecolorbtn as qbutton
    top=120
    left=0
    caption="Bull candle color"    
    onclick=bullcandlecolorsub
    end create
    create bearcandlecolorbtn as qbutton
    top=150
    left=0
    caption="Bear candle color"    
    onclick=bearcandlecolorsub
    end create
    create linegraphcolorbtn as qbutton
    top=180
    left=0
    caption="Line graph color"    
    onclick=linegraphcolorsub
    end create    
    create pengraphcolorbtn as qbutton
    top=210
    left=0
    caption="Pen graph color"    
    onclick=pengraphcolorsub
    end create
    create chartbackgroundcolor22btn as qbutton
    top=240
    left=0
    caption="Bg sep. indi. color"
    onclick=chooseplotareacolor2
    end create  
    
    create chartmaintitlecolorbtn as qbutton
    top=0
    left=80
    caption="Main Title color"
    onclick=chartmaintitlecolorsub
    end create
    create chartsubtitlecolorbtn as qbutton
    top=30
    left=80
    caption="Sub Title color"
    onclick=chartsubtitlecolorsub
    end create
    create chartxaxistitlecolorbtn as qbutton
    top=60
    left=80
    caption="X Axis Title color"
    onclick=chartxaxistitlecolorsub
    end create
    create chartyaxistitlecolorbtn as qbutton
    top=90
    left=80
    caption="Y Axis Title color"
    onclick=chartyaxistitlecolorsub
    end create
    create chartcopyrightmarkcolorbtn as qbutton
    top=120
    left=80
    caption="Copyright mark color"    
    onclick=chartcopyrightmarkcolorsub
    end create
    create chartlabelscolorbtn as qbutton
    top=150
    left=80
    caption="Labels color"    
    onclick=chartlabelscolorsub
    end create
    create chartlegendcolorbtn as qbutton
    top=180
    left=80
    caption="Legend color"    
    onclick=chartlegendcolorsub
    end create    
    create chartaxescolorbtn as qbutton
    top=210
    left=80
    caption="Axes color"    
    onclick=chartaxescolorsub
    end create 
    
    create chartcolorschemelabel as qlabel
    top=0
    left=160
    caption="Color scheme:"
    end create
    
    create chartcolorschemecombo as qcombobox
    top=30
    left=160
    additems "QChartist default"
    additems "Yellow On Black"
    additems "Green On Black"
    additems "Black On White"
    itemindex=0
    onchange=chartcolorschemecombochangedsub
    end create
    
END CREATE

' Square of Nine

'DEFSNG rad = 3.1415927/180 ' to convert to radians
     DECLARE SUB paintsq9
     DECLARE SUB drawsq9
     DECLARE SUB clearsq9
     declare sub getanglesubsq9
     declare function getanglesubsq9_2(cellnbsq9 as single) as double
     
     
     defsng middlex
     defsng middley

     dim cellanglistx as qstringlist
     dim cellanglisty as qstringlist

     CREATE bmpsq9 AS QBITMAP
      height = screen.height
      width = screen.width
     END CREATE

     CREATE formsq9 AS QFORM
      clientheight = screen.height
      clientwidth = screen.width
      center
      CREATE canvassq9 AS QCANVAS
       align = alclient
       height=formsq9.clientheight
       width=formsq9.clientwidth
       onpaint = paintsq9
      END CREATE
      create cellnuminputlabel as qlabel
      caption="Enter a cell number:"
      end create
      create cellnuminput as qedit
      left=cellnuminputlabel.width
      text="961"
      end create
      create getcellanglebtn as qbutton
      caption="Get angle"
      left=cellnuminputlabel.width+cellnuminput.width
      onclick=getanglesubsq9
      end create
      create interationssq9label as qlabel
      caption="Iterations:"
      top=20
      end create
      create interationssq9edit as qedit
      left=interationssq9label.width
      top=20
      text="15"
      end create
      create interationssq9btn as qbutton
      top=20
      caption="Redraw"
      left=interationssq9label.width+interationssq9edit.width
      onclick=drawsq9
      end create
      onshow=drawsq9
     END CREATE

     drawsq9

     

     SUB paintsq9
      canvassq9.draw(0,0,bmpsq9.bmp)
     END SUB

    SUB clearsq9
        bmpsq9.fillrect(0,0,canvassq9.width,canvassq9.height,&HFFFFFF)
        paintsq9
    end sub

     SUB drawsq9    
     
      clearsq9

dim sqrlocx(1 to 961) as single
dim sqrlocy(1 to 961) as single

middlex=canvassq9.width/2
middley=canvassq9.height/2

DEFSNG x2 , y2 , x3 , y3

        
        defsng sqrwidth=10                      
        
        x2=middlex
        y2=middley
        x3=middlex
        y3=middley
        defstr direction
        
        defint i,j,k=1
        defint sqrnb=0
                    
            bmpsq9.rectangle(x3-sqrwidth,y3-sqrwidth,x3+sqrwidth,y3+sqrwidth,0)            
            sqrnb++            
            sqrlocx(sqrnb)=x3
            sqrlocy(sqrnb)=y3
            bmpsq9.textout(x3-sqrwidth,y3-sqrwidth,str$(sqrnb),0,&HFFFFFF)            
            
            direction="left"
            for i=1 to k
            if direction="left" then x3=x3-(sqrwidth*2-1)                                   
            if direction="right" then x3=x3+(sqrwidth*2-1)
            bmpsq9.rectangle(x3-sqrwidth,y3-sqrwidth,x3+sqrwidth,y3+sqrwidth,0)
            sqrnb++
            sqrlocx(sqrnb)=x3
            sqrlocy(sqrnb)=y3
            bmpsq9.textout(x3-sqrwidth,y3-sqrwidth,str$(sqrnb),0,&HFFFFFF)
            next i
            
            for j=1 to val(interationssq9edit.text)
            
            direction="up"
            for i=1 to k            
            if direction="up" then y3=y3-(sqrwidth*2-1)  
            if direction="down" then y3=y3+(sqrwidth*2-1)                                                        
            bmpsq9.rectangle(x3-sqrwidth,y3-sqrwidth,x3+sqrwidth,y3+sqrwidth,0)
            sqrnb++
            sqrlocx(sqrnb)=x3
            sqrlocy(sqrnb)=y3
            bmpsq9.textout(x3-sqrwidth,y3-sqrwidth,str$(sqrnb),0,&HFFFFFF)
            next i
            
            k++
            direction="right"
            for i=1 to k                                                         
            if direction="left" then x3=x3-(sqrwidth*2-1)                                   
            if direction="right" then x3=x3+(sqrwidth*2-1)
            bmpsq9.rectangle(x3-sqrwidth,y3-sqrwidth,x3+sqrwidth,y3+sqrwidth,0)
            sqrnb++
            sqrlocx(sqrnb)=x3
            sqrlocy(sqrnb)=y3
            bmpsq9.textout(x3-sqrwidth,y3-sqrwidth,str$(sqrnb),0,&HFFFFFF)
            next i
            
            direction="down"
            for i=1 to k             
            if direction="up" then y3=y3-(sqrwidth*2-1)  
            if direction="down" then y3=y3+(sqrwidth*2-1)                                                        
            bmpsq9.rectangle(x3-sqrwidth,y3-sqrwidth,x3+sqrwidth,y3+sqrwidth,0)
            sqrnb++
            sqrlocx(sqrnb)=x3
            sqrlocy(sqrnb)=y3
            bmpsq9.textout(x3-sqrwidth,y3-sqrwidth,str$(sqrnb),0,&HFFFFFF)                      
            next i
            
            k++
            direction="left"
            for i=1 to k                                                         
            if direction="left" then x3=x3-(sqrwidth*2-1)                                   
            if direction="right" then x3=x3+(sqrwidth*2-1)
            bmpsq9.rectangle(x3-sqrwidth,y3-sqrwidth,x3+sqrwidth,y3+sqrwidth,0)
            sqrnb++
            sqrlocx(sqrnb)=x3
            sqrlocy(sqrnb)=y3
            bmpsq9.textout(x3-sqrwidth,y3-sqrwidth,str$(sqrnb),0,&HFFFFFF)
            next i            
            
            next j
                                      
            for i=1 to 961
            cellanglistx.additems str$(sqrlocx(i))
            cellanglisty.additems str$(sqrlocy(i))
            next i 
            
            paintsq9
                             
     END SUB
     
     sub getanglesubsq9
     DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
             defsng cellnb
            cellnb=val(cellnuminput.text)-1                         
            a = val(cellanglistx.item(cellnb)) - middlex            
            b = val(cellanglisty.item(cellnb)) - middley            
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
            end if     
            if val(cellanglisty.item(cellnb))>middley then
            ang_a=360-ang_a
            end if
            showmessage str$(ang_a)
     end sub
     
     function getanglesubsq9_2(cellnbsq9 as single)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
             defsng cellnb
            cellnb=cellnbsq9-1                         
            a = val(cellanglistx.item(cellnb)) - middlex            
            b = val(cellanglisty.item(cellnb)) - middley            
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
            end if     
            if val(cellanglisty.item(cellnb))>middley then
            ang_a=360-ang_a
            end if
            result=ang_a
     end sub

' End Square of Nine

' for the rotated ellipse -----------------------
type ELLIPSE2
        xc as integer
        yc as integer 'center of ellipse
        r1 as integer
        r2 as integer   'axis of ellipse
        c1 as long
        c2 as long   'border color and fill color
        angle as single   'rotate by angle
end type
' -----------------------------------------------

$INCLUDE "includes\QChart.inc"
'$Include "includes\Qcolordialog.inc"
'$RESOURCE zoommore AS "images\zoommore.bmp"
'$RESOURCE zoomless AS "images\zoomless.bmp"
$RESOURCE QChartistico AS "QChartist.ico"
$RESOURCE iconcircle AS "images\circle.bmp"
$RESOURCE iconcross AS "images\cross.bmp"
$RESOURCE iconfibofan AS "images\fibofan.bmp"
$RESOURCE iconspeedres AS "images\speedres.bmp"
$RESOURCE iconseedoflife AS "images\seedoflife.bmp"
$RESOURCE icongannsquare AS "images\gannsquare.bmp"
$RESOURCE iconfibospiral AS "images\fibospiral.bmp"
$RESOURCE iconfiboarcs AS "images\fiboarcs.bmp"
$RESOURCE iconspeedresarcs AS "images\fiboarcs.bmp"
$RESOURCE iconfiboret AS "images\fiboret.bmp"
$RESOURCE iconhline AS "images\hline.bmp"
$RESOURCE iconinvcircle AS "images\invcircle.bmp"
$RESOURCE iconpara AS "images\para.bmp"
$RESOURCE iconsqr AS "images\sqr.bmp"
$RESOURCE icontrendline AS "images\trendline.bmp"
$RESOURCE iconcursor AS "images\cursor.bmp"
$RESOURCE icontri AS "images\tri.bmp"
$RESOURCE iconconic AS "images\conic.bmp"
$RESOURCE iconcirclegiven3points AS "images\circlegiven3points.bmp"
$RESOURCE iconprime AS "images\primespiral.bmp"
$RESOURCE icongrid AS "images\grid.bmp"
$RESOURCE iconvline AS "images\vline.bmp"
$RESOURCE iconclose AS "images\closebtn.bmp"
$RESOURCE iconmove AS "images\move_rl.bmp"
$RESOURCE iconaiming AS "images\aiming.bmp"
$RESOURCE iconhandd AS "images\handd.bmp"
$RESOURCE iconsin AS "images\sin.bmp"
$RESOURCE iconlog AS "images\log.bmp"
$RESOURCE iconexp AS "images\exp.bmp"
$RESOURCE iconpriceext AS "images\priceext.bmp"
$RESOURCE iconreverse AS "images\reverse.bmp"
$RESOURCE iconflip AS "images\flip.bmp"
$RESOURCE iconellipse AS "images\ellipse.bmp"
$RESOURCE iconellipse3 AS "images\ellipse3.bmp"
$RESOURCE iconpitchfork AS "images\pitchfork.bmp"
$RESOURCE iconsettings AS "images\settings.bmp"
$RESOURCE leftarrow AS "images\left_arrow.bmp"
$RESOURCE rightarrow AS "images\right_arrow.bmp"
$RESOURCE icontimeext AS "images\timeext.bmp"
$RESOURCE icontimecycles AS "images\timecycles.bmp"
$RESOURCE iconpricecycles AS "images\pricecycles.bmp"
$RESOURCE iconlogspiral AS "images\logspiral.bmp"
$RESOURCE iconarchimedspiral AS "images\archimedspiral.bmp"
$RESOURCE iconpoly AS "images\poly.bmp"
$RESOURCE iconpentag AS "images\pentagram.bmp"
$RESOURCE iconorcycles AS "images\orcycles.bmp"
$RESOURCE iconpolyg AS "images\polygone.bmp"
$RESOURCE pricescaleplus AS "images\pricescaleplus.bmp"
$RESOURCE pricescaleminus AS "images\pricescaleminus.bmp"
$RESOURCE iconaddbars AS "images\addbars.bmp"
$RESOURCE iconshiftchart AS "images\shift.bmp"
$RESOURCE iconfibotimezones AS "images\FiboTimeZones.bmp"
$RESOURCE iconfibopricezones AS "images\FiboPriceZones.bmp"
$RESOURCE iconfibocircles AS "images\fibocircles.bmp"
$RESOURCE icontimeruler AS "images\time_ruler.bmp"
$RESOURCE iconpriceruler AS "images\price_ruler.bmp"

DIM colordlg AS qcolordialog
colordlg.Style = cdFullOpen
colordlg.Caption = "Select Color"


'Form Event declaring sub routines
DECLARE SUB btnOnClick(SENDER AS QBUTTON)
DECLARE SUB frmMainResize(SENDER AS QFORM)
DECLARE SUB frmMainClose(action as integer)
DECLARE SUB frmMainonshowsub
DECLARE SUB Buttonf2Click(Sender AS QBUTTON)
DECLARE SUB importfile()
DECLARE SUB importfile2()
DECLARE SUB exportfile()
DECLARE SUB export_indicator_data
DECLARE SUB Period_Converter_sub
DECLARE SUB exportfilename()
DECLARE SUB exportcollection()
DECLARE SUB dispmaxbarssub
DECLARE SUB setup()
DECLARE SUB Scrolling()
DECLARE SUB dispbarsok_click()
DECLARE SUB dispbarspd()
DECLARE SUB dispbarspu()
DECLARE SUB dispbarsmd()
DECLARE SUB dispbarsmu()
DECLARE SUB TimerOverdispbarsp()
DECLARE SUB TimerOverdispbarsm()
DECLARE SUB closedispchart_click()
DECLARE SUB dispchartnbchanged()
DECLARE SUB tfmultok_click()
DECLARE SUB tfmultp_click()
DECLARE SUB tfmultm_click()
DECLARE SUB TimerOvergraphtimer()
DECLARE SUB indiform()
DECLARE SUB btnaddindi_click()
DECLARE SUB btndelindi_click()
DECLARE SUB refresh_chart()
declare sub uncheck_all_indi_sub
DECLARE SUB reimportfile()
DECLARE SUB settingsclick()
'declare sub sepindizoommoreclick()
'declare sub sepindizoomlessclick()
DECLARE SUB quit()
DECLARE SUB about()
DECLARE SUB mixerform()
DECLARE SUB reversebarscomputesub
DECLARE SUB reversebarscomputesubb(referencialk AS INTEGER)
DECLARE SUB importfileaddition()
DECLARE SUB importfileadditiondel()
DECLARE SUB importfilesubtraction()
DECLARE SUB importfilesubtractiondel()
DECLARE SUB importfilemultiply()
DECLARE SUB importfilemultiplydel()
DECLARE SUB importfiledivide()
DECLARE SUB importfiledividedel()
DECLARE SUB otheropssub()
DECLARE SUB updatemixerlists()
'DEFSNG rad = 3.1415927/180 ' to convert to radians
DECLARE SUB paint
DECLARE SUB paintabout(Sender AS QCANVAS)
DECLARE SUB ClearAll2
DECLARE SUB draw(ang AS SINGLE , dis AS SINGLE)
'DECLARE SUB drawplot(xb AS SINGLE, yb AS SINGLE)
DECLARE SUB drawindi()
DECLARE SUB drawindi2(xb AS SINGLE , yb AS SINGLE)
DECLARE SUB drawchart2
DECLARE SUB drawxy2
DECLARE SUB ClearBuffer2
DECLARE SUB DetPos
DECLARE SUB graphclicked
DECLARE SUB timerovergraphclick
DECLARE SUB trendlinebtnclick
DECLARE SUB cursorbtnclick
DECLARE SUB fibofanbtnclick
DECLARE SUB gannfanbtnclick
DECLARE SUB speedresbtnclick
DECLARE SUB seedoflifebtnclick
DECLARE SUB gannsquarebtnclick
DECLARE SUB fibospiralbtnclick
DECLARE SUB fiboarcsbtnclick
DECLARE SUB speedresarcsbtnclick
DECLARE SUB fiboretbtnclick
DECLARE SUB pricecyclesbtnclick
DECLARE SUB timecyclesbtnclick
DECLARE SUB fibotimezonesbtnclick
DECLARE SUB fibopricezonesbtnclick
DECLARE SUB fibocirclesbtnclick
DECLARE SUB timerulerbtnclick
DECLARE SUB pricerulerbtnclick
DECLARE SUB logspiralbtnclick
DECLARE SUB archimedspiralbtnclick
declare sub pentagbtnclick
declare sub polygbtnclick
DECLARE SUB parabtnclick
DECLARE SUB orcyclesbtnclick
DECLARE SUB hlinebtnclick
DECLARE SUB polybtnclick
DECLARE SUB vlinebtnclick
DECLARE SUB sqrbtnclick
DECLARE SUB tribtnclick
DECLARE SUB sqr2btnclick
DECLARE SUB tri2btnclick
DECLARE SUB conicbtnclick
DECLARE SUB circlegiven3pointsbtnclick
DECLARE SUB gridbtnclick
DECLARE SUB circlebtnclick
DECLARE SUB crossbtnclick
DECLARE SUB invcirclebtnclick
DECLARE SUB textbtnclick
DECLARE SUB vectortextbtnclick
DECLARE SUB primebtnclick
DECLARE SUB aimingbtnclick
DECLARE SUB handdbtnclick
DECLARE SUB clearbtnclick
DECLARE SUB sinbtnclick
DECLARE SUB logbtnclick
DECLARE SUB expbtnclick
DECLARE SUB priceextbtnclick
DECLARE SUB reversebtnclick
DECLARE SUB flipbtnclick
DECLARE SUB ellipsebtnclick
DECLARE SUB ellipse3btnclick
DECLARE SUB pitchforkbtnclick
DECLARE SUB schiffpitchforkbtnclick
DECLARE SUB sq9fbtnclick
DECLARE SUB sq144fbtnclick
DECLARE SUB settingsbtnclick
DECLARE SUB importcsv
DECLARE SUB importbmp
DECLARE SUB showtoolsinfo
DECLARE SUB formtoolsinforesized
DECLARE SUB dispinfotext(infotxt AS STRING)
DECLARE SUB DetPos2
DECLARE SUB sepindiclicked
DECLARE SUB timeroversepindiclick
DECLARE SUB setspaceforwards
DECLARE SUB resetbtns
DECLARE SUB freeze
DECLARE SUB unfreeze
DECLARE SUB scrollmodebtnclick
DECLARE SUB disablescrollmode
DECLARE SUB scrollmodeoff
DECLARE SUB chartscursormode(mode AS INTEGER)
DECLARE SUB enterdrawtxt
DECLARE SUB enterdrawvectortxt
DECLARE SUB hide_averagerangeform()
DECLARE SUB hide_cogform()
'declare sub movebtngroupbox
'declare sub movetoolsgroupbox
'declare sub movebtnclick
DECLARE SUB closedispcanvas_click
DECLARE SUB showcanvasclick
'DECLARE SUB choosepencolor
'DECLARE SUB chartcolorssub
'DECLARE SUB chartforegroundcolorsub
'DECLARE SUB bullcandlecolorsub
'DECLARE SUB bearcandlecolorsub
'DECLARE SUB linegraphcolorsub
DECLARE SUB choosetextfont
DECLARE SUB showdescrindi
DECLARE FUNCTION txtformat(descrmsg AS STRING) AS STRING
DECLARE SUB showeditor
DECLARE SUB graphmousedown(Button AS INTEGER , x AS INTEGER , y AS INTEGER)
DECLARE SUB sepindimousedown(Button AS INTEGER , x AS INTEGER , y AS INTEGER)
DECLARE SUB trackbchange
DECLARE SUB settingsbtnclick
DECLARE SUB hideformp(frmname AS QFORM)
DECLARE SUB showformp(frmname AS QFORM)
DECLARE SUB graphcursorpos(x AS INTEGER , y AS INTEGER)
DECLARE SUB sepindicursorpos(x AS INTEGER , y AS INTEGER)
DECLARE SUB graphcursorpos2
DECLARE SUB sepindicursorpos2
DECLARE SUB showobjectslistfrm
DECLARE SUB charttypecombochange
DECLARE SUB justrefreshchart
DECLARE SUB previoustoolsclick
DECLARE SUB nexttoolsclick
DECLARE SUB timeextbtnclick
DECLARE SUB timesq9fbtnclick
DECLARE SUB timesq144fbtnclick
DECLARE SUB savebmp
DECLARE SUB printchart
DECLARE SUB frmmainonmw(frmmainr AS INTEGER , frmmainx AS LONG , frmmainy AS LONG , frmmains AS INTEGER)
DECLARE SUB showtoolsclick
DECLARE SUB showtoolbarclick
DECLARE SUB resizesplitmd
DECLARE SUB resizesplitmu
DECLARE SUB resizesplithmd
DECLARE SUB resizesplithmu
DECLARE SUB deleteobjectcursor
DECLARE SUB moveobjectclick(Sender AS QMENUITEM)
DECLARE SUB writetolog(lastlogline AS STRING)
DECLARE SUB refreshgrids
DECLARE SUB refreshgrids2
DECLARE SUB refreshgridsnorefresh
DECLARE SUB useindischeckboxsub
DECLARE SUB tfmultcombosub
DECLARE SUB dispbarsswitchsub
DECLARE SUB findbarfromfile(fbffdate AS STRING , fbfftime AS STRING)
DECLARE SUB useindisub
DECLARE SUB xscaletrackbarsub
DECLARE SUB changepriceratiosub
DECLARE SUB changepriceratiosub2
DECLARE SUB axistypecombosub
DECLARE SUB choosemailer
DECLARE SUB edit1change
DECLARE SUB edit2change
DECLARE SUB edit3change
DECLARE SUB edit4change
DECLARE SUB edit5change

'Setting up separate chart object
DECLARE SUB drawp(TYPE AS INTEGER , xb AS INTEGER , yb AS INTEGER , xc AS INTEGER , yc AS INTEGER , xd AS INTEGER , yd AS INTEGER , txt AS STRING)
DECLARE SUB drawtrendline(xb AS SINGLE , yb AS SINGLE , xc AS SINGLE , yc AS SINGLE)
DECLARE SUB drawfibofan(xb AS SINGLE , yb AS SINGLE , xc AS SINGLE , yc AS SINGLE)
DECLARE SUB initializechart2
DECLARE SUB RedrawChart2
DECLARE SUB savebuffertmp
DECLARE SUB bufcntreset
DECLARE SUB firstbufcntreset
DECLARE SUB savebuffertmpsimple
DECLARE SUB savebuffertmpsimplez
DECLARE SUB restorebuffertmpz
DECLARE SUB restorebuffertmp
DECLARE SUB restorefirstbuffertmpz
DECLARE SUB reversetillend
DECLARE SUB deleteafter
DECLARE SUB reversetillendnorefresh
DECLARE SUB reversetillendfromfile
DECLARE SUB chartconvsub
DECLARE SUB exp10sub
DECLARE SUB sinusoidalsub
DECLARE SUB showfrmlogreverse
DECLARE SUB frmlogreverseresized
DECLARE SUB frmreadmeresized
DECLARE SUB frmwhatsnewresized
DECLARE SUB tfmultchange
DECLARE SUB findbar
DECLARE SUB findbarsub
DECLARE SUB disableallindis
DECLARE SUB indilist_dblclick
DECLARE SUB autoreverse ' AlphaVantage with US Stocks and Forex scanner
DECLARE SUB autoreverse2 ' local_csv_files scanner
DECLARE SUB autoreverse3 ' Yahoo_Finance with JFD Broker stocks scanner
DECLARE SUB autoreverse4 ' Yahoo_Finance with eToro stocks scanner
DECLARE SUB autoreverse5 ' Yahoo_Finance with Boursorama stocks scanner
DECLARE SUB autoreverse6 ' Tiingo with eToro stocks scanner
DECLARE SUB autoreverse7 ' finnhub.io with US Stocks (not implemented yet)
DECLARE SUB followmode
DIM followmodetimer AS QTIMER
followmodetimer.Interval = 30000
followmodetimer.Enabled = 0
followmodetimer.OnTimer = followmode
DECLARE SUB stopclicked
DECLARE SUB filesettings
DECLARE SUB ChangeDirectory
DECLARE SUB mtpathform
DECLARE SUB mtpathexitform
DECLARE SUB ChangeDirectories
DECLARE SUB choosefile
DECLARE SUB filesettingsfrmokclicked
DECLARE SUB importfileauto(ifafilename AS STRING)
DECLARE SUB importfileauto2(filenameauto AS STRING)
DECLARE SUB importfile1m(filenameauto AS STRING)
DECLARE SUB signalsnd
DECLARE SUB signalsndfrmclose
DECLARE SUB dirdrivebtnclicked
DECLARE SUB writealive
DECLARE SUB writealive2
DECLARE SUB barsdisplayedchange
DECLARE SUB alphavantageapikeyeditchange
DECLARE SUB tiingoapikeyeditchange
DECLARE SUB finnhubapikeyeditchange
declare sub alphavantagesearchsymbolbuttonclicksub
DECLARE SUB cntbarseditchange
DECLARE SUB generalsettings
DECLARE SUB beginauto
DECLARE SUB beginexitsignal
DECLARE SUB fdown(button AS LONG , x AS LONG , y AS LONG , shift AS INTEGER)
DECLARE SUB fpaint(sender AS QFORM)
DECLARE SUB pdown(but AS LONG , x AS LONG , y AS LONG , _
    shift AS INTEGER , sender AS QPANEL)
DECLARE SUB pup(button AS LONG , x AS LONG , y AS LONG , _
    shift AS INTEGER , sender AS QPANEL)
DECLARE SUB pmove(x AS LONG , y AS LONG , _
    shift AS INTEGER , sender AS QPANEL)
DECLARE SUB keydown(key AS LONG , sender AS QFORM)
DECLARE SUB fkeyup(sender AS QFORM)
DECLARE SUB operations
DECLARE SUB bezbuttonclick
DECLARE SUB polyclick
DECLARE SUB mailersub
DECLARE SUB followmodeactivate
DECLARE SUB savemailersub
DECLARE SUB restoremailersub
DECLARE SUB datasource
DECLARE SUB dsokclick
DECLARE SUB importfileyahoo()
DECLARE SUB importfileyahoo2()
DECLARE SUB exportfileyahoo()
DECLARE SUB importfilealphavantage()
DECLARE SUB importfilefinnhub()
DECLARE SUB importfiletiingo()
DECLARE SUB importfiletiingo_IEX()
DECLARE SUB importfilestooq()
DECLARE SUB importfilegoogle()
DECLARE SUB savegridtmp
declare sub attribtf
declare sub attribtfeditItemChanged
declare sub writetf (dispfile as integer,tftowrite as integer)
declare function ibarshift (timeframe as integer,datetimeserial as double,limit as integer) as integer
declare sub openhelpsub
declare sub viewreadme
declare sub viewwhatsnew
declare sub speechinitialization
declare sub speechdeinitialization
declare sub checkusespeech
declare sub showspeechform
declare SUB say(speech AS string)
declare sub exportfileauto()
declare sub exportcollectionauto()
declare Function StripFileName (fullname as string) as string
declare sub updates
Declare Function InetIsOffline Lib "url.dll" Alias "InetIsOffline" (ByVal _
dwFlags As Long) As Long

DECLARE FUNCTION FGetFileHTTP_URLDownloadToFile LIB "urlmon" ALIAS "URLDownloadToFileA" _
    (ByVal pCaller AS LONG , ByRef szURL AS STRING , ByRef szFileName AS STRING , _
    ByVal dwReserved AS LONG , ByVal lpfnCB AS LONG) AS LONG
    
declare sub whatsnewsub  
declare sub websitesub  

FUNCTION GetFileHTTP(URL AS STRING , toFile AS STRING) AS LONG
    DEFSTR sURL , sToFile
    sURL = URL
    sToFile = toFile
    GetFileHTTP = FGetFileHTTP_URLDownloadToFile(0 , sURL , sToFile , 0 , 0)
END FUNCTION

declare sub hotkeysub
declare sub chatformsub
declare sub swephformsub
declare sub swephformonshowsub
declare sub chatformonshowsub
declare sub chatformonclosesub
declare sub sendmsgbtnonclicksub
declare sub sendmsgeditkeydown(Key AS WORD)
declare function monthtostr(month as integer) as string
declare function strtomonth(str as string) as string
declare sub dssymbolcombochange
declare sub reimportfilesub
declare sub pricescaleplusbtnclick
declare sub pricescaleminusbtnclick

' sweph
declare sub Compute_sweph_Click
declare Function outdeg(x As Double) As String
declare Function outdeg3(x As Double) As String
declare Function set_strlen(c$) As String
declare Sub bary_flag_Click()
declare Sub Day_Change()
declare Sub fstar_Change()
declare Sub geolat_Change()
declare Sub geolon_Change()
declare Sub hel_flag_Click()
declare Sub hour_Change()
declare Sub minute_Change()
declare Sub Month_Change()
declare Sub Year_Change()

declare sub detect_timeframe
declare sub addbars
declare sub shiftchart

declare sub astrowheelsettingssub
declare sub formsq9showsub
declare sub premarketsub

declare sub googlebusytimersub
declare sub alphavantagebusytimersub
declare sub finnhubbusytimersubget
declare sub stooqbusytimersub
declare sub yahoofinancebusytimersub
declare sub tiingobusytimersub
declare sub tiingobusytimersub2
declare sub tiingo_IEX_busytimersub
declare sub tiingo_IEX_busytimersub2
declare sub yahoofinancebusytimersub2
declare sub alphavantagesearchsymbolbusytimersub
declare sub googlerealtimebusytimersub
declare sub googlegetquotesub
declare sub alphavantagegetdatasub
declare sub finnhubgetdatasub
declare sub stooqgetdatasub
declare sub yahoofinancegetdatasub
declare sub tiingogetdatasub
declare sub tiingo_IEX_getdatasub
declare sub googlequotetimerstartsub
declare function timeminute(seconds as double) as double
declare function timehour(seconds as double) as double
declare function timedayofweek(seconds as double) as double
' declare sub loginsub ' Useless
declare sub googlerefreshrateeditchangesub

declare sub showsymbolslist
declare sub showalphavantageform
declare sub loadsymbolslistsub
declare sub markettypecombochangesub
declare sub searchsymbolslistbtnsub
declare sub searchnextsymbolslistbtnsub
declare sub updatesymbolslistbtnsub
declare sub reloadsymbolslistbtnsub
declare sub restoredefaultdatabtnsub
declare sub selectsymbolslistbtnsub
declare sub loadsymbolslistbtnsub
declare sub symbolslistboxonclicksub
declare sub symbolslistboxondblclicksub

declare sub startdateyf
declare sub enddateyf

declare sub calculateprimesub
DECLARE SUB primedraw(ang AS SINGLE, dis AS SINGLE,mycolor as long)
DECLARE SUB primedraw2(ang AS SINGLE, dis AS SINGLE,mycolor as long)
declare SUB primedrawplot(xp AS SINGLE, yp AS SINGLE, mycolor as long)

declare sub chartsavecanvas(filename as string)

' ----------------- Vector Font ----------------------

DIM VectorTextFile AS QFileStream
DIM VFontPointer(255, 3) AS INTEGER
' VFontPointer(nnn,1)  is beginning of a letter in array
' VFontPointer(nnn,2)  is end of a letter in array
' VFontPointer(nnn,3)  how much points must be skipped after letter drawing
'                     (field ADVANCE: in font file)
DIM  VFontData(2500, 4) AS INTEGER
' VFontData(nnn,1) -  x    VFontData(nnn,2) - y
' VFontData(nnn,3) -  x1    VFontData(nnn,4) - y1
DIM VFontCOS(360) AS SINGLE
' Look up  table for cosine
DIM  VFontSIN(360) AS SINGLE
' Look up  table for sinus

Declare FUNCTION RetSymbol (nnn as integer, aa$ as string)  as string
Declare SUB InitVFont (DataFile$ as string)
Declare SUB VPrintAng (xx as integer, yy as integer, text$ as string, clr as integer, xf as integer, yf as integer, angle as double, canvas as integer)

InitVFont ("rus866.vft")

' End Vector Font -----------------------------------------------------------

dim googlebusytimer as qtimer
googlebusytimer.enabled=0
googlebusytimer.interval=1000
googlebusytimer.ontimer=googlebusytimersub

dim alphavantagebusytimer as qtimer
alphavantagebusytimer.enabled=0
alphavantagebusytimer.interval=1000
alphavantagebusytimer.ontimer=alphavantagebusytimersub

dim finnhubbusytimerget as qtimer
finnhubbusytimerget.enabled=0
finnhubbusytimerget.interval=1000
finnhubbusytimerget.ontimer=finnhubbusytimersubget

dim stooqbusytimer as qtimer
stooqbusytimer.enabled=0
stooqbusytimer.interval=1000
stooqbusytimer.ontimer=stooqbusytimersub

dim yahoofinancebusytimer as qtimer
yahoofinancebusytimer.enabled=0
yahoofinancebusytimer.interval=1000
yahoofinancebusytimer.ontimer=yahoofinancebusytimersub

dim tiingobusytimer as qtimer
tiingobusytimer.enabled=0
tiingobusytimer.interval=1000
tiingobusytimer.ontimer=tiingobusytimersub

dim tiingo_IEX_busytimer as qtimer
tiingo_IEX_busytimer.enabled=0
tiingo_IEX_busytimer.interval=1000
tiingo_IEX_busytimer.ontimer=tiingo_IEX_busytimersub

dim yahoofinancebusytimer2 as qtimer
yahoofinancebusytimer2.enabled=0
yahoofinancebusytimer2.interval=1000
yahoofinancebusytimer2.ontimer=yahoofinancebusytimersub2

dim tiingobusytimer2 as qtimer
tiingobusytimer2.enabled=0
tiingobusytimer2.interval=1000
tiingobusytimer2.ontimer=tiingobusytimersub2

dim tiingo_IEX_busytimer2 as qtimer
tiingo_IEX_busytimer2.enabled=0
tiingo_IEX_busytimer2.interval=1000
tiingo_IEX_busytimer2.ontimer=tiingo_IEX_busytimersub2


dim alphavantagesearchsymbolbusytimer as qtimer
alphavantagesearchsymbolbusytimer.enabled=0
alphavantagesearchsymbolbusytimer.interval=1000
alphavantagesearchsymbolbusytimer.ontimer=alphavantagesearchsymbolbusytimersub

declare sub googlereadlastquoteontimersub
dim googlereadlastquotetimer as qtimer
googlereadlastquotetimer.enabled=0
googlereadlastquotetimer.interval=5000
googlereadlastquotetimer.ontimer=googlereadlastquoteontimersub


dim googlerealtimebusytimer as qtimer
googlerealtimebusytimer.enabled=0
googlerealtimebusytimer.interval=1000
googlerealtimebusytimer.ontimer=googlerealtimebusytimersub

defstr googlegoingto=""
defstr alphavantagegoingto=""
defstr finnhubgoingto=""
defstr stooqgoingto=""
defstr yahoofinancegoingto=""
defstr tiingogoingto=""
defstr tiingo_IEX_goingto=""

dim googlegetquotetimer as qtimer
googlegetquotetimer.enabled=0
googlegetquotetimer.interval=3000
googlegetquotetimer.ontimer=googlegetquotesub

defint googlecurrenttimestamp
defint googlereadlastquotetimestamp
defint quotenexttimestamp
defint filevoltmp=0
defint filevol=0
defint firstfilevol=1

' =================== Watchlist ==============================

declare sub initialize_watchlist
declare sub finnhubbusytimersub
declare sub startstreamsub_watchlist
declare sub stopstreamsub_watchlist
declare sub showwatchlist
declare sub addtickersub_watchlist
declare sub removetickersub_watchlist
declare sub moveuptickersub_watchlist
declare sub movedowntickersub_watchlist
declare sub speechinitialization
declare sub speechdeinitialization
declare sub checkusespeechwatchlist
declare sub showspeechform
declare SUB say(speech AS string)
declare sub usespeechhelpbtnwatchlistsub
declare sub opencharttickerfinnhubbtnsub
declare sub watchlisttickerscombochangesub

dim finnhubbusytimer as qtimer
finnhubbusytimer.enabled=0
finnhubbusytimer.interval=1000
finnhubbusytimer.ontimer=finnhubbusytimersub

defint connect_watchlist_firsttime=1

defint speechtime=timeGetTime

defdbl marketwatchunixtimetmp=0

' ============================================================

'From:  "Pascal Delcombel Wed Dec 11, 2002  4:45 pm
' Add / remove Windows font
'Install Font (just for windows's session, all application may see it)
'P. Delcombel / December 2002
dim FontFileName as string
FontFileName = "c:\qchartist\fonts\astro.ttf"
AddFontResource(FontFileName)

declare function get_helio_longitude(planet as integer,year as string,month as string,day as string,hour as string) as string
declare function get_geo_longitude(lat2 as double,lon2 as double,alt2 as double,planet as integer,year as string,month as string,day as string,hour as string) as string
declare function get_ascmc(lat2 as double,lon2 as double,year as string,month as string,day as string,hour as string,ascormc as string) as string

' End of functions declaration

' --- Astro include files ---
$include "includes\time.inc"
$include "includes\astro.inc"
' ---------------------------

DIM writealivetimer AS QTIMER
writealivetimer.Interval = 10000
writealivetimer.Enabled = 0
writealivetimer.OnTimer = writealive

DIM bufcntsep AS INTEGER
bufcntsep = 0
DIM firstbufcntsep AS INTEGER
firstbufcnt = 0

'ontimer directives
Timerdispbarsp.OnTimer = TimerOverdispbarsp
Timerdispbarsm.OnTimer = TimerOverdispbarsm
graphclicktimer.OnTimer = timerovergraphclick
sepindiclicktimer.OnTimer = timeroversepindiclick
scrollmodeofftimer.OnTimer = scrollmodeoff

TYPE qchart2 EXTENDS QCANVAS

    PRIVATE :
    BMP AS QBITMAP
    Buffertmp AS QBITMAP
    buffertmpz AS QBITMAP
    buffertmpz2 AS QBITMAP
    firstbuffertmpz AS QBITMAP

    PUBLIC :
    separateindicator1 AS QSTRINGGRID
    demofont AS QFONT
    demofont2 AS QFONT

    PRIVATE :
    SUB ClearBuffer2  'Erase off screen drawing buffer
        WITH qchart2.BMP
            '.FillRect(0 , 0 , .Width , .Height , RGB(255 , 255 , 255))
            .FillRect(0 , 0 , .Width , .Height , plotareacolor2)
        END WITH
    END SUB

    private :
    SUB restorebuffertmp
        WITH qchart2
            .BMP.BMP = .buffertmp.BMP
        END WITH
    END SUB

    public :
    SUB restorebuffertmpz
        WITH qchart2
            .BMP.BMP = .buffertmpz.BMP
        END WITH
    END SUB

    public :
    SUB restorefirstbuffertmpz
        WITH qchart2
            .BMP.BMP = .firstbuffertmpz.BMP
        END WITH
    END SUB

    PUBLIC :
    SUB initializechart2
        WITH qchart2
            .BMP.Height = .Height
            .BMP.Width = .Width
            .demofont.Name = "Arial"
            .demofont.Size = 36
            .demofont.Color = &H000000
            .demofont.AddStyles(0) 'Bold
            .demofont2.Name = "Arial"
            .demofont2.Size = 10
            .demofont2.Color = &H000000
            .demofont2.AddStyles(0) 'Bold
        END WITH
    END SUB

    PUBLIC :
    SUB paint
        WITH qchart2
            .draw(0 , 0 , .Buffertmp.BMP)
        END WITH
    END SUB

    PUBLIC :
    SUB ClearAll2
        WITH qchart2
            .initializechart2
            .ClearBuffer2
            .paint
        END WITH
    END SUB

    'Here we draw indicator in separate graph
    PRIVATE :
    SUB drawxy2()
        WITH qchart2
            .ClearBuffer2
        END WITH

        DIM graphyaxisheight AS DOUBLE
        graphyaxisheight = sepindivalmax - sepindivalmin

        IF graphyaxisheight = 0 THEN
            EXIT SUB
        END IF

        DIM barsize AS DOUBLE
        barsize = canvas.Width / (barsdisplayed2 + val(generalsettingsfuturebarsedit.text))

        DIM graphratio AS DOUBLE
        graphratio = canvas.Height / graphyaxisheight

        DIM locx AS DOUBLE

        DIM baroffset AS INTEGER
        baroffset = chartstart + 1

        DIM value AS DOUBLE , value2 AS DOUBLE
        DIM sepindivalue AS DOUBLE , sepindivalue2 AS DOUBLE
        DIM i AS INTEGER
        DIM j AS INTEGER
        DIM closevalue AS DOUBLE
        DIM closevalue2 AS DOUBLE

        'FOR j = 2 TO canvas.separateindicator1.RowCount STEP 2
        FOR j = 2 TO drawidseparatecanvas STEP 2
            locx = 0
            FOR i = 0 TO barsdisplayed2-2 + val(generalsettingsfuturebarsedit.text)
                closevalue = VAL(canvas.separateindicator1.Cell(j , i+1))
                closevalue2 = VAL(canvas.separateindicator1.Cell(j , i + 2))
                IF axistypecomboitemindex = 1 THEN
                    IF closevalue > 0 AND closevalue2 > 0 THEN
                        closevalue = log10(closevalue)
                        closevalue2 = log10(closevalue2)
                    END IF
                END IF
                value = closevalue - sepindivalmin
                value = value * graphratio
                sepindivalue = (canvas.Height - value)
                value2 = closevalue2 - sepindivalmin
                value2 = value2 * graphratio
                sepindivalue2 = (canvas.Height - value2)                
                WITH qchart2
                    'MoveToEx(.bmp.handle,locx,sepindivalue ,0)
                    'LineTo(.bmp.handle,locx+barsize,sepindivalue2 )                    
                    if drawtype(j)=1 then ' histogram
                    '.bmp.fillrect(locx+ barsize/2,sepindivalue2,locx + barsize+ barsize/2,sepindivalue2-9, sepindicolorhisto(j,i+2))
                    .bmp.fillrect(locx- barsize/3,canvas.Height-((0-sepindivalmin)*graphratio),locx +barsize/3,sepindivalue, sepindicolormulti(j,i+2))
                    '.BMP.Line(locx , sepindivalue-0.2 , locx + barsize , sepindivalue2-0.2 , sepindicolorhisto(j,i+2))
                    '.BMP.Line(locx , sepindivalue-0.1 , locx + barsize , sepindivalue2-0.1 , sepindicolorhisto(j,i+2))
                    '.BMP.Line(locx , sepindivalue , locx + barsize , sepindivalue2 , sepindicolorhisto(j,i+2))
                    '.BMP.Line(locx , sepindivalue+0.1 , locx + barsize , sepindivalue2+0.1 , sepindicolorhisto(j,i+2))
                    '.BMP.Line(locx , sepindivalue+0.2 , locx + barsize , sepindivalue2+0.2 , sepindicolorhisto(j,i+2))
                    elseif drawtype(j)=2 then ' chronogram
                    .bmp.fillrect(locx+ barsize/2,sepindivalue2,locx + barsize+ barsize/2,sepindivalue2-9, sepindicolormulti(j,i+2))
                    else ' line                   
                    .BMP.Line(locx , sepindivalue , locx + barsize , sepindivalue2 , sepindicolor(j))
                    end if
                END WITH                
                'if j=2 then print str$(i+2)+" "+canvas.separateindicator1.Cell(j , i + 2)+" "+str$(sepindicolorhisto(j,i+2))
                baroffset ++
                locx = locx + barsize
                Grid_sep_indi.cell(j,i+1)=canvas.separateindicator1.Cell(j , i+1)
                Grid_sep_indi.cell(j,i+2)=canvas.separateindicator1.Cell(j , i+2)
                canvas.separateindicator1.Cell(j , i+1)=""

' --------------Not functional yet, just testing------------------------------------------------
		if scrollmode=0 then
		' linking price with tic pixel position on axe
			if i=0 then 
		'		showmessage str$(sepindivalmin)
		'		showmessage str$(canvas.Height)
				seppricechartpos(0,0)=sepindivalmin ' Price min on displayed chart
				seppricechartpos(0,1)=canvas.Height ' y2 in pixels
				'qchart2.BMP.TextOut(0 , 0 , str$(seppricechartpos(0,0)) , pencolor , &hffffff) ' display min price
			end if
			if i=barsdisplayed2-2 + val(generalsettingsfuturebarsedit.text) then
		'		showmessage str$(sepindivalmax)
		'		showmessage str$(0.1)
				seppricechartpos(1,0)=sepindivalmax ' Price max on displayed chart
				seppricechartpos(1,1)=0 ' canvas.Height - 0.1 * i ' .YAxis.Ori - .YAxis.TicIntvl * i ' TicIntvl : Length in pixels of one y division seppricechartpos(1,1) : decay between y=0 pixel and max pixel value
				'qchart2.BMP.TextOut(0 , seppricechartpos(0,1) , str$(seppricechartpos(1,0)) , pencolor , &hffffff) ' display max price
			end if			

		end if
' -----------------------------------------------------------------------------------------------

                doevents
            NEXT i
            doevents
        NEXT j

    END SUB

    'End of draw indicator in separate graph    

    private :
    SUB drawtrendline(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH

    END SUB

    private :
    SUB drawfibofan(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            DIM x4 AS DOUBLE
            x4 = x3 + (x3 - x2)
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x4,y3)
            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)
            x4 = x3 + (x3 - x2) * 0.618
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x4,y3)
            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)
            x4 = x3 + (x3 - x2) * 1.618
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x4,y3)
            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)
            x4 = x3 + (x3 - x2) * 1.618 * 1.618 * 1.382
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x4,y3)
            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)
            x4 = x3 + (x3 - x2) * 0.618 * 0.5
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x4,y3)
            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawgannfan(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            DIM x4 AS DOUBLE
            DIM y4 AS DOUBLE
            
            x4 = x2+(x3-x2)*2

            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)
            
            x4 = x2+(x3-x2)*3
     
            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)
            
            x4 = x2+(x3-x2)*4
      
            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)
            
            x4 = x2+(x3-x2)*8
       
            .BMP.Line(x2 , y2 , x4 , y3 , pencolor)            
            
            y4=y2-(y2-y3)*2
            .BMP.Line(x2 , y2 , x3 , y4 , pencolor)
            
            y4=y2-(y2-y3)*3
            .BMP.Line(x2 , y2 , x3 , y4 , pencolor)
            
            y4=y2-(y2-y3)*4
            .BMP.Line(x2 , y2 , x3 , y4 , pencolor)
            
            y4=y2-(y2-y3)*8
            .BMP.Line(x2 , y2 , x3 , y4 , pencolor)
            
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawspeedres(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            .BMP.TextOut(x3 - 40 , y3 , "1/3" , pencolor , &hffffff)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
        ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            DIM y4 AS DOUBLE
            DIM y5 AS DOUBLE
            if y2<y3 then
                y4 = y2 - (y2 - y3) * 0.667
                y5 = y2 - (y2 - y3) * 0.333
                .BMP.Line(x2 , y2 , x3 , y4 , pencolor)
                .BMP.TextOut(x3 - 40 , y4 , "2/3" , pencolor , &hffffff)
                .BMP.Line(x2 , y2 , x3 , y5 , pencolor)
                .BMP.TextOut(x3 - 40 , y5 , "3/3" , pencolor , &hffffff)
            end if
            if y2>y3 then
                y4 = y2 + (y3 - y2) * 0.667
                y5 = y2 + (y3 - y2) * 0.333
                .BMP.Line(x2 , y2 , x3 , y4 , pencolor)
                .BMP.TextOut(x3 - 40 , y4 , "2/3" , pencolor , &hffffff)
                .BMP.Line(x2 , y2 , x3 , y5 , pencolor)
                .BMP.TextOut(x3 - 40 , y5 , "3/3" , pencolor , &hffffff)
            end if
            
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawseedoflife(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            'FOR angle = 0 TO 1.57 STEP 0.001
            '    IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
            '        cs = c * COS(angle)
            '        sn = c * SIN(angle)
            '        .BMP.Pset(x2 + cs , y2 + sn , pencolor)
            '        .BMP.Pset(x2 - cs , y2 + sn , pencolor)
            '        .BMP.Pset(x2 + cs , y2 - sn , pencolor)
            '        .BMP.Pset(x2 - cs , y2 - sn , pencolor)
            '    END IF
            'NEXT angle

	    DIM x4 AS DOUBLE , y4 AS DOUBLE
            DIM x5 AS DOUBLE , y5 AS DOUBLE
            DIM x6 AS DOUBLE , y6 AS DOUBLE
            DIM x7 AS DOUBLE , y7 AS DOUBLE
            DIM x8 AS DOUBLE , y8 AS DOUBLE
            DIM x9 AS DOUBLE , y9 AS DOUBLE
            DIM x10 AS DOUBLE , y10 AS DOUBLE
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF  

	    x4=COS((ang_a + 60) * rad) * c + x2
            y4=y2 - SIN((ang_a + 60) * rad) * c
            x5=COS((ang_a + 120) * rad) * c + x2
            y5=y2 - SIN((ang_a + 120) * rad) * c
            x6=COS((ang_a + 180) * rad) * c + x2
            y6=y2 - SIN((ang_a + 180) * rad) * c
            x7=COS((ang_a + 240) * rad) * c + x2
            y7=y2 - SIN((ang_a + 240) * rad) * c  
            x8=COS((ang_a + 300) * rad) * c + x2
            y8=y2 - SIN((ang_a + 300) * rad) * c          
                        
            '.BMP.Line(x3,y3,x4,y4, pencolor)
            '.BMP.Line(x4,y4,x5,y5, pencolor)
            '.BMP.Line(x5,y5,x6,y6, pencolor)
            '.BMP.Line(x6,y6,x7,y7, pencolor)
            '.BMP.Line(x7,y7,x8,y8, pencolor)
            '.BMP.Line(x8,y8,x3,y3, pencolor)

	    FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle) <> 0 THEN
                    cs = c * COS(angle)
                    sn = c * SIN(angle)
		    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                    .BMP.Pset(x3 + cs , y3 + sn , pencolor)
                    .BMP.Pset(x3 - cs , y3 + sn , pencolor)
                    .BMP.Pset(x3 + cs , y3 - sn , pencolor)
                    .BMP.Pset(x3 - cs , y3 - sn , pencolor)
		    .BMP.Pset(x4 + cs , y4 + sn , pencolor)
                    .BMP.Pset(x4 - cs , y4 + sn , pencolor)
                    .BMP.Pset(x4 + cs , y4 - sn , pencolor)
                    .BMP.Pset(x4 - cs , y4 - sn , pencolor)
		    .BMP.Pset(x5 + cs , y5 + sn , pencolor)
                    .BMP.Pset(x5 - cs , y5 + sn , pencolor)
                    .BMP.Pset(x5 + cs , y5 - sn , pencolor)
                    .BMP.Pset(x5 - cs , y5 - sn , pencolor)
		    .BMP.Pset(x6 + cs , y6 + sn , pencolor)
                    .BMP.Pset(x6 - cs , y6 + sn , pencolor)
                    .BMP.Pset(x6 + cs , y6 - sn , pencolor)
                    .BMP.Pset(x6 - cs , y6 - sn , pencolor)
		    .BMP.Pset(x7 + cs , y7 + sn , pencolor)
                    .BMP.Pset(x7 - cs , y7 + sn , pencolor)
                    .BMP.Pset(x7 + cs , y7 - sn , pencolor)
                    .BMP.Pset(x7 - cs , y7 - sn , pencolor)
		    .BMP.Pset(x8 + cs , y8 + sn , pencolor)
                    .BMP.Pset(x8 - cs , y8 + sn , pencolor)
                    .BMP.Pset(x8 + cs , y8 - sn , pencolor)
                    .BMP.Pset(x8 - cs , y8 - sn , pencolor)
                END IF
            NEXT angle	    

            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawfiboarcs(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            
            '.BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            '.BMP.TextOut(x3 - 40 , y3 , "1/3" , pencolor , &hffffff)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
        ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            
            defdbl scale=val(fiboarcsscaleedit.text)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            
            defdbl theta = 0  ' angle that will be increased each loop
            'deflng h = x1      ' x coordinate of circle center
            'deflng k = y1      ' y coordinate of circle center
            defdbl step2 = val(fiboarcsstep2edit.text)  ' amount to add to theta each time (degrees)
            defdbl x0,y0
            

            x0 = x2 + scale * c*cos(ang_a)
            y0 = y2 + c*sin(ang_a)
            .BMP.line (x2,y2,x0,y0,0)
            .BMP.TextOut(x0 - 40 , y0 , "1" , pencolor , &hffffff)

            while theta < 360
                  x0 = x2 + scale * c*cos(theta)
                  y0 = y2 + c*sin(theta)      
                  'canvas.line (h,k,x0,y0,0)
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "1" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 0.236
                  y0 = y2 + c*sin(theta) * 0.236      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "0.236" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 0.382
                  y0 = y2 + c*sin(theta) * 0.382                       
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "0.382" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 0.5
                  y0 = y2 + c*sin(theta) * 0.5      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "0.5" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 0.618
                  y0 = y2 + c*sin(theta) * 0.618      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "0.618" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 0.786
                  y0 = y2 + c*sin(theta) * 0.786      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "0.786" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 1.236
                  y0 = y2 + c*sin(theta) * 1.236      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "1.236" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 1.382
                  y0 = y2 + c*sin(theta) * 1.382      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "1.382" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 1.5
                  y0 = y2 + c*sin(theta) * 1.5      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "1.5" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 1.618
                  y0 = y2 + c*sin(theta) * 1.618      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "1.618" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 1.786
                  y0 = y2 + c*sin(theta) * 1.786      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "1.786" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 2
                  y0 = y2 + c*sin(theta) * 2      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "2" , pencolor , &hffffff)
                  theta=theta+step2
            wend         
            
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawspeedresarcs(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            
            '.BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            '.BMP.TextOut(x3 - 40 , y3 , "1/3" , pencolor , &hffffff)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
        ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            
            defdbl scale=val(speedresarcsscaleedit.text)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            
            defdbl theta = 0  ' angle that will be increased each loop
            'deflng h = x1      ' x coordinate of circle center
            'deflng k = y1      ' y coordinate of circle center
            defdbl step2 = val(speedresarcsstep2edit.text)  ' amount to add to theta each time (degrees)
            defdbl x0,y0
            

            x0 = x2 + scale * c*cos(ang_a)
            y0 = y2 + c*sin(ang_a)
            .BMP.line (x2,y2,x0,y0,0)
            .BMP.TextOut(x0 - 40 , y0 , "1/3" , pencolor , &hffffff)

            while theta < 360
                  x0 = x2 + scale * c*cos(theta)
                  y0 = y2 + c*sin(theta)      
                  'canvas.line (h,k,x0,y0,0)
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "1/3" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 0.667
                  y0 = y2 + c*sin(theta) * 0.667      
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "2/3" , pencolor , &hffffff)
                  x0 = x2 + scale * c*cos(theta) * 0.333
                  y0 = y2 + c*sin(theta) * 0.333                       
                  .BMP.pset (x0,y0,pencolor)
                  if theta=0 then .BMP.TextOut(x0 - 40 , y0 , "3/3" , pencolor , &hffffff)
                  
                  theta=theta+step2
            wend         
            
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawfiboret(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y2)
            'MoveToEx(.bmp.handle,x2,y3,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y2 , pencolor)
            .BMP.Line(x2 , y3 , x3 , y3 , pencolor)
            DIM y4 AS DOUBLE
            y4 = y2 + (y3 - y2) * 0.236
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            .BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            y4 = y2 + (y3 - y2) * 0.382
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            .BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            y4 = y2 + (y3 - y2) * 0.5
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            .BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            y4 = y2 + (y3 - y2) * 0.618
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            .BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            y4 = y2 + (y3 - y2) * 0.786
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            .BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawpara(xb , yb , xc , yc , xd , yd)

        DEFSNG x2 , y2 , x3 , y3 , x4 , y4
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc
        x4 = xd
        y4 = yd

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz2.BMP
            'MoveToEx(.bmp.handle,x3,y3,0)
            'LineTo(.bmp.handle,x3+x4-x2,y3+y4-y2)
            .BMP.Line(x3 , y3 , x3 + x4 - x2 , y3 + y4 - y2 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH

    END SUB

    private :
    SUB drawhline(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y2)
            .BMP.Line(x2 , y2 , x3 , y2 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH

    END SUB

    private :
    SUB drawvline(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x2,y3)
            .BMP.Line(x2 , y2 , x2 , y3 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH

    END SUB

    private :
    SUB drawsqr(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            DIM x4 AS DOUBLE , y4 AS DOUBLE
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF
            x4 = COS((ang_a - 90) * rad) * c + x3
            y4 = y3 - SIN((ang_a - 90) * rad) * c
            'MoveToEx(.bmp.handle,x3,y3,0)
            'LineTo(.bmp.handle,x4,y4)
            .BMP.Line(x3 , y3 , x4 , y4 , pencolor)

            ang_a = ang_a - 90
            'MoveToEx(.bmp.handle,x4,y4,0)
            .BMP.Line(x4 , y4 , COS((ang_a - 90) * rad) * c + x4 , y4 - SIN((ang_a - 90) * rad) * c , pencolor)
            x4 = COS((ang_a - 90) * rad) * c + x4
            y4 = y4 - SIN((ang_a - 90) * rad) * c
            'LineTo(.bmp.handle,x4,y4)

            ang_a = ang_a - 90
            .BMP.Line(x4 , y4 , COS((ang_a - 90) * rad) * c + x4 , y4 - SIN((ang_a - 90) * rad) * c , pencolor)
            'MoveToEx(.bmp.handle,x4,y4,0)
            'x4=cos((ang_a-90)*rad)*c+x4
            'y4=y4-sin((ang_a-90)*rad)*c
            'LineTo(.bmp.handle,x4,y4)

            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawtri(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            DIM x4 AS DOUBLE , y4 AS DOUBLE
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF
            x4 = COS((ang_a - 120) * rad) * c + x3
            y4 = y3 - SIN((ang_a - 120) * rad) * c
            'MoveToEx(.bmp.handle,x3,y3,0)
            'LineTo(.bmp.handle,x4,y4)
            .BMP.Line(x3 , y3 , x4 , y4 , pencolor)

            ang_a = ang_a - 120
            'MoveToEx(.bmp.handle,x4,y4,0)
            .BMP.Line(x4 , y4 , COS((ang_a - 120) * rad) * c + x4 , y4 - SIN((ang_a - 120) * rad) * c , pencolor)
            'x4=cos((ang_a-120)*rad)*c+x4
            'y4=y4-sin((ang_a-120)*rad)*c
            'LineTo(.bmp.handle,x4,y4)
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawcircle(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle)
                    sn = c * SIN(angle)
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawfibocircles(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle)
                    sn = c * SIN(angle)
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 0.236
                    sn = c * SIN(angle) * 0.236
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 0.382
                    sn = c * SIN(angle) * 0.382
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 0.5
                    sn = c * SIN(angle) * 0.5
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 0.618
                    sn = c * SIN(angle) * 0.618
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 0.786
                    sn = c * SIN(angle) * 0.786
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 1.236
                    sn = c * SIN(angle) * 1.236
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 1.382
                    sn = c * SIN(angle) * 1.382
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 1.5
                    sn = c * SIN(angle) * 1.5
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 1.618
                    sn = c * SIN(angle) * 1.618
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 1.786
                    sn = c * SIN(angle) * 1.786
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle) * 2
                    sn = c * SIN(angle) * 2
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawtimeruler(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            
            ' Computing time on cursor position   

defint i,i1,i2

defdbl timepixelinterval=timechartpos(1,1)-timechartpos(0,1)

for i=0 to 1000

if x2>=timechartpos(i,1)-timepixelinterval/2 and x2<timechartpos(i,1)+timepixelinterval/2 then

i1=i
defdbl unixtimeratio=timechartpos(i,0)

    defstr myunixtime1str=Format$("%12.0f", unixtimeratio)

    exit for
end if
'doevents    
next i

for i=0 to 1000

if x3>=timechartpos(i,1)-timepixelinterval/2 and x3<timechartpos(i,1)+timepixelinterval/2 then

i2=i
 unixtimeratio=timechartpos(i,0)

    defstr myunixtime2str=Format$("%12.0f", unixtimeratio)

    exit for
end if
'doevents    
next i

    ' ---------------------------------
    
            'if val(myunixtime2str)>val(myunixtime1str) then
            .BMP.TextOut(x2+(x3 - x2)/2 , y2 , "Time difference: "+str$((val(myunixtime2str)-val(myunixtime1str))/60)+" minutes or", pencolor , &hffffff)
            .BMP.TextOut(x2+(x3 - x2)/2 , y2+15 ,str$((val(myunixtime2str)-val(myunixtime1str))/60/60)+" hours or" , pencolor , &hffffff) 
            .BMP.TextOut(x2+(x3 - x2)/2 , y2+30 ,str$((val(myunixtime2str)-val(myunixtime1str))/60/60/24)+" days or" , pencolor , &hffffff) 
            .BMP.TextOut(x2+(x3 - x2)/2 , y2+45 ,str$(i2-i1)+" bars" , pencolor , &hffffff)
            'end if
            
            'if val(myunixtime2str)<val(myunixtime1str) then 
            '.BMP.TextOut(x2+(x3 - x2)/2 , y2 , "Time difference: "+str$((val(myunixtime1str)-val(myunixtime2str))/60)+" minutes or" , pencolor , &hffffff)
            '.BMP.TextOut(x2+(x3 - x2)/2 , y2+15 ,str$((val(myunixtime1str)-val(myunixtime2str))/60/60)+" hours or" , pencolor , &hffffff)
            '.BMP.TextOut(x2+(x3 - x2)/2 , y2+30 ,str$((val(myunixtime1str)-val(myunixtime2str))/60/60/24)+" days or" , pencolor , &hffffff)
            '.BMP.TextOut(x2+(x3 - x2)/2 , y2+45 ,str$(i1-i2)+" bars" , pencolor , &hffffff) 
            'end if   
            
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y2)
            'MoveToEx(.bmp.handle,x2,y3,0)
            'LineTo(.bmp.handle,x3,y3)
            '.BMP.Line(x2 , y2 , x3 , y2 , pencolor)
            '.BMP.Line(x2 , y3 , x3 , y3 , pencolor)
            'DIM y4 AS DOUBLE
            'y4 = y2 + (y3 - y2) * 0.236
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            'y4 = y2 + (y3 - y2) * 0.382
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            'y4 = y2 + (y3 - y2) * 0.5
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            'y4 = y2 + (y3 - y2) * 0.618
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            'y4 = y2 + (y3 - y2) * 0.786
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawpriceruler(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            
            ' ---------------- Computing price on cursor position - testing, not functional yet --------------------
if seppricechartpos(0,1)-seppricechartpos(1,1)>0 then
    defdbl pricepixelratio1=(seppricechartpos(0,1)-y2)/(seppricechartpos(0,1)-seppricechartpos(1,1))
    defdbl sepgraphpriceoncur1=(seppricechartpos(1,0)-seppricechartpos(0,0))*pricepixelratio1+seppricechartpos(0,0)
    sepgraphpriceoncur1=val(Format$("%12.5f", sepgraphpriceoncur1))

    defdbl pricepixelratio2=(seppricechartpos(0,1)-y3)/(seppricechartpos(0,1)-seppricechartpos(1,1))
    defdbl sepgraphpriceoncur2=(seppricechartpos(1,0)-seppricechartpos(0,0))*pricepixelratio2+seppricechartpos(0,0)
    sepgraphpriceoncur2=val(Format$("%12.5f", sepgraphpriceoncur2))
end if

' ------------------------------------------------------------------------------------------------
            
            'if sepgraphpriceoncur2>sepgraphpriceoncur1 then 
		.BMP.TextOut(x2+(x3 - x2)/2 , y2 , "Value difference: "+str$(sepgraphpriceoncur2-sepgraphpriceoncur1) , pencolor , &hffffff)
		.BMP.TextOut(x2+(x3 - x2)/2 , y2+15 , "or "+str$(sepgraphpriceoncur2/sepgraphpriceoncur1*100-100)+"%" , pencolor , &hffffff)
	    'end if
            'if sepgraphpriceoncur2<sepgraphpriceoncur1 then 
		'.BMP.TextOut(x2+(x3 - x2)/2 , y2 , "Value difference: "+str$(sepgraphpriceoncur1-sepgraphpriceoncur2) , pencolor , &hffffff)
	    'end if
            
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y2)
            'MoveToEx(.bmp.handle,x2,y3,0)
            'LineTo(.bmp.handle,x3,y3)
            '.BMP.Line(x2 , y2 , x3 , y2 , pencolor)
            '.BMP.Line(x2 , y3 , x3 , y3 , pencolor)
            'DIM y4 AS DOUBLE
            'y4 = y2 + (y3 - y2) * 0.236
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            'y4 = y2 + (y3 - y2) * 0.382
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            'y4 = y2 + (y3 - y2) * 0.5
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            'y4 = y2 + (y3 - y2) * 0.618
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            'y4 = y2 + (y3 - y2) * 0.786
            'MoveToEx(.bmp.handle,x2,y4,0)
            'LineTo(.bmp.handle,x3,y4)
            '.BMP.Line(x2 , y4 , x3 , y4 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawcross(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.bmp.handle,x2,y2,0)
            'LineTo(.bmp.handle,x3,y3)
            .BMP.Line(x2 , y2 , x3 , y3 , pencolor)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            DIM x4 AS DOUBLE , y4 AS DOUBLE
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF
            x4 = COS((ang_a - 90) * rad) * c * 0.5 + x3 - (x3 - x2) / 2
            y4 = y3 - (y3 - y2) / 2 - SIN((ang_a - 90) * rad) * c * 0.5
            'MoveToEx(.bmp.handle,x3-(x3-x2)/2,y3-(y3-y2)/2,0)
            'LineTo(.bmp.handle,x4,y4)
            .BMP.Line(x3 - (x3 - x2) / 2 , y3 - (y3 - y2) / 2 , x4 , y4 , pencolor)

            x4 = COS((ang_a + 90) * rad) * c * 0.5 + x3 - (x3 - x2) / 2
            y4 = y3 - (y3 - y2) / 2 - SIN((ang_a + 90) * rad) * c * 0.5
            'MoveToEx(.bmp.handle,x3-(x3-x2)/2,y3-(y3-y2)/2,0)
            'LineTo(.bmp.handle,x4,y4)
            .BMP.Line(x3 - (x3 - x2) / 2 , y3 - (y3 - y2) / 2 , x4 , y4 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawinvcircle(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c / COS(angle)
                    sn = c / SIN(angle)
                    .BMP.Pset(x2 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x2 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawaiming(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2	   	    
            .BMP.BMP = .buffertmpz.BMP
            'MoveToEx(.Buffer.handle,x2,y2,0)
            'LineTo(.Buffer.handle,x2,y3)	    
	     sepindicursorpos2 ' get separate indicator values on cursor position	                
	    .BMP.Line(x3 , 0 , x3 , canvas.Height , pencolor)	           
	    .BMP.Line(0 , y3 , canvas.Width , y3 , pencolor)
	    .BMP.TextOut(0 , y3 , STR$(sepgraphpriceoncur) , pencolor , &hffffff) ' display separate indicator value on cursor position
            .buffertmp.BMP = .BMP.BMP
            .paint

            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH

    END SUB

    private :
    SUB drawhand(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            '.ClearBuffer
            '.restorebuffertmp
            'MoveToEx(.Buffer.handle,x2,y2,0)
            'LineTo(.Buffer.handle,x3,y3)
            .BMP.Pset(x3 , y3 , pencolor)
            .BMP.Pset(x3 - 1 , y3 , pencolor)
            .BMP.Pset(x3 - 1 , y3 - 1 , pencolor)
            .BMP.Pset(x3 , y3 - 1 , pencolor)
            .BMP.Pset(x3 + 1 , y3 - 1 , pencolor)
            .BMP.Pset(x3 + 1 , y3 , pencolor)
            .BMP.Pset(x3 + 1 , y3 + 1 , pencolor)
            .BMP.Pset(x3 , y3 + 1 , pencolor)
            .BMP.Pset(x3 - 1 , y3 + 1 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .paint
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH

    END SUB

    private :
    SUB drawsin(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 50.24 STEP 0.005
                IF SIN(angle <> 0) THEN
                    .BMP.Pset(x2 + angle * a , y2 + b * SIN(angle) , pencolor)
                END IF
            NEXT angle
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawlog(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM ilog AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR ilog = 1 TO 1000 STEP 0.1
                IF LOG(ilog) <> 0 THEN
                    IF reverse = 0 THEN
                        IF flip = 0 THEN
                            .BMP.Pset(x3 + ilog , y3 - LOG(ilog) * logamplitude , pencolor)
                        ELSE
                            .BMP.Pset(x3 + ilog - 1001 , y3 - LOG(1001 - ilog) * logamplitude , pencolor)
                        END IF
                    ELSE
                        IF flip = 0 THEN
                            .BMP.Pset(x3 + ilog , y3 + LOG(ilog) * logamplitude , pencolor)
                        ELSE
                            .BMP.Pset(x3 + ilog - 1001 , y3 + LOG(1001 - ilog) * logamplitude , pencolor)
                        END IF
                    END IF
                    'for ilog=0 to 21 step 0.003
                    'if exp(ilog)<>0 then
                    '.buffer.pset(x3+ilog*logamplitude,y3-exp(ilog),pencolor)
                END IF
            NEXT angle
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawexp(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM ilog AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            'for ilog=1 to 1000 step 0.1
            'if log(ilog)<>0 then
            '.buffer.pset(x3+ilog,y3-log(ilog)*logamplitude,pencolor)
            FOR ilog = 0 TO 21 STEP 0.003
                IF EXP(ilog) <> 0 THEN
                    IF reverse = 0 THEN
                        IF flip = 0 THEN
                            .BMP.Pset(x3 + ilog * logamplitude , y3 - EXP(ilog) , pencolor)
                        ELSE
                            .BMP.Pset(x3 + (ilog - 21) * logamplitude , y3 - EXP(21 - ilog) , pencolor)
                        END IF
                    ELSE
                        IF flip = 0 THEN
                            .BMP.Pset(x3 + ilog * logamplitude , y3 + EXP(ilog) , pencolor)
                        ELSE
                            .BMP.Pset(x3 + (ilog - 21) * logamplitude , y3 + EXP(21 - ilog) , pencolor)
                        END IF
                    END IF
                END IF
            NEXT angle
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB

    private :
    SUB drawellipse(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle) <> 0 THEN
                    cs = a * COS(angle)
                    sn = b * SIN(angle)
                    .BMP.Pset(x3 + cs , y2 + sn , pencolor)
                    .BMP.Pset(x3 - cs , y2 + sn , pencolor)
                    .BMP.Pset(x3 + cs , y2 - sn , pencolor)
                    .BMP.Pset(x3 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawellipse3(xb , yb , xc , yc)
    
        ' variables for the rotated ellipse ---------------------------
    defdbl TwoPi = 8 * Atn(1)
    defdbl RtoD = 180 / rqPi   ' radians * RtoD = degrees
    defdbl DtoR = rqPi / 180   ' degrees * DtoR = radians

    dim e1 as ELLIPSE2
    ' ---------------------------------------------------

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc
        
        defint linex1=x2
        defint liney1=y2
        defint linex2=x3
        defint liney2=y3

        WITH qchart2
            .ClearBuffer2
            .BMP.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
             a = linex2 -linex1
            b = liney2 -liney1
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            
            if b<0 then ang_a=-1*ang_a    

            'DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            'FOR angle = 0 TO 1.57 STEP 0.001
            '    IF COS(angle) <> 0 AND SIN(angle) <> 0 THEN
            '        cs = a * COS(angle)
            '        sn = b * SIN(angle)
            '        .BMP.Pset(x3 + cs , y2 + sn , pencolor)
            '        .BMP.Pset(x3 - cs , y2 + sn , pencolor)
            '        .BMP.Pset(x3 + cs , y2 - sn , pencolor)
            '        .BMP.Pset(x3 - cs , y2 - sn , pencolor)
            '    END IF
            'NEXT angle
            
            e1.r1 = c/2 '200
    e1.r2 = 1*logamplitude
    e1.c1 = blue  'outline color
    e1.c2 = white  'fill color
    'e1.angle = 0

    defint mx,my,mb
    defsng yd,xd,angle
    'angle=0

    'defint i

    'canvas.FillRect(0,0,canvas.width,canvas.height,clr_white)
    .BMP.line(linex1,liney1,linex2,liney2,blue)
    mx=0
    my=0       
    xd = linex1-mx 'e1.xc-mx
    yd = liney1-my 'e1.yc-my
    e1.xc=linex1+(linex2-linex1)/2 'x 'Screen.MouseX-canvas.left-form.left
    e1.yc=liney1+(liney2-liney1)/2 'y 'Screen.MouseY-canvas.top-form.top
    'angle = int(RtoD*(atn(yd/xd)))
    angle=ang_a
    if angle<0 then angle = angle+360
    e1.angle = angle*DtoR
    'drawEllipse(e1)
    
    defsng x1,y1,x,y,cosAngle,sinAngle
    'x1=0
    'y1=0
    'x2=0
    'y2=0
    'x=0
    'y=0
    'cosAngle=0
    'sinAngle=0
    
    defsng steps
    'defsng angle
    'steps=0
    angle=0
    
    'compute minimum pixels for circumference
    steps = (abs(e1.r1)+abs(e1.r2))/360

    cosAngle = cos(e1.angle)
    sinAngle = sin(e1.angle)
    
    x = cos(angle)*e1.r1
    y = sin(angle)*e1.r2
    x1 = cosAngle * x - sinAngle * y
    y1 = cosAngle * y + sinAngle * x
      
    for angle  = 0*DtoR to 361*DtoR step steps*DtoR
        x = cos(angle)*e1.r1
        y = sin(angle)*e1.r2
        x2 = cosAngle * x - sinAngle * y
        y2 = cosAngle * y + sinAngle * x    
        .BMP.line (x1+e1.xc,y1+e1.yc,x2+e1.xc,y2+e1.yc,blue)  'join points
        x1 = x2
        y1 = y2
    next angle
    'paint (e.xc,e.yc),e.c2,e.c1     
    angle = 180*DtoR
    x = cos(angle)*e1.r1
    y = sin(angle)*e1.r2
    x1 = cosAngle * x - sinAngle * y
    y1 = cosAngle * y + sinAngle * x
    .BMP.line (e1.xc,e1.yc,x1+e1.xc,y1+e1.yc,blue)
    angle = 90*DtoR
    x = cos(angle)*e1.r1
    y = sin(angle)*e1.r2
    x1 = cosAngle * x - sinAngle * y
    y1 = cosAngle * y + sinAngle * x
    .BMP.line (e1.xc,e1.yc,x1+e1.xc,y1+e1.yc,green)
            
            .buffertmp.BMP = .BMP.BMP
            .paint
        END WITH

    END SUB
    
    private :
    SUB drawpitchfork(xb , yb , xc , yc , xd , yd)

        DEFSNG x2 , y2 , x3 , y3 , x4 , y4
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc
        x4 = xd
        y4 = yd

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            'MoveToEx(.Buffer.handle,x3-1,y3,0)
            'LineTo(.Buffer.handle,x3+x4-x2,y3+y4-y2)
            DIM medx AS INTEGER , medy AS INTEGER
            medx = x4 + (x3 - x4) * 0.5
            medy = y4 + (y3 - y4) * 0.5
            .BMP.Line(x2 , y2 , medx + (medx - x2) * 100 , medy + (medy - y2) * 100 , pencolor)
            .BMP.Line(x4 , y4 , x4 + (medx - x2) * 100 , y4 + (medy - y2) * 100 , pencolor)
            .BMP.Line(x3 , y3 , x3 + (medx - x2) * 100 , y3 + (medy - y2) * 100 , pencolor)
            .buffertmp.BMP = .BMP.BMP
            .Paint
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH

    END SUB
    
    private :
    SUB drawschiffpitchfork(xb , yb , xc , yc , xd , yd)

        DEFSNG x2 , y2 , x3 , y3 , x4 , y4,x2_2,y2_2
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc
        x4 = xd
        y4 = yd

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP                                   
            
            y2_2=y2
            x2_2=x2
            if schiffpitchforkstandardradio.checked=1 then y2_2=y4+(y2-y4)/2
            if modifiedschiffpitchforkradio.checked=1 or insidepitchforkradio.checked=1 then 
                y2_2=y4+(y2-y4)/2
                x2_2=x2+(x4-x2)/2
            end if
            
            DIM medx AS INTEGER , medy AS INTEGER
            if schiffpitchforkstandardradio.checked=1 or modifiedschiffpitchforkradio.checked=1 then
            medx = x4 + (x3 - x4) * 0.5
            medy = y4 + (y3 - y4) * 0.5
            .BMP.Line(x2_2 , y2_2 , medx + (medx - x2_2) * 100 , medy + (medy - y2_2) * 100 , pencolor)
            .BMP.Line(x4 , y4 , x4 + (medx - x2_2) * 100 , y4 + (medy - y2_2) * 100 , pencolor)
            .BMP.Line(x3 , y3 , x3 + (medx - x2_2) * 100 , y3 + (medy - y2_2) * 100 , pencolor)
            end if
            
            if insidepitchforkradio.checked=1 then
            medx = x4 + (x3 - x4) * 0.5
            medy = y4 + (y3 - y4) * 0.5
            .BMP.Line(x2_2 , y2_2 , x3 + (x3 - x2_2) * 100 , y3 + (y3 - y2_2) * 100 , pencolor)
            .BMP.Line(x4 , y4 , x4 + (x3 - x2_2) * 100 , y4 + (y3 - y2_2) * 100 , pencolor)
            .BMP.Line(medx , medy , medx + (x3 - x2_2) * 100 , medy + (y3 - y2_2) * 100 , pencolor)
            end if
            
            .buffertmp.BMP = .BMP.BMP
            .Paint
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH

    END SUB
    
    private :
    SUB draworcycles(xb , yb , xc , yc , xd , yd)

        DEFSNG x2 , y2 , x3 , y3 , x4 , y4
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc
        x4 = xd
        y4 = yd

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz2.BMP            
            
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / rqpi
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            

            DIM y5 AS DOUBLE:DIM x5 AS DOUBLE
           
            dim aa as double,bb as double,cc as double,cc2 as double,ang_aa as double
            aa = x4 - x2
            bb = y4 - y2
            cc = SQR(aa^2 + bb^2)
            cc2 = SQR((x4-x3)^2 + (y4-y3)^2)
            IF cc <> 0 THEN ang_aa = ACOS(aa / cc) * 180 / rqpi
            IF y4 > y2 THEN
                ang_aa = ang_aa * - 1
            END IF
            x5 = COS((ang_aa - 90) * rad) * cc2 + x4
            y5 = y4 - SIN((ang_aa - 90) * rad) * cc2
            dim x6 as double,y6 as double
            dim aaa as double, bbb as double,ccc as double,ang_aaa as double
            aaa = x5 - x4
            bbb = y5 - y4
            ccc = SQR(aaa^2 + bbb^2)
            IF ccc <> 0 THEN ang_aaa = ACOS(aaa / ccc) * 180 / rqpi
            IF y5 > y4 THEN
                ang_aaa = ang_aaa * - 1
            END IF
            FOR i = 1 TO 8
            x6=COS((ang_aaa - 90) * rad) * cc + (COS((ang_aa - 90) * rad) * cc2*i + x4)
            y6=(y4 - SIN((ang_aa - 90) * rad) * cc2*i) - SIN((ang_aaa - 90) * rad) * cc
            .bmp.Line((COS((ang_aa - 90) * rad) * cc2*i + x4),(y4 - SIN((ang_aa - 90) * rad) * cc2*i),x6,y6,pencolor)
            NEXT i
                                    
            .buffertmp.BMP = .bmp.BMP
            .Paint

        END WITH

    END SUB
    
    private :
    SUB drawpriceext(xb , yb , xc , yc , xd , yd)

        DEFSNG x2 , y2 , x3 , y3 , x4 , y4
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc
        x4 = xd
        y4 = yd

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz2.BMP
            'MoveToEx(.Buffer.handle,x3-1,y3,0)
            'LineTo(.Buffer.handle,x3+x4-x2,y3+y4-y2)
            DIM quarter AS DOUBLE
            quarter = (y4 - y2) / 4
            .bmp.Line(x3 , y3 , x3 + 500 , y3 , pencolor)
            .bmp.TextOut(x3 - 40 , y3 , "0%" , pencolor , &hffffff)
            .bmp.Line(x3 , y3 + quarter , x3 + 500 , y3 + quarter , pencolor)
            .bmp.TextOut(x3 - 40 , y3 + quarter , "25%" , pencolor , &hffffff)
            .bmp.Line(x3 , y3 + quarter * 2 , x3 + 500 , y3 + quarter * 2 , pencolor)
            .bmp.TextOut(x3 - 40 , y3 + quarter * 2 , "50%" , pencolor , &hffffff)
            .bmp.Line(x3 , y3 + 0.618*(y4 - y2) , x3 + 500 , y3 + 0.618*(y4 - y2) , pencolor)
            .bmp.TextOut(x3 - 40 , y3 + 0.618*(y4 - y2) , "61.8%" , pencolor , &hffffff)
            .bmp.Line(x3 , y3 + 0.786*(y4 - y2) , x3 + 500 , y3 + 0.786*(y4 - y2) , pencolor)
            .bmp.TextOut(x3 - 40 , y3 + 0.786*(y4 - y2) , "78.6%" , pencolor , &hffffff)
            .bmp.Line(x3 , y3 + quarter * 3 , x3 + 500 , y3 + quarter * 3 , pencolor)
            .bmp.TextOut(x3 - 40 , y3 + quarter * 3 , "75%" , pencolor , &hffffff)
            .bmp.Line(x3 , y3 + quarter * 4 , x3 + 500 , y3 + quarter * 4 , pencolor)
            .bmp.TextOut(x3 - 40 , y3 + quarter * 4 , "100%" , pencolor , &hffffff)

            .buffertmp.BMP = .bmp.BMP
            .Paint

        END WITH

    END SUB

    private :
    SUB drawtimeext(xb , yb , xc , yc , xd , yd)

        DEFSNG x2 , y2 , x3 , y3 , x4 , y4
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc
        x4 = xd
        y4 = yd

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz2.BMP
            'MoveToEx(.Buffer.handle,x3-1,y3,0)
            'LineTo(.Buffer.handle,x3+x4-x2,y3+y4-y2)
            DIM quarter AS DOUBLE
            quarter = (x4 - x2) / 4
            .BMP.Line(x3 , y3 , x3 , y3 + 500 , pencolor)
            .BMP.TextOut(x3 , y3 - 40 , "0%" , pencolor , &hffffff)
            .BMP.Line(x3 + quarter , y3 , x3 + quarter , y3 + 500 , pencolor)
            .BMP.TextOut(x3 + quarter , y3 - 40 , "25%" , pencolor , &hffffff)
            .BMP.Line(x3 + quarter * 2 , y3 , x3 + quarter * 2 , y3 + 500 , pencolor)
            .BMP.TextOut(x3 + quarter * 2 , y3 - 40 , "50%" , pencolor , &hffffff)
            .BMP.Line(x3 + 0.618*(x4-x2) , y3 , x3 + 0.618*(x4-x2) , y3 + 500 , pencolor)
            .BMP.TextOut(x3 + 0.618*(x4-x2) , y3 - 40 , "61.8%" , pencolor , &hffffff)
            .BMP.Line(x3 + quarter * 3 , y3 , x3 + quarter * 3 , y3 + 500 , pencolor)
            .BMP.TextOut(x3 + quarter * 3 , y3 - 40 , "75%" , pencolor , &hffffff)
            .BMP.Line(x3 + quarter * 4 , y3 , x3 + quarter * 4 , y3 + 500 , pencolor)
            .BMP.TextOut(x3 + quarter * 4 , y3 - 40 , "100%" , pencolor , &hffffff)

            .buffertmp.BMP = .bmp.BMP
            .Paint

        END WITH

    END SUB
    
    private :
    SUB drawgrid(xb , yb , xc , yc)
        
        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP            

            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)

            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / rqpi

                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM y4 AS DOUBLE:DIM x4 AS DOUBLE
            DIM y5 AS DOUBLE:DIM x5 AS DOUBLE
            DIM x6 AS DOUBLE , y6 AS DOUBLE
            DIM x7 AS DOUBLE , y7 AS DOUBLE
           
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF
            
            .bmp.Line(x2 , y2 , x3 , y3 , pencolor)                        

            x4 = COS((ang_a * (-1)) * rad) * c + x3
            y4 = y3 - SIN((ang_a * (-1)) * rad) * c
            .bmp.Line(x3 , y3 , x4 , y4 , pencolor)

            x4 = COS((ang_a * (-1)) * rad) * c + x2
            y4 = y2 - SIN((ang_a * (-1)) * rad) * c
            .bmp.Line(x2 , y2 , x4 , y4 , pencolor)

            x2=COS((ang_a) * rad) * c + x4
            y2=y4 - SIN((ang_a) * rad) * c
            .bmp.Line(x2 , y2 , x4 , y4 , pencolor)

            x7=x4
            y7=y4

            ' loop

            defint igrid
            x6=x3
            y6=y3   

            for igrid=1 to 20           
    
                x4 = COS((ang_a * (1)) * rad) * c + x6
                y4 = y6 - SIN((ang_a * (1)) * rad) * c
                .bmp.Line(x6 , y6 , x4 , y4 , pencolor) 

                x5=x4
                y5=y4

                x5 = COS((ang_a * (-1)) * rad) * c + x5
                y5 = y5 - SIN((ang_a * (-1)) * rad) * c
                .bmp.Line(x4 , y4 , x5 , y5 , pencolor)    

                ' symmetry

                 x4 = COS((ang_a * (-1)) * rad) * c + x6
                y4 = y6 - SIN((ang_a * (-1)) * rad) * c
                .bmp.Line(x6 , y6 , x4 , y4 , pencolor) 

                x5=x4
                y5=y4

                x5 = COS((ang_a * (1)) * rad) * c + x5
                y5 = y5 - SIN((ang_a * (1)) * rad) * c
                .bmp.Line(x4 , y4 , x5 , y5 , pencolor) 

                x6=x5
                y6=y5 

            next igrid

            x6=x7
            y6=y7   

            for igrid=1 to 20           
    
            x4 = COS((ang_a * (1)) * rad) * c + x6
            y4 = y6 - SIN((ang_a * (1)) * rad) * c
            .bmp.Line(x6 , y6 , x4 , y4 , pencolor) 

            x5=x4
            y5=y4

            x5 = COS((ang_a * (-1)) * rad) * c + x5
            y5 = y5 - SIN((ang_a * (-1)) * rad) * c
            .bmp.Line(x4 , y4 , x5 , y5 , pencolor)    

            ' symmetry

            x4 = COS((ang_a * (-1)) * rad) * c + x6
            y4 = y6 - SIN((ang_a * (-1)) * rad) * c
            .bmp.Line(x6 , y6 , x4 , y4 , pencolor) 

            x5=x4
            y5=y4
    
            x5 = COS((ang_a * (1)) * rad) * c + x5
            y5 = y5 - SIN((ang_a * (1)) * rad) * c
            .bmp.Line(x4 , y4 , x5 , y5 , pencolor) 

            x6=x5
            y6=y5 

            next igrid
                                    
            .buffertmp.BMP = .bmp.BMP
            .Paint

        END WITH

    END SUB    

' ------------------- Testing, not functional yet -------------------------------------------------------------------------------------------------------
    private :
    SUB drawsq9f(xb , yb , xc , yc) ' Not functional yet

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP        

    	    sepindicursorpos2

	    .BMP.Line(0 , y3 , canvas.Width , y3 , pencolor)

	    DIM ydeg AS DOUBLE , sqfact AS INTEGER , stepdeg AS INTEGER , ydeg2 AS DOUBLE, negsqr as double
            sqfact = 100
            stepdeg = 15
            FOR i = 1 TO 24		
		'negsqr=sepgraphpriceoncur * VAL(sq9edit.Text)
		negsqr=abs(sepgraphpriceoncur) * VAL(sq9edit.Text)
		'if negsqr<0 then
		'	negsqr=sepgraphpriceoncur * VAL(sq9edit.Text) * -1
		'	negsqr = negsqr ^ 0.5
		'end if
                IF sq9diredit.Text = "1" THEN
                    'ydeg = (SQR(sepgraphpriceoncur * VAL(sq9edit.Text)) + stepdeg / 360 * i) ^2 / VAL(sq9edit.Text)
		    ydeg = (SQR(negsqr) + stepdeg / 360 * i) ^2 / VAL(sq9edit.Text)
                END IF
                IF sq9diredit.Text = "-1" THEN
                    'ydeg = (SQR(sepgraphpriceoncur * VAL(sq9edit.Text)) - stepdeg / 360 * i) ^2 / VAL(sq9edit.Text)
		    ydeg = (SQR(negsqr) - stepdeg / 360 * i) ^2 / VAL(sq9edit.Text)
                END IF
                ydeg2 = (seppricechartpos(1,0) - ydeg) / (seppricechartpos(1,0)-seppricechartpos(0,0)) * (seppricechartpos(0,1)-seppricechartpos(1,1)) + seppricechartpos(1,1)
                .BMP.Line(0 , ydeg2 , canvas.Width , ydeg2 , pencolor)
            NEXT i

	    .buffertmp.BMP = .bmp.BMP
            .Paint            

            'DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            'a = x3 - x2
            'b = y3 - y2
            'c = SQR(a^2 + b^2)

            'IF c <> 0 THEN
            '    ang_a = ACOS(a / c) * 180 / rqpi

            '    dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
            '        "Length: " + STR$(c) _
            '        + CHR$(10) + "x1: " + STR$(x2) _
            '        + CHR$(10) + "y1: " + STR$(y2) _
            '        + CHR$(10) + "x2: " + STR$(x3) _
            '        + CHR$(10) + "y2: " + STR$(y3) _
            '        )
            'END IF                

        END WITH

    END SUB

    private :
    SUB drawsq144f(xb , yb , xc , yc) ' Not functional yet

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP        

    	    sepindicursorpos2

	    .BMP.Line(0 , y3 , canvas.Width , y3 , pencolor)

	    DIM ydeg AS DOUBLE , sqfact AS INTEGER , stepdeg AS INTEGER , ydeg2 AS DOUBLE, negsqr as double
            sqfact = VAL(sq144edit.Text)
            stepdeg = 1
            FOR i = 1 TO 24

		ydeg = sepgraphpriceoncur / sqfact / 4
                ydeg = ydeg * 5
                IF sq144diredit.Text = "1" THEN
                    ydeg = ydeg + i
                END IF
                IF sq144diredit.Text = "-1" THEN
                    ydeg = ydeg - i
                END IF
                ydeg = ydeg / 5
                ydeg = ydeg * sqfact * 4
		ydeg2 = (seppricechartpos(1,0) - ydeg) / (seppricechartpos(1,0)-seppricechartpos(0,0)) * (seppricechartpos(0,1)-seppricechartpos(1,1)) + seppricechartpos(1,1)
                .BMP.Line(0 , ydeg2 , canvas.Width , ydeg2 , pencolor)
            NEXT i

	    .buffertmp.BMP = .bmp.BMP
            .Paint            

            'DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            'a = x3 - x2
            'b = y3 - y2
            'c = SQR(a^2 + b^2)

            'IF c <> 0 THEN
            '    ang_a = ACOS(a / c) * 180 / rqpi

            '    dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
            '        "Length: " + STR$(c) _
            '        + CHR$(10) + "x1: " + STR$(x2) _
            '        + CHR$(10) + "y1: " + STR$(y2) _
            '        + CHR$(10) + "x2: " + STR$(x3) _
            '        + CHR$(10) + "y2: " + STR$(y3) _
            '        )
            'END IF                

        END WITH

    END SUB

' -------------------------------------------------------------------------------------------------------------------------------------------------------

    private :
    SUB drawpricecycles(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            .bmp.Line(x2 , y2 , x3 , y3 , pencolor)
            '.Buffer.textout(x2-30,y2,"100",pencolor,&hffffff)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
		ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            .bmp.Line(x2 , y2 , x3 , y2 , pencolor)
            .bmp.Line(x2 , y3 , x3 , y3 , pencolor)
            '.Buffer.textout(x2-30,y3,"0",pencolor,&hffffff)
            DIM y4 AS INTEGER
            FOR i = 1 TO 8
                y4 = y3 + (y3 - y2) * i
                .bmp.Line(x2 , y4 , x3 , y4 , pencolor)
            NEXT i
            .buffertmp.BMP = .bmp.BMP
            .Paint
        END WITH

    END SUB


    private :
    SUB drawtimecycles(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            .bmp.Line(x2 , y2 , x3 , y3 , pencolor)
            '.Buffer.textout(x2-30,y2,"100",pencolor,&hffffff)
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
		ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
            .bmp.Line(x2 , y2 , x2 , y3 , pencolor)
            .bmp.Line(x3 , y2 , x3 , y3 , pencolor)
            '.Buffer.textout(x2-30,y3,"0",pencolor,&hffffff)
            DIM x4 AS INTEGER
            FOR i = 1 TO 8
                x4 = x3 + (x3 - x2) * i
                .bmp.Line(x4 , y2 , x4 , y3 , pencolor)
            NEXT i
            .buffertmp.BMP = .bmp.BMP
            .Paint
        END WITH

    END SUB

   private :
    SUB drawpentag(xb , yb , xc , yc)
    
        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
		ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle) <> 0 THEN
                    cs = c * COS(angle)
                    sn = c * SIN(angle)
                    .bmp.Pset(x2 + cs , y2 + sn , pencolor)
                    .bmp.Pset(x2 - cs , y2 + sn , pencolor)
                    .bmp.Pset(x2 + cs , y2 - sn , pencolor)
                    .bmp.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            DIM x4 AS DOUBLE , y4 AS DOUBLE
            DIM x5 AS DOUBLE , y5 AS DOUBLE
            DIM x6 AS DOUBLE , y6 AS DOUBLE
            DIM x7 AS DOUBLE , y7 AS DOUBLE
            DIM x8 AS DOUBLE , y8 AS DOUBLE
            DIM x9 AS DOUBLE , y9 AS DOUBLE
            DIM x10 AS DOUBLE , y10 AS DOUBLE
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF            

            x4=COS((ang_a + 72) * rad) * c + x2
            y4=y2 - SIN((ang_a + 72) * rad) * c
            x5=COS((ang_a + 144) * rad) * c + x2
            y5=y2 - SIN((ang_a + 144) * rad) * c
            x6=COS((ang_a + 216) * rad) * c + x2
            y6=y2 - SIN((ang_a + 216) * rad) * c
            x7=COS((ang_a + 288) * rad) * c + x2
            y7=y2 - SIN((ang_a + 288) * rad) * c            
                        
            .bmp.Line(x3,y3,x5,y5, pencolor)
            .bmp.Line(x5,y5,x7,y7, pencolor)
            .bmp.Line(x7,y7,x4,y4, pencolor)
            .bmp.Line(x4,y4,x6,y6, pencolor)
            .bmp.Line(x6,y6,x3,y3, pencolor)
                                   
            .buffertmp.BMP = .bmp.BMP
            .Paint
        END WITH
        
	ang_a_pub=ang_a

    END SUB

    SUB drawlogspiral(xb , yb , xc , yc)

        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            DIM a0 AS DOUBLE , b0 AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a0 = x3 - x2
            b0 = y3 - y2
            c = SQR(a0^2 + b0^2)
            IF c <> 0 THEN
                ang_a = ACOS(a0 / c) * 180 / 3.1415927
		ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angrot AS DOUBLE
            angrot = ACOS(a0 / c)
            DIM distlogspi AS DOUBLE
            IF c > 0 THEN
                distlogspi = 1 / (ABS(c))
            ELSE
                distlogspi = 0
            END IF

            DIM b AS double : b = DegToRad(80)
            DIM a AS double : a = SQR(distlogspi) 'rotation
            DIM i AS INTEGER
            FOR i = 0 TO 500
                DIM t AS double : t = a * rqPI / 4
                DIM r AS double : r = EXP(t * cot(b + SQR(distlogspi)))
                points(i).r = r + x2
                points(i).x = r * COS(t) + x2
                points(i).y = r * SIN(t) + y2
                a + = 0.2
            NEXT i
            FOR i = 1 TO 500
                .bmp.Line(points(i - 1).x , points(i - 1).y , points(i).x , points(i).y , pencolor)
            NEXT i


            .buffertmp.BMP = .bmp.BMP
            .Paint
        END WITH

    END SUB

    private :
    SUB drawpolyg(xb , yb , xc , yc)
    
        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
		ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle) <> 0 THEN
                    cs = c * COS(angle)
                    sn = c * SIN(angle)
                    '.buffer.Pset(x2 + cs , y2 + sn , pencolor)
                    '.buffer.Pset(x2 - cs , y2 + sn , pencolor)
                    '.buffer.Pset(x2 + cs , y2 - sn , pencolor)
                    '.buffer.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            DIM x4 AS DOUBLE , y4 AS DOUBLE
            DIM x5 AS DOUBLE , y5 AS DOUBLE
            DIM x6 AS DOUBLE , y6 AS DOUBLE
            DIM x7 AS DOUBLE , y7 AS DOUBLE
            DIM x8 AS DOUBLE , y8 AS DOUBLE
            DIM x9 AS DOUBLE , y9 AS DOUBLE
            DIM x10 AS DOUBLE , y10 AS DOUBLE
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF  
            
            if pentagoneradio.checked=1 then          

            x4=COS((ang_a + 72) * rad) * c + x2
            y4=y2 - SIN((ang_a + 72) * rad) * c
            x5=COS((ang_a + 144) * rad) * c + x2
            y5=y2 - SIN((ang_a + 144) * rad) * c
            x6=COS((ang_a + 216) * rad) * c + x2
            y6=y2 - SIN((ang_a + 216) * rad) * c
            x7=COS((ang_a + 288) * rad) * c + x2
            y7=y2 - SIN((ang_a + 288) * rad) * c            
                        
            .bmp.Line(x3,y3,x4,y4, pencolor)
            .bmp.Line(x4,y4,x5,y5, pencolor)
            .bmp.Line(x5,y5,x6,y6, pencolor)
            .bmp.Line(x6,y6,x7,y7, pencolor)
            .bmp.Line(x7,y7,x3,y3, pencolor)
            
            end if
            
            if hexagoneradio.checked=1 then          

            x4=COS((ang_a + 60) * rad) * c + x2
            y4=y2 - SIN((ang_a + 60) * rad) * c
            x5=COS((ang_a + 120) * rad) * c + x2
            y5=y2 - SIN((ang_a + 120) * rad) * c
            x6=COS((ang_a + 180) * rad) * c + x2
            y6=y2 - SIN((ang_a + 180) * rad) * c
            x7=COS((ang_a + 240) * rad) * c + x2
            y7=y2 - SIN((ang_a + 240) * rad) * c  
            x8=COS((ang_a + 300) * rad) * c + x2
            y8=y2 - SIN((ang_a + 300) * rad) * c          
                        
            .bmp.Line(x3,y3,x4,y4, pencolor)
            .bmp.Line(x4,y4,x5,y5, pencolor)
            .bmp.Line(x5,y5,x6,y6, pencolor)
            .bmp.Line(x6,y6,x7,y7, pencolor)
            .bmp.Line(x7,y7,x8,y8, pencolor)
            .bmp.Line(x8,y8,x3,y3, pencolor)
            
            end if
            
            if octogoneradio.checked=1 then          

            x4=COS((ang_a + 45) * rad) * c + x2
            y4=y2 - SIN((ang_a + 45) * rad) * c
            x5=COS((ang_a + 90) * rad) * c + x2
            y5=y2 - SIN((ang_a + 90) * rad) * c
            x6=COS((ang_a + 135) * rad) * c + x2
            y6=y2 - SIN((ang_a + 135) * rad) * c
            x7=COS((ang_a + 180) * rad) * c + x2
            y7=y2 - SIN((ang_a + 180) * rad) * c  
            x8=COS((ang_a + 225) * rad) * c + x2
            y8=y2 - SIN((ang_a + 225) * rad) * c      
            x9=COS((ang_a + 270) * rad) * c + x2
            y9=y2 - SIN((ang_a + 270) * rad) * c   
            x10=COS((ang_a + 315) * rad) * c + x2
            y10=y2 - SIN((ang_a + 315) * rad) * c  
                        
            .bmp.Line(x3,y3,x4,y4, pencolor)
            .bmp.Line(x4,y4,x5,y5, pencolor)
            .bmp.Line(x5,y5,x6,y6, pencolor)
            .bmp.Line(x6,y6,x7,y7, pencolor)
            .bmp.Line(x7,y7,x8,y8, pencolor)
            .bmp.Line(x8,y8,x9,y9, pencolor)
            .bmp.Line(x9,y9,x10,y10, pencolor)
            .bmp.Line(x10,y10,x3,y3, pencolor)
            
            end if
                                   
            .buffertmp.BMP = .bmp.BMP
            .Paint
        END WITH
       
    END SUB

    private :
    SUB drawtri2(xb , yb , xc , yc)
    
        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
        ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle) <> 0 THEN
                    cs = c * COS(angle)
                    sn = c * SIN(angle)
                    '.buffer.Pset(x2 + cs , y2 + sn , pencolor)
                    '.buffer.Pset(x2 - cs , y2 + sn , pencolor)
                    '.buffer.Pset(x2 + cs , y2 - sn , pencolor)
                    '.buffer.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            DIM x4 AS DOUBLE , y4 AS DOUBLE
            DIM x5 AS DOUBLE , y5 AS DOUBLE
            DIM x6 AS DOUBLE , y6 AS DOUBLE
            DIM x7 AS DOUBLE , y7 AS DOUBLE
            DIM x8 AS DOUBLE , y8 AS DOUBLE
            DIM x9 AS DOUBLE , y9 AS DOUBLE
            DIM x10 AS DOUBLE , y10 AS DOUBLE
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF  
            
                    

            x4=COS((ang_a + 120) * rad) * c + x2
            y4=y2 - SIN((ang_a + 120) * rad) * c
            x5=COS((ang_a + 240) * rad) * c + x2
            y5=y2 - SIN((ang_a + 240) * rad) * c            
                        
            .bmp.Line(x3,y3,x4,y4, pencolor)
            .bmp.Line(x4,y4,x5,y5, pencolor)
            .bmp.Line(x5,y5,x3,y3, pencolor) 
            
            x4=COS((ang_a + 0) * rad) * c + x2
            y4=y2 - SIN((ang_a + 0) * rad) * c                              
            
            .bmp.fillrect(x4-3,y4-3,x4+3,y4+3,black)                               
                                   
            .buffertmp.BMP = .bmp.BMP
            .Paint
        END WITH
        
    END SUB

    private :
    SUB drawsqr2(xb , yb , xc , yc)
    
        DEFSNG x2 , y2 , x3 , y3
        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
        ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

            DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle) <> 0 THEN
                    cs = c * COS(angle)
                    sn = c * SIN(angle)
                    '.buffer.Pset(x2 + cs , y2 + sn , pencolor)
                    '.buffer.Pset(x2 - cs , y2 + sn , pencolor)
                    '.buffer.Pset(x2 + cs , y2 - sn , pencolor)
                    '.buffer.Pset(x2 - cs , y2 - sn , pencolor)
                END IF
            NEXT angle
            DIM x4 AS DOUBLE , y4 AS DOUBLE
            DIM x5 AS DOUBLE , y5 AS DOUBLE
            DIM x6 AS DOUBLE , y6 AS DOUBLE
            DIM x7 AS DOUBLE , y7 AS DOUBLE
            DIM x8 AS DOUBLE , y8 AS DOUBLE
            DIM x9 AS DOUBLE , y9 AS DOUBLE
            DIM x10 AS DOUBLE , y10 AS DOUBLE
            IF y3 > y2 THEN
                ang_a = ang_a * - 1
            END IF  
            
                    

            x4=COS((ang_a + 90) * rad) * c + x2
            y4=y2 - SIN((ang_a + 90) * rad) * c
            x5=COS((ang_a + 180) * rad) * c + x2
            y5=y2 - SIN((ang_a + 180) * rad) * c
            x6=COS((ang_a + 270) * rad) * c + x2
            y6=y2 - SIN((ang_a + 270) * rad) * c            
                        
            .bmp.Line(x3,y3,x4,y4, pencolor)
            .bmp.Line(x4,y4,x5,y5, pencolor)
            .bmp.Line(x5,y5,x6,y6, pencolor)
            .bmp.Line(x6,y6,x3,y3, pencolor) 
            
            x4=COS((ang_a + 0) * rad) * c + x2
            y4=y2 - SIN((ang_a + 0) * rad) * c                              
            
            .bmp.fillrect(x4-3,y4-3,x4+3,y4+3,black)
                                   
            .buffertmp.BMP = .bmp.BMP
            .Paint
        END WITH
        
    END SUB  

    private :
    SUB drawconic(xb , yb , xc , yc,xd,yd)   

        if conicpointclicknb<6 then
        
        fibofanangonce=0
        'DEFSNG x2 , y2 , x3 , y3 , x4 , y4
        'DEFSNG x4
        'DEFSNG y4
        defint x2 = xb
        defint y2 = yb
        defint x3 = xc
        defint y3 = yc
        defint x4 = xd
        defint y4 = yd

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            'MoveToEx(.Buffer.handle,x2,y2,0)
            'LineTo(.Buffer.handle,x2,y3)
            sepindicursorpos2
            .bmp.Line(x2 , y2-5 , x2 , y2+5 , pencolor)
            '.Buffer.TextOut(x3 , graphvspace + 45 , graphdateoncur , pencolor , &hffffff)
            .bmp.Line(x2-5 , y2 , x2+5 , y2 , pencolor)
            '.Buffer.TextOut(0 , y3 , STR$(graphpriceoncur) , pencolor , &hffffff)
            .buffertmp.BMP = .bmp.BMP
            .Paint
            DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = x3 - x2
            b = y3 - y2
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
        ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF

        END WITH
        
        if conicpointclicknb=5 then 
                
        defint ret

        dim xx(10000) as double
        dim yy(10000) as double
        'dim xx2(10000) as double
        'dim yy2(10000) as double

        parameters=str$(conicpointsx(1))+";"+str$(conicpointsy(1)*(-1))+";"+str$(conicpointsx(2))+";"+str$(conicpointsy(2)*(-1))+";"+_
        str$(conicpointsx(3))+";"+str$(conicpointsy(3)*(-1))+";"+str$(conicpointsx(4))+";"+str$(conicpointsy(4)*(-1))+";"+_
        str$(conicpointsx(5))+";"+str$(conicpointsy(5)*(-1))+";"+str$(canvas.height*(-1))+";"+str$(canvas.width)
        ret = conic_section(varptr(parameters),varptr(xx(0)),varptr(yy(0)))

        WITH QChart2
        defint i
        '.ClearBuffer
        .bmp.BMP = .buffertmpz.BMP
        for i=0 to canvas.height*2*5
            'if yy(i+1)>yy(i) then                                
            .bmp.pset(round(xx(i)) , round(yy(i)*(-1)) , pencolor)
            'end if
        next i    
        .buffertmp.BMP = .bmp.BMP
        .Paint 
        END WITH
        conicpointclicknb=0
                                       
        end if

        end if                  

    END SUB  
    
    private :
    SUB drawcirclegiven3points(xb , yb , xc , yc,xd,yd)   

        if circlegiven3pointsclicknb<4 then
        
        fibofanangonce=0
        'DEFSNG x2 , y2 , x3 , y3 , x4 , y4
        'DEFSNG x4
        'DEFSNG y4
        defint x2 = xb
        defint y2 = yb
        defint x3 = xc
        defint y3 = yc
        defint x4 = xd
        defint y4 = yd

        WITH QChart2
            .ClearBuffer2
            .bmp.BMP = .buffertmpz.BMP
            'MoveToEx(.Buffer.handle,x2,y2,0)
            'LineTo(.Buffer.handle,x2,y3)
            sepindicursorpos2
            .bmp.Line(x2 , y2-5 , x2 , y2+5 , pencolor)
            '.Buffer.TextOut(x3 , graphvspace + 45 , graphdateoncur , pencolor , &hffffff)
            .bmp.Line(x2-5 , y2 , x2+5 , y2 , pencolor)
            '.Buffer.TextOut(0 , y3 , STR$(graphpriceoncur) , pencolor , &hffffff)
            .buffertmp.BMP = .bmp.BMP
            .Paint
            

        END WITH
        
        if circlegiven3pointsclicknb=3 then 
                
        defint ret

        ''dim xx(10000) as double
        ''dim yy(10000) as double
        'dim xx2(10000) as double
        'dim yy2(10000) as double

        ''parameters=str$(conicpointsx(1))+";"+str$(conicpointsy(1)*(-1))+";"+str$(conicpointsx(2))+";"+str$(conicpointsy(2)*(-1))+";"+_
        ''str$(conicpointsx(3))+";"+str$(conicpointsy(3)*(-1))+";"+str$(conicpointsx(4))+";"+str$(conicpointsy(4)*(-1))+";"+_
        ''str$(conicpointsx(5))+";"+str$(conicpointsy(5)*(-1))+";"+str$(canvas.height*(-1))+";"+str$(canvas.width)
        ''ret = conic_section(varptr(parameters),varptr(xx(0)),varptr(yy(0)))
        
        defdbl yDelta_a = circlegiven3pointsy(2) - circlegiven3pointsy(1)
	    defdbl xDelta_a = circlegiven3pointsx(2) - circlegiven3pointsx(1)
    	defdbl yDelta_b = circlegiven3pointsy(3) - circlegiven3pointsy(2)
	    defdbl xDelta_b = circlegiven3pointsx(3) - circlegiven3pointsx(2)
	    defint centerx = 0
	    defint centery = 0

    	defdbl aSlope = yDelta_a/xDelta_a
	    defdbl bSlope = yDelta_b/xDelta_b  
		centerx = (aSlope*bSlope*(circlegiven3pointsy(1) - circlegiven3pointsy(3)) + bSlope*(circlegiven3pointsx(1) + circlegiven3pointsx(2)) _
		- aSlope*(circlegiven3pointsx(2)+circlegiven3pointsx(3)) )/(2* (bSlope-aSlope) )
	    centery = -1*(centerx - (circlegiven3pointsx(1)+circlegiven3pointsx(2))/2)/aSlope +  (circlegiven3pointsy(1)+circlegiven3pointsy(2))/2

        WITH QChart2
        
        DIM a AS DOUBLE , b AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            a = circlegiven3pointsx(1) - centerx
            b = circlegiven3pointsy(1) - centery
            c = SQR(a^2 + b^2)
            IF c <> 0 THEN
                ang_a = ACOS(a / c) * 180 / 3.1415927
        ang_a_pub=ang_a
                dispinfotext("Angle: " + STR$(ang_a) + CHR$(10) + _
                    "Length: " + STR$(c) _
                    + CHR$(10) + "x1: " + STR$(x2) _
                    + CHR$(10) + "y1: " + STR$(y2) _
                    + CHR$(10) + "x2: " + STR$(x3) _
                    + CHR$(10) + "y2: " + STR$(y3) _
                    )
            END IF
        
        defint i
        '.ClearBuffer
        .bmp.BMP = .buffertmpz.BMP
        ''for i=0 to canvas.height*2*5
            'if yy(i+1)>yy(i) then                                
            ''.bmp.pset(round(xx(i)) , round(yy(i)*(-1)) , pencolor)
            'end if
        ''next i
        DIM angle AS DOUBLE , cs AS DOUBLE , sn AS DOUBLE
            FOR angle = 0 TO 1.57 STEP 0.001
                IF COS(angle) <> 0 AND SIN(angle <> 0) THEN
                    cs = c * COS(angle)
                    sn = c * SIN(angle)
                    .BMP.Pset(centerx + cs , centery + sn , pencolor)
                    .BMP.Pset(centerx - cs , centery + sn , pencolor)
                    .BMP.Pset(centerx + cs , centery - sn , pencolor)
                    .BMP.Pset(centerx - cs , centery - sn , pencolor)
                END IF
            NEXT angle    
        .buffertmp.BMP = .bmp.BMP
        .Paint 
        END WITH
        circlegiven3pointsclicknb=0
                                       
        end if

        end if                  

    END SUB

    PUBLIC :
    SUB drawchart2
        WITH qchart2
            .drawxy2
        END WITH
    END SUB

    public :
    SUB bufcntreset
        bufcnt = 0
    END SUB

    public :
    SUB firstbufcntreset
        firstbufcnt = 0
    END SUB

    public :
    SUB savebuffertmp
        WITH qchart2
            IF firstbufcnt = 0 THEN
                .firstbuffertmpz.BMP = .BMP.BMP
                firstbufcnt ++
            END IF
            IF bufcnt = 0 THEN
                .buffertmpz.BMP = .BMP.BMP
                bufcnt ++
            END IF
            .buffertmp.BMP = .BMP.BMP
        END WITH
    END SUB

    public :
    SUB savebuffertmpsimple
        WITH qchart2
            .buffertmp.BMP = .BMP.BMP
        END WITH
    END SUB

    public :
    SUB savebuffertmpsimplez
        WITH qchart2
            .buffertmpz2.BMP = .BMP.BMP
        END WITH
    END SUB

    PUBLIC :
    SUB drawp(TYPE , xb , yb , xc , yc , xd , yd)
        DEFINT x2 , y2 , x3 , y3 , x4 , y4
        DEFINT type2
        type2 = TYPE
        'print type2

        x2 = xb
        y2 = yb
        x3 = xc
        y3 = yc
        x4 = xd
        y4 = yd
        WITH qchart2
            SELECT CASE type2
                CASE 0 :
                    .drawtrendline(x2 , y2 , x3 , y3)
                CASE 1 :
                    .drawfibofan(x2 , y2 , x3 , y3)
                CASE 2 :
                    .drawfiboret(x2 , y2 , x3 , y3)
                CASE 3 :
                    .drawpara(x2 , y2 , x3 , y3 , x4 , y4)
                CASE 4 :
                    .drawhline(x2 , y2 , x3 , y3)
                CASE 5 :
                    .drawvline(x2 , y2 , x3 , y3)
                CASE 6 :
                    .drawsqr(x2 , y2 , x3 , y3)
                CASE 7 :
                    .drawtri(x2 , y2 , x3 , y3)
                CASE 8 :
                    .drawcircle(x2 , y2 , x3 , y3)
                CASE 9 :
                    .drawcross(x2 , y2 , x3 , y3)
                CASE 10 :
                    .drawinvcircle(x2 , y2 , x3 , y3)
                CASE 11 :
                    .drawaiming(x2 , y2 , x3 , y3)
                CASE 12 :
                    .drawhand(x2 , y2 , x3 , y3)
                CASE 13 :
                    .drawsin(x2 , y2 , x3 , y3)
                CASE 14 :
                    .drawlog(x2 , y2 , x3 , y3)
                CASE 15 :
                    .drawexp(x2 , y2 , x3 , y3)
                CASE 16 :
                    .drawellipse(x2 , y2 , x3 , y3)
                CASE 17 :
                    .drawpitchfork(x2 , y2 , x3 , y3 , x4 , y4)
                CASE 18 :
                    .draworcycles(x2 , y2 , x3 , y3 , x4 , y4)
                CASE 19 :
                    .drawpriceext(x2 , y2 , x3 , y3 , x4 , y4)
                CASE 20 :
                    .drawgrid(x2 , y2 , x3 , y3)
                CASE 21 :
                    .drawspeedres(x2 , y2 , x3 , y3)
                CASE 22 :
                    .drawfiboarcs(x2 , y2 , x3 , y3)
		CASE 23 :
                    .drawseedoflife(x2 , y2 , x3 , y3)
		CASE 24 :
                    .drawtimeext(x2 , y2 , x3 , y3 , x4 , y4)
		CASE 25 :
                    .drawsq9f(x2 , y2 , x3 , y3)
		CASE 26 :
                    .drawsq144f(x2 , y2 , x3 , y3)
		CASE 27 :
                    .drawpricecycles(x2 , y2 , x3 , y3)
		CASE 28 :
                    .drawtimecycles(x2 , y2 , x3 , y3)
		CASE 29 :
                    .drawlogspiral(x2 , y2 , x3 , y3)
		CASE 30 :
                    .drawpentag(x2 , y2 , x3 , y3)
		CASE 31 :
                    .drawpolyg(x2 , y2 , x3 , y3)
		CASE 32 :
                    .drawsqr2(x2 , y2 , x3 , y3)
		CASE 33 :
                    .drawtri2(x2 , y2 , x3 , y3)
		CASE 34 :
                    .drawconic(x2 , y2 , x3 , y3 , x4 , y4)
        CASE 35 :
                    .drawellipse3(x2 , y2 , x3 , y3)
        CASE 36 :
                    .drawcirclegiven3points(x2 , y2 , x3 , y3, x4, y4)
        CASE 37 :
                    .drawfibocircles(x2 , y2 , x3 , y3)
        CASE 38 :
                    .drawtimeruler(x2 , y2 , x3 , y3)
        CASE 39 :
                    .drawpriceruler(x2 , y2 , x3 , y3)
        CASE 40 :
                    .drawspeedresarcs(x2 , y2 , x3 , y3)
        CASE 41 :
                    .drawschiffpitchfork(x2 , y2 , x3 , y3 , x4 , y4)
        CASE 42 :
                    .drawgannfan(x2 , y2 , x3 , y3)
            END SELECT
        END WITH
    END SUB

    PUBLIC :
    SUB RedrawChart2  '<--- Call this SUB from your FORM.OnResize EVENT SUB
        WITH qchart2
            .BMP.Width = .Width  'recalc dimensions
            .BMP.Height = .Height
            .drawchart2
        END WITH
    END SUB    

END TYPE

'CREATE hotkeysfrm AS QFORM
'Center
'Caption = "Global hotkeys"
'WndProc = FormWndProc
'END CREATE

CREATE signalsndform AS QFORM
    CREATE signallabel AS QLABEL
        Caption = "New signal detected!"
    END CREATE
    OnClose = signalsndfrmclose
    Visible = 0
    Height = 50
    Width = 150
    Caption = "Signal"
    BorderStyle = 3
    Center
END CREATE

DIM aboutform AS QFORM
aboutform.Caption = "About"
aboutform.Width = 600
aboutform.Height = 300
DIM aboutcanvas AS QCANVAS
CREATE bgaboutfrm AS QIMAGE
    Width = aboutform.Width - 20
    Height = aboutform.Height - 20
    Stretch = 1
    AutoSize = 0
    Parent = aboutform
    BMP = homepath + "\images\space.bmp"
END CREATE
CREATE planetredbg AS QIMAGE
    Width = 72
    Height = 65
    Top = 150
    Left = 180
    Stretch = 0
    AutoSize = 0
    Parent = aboutform
    BMP = homepath + "\images\planetred.bmp"
END CREATE
CREATE planetwhitebg AS QIMAGE
    Width = 51
    Height = 49
    Top = 200
    Left = 380
    Stretch = 0
    AutoSize = 0
    Parent = aboutform
    BMP = homepath + "\images\planetwhite.bmp"
END CREATE
CREATE planetgreenbg AS QIMAGE
    Width = 69
    Height = 65
    Top = 180
    Left = 80
    Stretch = 0
    AutoSize = 0
    Parent = aboutform
    BMP = homepath + "\images\planetgreen.bmp"
END CREATE

DIM aboutimg AS QIMAGE
DIM aboutTimer AS QTIMER
aboutTimer.Enabled = FALSE
DIM aboutFont AS QFONT
DIM abouty AS INTEGER
abouty = - 20
aboutform.BorderStyle = 3

aboutform.Center
aboutform.Color = 0
aboutFont.Name = "Courier"
aboutFont.Size = 11
aboutFont.Color = &H00FF00


aboutimg.Parent = aboutform
aboutimg.Top = 0
aboutimg.Left = 0
aboutimg.Height = 200
aboutimg.Width = aboutform.Width
aboutimg.BMP = homepath + "\images\QTGenbg.bmp"
aboutcanvas.Parent = aboutform
aboutcanvas.Top = 150
aboutcanvas.Height = 100
aboutcanvas.Font = aboutFont
aboutcanvas.Color = 0
aboutcanvas.OnPaint = paintabout
DECLARE SUB timerover
DECLARE SUB resize
DECLARE SUB abfrmclose

aboutform.OnClose = abfrmclose

aboutTimer.Interval = 35
aboutTimer.OnTimer = timerover

aboutform.OnResize = resize


'Define the main form
CREATE frmMain AS QFORMEX
    'Center
    Top = 0
    Left = 0
    Width = screen.width
    Height = 0.95*screen.height
    Caption = "QChartist"+" build "+QC_build
    IcoHandle = QChartistico
    OnClose = frmMainClose
    onmousewheel = frmmainonmw
    AutoScroll = 0
    onkeydown=hotkeysub
    'onshow=frmMainonshowsub ' bug with mouse wheel
    'WndProc = FormWndProc ' Used for global hotkeys

    'create bgimg as qimage
    'width=frmmain.width
    'height=frmmain.height
    'Autosize = 0
    'Stretch=0
    'parent=frmmain
    'BMPHandle=bgimage
    'center=1
    'end create


    CREATE toolsPanel AS QDOCKFORM
        'parent=frmmain
        'UndockedForm.Parent = frmmain
        'AltAlign = 0
        'Caption = "Tools"
        'Align = 0
        'DockStyle = 1
        'UnDockStyle = 1
        'style = 0
        'Client.BevelOuter = 0
        'Canvas.Font.Name = "Arial"
        'width=85
        'UndockedWidth = toolsPanel.Width
        'height=650
        'UndockedHeight = toolsPanel.Height
        'CanClose = 1
        'OnClose = FormClosed

        AltPanel.Parent = frmMain
        'AltAlign = 4
        UndockedForm.Parent = frmMain
        Caption = "Tools"
        Align = 3
        DockStyle = 1
        UnDockStyle = 1
        Style = 1
        Client.BevelOuter = 0
        Canvas.Font.Name = "Tahoma"
        UndockedWidth = toolsPanel.Width
        CanClose = 1
        'OnClose = FormClosed
        Width = 85
        Height = 650
        UndockedWidth = toolsPanel.Width
        UndockedHeight = toolsPanel.Height

        'create toolsgroupbox as qgroupbox
        'Parent = toolsPanel.Client
        'height=620
        'width=70
        'onclick=movetoolsgroupbox
        'onmousemove=groupboxonmousemove

        CREATE ToolsPanel2 AS QPANEL
            Parent = toolsPanel.Client
            Align = 5

            CREATE trendlinebtn AS QOVALBTN
                Top = 10
                Left = 5
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw trendline"
                ShowHint = 1
                OnClick = trendlinebtnclick
                BMPHandle = icontrendline
                Cursor = 2
            END CREATE

            CREATE timeextbtn AS QOVALBTN
                Top = 10
                Left = 5
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw time extensions"
                ShowHint = 1
                OnClick = timeextbtnclick
                BMPHandle = icontimeext
                Cursor = 2
                Visible = 0
            END CREATE

            CREATE fibofanbtn AS QOVALBTN
                Top = 10
                Width = 30
                Height = 30
                Left = 35
                Color = &Hcccccc
                Hint = "Draw Fibonacci fan"
                ShowHint = 1
                OnClick = fibofanbtnclick
                BMPHandle = iconfibofan
                Cursor = 2
            END CREATE

            CREATE pricecyclesbtn AS QOVALBTN
                Top = 10
                Width = 30
                Height = 30
                Left = 35
                Color = &Hcccccc
                Hint = "Draw price cycles"
                ShowHint = 1
                OnClick = pricecyclesbtnclick
                BMPHandle = iconpricecycles
                Cursor = 2
                Visible = 0
            END CREATE

            CREATE fiboretbtn AS QOVALBTN
                Left = 5
                Top = 40
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Fibonacci retracements"
                ShowHint = 1
                OnClick = fiboretbtnclick
                BMPHandle = iconfiboret
                Cursor = 2
            END CREATE

            CREATE timecyclesbtn AS QOVALBTN
                Left = 5
                Top = 40
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw time cycles"
                ShowHint = 1
                OnClick = timecyclesbtnclick
                BMPHandle = icontimecycles
                Cursor = 2
                Visible = 0
            END CREATE


            CREATE parabtn AS QOVALBTN
                Top = 40
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw parallel lines"
                ShowHint = 1
                OnClick = parabtnclick
                BMPHandle = iconpara
                Cursor = 2
            END CREATE

            CREATE logspiralbtn AS QOVALBTN
                Visible = 0
                Top = 40
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw logarithmic spiral"
                ShowHint = 1
                OnClick = logspiralbtnclick
                BMPHandle = iconlogspiral
                Cursor = 2
            END CREATE

            CREATE hlinebtn AS QOVALBTN
                Left = 5
                Top = 70
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw horizontal line"
                ShowHint = 1
                OnClick = hlinebtnclick
                BMPHandle = iconhline
                Cursor = 2
            END CREATE

            CREATE polybtn AS QOVALBTN
                Visible = 0
                Left = 5
                Top = 70
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Edit chart"
                ShowHint = 1
                OnClick = polybtnclick
                BMPHandle = iconpoly
                Cursor = 2
            END CREATE
            
            CREATE pentagbtn AS QOVALBTN
                Visible = 0
                Left = 35
                Top = 70
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw pentagram"
                ShowHint = 1
                OnClick = pentagbtnclick
                BMPHandle = iconpentag
                Cursor = 2
            END CREATE
            
            CREATE orcyclesbtn AS QOVALBTN
                Visible = 0
                Left =  5
                Top = 100
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw oriented cycles"
                ShowHint = 1
                OnClick = orcyclesbtnclick
                BMPHandle = iconorcycles
                Cursor = 2
            END CREATE
            
            CREATE polygbtn AS QOVALBTN
                Visible = 0
                Left = 35
                Top = 100
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw polygone"
                ShowHint = 1
                OnClick = polygbtnclick
                BMPHandle = iconpolyg
                Cursor = 2
            END CREATE
            
            CREATE sqr2btn AS QOVALBTN
                Left = 5
                Top = 130
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw square from center"
                ShowHint = 1
                OnClick = sqr2btnclick
                BMPHandle = iconsqr
                Cursor = 2
            END CREATE

            CREATE tri2btn AS QOVALBTN
                Top = 130
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw triangle from center"
                ShowHint = 1
                OnClick = tri2btnclick
                BMPHandle = icontri
                Cursor = 2
            END CREATE
            
            CREATE conicbtn AS QOVALBTN
                Top = 160
                Left = 5
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw conic from five points"
                ShowHint = 1
                OnClick = conicbtnclick
                BMPHandle = iconconic
                Cursor = 2
            END CREATE
            
            CREATE gridbtn AS QOVALBTN
                Top = 160
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Gann grid"
                ShowHint = 1
                OnClick = gridbtnclick
                BMPHandle = icongrid
                Cursor = 2
            END CREATE
            
            CREATE speedresbtn AS QOVALBTN
                Top = 190
                Left = 5
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Speed resistance lines"
                ShowHint = 1
                OnClick = speedresbtnclick
                BMPHandle = iconspeedres
                Cursor = 2
            END CREATE

	    CREATE seedoflifebtn AS QOVALBTN
                Top = 220
                Left = 5
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Seed of Life"
                ShowHint = 1
                OnClick = seedoflifebtnclick
                BMPHandle = iconseedoflife
                Cursor = 2
            END CREATE

	    CREATE gannsquarebtn AS QOVALBTN
                Top = 220
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Gann square"
                ShowHint = 1
                OnClick = gannsquarebtnclick
                BMPHandle = icongannsquare
                Cursor = 2
            END CREATE

	    CREATE fibospiralbtn AS QOVALBTN
                Top = 250
                Left = 5
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Fibonacci spiral"
                ShowHint = 1
                OnClick = fibospiralbtnclick
                BMPHandle = iconfibospiral
                Cursor = 2
            END CREATE

	    CREATE archimedspiralbtn AS QOVALBTN
                Top = 250
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Archimed spiral"
                ShowHint = 1
                OnClick = archimedspiralbtnclick
                BMPHandle = iconarchimedspiral
                Cursor = 2
            END CREATE
            
            CREATE ellipse3btn AS QOVALBTN
                Left = 5
                Top = 280
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw rotated ellipse"
                ShowHint = 1
                OnClick = ellipse3btnclick
                BMPHandle = iconellipse3
                Cursor = 2
            END CREATE
            
            CREATE circlegiven3pointsbtn AS QOVALBTN
                Left = 35
                Top = 280
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw circle given 3 points"
                ShowHint = 1
                OnClick = circlegiven3pointsbtnclick
                BMPHandle = iconcirclegiven3points
                Cursor = 2
            END CREATE
            
            CREATE primebtn AS QOVALBTN
                Left = 5
                Top = 310
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw prime spiral"
                ShowHint = 1
                OnClick = primebtnclick
                BMPHandle = iconprime
                Cursor = 2
            END CREATE
            
            CREATE fibotimezonesbtn AS QOVALBTN
                Left = 35
                Top = 310
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Fibo Time Zones"
                ShowHint = 1
                OnClick = fibotimezonesbtnclick
                BMPHandle = iconfibotimezones
                Cursor = 2
            END CREATE
            
            CREATE fibopricezonesbtn AS QOVALBTN
                Left = 5
                Top = 340
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Fibo Price Zones"
                ShowHint = 1
                OnClick = fibopricezonesbtnclick
                BMPHandle = iconfibopricezones
                Cursor = 2
            END CREATE
            
            CREATE fibocirclesbtn AS QOVALBTN
                Left = 35
                Top = 340
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Fibo Circles"
                ShowHint = 1
                OnClick = fibocirclesbtnclick
                BMPHandle = iconfibocircles
                Cursor = 2
            END CREATE
            
            CREATE vectortextbtn AS QOVALBTN
                Top = 370
                Left = 5
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw vector text"
                ShowHint = 1
                OnClick = vectortextbtnclick
                Caption = "VT"
                Cursor = 2
            END CREATE
            
            CREATE timerulerbtn AS QOVALBTN
                Top = 370
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Time Ruler"
                ShowHint = 1
                OnClick = timerulerbtnclick
                BMPHandle = icontimeruler
                Cursor = 2
            END CREATE
            
            CREATE pricerulerbtn AS QOVALBTN
                Top = 400
                Left = 5
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Price Ruler"
                ShowHint = 1
                OnClick = pricerulerbtnclick
                BMPHandle = iconpriceruler
                Cursor = 2
            END CREATE
            
            CREATE speedresarcsbtn AS QOVALBTN
                Top = 400
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Speed Resistance arcs"
                ShowHint = 1
                OnClick = speedresarcsbtnclick
                BMPHandle = iconspeedresarcs
                Cursor = 2
            END CREATE
            
            CREATE schiffpitchforkbtn AS QOVALBTN
                Left = 5
                Top = 430
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Schiff pitchfork"
                ShowHint = 1
                OnClick = schiffpitchforkbtnclick
                BMPHandle = iconpitchfork
                Cursor = 2
            END CREATE
            
            CREATE gannfanbtn AS QOVALBTN
                Left = 35
                Top = 430
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Gann fan"
                ShowHint = 1
                OnClick = gannfanbtnclick
                BMPHandle = iconfibofan
                Cursor = 2
            END CREATE
            
            CREATE fiboarcsbtn AS QOVALBTN
                Top = 190
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Fibonacci arcs"
                ShowHint = 1
                OnClick = fiboarcsbtnclick
                BMPHandle = iconfiboarcs
                Cursor = 2
            END CREATE

            CREATE vlinebtn AS QOVALBTN
                Top = 70
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw vertical line"
                ShowHint = 1
                OnClick = vlinebtnclick
                BMPHandle = iconvline
                Cursor = 2
            END CREATE

            CREATE sqrbtn AS QOVALBTN
                Left = 5
                Top = 100
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw square"
                ShowHint = 1
                OnClick = sqrbtnclick
                BMPHandle = iconsqr
                Cursor = 2
            END CREATE

            CREATE tribtn AS QOVALBTN
                Top = 100
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw triangle"
                ShowHint = 1
                OnClick = tribtnclick
                BMPHandle = icontri
                Cursor = 2
            END CREATE

            CREATE circlebtn AS QOVALBTN
                Left = 5
                Top = 130
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw circle"
                ShowHint = 1
                OnClick = circlebtnclick
                BMPHandle = iconcircle
                Cursor = 2
            END CREATE

            CREATE crossbtn AS QOVALBTN
                Top = 130
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw cross"
                ShowHint = 1
                OnClick = crossbtnclick
                BMPHandle = iconcross
                Cursor = 2
            END CREATE

            CREATE invcirclebtn AS QOVALBTN
                Left = 5
                Top = 160
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw inverse circle"
                ShowHint = 1
                OnClick = invcirclebtnclick
                BMPHandle = iconinvcircle
                Cursor = 2
            END CREATE

            CREATE textbtn AS QOVALBTN
                Top = 160
                Left = 35
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Write text"
                ShowHint = 1
                OnClick = textbtnclick
                Caption = "T"
                Cursor = 2
            END CREATE

            CREATE cursorbtn AS QOVALBTN
                Left = 5
                Top = 190
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Selection"
                ShowHint = 1
                OnClick = cursorbtnclick
                BMPHandle = iconcursor
                Cursor = 2
            END CREATE

            CREATE pencolorbtn AS QOVALBTN
                Left = 35
                Top = 190
                Width = 30
                Height = 30
                Color = pencolor
                Hint = "Pen color"
                ShowHint = 1
                OnClick = choosepencolor
                Cursor = 2
            END CREATE

            CREATE textfontbtn AS QOVALBTN
                Left = 5
                Top = 220
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Text font"
                ShowHint = 1
                OnClick = choosetextfont
                Caption = "F"
                Cursor = 2
            END CREATE

            CREATE aimingbtn AS QOVALBTN
                Left = 35
                Top = 220
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Crosshair"
                ShowHint = 1
                OnClick = aimingbtnclick
                BMPHandle = iconaiming
                Cursor = 2
            END CREATE

            CREATE clearbtn AS QOVALBTN
                Left = 5
                Top = 250
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Clear graph"
                ShowHint = 1
                OnClick = clearbtnclick
                Caption = "Clr"
                Cursor = 2
            END CREATE

            CREATE handdbtn AS QOVALBTN
                Left = 35
                Top = 250
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Hand draw"
                ShowHint = 1
                OnClick = handdbtnclick
                BMPHandle = iconhandd
                Cursor = 2
            END CREATE

            CREATE sinbtn AS QOVALBTN
                Left = 5
                Top = 280
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw sinusoid"
                ShowHint = 1
                OnClick = sinbtnclick
                BMPHandle = iconsin
                Cursor = 2
            END CREATE

            CREATE logbtn AS QOVALBTN
                Left = 35
                Top = 280
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw logarithmic curve"
                ShowHint = 1
                OnClick = logbtnclick
                BMPHandle = iconlog
                Cursor = 2
            END CREATE

            CREATE expbtn AS QOVALBTN
                Left = 5
                Top = 310
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw exponential curve"
                ShowHint = 1
                OnClick = expbtnclick
                BMPHandle = iconexp
                Cursor = 2
            END CREATE

            CREATE priceextbtn AS QOVALBTN
                Left = 35
                Top = 310
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw price extensions"
                ShowHint = 1
                OnClick = priceextbtnclick
                BMPHandle = iconpriceext
                Cursor = 2
            END CREATE


            CREATE reversebtn AS QOVALBTN
                Left = 5
                Top = 400
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Reverse Log/Exp curve"
                ShowHint = 1
                OnClick = reversebtnclick
                BMPHandle = iconreverse
                Cursor = 2
            END CREATE

            CREATE flipbtn AS QOVALBTN
                Left = 35
                Top = 400
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Flip Log/Exp curve"
                ShowHint = 1
                OnClick = flipbtnclick
                BMPHandle = iconflip
                Cursor = 2
            END CREATE

            CREATE ellipsebtn AS QOVALBTN
                Left = 5
                Top = 430
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw ellipse"
                ShowHint = 1
                OnClick = ellipsebtnclick
                BMPHandle = iconellipse
                Cursor = 2
            END CREATE

            CREATE pitchforkbtn AS QOVALBTN
                Left = 35
                Top = 430
                Width = 30
                Height = 30
                Color = &Hcccccc
                Hint = "Draw pitchfork"
                ShowHint = 1
                OnClick = pitchforkbtnclick
                BMPHandle = iconpitchfork
                Cursor = 2
            END CREATE

            CREATE sq9fbtn AS QOVALBTN
                Left = 5
                Top = 460
                Width = 60
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Gann Square of 9 Floating"
                ShowHint = 1
                OnClick = sq9fbtnclick
                'bmphandle=iconpitchfork
                Caption = "SQ9F"
                Cursor = 2
            END CREATE

            CREATE tsq9fbtn AS QOVALBTN
                Left = 5
                Top = 460
                Width = 60
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Time Gann Square of 9 Floating"
                ShowHint = 1
                OnClick = timesq9fbtnclick
                'bmphandle=iconpitchfork
                Caption = "TSQ9F"
                Cursor = 2
                Visible = 0
            END CREATE

            CREATE sq144fbtn AS QOVALBTN
                Left = 5
                Top = 490
                Width = 60
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Gann Square of 144"
                ShowHint = 1
                OnClick = sq144fbtnclick
                'bmphandle=iconpitchfork
                Caption = "SQ144F"
                Cursor = 2
            END CREATE

            CREATE tsq144fbtn AS QOVALBTN
                Left = 5
                Top = 490
                Width = 60
                Height = 30
                Color = &Hcccccc
                Hint = "Draw Time Gann Square of 144"
                ShowHint = 1
                OnClick = timesq144fbtnclick
                'bmphandle=iconpitchfork
                Caption = "TSQ144F"
                Cursor = 2
                Visible = 0
            END CREATE

            CREATE tarrowleft AS QOVALBTN
                Left = 5 + 7
                Top = 520
                Width = 20
                Height = 20
                BMPHandle = leftarrow
                Hint = "Previous tools"
                ShowHint = 1
                Cursor = 2
                Color = &Hcccccc
                OnClick = previoustoolsclick
            END CREATE

            CREATE tarrowright AS QOVALBTN
                Left = 35 + 7
                Top = 520
                Width = 20
                Height = 20
                BMPHandle = rightarrow
                Hint = "Next tools"
                ShowHint = 1
                Cursor = 2
                Color = &Hcccccc
                OnClick = nexttoolsclick
            END CREATE

            CREATE settingsbtn AS QBUTTON
                Left = 5
                Top = 520 + 20
                Width = 60
                Height = 20
                Color = &Hcccccc
                Hint = "Settings"
                ShowHint = 1
                OnClick = settingsbtnclick
                'bmphandle=iconsettings
                Caption = "Settings"
                Cursor = 2
            END CREATE

            CREATE Indicatorsbtn AS QBUTTON
                Left = 5
                Top = 520 + 50
                Width = 60
                Height = 20
                Hint = "Indicators"
                ShowHint = 1
                Caption = "Indicators"
                OnClick = indiform
                Cursor = 2
            END CREATE

            CREATE Mixerbtn AS QBUTTON
                Left = 5
                Top = 520 + 80
                Width = 60
                Height = 20
                Hint = "Mixer"
                ShowHint = 1
                Caption = "Mixer"
                OnClick = mixerform
                Cursor = 2
            END CREATE

            CREATE trackb AS QTRACKBAR
                Left = 5
                Top = 340
                Width = 60
                Height = 30
                OnChange = trackbchange
                Min = 10
                Max = 100
                Cursor = 2
                Hint = "Log/Exp curve adjustment"
                ShowHint = 1
            END CREATE

            CREATE trackb2 AS QTRACKBAR
                Left = 5
                Top = 370
                Width = 60
                Height = 30
                OnChange = trackbchange
                Min = 10
                Max = 100
                Cursor = 2
                Hint = "Log/Exp curve adjustment"
                ShowHint = 1
                
            END CREATE                        


        END CREATE

    END CREATE

    CREATE ToolbarBox AS QDOCKFORM
        'visible=0 ' not properly implemented yet
        UndockedForm.Parent = frmMain
        'Align = 0
        ''Client.BevelOuter = 0
        'Height = 31
        'width=100
        'DockStyle = 6
        'UnDockStyle = 6
        'UndockedWidth = 600
        'UndockedHeight = 55
        'AltPanel.Parent = frmmain
        'Style = 1
        'Caption = "Toolbar"
        'CanClose = 1
        'Sizeable=1
        Align = 1

        Height = 55
        'width=100
        DockStyle = 6
        UnDockStyle = 6
        UndockedWidth = 1024
        UndockedHeight = 80
        AltPanel.Parent = frmMain
        Style = 1
        Caption = "Toolbar"
        canclose = 1


        CREATE ComponentsPanel AS QPANEL
            Parent = ToolbarBox.Client
            Align = 5
            CREATE openbtn AS QCOOLBTN
                Height = 25
                Width = 25
                Left = 25 * 0
                Top = 0
                BMP = homepath + "\images\open.bmp"
                Hint = "Import CSV"
                ShowHint = 1
                OnClick = importcsv
            END CREATE
            CREATE hotkeyedit AS qedit
                Height = 25
                Width = 50
                Left = 25 * 0
                Top = 25                
                text="Snif key"
                onchange = hotkeysub
            END CREATE
            CREATE savebtn AS QCOOLBTN
                Height = 25
                Width = 25
                Left = 25 * 1
                Top = 0
                BMP = homepath + "\images\save.bmp"
                Hint = "Export CSV"
                ShowHint = 1
                OnClick = exportfile
            END CREATE

            CREATE collbtn AS QCOOLBTN
                Height = 25
                Width = 25
                Left = 25 * 2
                Top = 0
                BMP = homepath + "\images\collection.bmp"
                Hint = "Export collection"
                ShowHint = 1
                OnClick = exportcollection
            END CREATE
            
            CREATE dispmaxbarsbtn AS QCOOLBTN
                Height = 25
                Width = 25
                Left = 25 * 3
                Top = 0
                'BMP = homepath + "\images\collection.bmp"
                caption="Max"
                Hint = "Display max bars"
                ShowHint = 1
                OnClick = dispmaxbarssub
            END CREATE

            CREATE barsdisplayedlab1 AS QLABEL
                'Parent=frmMain
                Left = 80 + 30
                Caption = "Display"
            END CREATE

            CREATE barsdisplayed AS QEDIT
                'Parent=frmMain
                Left = 120 + 30
                Width = 40
                Text = "300"
                OnChange = barsdisplayedchange
            END CREATE

            CREATE dispbarsp AS QBUTTON
                'Parent=frmMain
                Left = 160 + 30
                Top = 2
                Height = 10
                Width = 15
                Caption = "+"
                OnMouseDown = dispbarspd
                OnMouseUp = dispbarspu
            END CREATE

            CREATE dispbarsm AS QBUTTON
                'Parent=frmMain
                Left = 160 + 30
                Top = 12
                Height = 10
                Width = 15
                Caption = "-"
                OnMouseDown = dispbarsmd
                OnMouseUp = dispbarsmu
            END CREATE

            CREATE barsdisplayedlab2 AS QLABEL
                'Parent=frmMain
                Left = 185 + 30
                Caption = "bars"
            END CREATE

            CREATE dispbarsok AS QBUTTON
                'Parent=frmMain
                Left = 210 + 30
                Height = 20
                Width = 30
                Caption = "OK"
                OnClick = dispbarsok_click
            END CREATE

            CREATE dispbarsswitch AS QCOOLBTN
                'Parent=frmMain
                Left = dispbarsok.Left + dispbarsok.Width + 5
                Height = 20
                Width = 53
                Caption = "10<->100"
                OnClick = dispbarsswitchsub
            END CREATE

            CREATE dispchartnblab1 AS QLABEL
                'Parent=frmMain
                Left = 300 + 30
                Caption = "Display chart:"
            END CREATE

            CREATE dispchartnb AS QCOMBOBOX
                'Parent=frmMain
                Left = 370 + 20
                Height = 20
                Width = 90
                OnChange = dispchartnbchanged
            END CREATE

            CREATE tfmultlab AS QLABEL
                'Parent=frmMain
                Left = 450 + 30
                Caption = "Timeframe multiplier:"
            END CREATE

            CREATE tfmult AS QEDIT
                'Parent=frmMain
                Left = 550 + 30
                Width = 30
                Text = "1"
                OnChange = tfmultchange
            END CREATE

            CREATE tfmultp AS QBUTTON
                'Parent=frmMain
                Left = 580 + 30
                Top = 2
                Height = 10
                Width = 15
                Caption = "+"
                OnClick = tfmultp_click
            END CREATE

            CREATE tfmultm AS QBUTTON
                'Parent=frmMain
                Left = 580 + 30
                Top = 12
                Height = 10
                Width = 15
                Caption = "-"
                OnClick = tfmultm_click
            END CREATE

            CREATE tfmultcombo AS QCOMBOBOX
                'Parent=frmMain
                Left = 600 + 30
                Width = 40
                AddItems "1"
                AddItems "6"
                AddItems "24"
                AddItems "42"
                AddItems "48"
                AddItems "168"
                AddItems "336"
                ItemIndex = 0
                OnChange = tfmultcombosub
            END CREATE

            CREATE tfmultok AS QBUTTON
                'Parent=frmMain
                Left = 650 + 30
                Height = 20
                Width = 30
                Caption = "OK"
                OnClick = tfmultok_click
            END CREATE

            CREATE charttypelab AS QLABEL
                'Parent=frmMain
                Left = 700 + 30
                Caption = "Chart type:"
            END CREATE

            CREATE charttypecombo AS QCOMBOBOX
                'Parent=frmMain
                Left = 750 + 30
                AddItems "Candlesticks"
                AddItems "Line"
                AddItems "Point"
                AddItems "Bar"
                AddItems "Ribbon"
                AddItems "Pretzel"
                AddItems "Stepped"
                AddItems "Polar"
                Additems "Astro wheel"
                ItemIndex = 0
                OnChange = charttypecombochange
            END CREATE

            CREATE stopbtn AS QBUTTON
                Left = 780 + 30 + 30 + 30 + 30 + 30 + 20
                Caption = "Stop"
                Height = 20
                Width = 40
                OnClick = stopclicked
            END CREATE

            CREATE cntbarslab AS QLABEL
                'Parent=frmMain
                Left = 80 + 30
                Top = 30 - 3
                Caption = "Counted bars:"
            END CREATE

            CREATE cntbarsedit AS QEDIT
                'Parent=frmMain
                Left = cntbarslab.Left + cntbarslab.Width + 10
                Top = 30 - 3
                Width = 50
                Text = "300"
                OnChange = cntbarseditchange
            END CREATE

            CREATE spaceforwardslab AS QLABEL
                'parent=frmmain
                Left = cntbarsedit.Left + cntbarsedit.Width + 10
                Top = 30 - 3
                Caption = "Space forwards:"
            END CREATE

            CREATE spaceforwardsedit AS QEDIT
                'Parent=frmMain
                Left = spaceforwardslab.Left + spaceforwardslab.Width + 10
                Top = 30 - 3
                Width = 50
                Text = "0"
            END CREATE

            CREATE spaceforwardsbtn AS QBUTTON
                'Parent=frmMain
                Left = spaceforwardsedit.Left + spaceforwardsedit.Width + 10
                Top = 25 - 3
                Width = 30
                Caption = "OK"
                OnClick = setspaceforwards
            END CREATE

            CREATE scrollmodebtn AS QOVALBTN
                'Parent=frmMain
                Left = spaceforwardsbtn.Left + spaceforwardsbtn.Width + 10
                Top = 20
                Width = 70
                Height = 30
                Color = &Hcccccc
                OnClick = scrollmodebtnclick
                Caption = "Scroll mode"
            END CREATE

            CREATE useindischeckbox AS QCHECKBOX
                'Parent=frmMain
                Left = scrollmodebtn.Left + scrollmodebtn.Width + 10
                Top = 30 - 3
                'width=50
                'height=50
                'color=&Hcccccc
                Checked = 0
                OnClick = useindischeckboxsub
                Caption = "Use indicators"
            END CREATE

            CREATE axistypelab AS QLABEL
                'Parent=frmMain
                Left = useindischeckbox.Left + useindischeckbox.Width + 10
                Top = 30 - 3
                'width=50
                'height=50
                'color=&Hcccccc
                Caption = "Axis type:"
            END CREATE

            CREATE axistypecombo AS QCOMBOBOX
                'Parent=frmMain
                Left = axistypelab.Left + axistypelab.Width + 10
                Top = 30 - 3
                'width=50
                'height=50
                'color=&Hcccccc
                AddItems "Normal"
                AddItems "Logarithmic"
                AddItems "Fixed price axis scale"
                ItemIndex = 0
                OnChange = axistypecombosub
            END CREATE

            CREATE priceratiolab2 AS QLABEL
                Top = 30 - 3
                Left = axistypecombo.Left + axistypecombo.Width + 10
                Caption = "Price ratio:"
            END CREATE

            CREATE priceratioedit2 AS QEDIT
                Top = 30 - 3
                Left = priceratiolab2.Left + priceratiolab2.Width + 10
                Width = 35
                Text = "1"
            END CREATE

            CREATE priceratiobutton2 AS QBUTTON
                Top = 30 - 6
                Left = priceratioedit2.Left + priceratioedit2.Width + 10
                Width = 35
                Caption = "OK"
                OnClick = changepriceratiosub2
            END CREATE

        END CREATE
    END CREATE

    CREATE drwBox AS QBUTTON
        Caption = "Candlesticks"
        Top = 325
        OnClick = btnOnClick
        Visible = 0
    END CREATE

    CREATE Graph AS QChart  'Create a copy of the new object
        Visible = 0
        Align = 6  'alRight
        Width = frmMain.ClientWidth - leftwidth - 25
        Left = leftwidth + 16
        Height = frmMain.ClientHeight - 180 + leftwidth - 10
        Top = 50
        OnPaint = Graph.paintchart  'This line REQUIRED to process Repaints
        OnClick = graphclicked
        OnMouseDown = graphmousedown
        OnMouseMove = graphcursorpos
    END CREATE


    CREATE canvas AS qchart2
        Visible = 0
        Align = 6
        Width = frmMain.ClientWidth - leftwidth - 144 - spaceforwards
        Height = 180
        Top = Graph.Top + Graph.Height
        Left = leftwidth + 97 - 4
        OnPaint = canvas.paint
        OnClick = sepindiclicked
        OnMouseDown = sepindimousedown
        OnMouseMove = sepindicursorpos
    END CREATE

    'create sepindizoommore as qbutton
    'visible=0
    'align=6
    'Top =graph.top+graph.height+15+10
    'Left=leftwidth+97+canvas.width+15
    'width=25
    'bmpHandle = zoommore
    'onclick=sepindizoommoreclick
    'end create

    'create sepindizoomless as qbutton
    'visible=0
    'align=6
    'Top =graph.top+graph.height+65+10
    'Left=leftwidth+97+canvas.width+15
    'width=25
    'bmpHandle = zoomless
    'onclick=sepindizoomlessclick
    'end create

    'create sepindiheightlab as qlabel
    'visible=0
    'align=6
    'Top =graph.top+graph.height+20+10
    'Left=leftwidth+97+canvas.width+45
    'width=100
    'caption="Canvas height"
    'end create

    'create sepindiheight as qedit
    'visible=0
    'align=6
    'Top =graph.top+graph.height+40+10
    'Left=leftwidth+97+canvas.width+45
    'width=50
    'text="180"
    'end create

    'create sepindiheightok as qbutton
    'visible=0
    'align=6
    'Top =graph.top+graph.height+40+10
    'Left=leftwidth+97+canvas.width+95
    'width=25
    'caption="OK"
    'onclick=showcanvasclick
    'end create

    CREATE sepindivalminlab AS QLABEL
        Visible = 0
        Align = 6
        Top = Graph.Top + Graph.Height + 65 + 10
        Left = leftwidth + 10
        Caption = "Min value"
    END CREATE

    CREATE sepindivalminedit AS QEDIT
        Visible = 0
        Align = 6
        Top = Graph.Top + Graph.Height + 65 + 20 + 10
        Left = leftwidth + 10
        Width = 50
        Text = "0"
    END CREATE

    CREATE sepindivalmaxlab AS QLABEL
        Visible = 0
        Align = 6
        Top = Graph.Top + Graph.Height + 65 - 50 + 10
        Left = leftwidth + 10
        Caption = "Max value"
    END CREATE

    CREATE sepindivalmaxedit AS QEDIT
        Visible = 0
        Align = 6
        Top = Graph.Top + Graph.Height + 65 - 50 + 20 + 10
        Left = leftwidth + 10
        Width = 50
        Text = "0"
    END CREATE

    CREATE sepindivalok AS QBUTTON
        Visible = 0
        Align = 6
        Top = Graph.Top + Graph.Height + 65 - 50 + 20 + 25 + 10
        Left = leftwidth + 10 + 55
        Width = 25
        OnClick = dispbarsok_click
        Caption = "OK"
    END CREATE


    CREATE Scrollchart AS QSCROLLBAR
        'enabled=false
        Visible = 0
        Parent = frmMain
        Align = 6
        Left = Graph.Left
        Top = Graph.Height + 70 - 20
        Width = Graph.Width
        LargeChange = 20
        Height = 20
        Min = 0 :  Max = 255
        ShowHint = 0
        OnChange = Scrolling
    END CREATE

    CREATE split AS QPANEL
        Color = gray
        Left = Graph.Left
        Top = Graph.Height + 70
        Width = Graph.Width
        Height = 2
        Cursor = 4
        Hint = "Resize canvas"
        ShowHint = 1
        OnMouseDown = resizesplitmd
        OnMouseUp = resizesplitmu
        Visible = 0
    END CREATE

    CREATE splith AS QPANEL
        Color = gray
        Left = Graph.Left
        Top = Graph.Top
        Width = 2
        Height = Graph.Height
        Cursor = 5
        Hint = "Resize canvas"
        ShowHint = 1
        OnMouseDown = resizesplithmd
        OnMouseUp = resizesplithmu
        Visible = 0
    END CREATE


    CREATE closedispchart AS QBUTTON
        Visible = 0
        Parent = frmMain
        Align = 6
        Top = Graph.Top + 2
        Left = Graph.Width + 98 + leftwidth - 100
        Height = 16
        Width = 16
        Hint = "Close chart"
        ShowHint = 1
        OnClick = closedispchart_click
        BMPHandle = iconclose
        Cursor = 2
    END CREATE

    CREATE closedispcanvas AS QBUTTON
        Visible = 0
        Parent = frmMain
        Align = 6
        Top = canvas.Top
        Left = canvas.Width + 181 - 4 + leftwidth - 100
        Height = 16
        Width = 16
        Hint = "Close canvas"
        ShowHint = 1
        OnClick = closedispcanvas_click
        BMPHandle = iconclose
        Cursor = 2
    END CREATE
    
    CREATE pricescaleplusbtn AS qbutton
                visible=0
                Top = 10
                Left = Graph.Left - 30
                Top = Graph.Top + 15
                Height = 20
                width=20
                Hint = "Expand price scale"
                ShowHint = 1
                OnClick = pricescaleplusbtnclick
                BMPHandle = pricescaleplus
                Cursor = 2
    END CREATE
    
   CREATE pricescaleminusbtn AS qbutton
                visible=0
                Top = 10
                Left = Graph.Left - 30
                Top = Graph.Top + 15 + 20
                Height = 20
                width=20
                Hint = "Compress price scale"
                ShowHint = 1
                OnClick = pricescaleminusbtnclick
                BMPHandle = pricescaleminus
                Cursor = 2
    END CREATE
    
    CREATE addbarsbtn AS qbutton
                visible=0
                Left = Graph.Left - 30
                Top = Graph.Top + 15 + 20 + 20
                Height = 20
                width=20
                Hint = "Add bars"
                ShowHint = 1
                OnClick = addbars
                BMPHandle = iconaddbars
                Cursor = 2
    END CREATE
    
    CREATE shiftchartbtn AS qcoolbtn
                visible=0
                Left = Graph.Left - 30
                Top = Graph.Top + 15 + 20 + 20 + 20
                Height = 20
                width=20
                Hint = "Shift the end of the chart from the right side"
                ShowHint = 1
                OnClick = shiftchart
                BMPHandle = iconshiftchart
                Cursor = 2
                flat=1
    END CREATE


    CREATE MainMenu AS QMAINMENU

        CREATE FileMenu AS QMENUITEM
            Caption = "&File"
            CREATE settingsmenu AS QMENUITEM
                Caption = "&Settings..."
                OnClick = filesettings
            END CREATE
        END CREATE

        CREATE EditMenu AS QMENUITEM
            Caption = "&Edit"
        END CREATE

        CREATE WindowsMenu AS QMENUITEM
            Caption = "&Windows"
        END CREATE

        CREATE ToolsMenu AS QMENUITEM
            Caption = "&Tools"
            'CREATE automenu AS QMENUITEM
             '   Caption = "&Automation"
             '   CREATE autosubmenu AS QMENUITEM
             '       Caption = "Follow mode"
             '       OnClick = followmode
             '   END CREATE
            'END CREATE
            CREATE generalsettingsmenu AS QMENUITEM
                Caption = "&Settings"
                OnClick = generalsettings
            END CREATE
        END CREATE

        CREATE AboutMenu AS QMENUITEM
            Caption = "&?"
        END CREATE

    END CREATE


    OnResize = setup

END CREATE  'frmMain

'IF RegisterHotKey(frmmain.Handle, 0, , 32) = 0 THEN
'   ShowMessage("Sorry, hot key SPACEBAR already taken!")
'END IF

SUB dispbarsswitchsub
    IF dispbarsswitch.Flat = 0 THEN
        dispbarsswitch.Flat = 1
        barsdisplayed.Text = "10"
        numbars = VAL(barsdisplayed.Text)
        defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))
        chartstart = Scrollchart.Position - numbars
        justrefreshchart
        say "Displayed bars set to: "+barsdisplayed.Text
        EXIT SUB
    END IF
    IF dispbarsswitch.Flat = 1 THEN
        dispbarsswitch.Flat = 0
        barsdisplayed.Text = "100"
        numbars = VAL(barsdisplayed.Text)
        numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))
        chartstart = Scrollchart.Position - numbars
        justrefreshchart
        say "Displayed bars set to: "+barsdisplayed.Text
        EXIT SUB
    END IF
END SUB

SUB tfmultcombosub
    SELECT CASE tfmultcombo.ItemIndex
        CASE 0 :
            tfmult.Text = "1"
        CASE 1 :
            tfmult.Text = "6"
        CASE 2 :
            tfmult.Text = "24"
        CASE 3 :
            tfmult.Text = "42"
        CASE 4 :
            tfmult.Text = "48"
        CASE 5 :
            tfmult.Text = "168"
        CASE 6 :
            tfmult.Text = "336"
    END SELECT
    tfmultok_click
END SUB

SUB useindischeckboxsub
    IF useindischeckbox.Checked = 0 THEN
        useindi.Checked = 0
        EXIT SUB
    END IF
    IF useindischeckbox.Checked = 1 THEN
        useindi.Checked = 1
        EXIT SUB
    END IF
END SUB

CREATE calendarform AS QFORM
    Caption = "Find bar"
    Visible = 0
    CREATE calendarobj AS qcalendar
        loadcal(DATE$)
    END CREATE
    CREATE timelab AS QLABEL
        Top = calendarobj.Top + calendarobj.Height
        Caption = "Time: "
    END CREATE
    CREATE timeedit AS QEDIT
        Top = timelab.Top
        Left = timelab.Width
        Width = 50
        Text = "00:00"
    END CREATE
    CREATE findbarbtn AS QBUTTON
        Top = timelab.Top
        Left = timeedit.Left + timeedit.Width
        Caption = "Find bar"
        OnClick = findbarsub
    END CREATE
END CREATE



SUB findbarsub
    DIM caldatey AS STRING
    DIM caldatem AS STRING
    DIM caldated AS STRING
    DIM caldate AS STRING
    DIM caldate2 AS STRING
    DIM i AS INTEGER

    caldatey = STR$(calendarobj.y)
    caldatem = STR$(calendarobj.m)
    caldated = STR$(calendarobj.d)

    i = 0
    WHILE i < 4 - LEN(STR$(calendarobj.y))
        caldatey = "0" + caldatey
        i ++
    WEND

    i = 0
    WHILE i < 2 - LEN(STR$(calendarobj.m))
        caldatem = "0" + caldatem
        i ++
    WEND

    i = 0
    WHILE i < 2 - LEN(STR$(calendarobj.d))
        caldated = "0" + caldated
        i ++
    WEND

    caldate = caldatey + "." + caldatem + "." + caldated
    caldate2 = caldatey + "-" + caldatem + "-" + caldated

    FOR i = 1 TO chartbars(displayedfile)
        IF (like(Grid.Cell(rowgridoffset + 1 , i) , caldate) OR like(Grid.Cell(rowgridoffset + 1 , i) , caldate2)) AND _
         like(Grid.Cell(rowgridoffset + 2 , i) , timeedit.Text) THEN
            Scrollchart.Position = i + numbars - 1
            clickedbarnb = i - chartstart
            graphbarnboncurstatic = clickedbarnb + chartstart
            justrefreshchart
            EXIT FOR
        END IF
    NEXT i
END SUB

CREATE frmlogreverse AS QFORM
    Visible = 0
    Height = 600
    Width = 800
    OnResize = frmlogreverseresized
    CREATE logreverseedit AS QRICHEDIT
        Height = frmlogreverse.Height - 30
        Width = frmlogreverse.Width - 10
        ScrollBars = ssBoth
    END CREATE
END CREATE

DIM readmeFont AS QFONT
readmeFont.Name = "Arial"
readmeFont.size=13


CREATE frmreadme AS QFORM
    caption=homepath+"\docs\readme.txt"
    Visible = 0
    Height = 600
    Width = 800
    OnResize = frmreadmeresized
    CREATE readmeedit AS QRICHEDIT
        Height = frmreadme.Height - 40
        Width = frmreadme.Width - 30
        ScrollBars = ssBoth
        font=readmefont
    END CREATE
END CREATE

CREATE frmwhatsnew AS QFORM
    caption="What's new"
    Visible = 0
    Height = 600
    Width = 800
    OnResize = frmwhatsnewresized
    CREATE whatsnewedit AS QRICHEDIT
        Height = frmwhatsnew.Height - 40
        Width = frmwhatsnew.Width - 30
        ScrollBars = ssBoth
        font=readmefont
    END CREATE
END CREATE

DIM file AS QFILESTREAM
file.open(homepath+"\docs\readme.txt" , 0)

DO

    readmeedit.text = readmeedit.text+file.ReadLine+chr$(10)

LOOP UNTIL file.eof
file.close

SUB frmlogreverseresized
    logreverseedit.Height = frmlogreverse.Height - 30
    logreverseedit.Width = frmlogreverse.Width - 10
END SUB

SUB frmreadmeresized
    readmeedit.Height = frmreadme.Height - 40
    readmeedit.Width = frmreadme.Width - 30
END SUB

SUB frmwhatsnewresized
    whatsnewedit.Height = frmreadme.Height - 40
    whatsnewedit.Width = frmreadme.Width - 30
END SUB

SUB tfmultchange
    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Timeframe multiplier on " + importedfile(displayedfile) + " changed to " + tfmult.Text + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Timeframe multiplier on " + importedfile(displayedfile) + " changed to " + tfmult.Text)
    DIM fileqtp AS QFILESTREAM
    fileqtp.open(homepath + "\reversetmp.log" , 2)
    fileqtp.Position = fileqtp.Size
    fileqtp.WriteLine(DATE$ + " " + TIME$ + " " + "Timeframe multiplier on " + importedfile(displayedfile) + " changed to " + tfmult.Text)
    fileqtp.close
    say "Timeframe multiplier changed to: "+tfmult.text
END SUB

DIM PopupMenu AS QPOPUPMENU
DIM popupItem1 AS QMENUITEM
popupItem1.Caption = "Move"
popupItem1.OnClick = moveobjectclick
DIM popupItem2 AS QMENUITEM
popupItem2.Caption = "Delete"
popupItem2.OnClick = deleteobjectcursor
DIM popupItem3 AS QMENUITEM
popupItem3.Caption = "Duplicate"
popupItem3.OnClick = moveobjectclick
DIM popupItem4 AS QMENUITEM
popupItem4.Caption = "Rotate"
popupItem4.OnClick = moveobjectclick

PopupMenu.AddItems(popupItem1 , popupItem2 , popupItem3, popupItem4)
PopupMenu.windowhandle = frmMain.Handle

DIM popupmenubar AS QPOPUPMENU
DIM popupbaritem1 AS QMENUITEM
popupbaritem1.Caption = "Reverse till end"
popupbaritem1.OnClick = reversetillend
DIM popupbaritem2 AS QMENUITEM
popupbaritem2.Caption = "Delete after"
popupbaritem2.OnClick = deleteafter
popupmenubar.AddItems(popupbaritem1,popupbaritem2)
PopupMenu.windowhandle = frmMain.Handle

SUB deleteobjectcursor

    IF objectcursor.objtype = 1 THEN
        trendlinesdb.deleterow(objectcursor.offset)
        trendlinesoffset --
        IF trendlinesoffset < 0 THEN
            trendlinesoffset = 0
        END IF
        justrefreshchart
    END IF
    
    IF objectcursor.objtype = 2 THEN
        sqr2db.deleterow(objectcursor.offset)
        sqr2offset --
        IF sqr2offset < 0 THEN
            sqr2offset = 0
        END IF
        justrefreshchart
    END IF
    
    IF objectcursor.objtype = 3 THEN
        tri2db.deleterow(objectcursor.offset)
        tri2offset --
        IF tri2offset < 0 THEN
            tri2offset = 0
        END IF
        justrefreshchart
    END IF

END SUB


SUB nexttoolsclick
    trendlinebtn.Visible = 0
    timeextbtn.Visible = 1
    sq9fbtn.Visible = 0
    tsq9fbtn.Visible = 1
    sq144fbtn.Visible = 0
    tsq144fbtn.Visible = 1
    fibofanbtn.Visible = 0
    gannfanbtn.Visible = 1
    fiboretbtn.Visible = 0
    parabtn.Visible = 0
    hlinebtn.Visible = 0
    vlinebtn.Visible = 0
    sqrbtn.Visible = 0
    tribtn.Visible = 0
    sqr2btn.Visible = 1
    tri2btn.Visible = 1
    conicbtn.Visible = 1
    circlegiven3pointsbtn.Visible = 1
    primebtn.Visible = 1
    fibotimezonesbtn.Visible = 1
    fibopricezonesbtn.Visible = 1
    fibocirclesbtn.Visible = 1
    timerulerbtn.Visible = 1
    pricerulerbtn.Visible = 1
    gridbtn.Visible = 1
    speedresbtn.Visible = 1
    seedoflifebtn.Visible = 1
    gannsquarebtn.Visible = 1
    fibospiralbtn.Visible = 1
    archimedspiralbtn.Visible = 1
    fiboarcsbtn.Visible = 1
    speedresarcsbtn.Visible = 1
    ellipse3btn.Visible = 1
    circlebtn.Visible = 0
    crossbtn.Visible = 0
    invcirclebtn.Visible = 0
    textbtn.Visible = 0
    vectortextbtn.Visible = 1
    pencolorbtn.Visible = 0
    textfontbtn.Visible = 0
    aimingbtn.Visible = 0
    clearbtn.Visible = 0
    handdbtn.Visible = 0
    sinbtn.Visible = 0
    logbtn.Visible = 0
    expbtn.Visible = 0
    trackb.Visible = 0
    trackb2.Visible = 0
    reversebtn.Visible = 0
    flipbtn.Visible = 0
    ellipsebtn.Visible = 0
    pitchforkbtn.Visible = 0
    schiffpitchforkbtn.Visible = 1
    priceextbtn.Visible = 0
    pricecyclesbtn.Visible = 1
    timecyclesbtn.Visible = 1
    logspiralbtn.Visible = 1
    polybtn.Visible = 1
    pentagbtn.Visible = 1
    orcyclesbtn.Visible = 1
    cursorbtn.Visible = 0
    polygbtn.visible=1
END SUB

SUB previoustoolsclick
    trendlinebtn.Visible = 1
    timeextbtn.Visible = 0
    sq9fbtn.Visible = 1
    tsq9fbtn.Visible = 0
    sq144fbtn.Visible = 1
    tsq144fbtn.Visible = 0
    fibofanbtn.Visible = 1
    gannfanbtn.Visible = 0
    fiboretbtn.Visible = 1
    parabtn.Visible = 1
    hlinebtn.Visible = 1
    vlinebtn.Visible = 1
    sqrbtn.Visible = 1
    tribtn.Visible = 1
    sqr2btn.Visible = 0
    tri2btn.Visible = 0
    conicbtn.Visible = 0
    circlegiven3pointsbtn.Visible = 0
    primebtn.Visible = 0
    fibotimezonesbtn.Visible = 0
    fibopricezonesbtn.Visible = 0
    fibocirclesbtn.Visible = 0
    timerulerbtn.Visible = 0
    pricerulerbtn.Visible = 0
    gridbtn.Visible = 0
    speedresbtn.Visible = 0
    seedoflifebtn.Visible = 0
    gannsquarebtn.Visible = 0
    fibospiralbtn.Visible = 0
    archimedspiralbtn.Visible = 0
    ellipse3btn.Visible = 0
    fiboarcsbtn.Visible = 0
    speedresarcsbtn.Visible = 0
    circlebtn.Visible = 1
    crossbtn.Visible = 1
    invcirclebtn.Visible = 1
    textbtn.Visible = 1
    vectortextbtn.Visible = 0
    pencolorbtn.Visible = 1
    textfontbtn.Visible = 1
    aimingbtn.Visible = 1
    clearbtn.Visible = 1
    handdbtn.Visible = 1
    sinbtn.Visible = 1
    logbtn.Visible = 1
    expbtn.Visible = 1
    trackb.Visible = 1
    trackb2.Visible = 1
    reversebtn.Visible = 1
    flipbtn.Visible = 1
    ellipsebtn.Visible = 1
    pitchforkbtn.Visible = 1
    schiffpitchforkbtn.Visible = 0
    priceextbtn.Visible = 1
    pricecyclesbtn.Visible = 0
    timecyclesbtn.Visible = 0
    logspiralbtn.Visible = 0
    polybtn.Visible = 0
    pentagbtn.Visible = 0
    orcyclesbtn.Visible = 0
    cursorbtn.Visible = 1
    polygbtn.visible=0
END SUB

SUB charttypecombochange
    charttypecomboindex = charttypecombo.ItemIndex
    justrefreshchart
    setup
    say "Chart type changed to: "+charttypecombo.item(charttypecombo.ItemIndex)
END SUB

CREATE formtoolsinfo AS QFORM
    'UndockedForm.Parent = frmmain
    'AltAlign = 4
    'Caption = "Tools info"
    'Align = 0
    'DockStyle = 1
    'UnDockStyle = 1
    'style = 1
    'Client.BevelOuter = 0
    'Canvas.Font.Name = "Arial"
    'width=85
    'UndockedWidth = toolsPanel.Width
    'height=620
    'UndockedHeight = toolsPanel.Height
    'CanClose = 1
    'docked=0
    Parent = frmMain
    Visible = 0
    Width = 300
    Height = 480
    Caption = "Tools informations"
    CREATE infotext AS QRICHEDIT
        Width = formtoolsinfo.Width - 10
        Height = 0.25 * (formtoolsinfo.Height - 30)
        'scrollbars=ssboth
    END CREATE
    CREATE infotext2 AS QRICHEDIT
        Width = formtoolsinfo.Width - 10
        Height = 0.75 * (formtoolsinfo.Height - 30)
        Top = infotext.top+infotext.height '0.5 * (formtoolsinfo.Height - 30)
        'scrollbars=ssboth
    END CREATE
    OnResize = formtoolsinforesized

END CREATE


SUB sepindicursorpos(x AS INTEGER , y AS INTEGER)
    mousemovesepindix = x
    mousemovesepindiy = y

graphcursorpos(mousemovesepindix+canvas.left-graph.left,mousemovesepindiy)

    IF formtoolsinfo.Visible = 0 THEN
        EXIT SUB
    END IF
    DIM XVAL AS double , YVAL AS INTEGER
    'GetCursorPos(NPOS)
    'XVAL=NPOS.xpos
    'YVAL=NPOS.ypos
    'xval=xval-frmmain.left-graph.left-4-mouseexcentricityx
    'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
    XVAL = mousemovesepindix
    YVAL = mousemovesepindiy

END SUB

' ---------------------------- Testing, not functional yet -----------------------------------------------------------------------------
SUB sepindicursorpos2 ' (x AS INTEGER , y AS INTEGER)

DIM XVAL AS integer , YVAL AS INTEGER

    XVAL = mousemovesepindix
    YVAL = mousemovesepindiy
'    xvalgcp2 = XVAL + frmMain.Left + 4 + Graph.Left
'    yvalgcp2 = YVAL + frmMain.Top + 43 + Graph.Top

'    mousemovesepindix = x
'    mousemovesepindiy = y
    'IF formtoolsinfo.Visible = 0 THEN
    '    EXIT SUB
    'END IF
    'DIM XVAL AS double , YVAL AS INTEGER
    'GetCursorPos(NPOS)
    'XVAL=NPOS.xpos
    'YVAL=NPOS.ypos
    'xval=xval-frmmain.left-graph.left-4-mouseexcentricityx
    'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
    'XVAL = mousemovesepindix
    'YVAL = mousemovesepindiy

    DIM graphvi AS INTEGER
    sepgraphvhigh = 0
    FOR graphvi = Scrollchart.Position - numbars + 1 TO Scrollchart.Position
        IF VAL(canvas.separateindicator1.Cell(rowgridoffset + 4 , graphvi)) > sepgraphvhigh THEN
            sepgraphvhigh = VAL(canvas.separateindicator1.Cell(rowgridoffset + 4 , graphvi))
        END IF
    NEXT graphvi
    sepgraphvlow = sepgraphvhigh
    FOR graphvi = Scrollchart.Position - numbars + 1 TO Scrollchart.Position
        IF VAL(canvas.separateindicator1.Cell(rowgridoffset + 5 , graphvi)) < sepgraphvlow THEN
            sepgraphvlow = VAL(canvas.separateindicator1.Cell(rowgridoffset + 5 , graphvi))
        END IF
    NEXT graphvi

' ---------------- Computing price on cursor position - testing, not functional yet --------------------
if seppricechartpos(0,1)-seppricechartpos(1,1)>0 then
    defdbl pricepixelratio=(seppricechartpos(0,1)-yval)/(seppricechartpos(0,1)-seppricechartpos(1,1))
    sepgraphpriceoncur=(seppricechartpos(1,0)-seppricechartpos(0,0))*pricepixelratio+seppricechartpos(0,0)
    sepgraphpriceoncur=val(Format$("%12.5f", sepgraphpriceoncur))
end if

' ------------------------------------------------------------------------------------------------

END SUB
' -------------------------------------------------------------------------------------------------------

SUB graphcursorpos(x AS INTEGER , y AS INTEGER)
    mousemovegraphx = x
    mousemovegraphy = y
    IF formtoolsinfo.Visible = 0 THEN
        EXIT SUB
    END IF
    infotext2.Text = ""
    'if graphclick=0 then
    DIM XVAL AS double , YVAL AS INTEGER
    'GetCursorPos(NPOS)
    'XVAL=NPOS.xpos
    'YVAL=NPOS.ypos
    'xval=xval-frmmain.left-graph.left-4-mouseexcentricityx
    'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
    XVAL = mousemovegraphx
    YVAL = mousemovegraphy

    graphhbegin = 80
    'dim graphhend as integer
    'graphhend=750+graph.width-891
    graphhend = Graph.Width - 41 - spaceforwards
    graphhspace = graphhend - graphhbegin


    graphvbegin = 42

    graphvend = 591 + Graph.Height - 649

    graphvspace = graphvend - graphvbegin


    DIM graphendyear AS INTEGER
    DIM graphendmonth AS INTEGER
    DIM graphendday AS INTEGER
    DIM graphbeginyear AS INTEGER
    DIM graphbeginmonth AS INTEGER
    DIM graphbeginday AS INTEGER


    DIM graphvi AS INTEGER
    graphvhigh = 0
    FOR graphvi = Scrollchart.Position - numbars + 1 TO Scrollchart.Position
        IF VAL(Grid.Cell(rowgridoffset + 4 , graphvi)) > graphvhigh THEN
            graphvhigh = VAL(Grid.Cell(rowgridoffset + 4 , graphvi))
        END IF
    NEXT graphvi
    graphvlow = graphvhigh
    FOR graphvi = Scrollchart.Position - numbars + 1 TO Scrollchart.Position
        IF VAL(Grid.Cell(rowgridoffset + 5 , graphvi)) < graphvlow THEN
            graphvlow = VAL(Grid.Cell(rowgridoffset + 5 , graphvi))
        END IF
    NEXT graphvi

    infotext2.Text = infotext2.Text + "Total # of bars: " + STR$(chartbars(displayedfile)) + CHR$(10)
    infotext2.Text = infotext2.Text + "Highest high: " + STR$(graphvhigh) + CHR$(10)
    infotext2.Text = infotext2.Text + "Lowest low: " + STR$(graphvlow) + CHR$(10)

    'dim graphvi as integer
    alltimehigh = 0
    FOR graphvi = 1 TO chartbars(displayedfile)
        IF VAL(Grid.Cell(rowgridoffset + 4 , graphvi)) > alltimehigh THEN
            alltimehigh = VAL(Grid.Cell(rowgridoffset + 4 , graphvi))
        END IF
    NEXT graphvi
    alltimelow = alltimehigh
    FOR graphvi = 1 TO chartbars(displayedfile)
        IF VAL(Grid.Cell(rowgridoffset + 5 , graphvi)) < alltimelow THEN
            alltimelow = VAL(Grid.Cell(rowgridoffset + 5 , graphvi))
        END IF
    NEXT graphvi

    infotext2.Text = infotext2.Text + "All time high: " + STR$(alltimehigh) + CHR$(10)
    infotext2.Text = infotext2.Text + "All time low: " + STR$(alltimelow) + CHR$(10)


    DIM graphenddate AS STRING
    DIM graphbegindate AS STRING

    graphenddate = Grid.Cell(rowgridoffset + 1 , Scrollchart.Position)
    graphbegindate = Grid.Cell(rowgridoffset + 1 , Scrollchart.Position - numbars + 1)

    graphendyear = VAL(MID$(graphenddate , 0 , 4))
    graphendmonth = VAL(MID$(graphenddate , 6 , 2))
    graphendday = VAL(MID$(graphenddate , 9 , 2))
    graphbeginyear = VAL(MID$(graphbegindate , 0 , 4))
    graphbeginmonth = VAL(MID$(graphbegindate , 6 , 2))
    graphbeginday = VAL(MID$(graphbegindate , 9 , 2))

    graphserialdateend = DateSerial(graphendyear , graphendmonth , graphendday)
    graphserialdatebegin = DateSerial(graphbeginyear , graphbeginmonth , graphbeginday)
    graphserialdatespace = graphserialdateend - graphserialdatebegin

    DIM graphbarnbbegin AS double
    graphbarnbbegin = chartstart
    DIM graphbarnbend AS double
    graphbarnbend = chartstart + numbars
    DIM graphbarnbspace AS double
    graphbarnbspace = graphbarnbend - graphbarnbbegin + 1

    DIM yscalehigh AS DOUBLE
    yscalehigh = graphvlow + (graphvhigh - graphvlow) + ymaxgraphglobal '* (1 / yscaletrackbarposition)
    
    DIM yscalelow AS DOUBLE
    yscalelow = graphvhigh - (graphvhigh - graphvlow) - ymingraphglobal '* (1 / yscaletrackbarposition)

    graphpricespace = yscalehigh - yscalelow 'graphvlow

    DIM graphhratio AS DOUBLE
    graphhratio = (XVAL - graphhbegin) / graphhspace

    DIM graphvratio AS DOUBLE
    graphvratio = (YVAL - graphvbegin) / graphvspace

    'graphpriceoncur = (graphvlow + (yscalehigh - graphvlow)) - graphvratio * graphpricespace
    'graphpriceoncur = (yscalelow + (yscalehigh - yscalelow)) - graphvratio * graphpricespace
    
            ' Computing price on cursor position
    if pricechartpos(0,1)-pricechartpos(1,1)>0 then
        defdbl pricepixelratio=(pricechartpos(0,1)-yval)/(pricechartpos(0,1)-pricechartpos(1,1))
        graphpriceoncur=(pricechartpos(1,0)-pricechartpos(0,0))*pricepixelratio+pricechartpos(0,0)
        graphpriceoncur=val(Format$("%12.5f", graphpriceoncur))
    end if    
    ' ---------------------------------

    infotext2.Text = infotext2.Text + "Price on cursor: " + STR$(graphpriceoncur) + CHR$(10)

    graphserialdateoncur = graphserialdatebegin + graphhratio * graphserialdatespace

    graphbarnboncur = graphbarnbbegin + graphhratio * graphbarnbspace


    DEFLNG yy , mm , dd , dayofweek
    dayofweek = DateFromSerial(graphserialdateoncur , yy , mm , dd)
    'SHOWMESSAGE "Testing DateFromSerial" + rqcrlf + rqcrlf + _
    '"Year = " + STR$(yy) + rqcrlf + _
    '"Month = " + STR$(mm) + rqcrlf + _
    '"Date = " + STR$(dd) + rqcrlf + _
    '"DayOfWeek = " + STR$(DayOfWeek)
    'print str$(yy)+"-"+str$(mm)+"-"+str$(dd)
    
    defint myreali

    defdbl timepixelinterval=timechartpos(1,1)-timechartpos(0,1)

    for myreali=0 to 1000

        if xval>=timechartpos(myreali,1)-timepixelinterval/2 and xval<timechartpos(myreali,1)+timepixelinterval/2 then

        defdbl unixtimeratio=timechartpos(myreali,0)

        graphserialdateoncur=unixtimeratio

        defstr myunixtimestr=Format$("%12.0f", unixtimeratio)

        cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(myunixtimestr))) ' works here in year 2038

        defstr year,month,day,hour,minute
        year=mid$(cpptmpfuncreturn,0,4)
        month=mid$(cpptmpfuncreturn,6,2)
        day=mid$(cpptmpfuncreturn,9,2)
        hour=mid$(cpptmpfuncreturn,12,2)
        minute=mid$(cpptmpfuncreturn,15,2)


        graphdateoncur =year + "-" + month + "-" + day+" "+hour+":"+minute
        exit for
        end if
        'doevents    
    next myreali
    
    'defdbl realidbl=i/1001*chartbars(displayedfile)
    'defdbl realidbl=chartbars(displayedfile)-i
    'defint reali=int(realidbl)
    defint reali=chartbars(displayedfile)-numbars+myreali+1

    graphdateoncur = STR$(yy) + "-" + STR$(mm) + "-" + STR$(dd)
    'infotext2.Text = infotext2.Text + "Date on cursor: " + graphdateoncur + CHR$(10) ' bugs
    infotext2.Text = infotext2.Text + "Date on cursor: " + Grid.Cell(rowgridoffset + 1 , reali) + CHR$(10)
    infotext2.Text = infotext2.Text + "Time on cursor: " + Grid.Cell(rowgridoffset + 2 , reali) + CHR$(10)
    infotext2.Text = infotext2.Text + "Open: " + Grid.Cell(rowgridoffset + 3 , reali) + CHR$(10)
    infotext2.Text = infotext2.Text + "High: " + Grid.Cell(rowgridoffset + 4 , reali) + CHR$(10)
    infotext2.Text = infotext2.Text + "Low: " + Grid.Cell(rowgridoffset + 5 , reali) + CHR$(10)
    infotext2.Text = infotext2.Text + "Close: " + Grid.Cell(rowgridoffset + 6 , reali) + CHR$(10)
    infotext2.Text = infotext2.Text + "Volume: " + Grid.Cell(rowgridoffset + 7 , reali) + CHR$(10)

    graphjuliendateoncur = JulianDate(day , month , year) + 1
    infotext2.Text = infotext2.Text + "Julian date on cursor: " + STR$(graphjuliendateoncur) + CHR$(10)

    infotext2.Text = infotext2.Text + "Begin date: " + REPLACESUBSTR$(graphbegindate , "." , "-") + CHR$(10)
    infotext2.Text = infotext2.Text + "End date: " + REPLACESUBSTR$(graphenddate , "." , "-") + CHR$(10)

    infotext2.Text = infotext2.Text + "Begin Julian date: " + STR$(JulianDate(graphbeginday , graphbeginmonth , graphbeginyear) + 1) + CHR$(10)
    infotext2.Text = infotext2.Text + "End Julian date: " + STR$(JulianDate(graphendday , graphendmonth , graphendyear) + 1) + CHR$(10)

    infotext2.Text = infotext2.Text + "Bar # on cursor: " + STR$(reali) + CHR$(10)


    'if formtoolsinfo.visible=1 then
    'setfocus(formtoolsinfo.handle)
    'end if
END SUB

SUB graphcursorpos2
    infotext2.Text = ""
    'if graphclick=0 then
    DIM XVAL AS integer , YVAL AS INTEGER
    'GetCursorPos(NPS)
    'XVAL=NPOS.xpos
    'YVAL=NPOS.ypos
    'xval=xval-frmmain.left-graph.left-4-mouseexcentricityx
    'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
    XVAL = mousemovegraphx
    YVAL = mousemovegraphy
    xvalgcp2 = XVAL + frmMain.Left + 4 + Graph.Left
    yvalgcp2 = YVAL + frmMain.Top + 43 + Graph.Top

    graphhbegin = 80
    'dim graphhend as integer
    'graphhend=750+graph.width-891
    graphhend = Graph.Width - 41 - spaceforwards

    graphhspace = graphhend - graphhbegin


    graphvbegin = 42
    DIM graphvend AS INTEGER
    graphvend = 591 + Graph.Height - 649

    graphvspace = graphvend - graphvbegin


    DIM graphendyear AS INTEGER
    DIM graphendmonth AS INTEGER
    DIM graphendday AS INTEGER
    DIM graphbeginyear AS INTEGER
    DIM graphbeginmonth AS INTEGER
    DIM graphbeginday AS INTEGER


    DIM graphvi AS INTEGER
    graphvhigh = 0
    FOR graphvi = Scrollchart.Position - numbars + 1 TO Scrollchart.Position
        IF VAL(Grid.Cell(rowgridoffset + 4 , graphvi)) > graphvhigh THEN
            graphvhigh = VAL(Grid.Cell(rowgridoffset + 4 , graphvi))
        END IF
        
        'doevents
    NEXT graphvi

    graphvlow = graphvhigh
    FOR graphvi = Scrollchart.Position - numbars + 1 TO Scrollchart.Position
        IF VAL(Grid.Cell(rowgridoffset + 5 , graphvi)) < graphvlow THEN
            graphvlow = VAL(Grid.Cell(rowgridoffset + 5 , graphvi))
        END IF
        'doevents
    NEXT graphvi

    infotext2.Text = infotext2.Text + "Total # of bars: " + STR$(chartbars(displayedfile)) + CHR$(10)
    infotext2.Text = infotext2.Text + "Highest high: " + STR$(graphvhigh) + CHR$(10)
    infotext2.Text = infotext2.Text + "Lowest low: " + STR$(graphvlow) + CHR$(10)

    alltimehigh = 0
    FOR graphvi = 1 TO chartbars(displayedfile)
        IF VAL(Grid.Cell(rowgridoffset + 4 , graphvi)) > alltimehigh THEN
            alltimehigh = VAL(Grid.Cell(rowgridoffset + 4 , graphvi))
        END IF
        
        'doevents
    NEXT graphvi

    alltimelow = alltimehigh
    FOR graphvi = 1 TO chartbars(displayedfile)
        IF VAL(Grid.Cell(rowgridoffset + 5 , graphvi)) < alltimelow THEN
            alltimelow = VAL(Grid.Cell(rowgridoffset + 5 , graphvi))
        END IF
        'doevents
    NEXT graphvi

    infotext2.Text = infotext2.Text + "All time high: " + STR$(alltimehigh) + CHR$(10)
    infotext2.Text = infotext2.Text + "All time low: " + STR$(alltimelow) + CHR$(10)


    DIM graphenddate AS STRING
    DIM graphbegindate AS STRING

    graphenddate = Grid.Cell(rowgridoffset + 1 , Scrollchart.Position)
    graphbegindate = Grid.Cell(rowgridoffset + 1 , Scrollchart.Position - numbars + 1)

    graphendyear = VAL(MID$(graphenddate , 0 , 4))
    graphendmonth = VAL(MID$(graphenddate , 6 , 2))
    graphendday = VAL(MID$(graphenddate , 9 , 2))
    graphbeginyear = VAL(MID$(graphbegindate , 0 , 4))
    graphbeginmonth = VAL(MID$(graphbegindate , 6 , 2))
    graphbeginday = VAL(MID$(graphbegindate , 9 , 2))


    'graphserialdateend = DateSerial(graphendyear , graphendmonth , graphendday)
    'graphserialdatebegin = DateSerial(graphbeginyear , graphbeginmonth , graphbeginday)

    graphserialdateend=timechartpos(graph.data.colcount-1,0)

    graphserialdatebegin=timechartpos(0,0)

    graphserialdatespace = graphserialdateend - graphserialdatebegin



    DIM graphbarnbbegin AS double
    graphbarnbbegin = chartstart

    DIM graphbarnbend AS double
    graphbarnbend = chartstart + numbars

    DIM graphbarnbspace AS double
    graphbarnbspace = graphbarnbend - graphbarnbbegin + 1


    DIM yscalehigh AS DOUBLE
    yscalehigh = graphvlow + (graphvhigh - graphvlow) + ymaxgraphglobal '* (1 / yscaletrackbarposition)

    DIM yscalelow AS DOUBLE
    yscalelow = graphvhigh - (graphvhigh - graphvlow) - ymingraphglobal '* (1 / yscaletrackbarposition)

    graphpricespace = yscalehigh - yscalelow 'graphvlow

    DIM graphhratio AS DOUBLE
    graphhratio = (XVAL - graphhbegin) / graphhspace

    DIM graphvratio AS DOUBLE
    graphvratio = (YVAL - graphvbegin) / graphvspace

    'graphpriceoncur = (graphvlow + (yscalehigh - graphvlow)) - graphvratio * graphpricespace
    'graphpriceoncur = (yscalelow + (yscalehigh - yscalelow)) - graphvratio * graphpricespace
    
        ' Computing price on cursor position
if pricechartpos(0,1)-pricechartpos(1,1)>0 then
    defdbl pricepixelratio=(pricechartpos(0,1)-yval)/(pricechartpos(0,1)-pricechartpos(1,1))
    graphpriceoncur=(pricechartpos(1,0)-pricechartpos(0,0))*pricepixelratio+pricechartpos(0,0)
    graphpriceoncur=val(Format$("%12.5f", graphpriceoncur))
end if    
    ' ---------------------------------


    infotext2.Text = infotext2.Text + "Price on cursor: " + STR$(graphpriceoncur) + CHR$(10)

    'graphserialdateoncur = graphserialdatebegin + graphhratio * graphserialdatespace

    graphbarnboncur = graphbarnbbegin + graphhratio * graphbarnbspace

    DEFLNG yy , mm , dd , dayofweek
    'dayofweek = DateFromSerial(graphserialdateoncur , yy , mm , dd) 'commented because bugs in year 2038

    ' bug here
    'SHOWMESSAGE "Testing DateFromSerial" + rqcrlf + rqcrlf + _
    '"Year = " + STR$(yy) + rqcrlf + _
    '"Month = " + STR$(mm) + rqcrlf + _
    '"Date = " + STR$(dd) + rqcrlf + _
    '"DayOfWeek = " + STR$(DayOfWeek)
    'print str$(yy)+"-"+str$(mm)+"-"+str$(dd)
    'dim graphdateoncur as string
      
    'graphdateoncur = STR$(yy) + "-" + STR$(mm) + "-" + STR$(dd)
    
    ' Computing time on cursor position
'if timechartpos(1,1)-timechartpos(0,1)>0 then
'    defdbl timepixelratio=(xval-timechartpos(0,1))/(timechartpos(1,1)-timechartpos(0,1))
'    defdbl unixtimeratio=round((timechartpos(1,0)-timechartpos(0,0))*timepixelratio)+timechartpos(0,0)
'    defstr myunixtimestr=Format$("%12.0f", unixtimeratio)
'    cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(myunixtimestr)))
'defstr year,month,day,hour,minute
'year=mid$(cpptmpfuncreturn,21,4)
'month=mid$(cpptmpfuncreturn,5,3)
'day=mid$(cpptmpfuncreturn,9,2)
'hour=mid$(cpptmpfuncreturn,12,2)
'minute=mid$(cpptmpfuncreturn,15,2)
'    graphdateoncur =year + "-" + strtomonth(month) + "-" + day+" "+hour+":"+minute
'end if    

defint i

defdbl timepixelinterval=timechartpos(1,1)-timechartpos(0,1)

for i=0 to 1000

if xval>=timechartpos(i,1)-timepixelinterval/2 and xval<timechartpos(i,1)+timepixelinterval/2 then

defdbl unixtimeratio=timechartpos(i,0)

graphserialdateoncur=unixtimeratio

    defstr myunixtimestr=Format$("%12.0f", unixtimeratio)

    cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(myunixtimestr))) ' works here in year 2038

defstr year,month,day,hour,minute
year=mid$(cpptmpfuncreturn,0,4)
month=mid$(cpptmpfuncreturn,6,2)
day=mid$(cpptmpfuncreturn,9,2)
hour=mid$(cpptmpfuncreturn,12,2)
minute=mid$(cpptmpfuncreturn,15,2)


    graphdateoncur =year + "-" + month + "-" + day+" "+hour+":"+minute
    exit for
end if
'doevents    
next i

    ' ---------------------------------
    
    infotext2.Text = infotext2.Text + "Date on cursor: " + graphdateoncur + CHR$(10)
    
    'deflng graphjuliendateoncur
    graphjuliendateoncur = JulianDate(dd , mm , yy) + 1

    infotext2.Text = infotext2.Text + "Julian date on cursor: " + STR$(graphjuliendateoncur) + CHR$(10)

    infotext2.Text = infotext2.Text + "Begin date: " + REPLACESUBSTR$(graphbegindate , "." , "-") + CHR$(10)
    infotext2.Text = infotext2.Text + "End date: " + REPLACESUBSTR$(graphenddate , "." , "-") + CHR$(10)

    infotext2.Text = infotext2.Text + "Begin Julian date: " + STR$(JulianDate(graphbeginday , graphbeginmonth , graphbeginyear) + 1) + CHR$(10)
    infotext2.Text = infotext2.Text + "End Julian date: " + STR$(JulianDate(graphendday , graphendmonth , graphendyear) + 1) + CHR$(10)

END SUB


'-------------------------------------------------------------------------------
'Global hotkeys routines

'-- CTRL+A
'IF RegisterHotKey(hotkeysfrm.Handle, 0, MOD_CTRL, ASC("A")) = 0 THEN
'ShowMessage("Sorry, hot key CTRL+A already taken!")
'END IF

'-- CTRL+SHIFT+B
'IF RegisterHotKey(hotkeysfrm.Handle, 1, MOD_CTRL OR MOD_SHFT, ASC("B")) = 0 THEN
'ShowMessage("Sorry, hot key CTRL+SHIFT+B already taken!")
'END IF

'-- ESC
'IF RegisterHotKey(hotkeysfrm.Handle, 0,MOD_GENERIC ,VK_ESCAPE) = 0 THEN
'ShowMessage("Sorry, hot key ESC already taken!")
'END IF

'-- SPACE
'IF RegisterHotKey(hotkeysfrm.Handle, 1,MOD_GENERIC ,VK_SPACE) = 0 THEN
'ShowMessage("Sorry, hot key SPACE already taken!")
'END IF

'Form.ShowModal

'End global hotkeys routines
'-------------------------------------------------------------------------------


'Indexing indicators

DIM indiinilist AS QFILELISTBOX
indiinilist.Visible = 0
indiinilist.Parent = frmMain
indiinilist.Mask = "*.ini"
indiinilist.Directory = homepath + "\indicators"

'DIM qtcList AS QFILELISTBOX
'qtcList.Visible = 0
'qtcList.Parent = frmMain
'qtcList.Mask = "*.ini"
'qtcList.Directory = homepath + "\indicators"

DIM indinames(0 TO indiinilist.ItemCount - 1) AS STRING
DIM nli AS INTEGER
'DIM qtnfile AS QFILESTREAM
FOR nli = 0 TO indiinilist.ItemCount - 1
    'qtnfile.open(indiinilist.Item(nli) , fmOpenRead)
    'indinames(nli) = qtnfile.ReadLine() 'Read an entire line
    indiini.filename=homepath+"\indicators\"+indiinilist.Item(nli)
    indiini.section="Settings"
    indinames(nli)=indiini.get("name","")
NEXT nli
'qtnfile.close

DIM indicanvas(0 TO indiinilist.ItemCount - 1) AS STRING

'dim nli as integer
'DIM qtcfile AS QFILESTREAM
FOR nli = 0 TO indiinilist.ItemCount - 1
    'qtcfile.open(indiinilist.Item(nli) , fmOpenRead)
    'indicanvas(nli) = qtcfile.ReadLine() 'Read an entire line
    indiini.filename=homepath+"\indicators\"+indiinilist.Item(nli)
    indiini.section="Settings"
    indicanvas(nli)=indiini.get("canvas","")
NEXT nli
'qtcfile.close

'Indexing indicators

'DIM descList AS QFILELISTBOX
'descList.Visible = 0
'descList.Parent = frmMain
'descList.Mask = "*.ini"
'descList.Directory = homepath + "\indicators"

DIM indidesc(0 TO indiinilist.ItemCount - 1) AS STRING
DIM indilisty AS INTEGER
DIM nld AS INTEGER
DIM descordercount AS INTEGER
descordercount = 0
'DIM descfile AS QFILESTREAM
FOR indilisty = 0 TO 1
    FOR nld = 0 TO indiinilist.ItemCount - 1
        IF VAL(indicanvas(nld)) = indilisty THEN
            'descfile.open(indiinilist.Item(nld) , fmOpenRead)
            'indidesc(descordercount) = descfile.ReadLine() 'Read an entire line
            indiini.filename=homepath+"\indicators\"+indiinilist.Item(nld)
            indiini.section="Settings"
            indidesc(descordercount)=indiini.get("description","")
            descordercount ++
        END IF
    NEXT nld
NEXT indilisty
'descfile.close

SUB trackbchange
    logamplitude = trackb.Position * 0.2 * trackb2.Position * 0.2
END SUB

SUB resetbtns
    trendlinebtn.Flat = 0
    trendlinebtn.Color = &Hcccccc
    fibofanbtn.Flat = 0
    fibofanbtn.Color = &Hcccccc
    gannfanbtn.Flat = 0
    gannfanbtn.Color = &Hcccccc
    fiboretbtn.Flat = 0
    fiboretbtn.Color = &Hcccccc
    parabtn.Flat = 0
    parabtn.Color = &Hcccccc
    hlinebtn.Flat = 0
    hlinebtn.Color = &Hcccccc
    vlinebtn.Flat = 0
    vlinebtn.Color = &Hcccccc
    sqrbtn.Flat = 0
    sqrbtn.Color = &Hcccccc
    tribtn.Flat = 0
    tribtn.Color = &Hcccccc
    sqr2btn.Flat = 0
    sqr2btn.Color = &Hcccccc
    tri2btn.Flat = 0
    tri2btn.Color = &Hcccccc
    conicbtn.Flat = 0
    conicbtn.Color = &Hcccccc
    circlegiven3pointsbtn.Flat = 0
    circlegiven3pointsbtn.Color = &Hcccccc
    primebtn.Flat = 0
    primebtn.Color = &Hcccccc
    fibotimezonesbtn.Flat = 0
    fibotimezonesbtn.Color = &Hcccccc
    fibopricezonesbtn.Flat = 0
    fibopricezonesbtn.Color = &Hcccccc
    fibocirclesbtn.Flat = 0
    fibocirclesbtn.Color = &Hcccccc
    timerulerbtn.Flat = 0
    timerulerbtn.Color = &Hcccccc
    pricerulerbtn.Flat = 0
    pricerulerbtn.Color = &Hcccccc
    gridbtn.Flat = 0
    gridbtn.Color = &Hcccccc
    speedresbtn.Flat = 0
    speedresbtn.Color = &Hcccccc
    seedoflifebtn.Flat = 0
    seedoflifebtn.Color = &Hcccccc
    gannsquarebtn.Flat = 0
    gannsquarebtn.Color = &Hcccccc
    fibospiralbtn.Flat = 0
    fibospiralbtn.Color = &Hcccccc
    archimedspiralbtn.Flat = 0
    archimedspiralbtn.Color = &Hcccccc
    ellipse3btn.Flat = 0
    ellipse3btn.Color = &Hcccccc
    fiboarcsbtn.Flat = 0
    fiboarcsbtn.Color = &Hcccccc
    speedresarcsbtn.Flat = 0
    speedresarcsbtn.Color = &Hcccccc
    circlebtn.Flat = 0
    circlebtn.Color = &Hcccccc
    crossbtn.Flat = 0
    crossbtn.Color = &Hcccccc
    invcirclebtn.Flat = 0
    invcirclebtn.Color = &Hcccccc
    textbtn.Flat = 0
    textbtn.Color = &Hcccccc
    vectortextbtn.Flat = 0
    vectortextbtn.Color = &Hcccccc
    aimingbtn.Flat = 0
    aimingbtn.Color = &Hcccccc
    handdbtn.Flat = 0
    handdbtn.Color = &Hcccccc
    sinbtn.Flat = 0
    sinbtn.Color = &Hcccccc
    logbtn.Flat = 0
    logbtn.Color = &Hcccccc
    expbtn.Flat = 0
    expbtn.Color = &Hcccccc
    priceextbtn.Flat = 0
    priceextbtn.Color = &Hcccccc
    ellipsebtn.Flat = 0
    ellipsebtn.Color = &Hcccccc
    pitchforkbtn.Flat = 0
    pitchforkbtn.Color = &Hcccccc
    schiffpitchforkbtn.Flat = 0
    schiffpitchforkbtn.Color = &Hcccccc
    sq9fbtn.Flat = 0
    sq9fbtn.Color = &Hcccccc
    tsq9fbtn.Flat = 0
    tsq9fbtn.Color = &Hcccccc
    sq144fbtn.Flat = 0
    sq144fbtn.Color = &Hcccccc
    tsq144fbtn.Flat = 0
    tsq144fbtn.Color = &Hcccccc
    timeextbtn.Flat = 0
    timeextbtn.Color = &Hcccccc
    pricecyclesbtn.Flat = 0
    pricecyclesbtn.Color = &Hcccccc
    timecyclesbtn.Flat = 0
    timecyclesbtn.Color = &Hcccccc
    cursorbtn.Flat = 0
    cursorbtn.Color = &Hcccccc
    logspiralbtn.Flat = 0
    logspiralbtn.Color = &Hcccccc
    polybtn.Flat = 0
    polybtn.Color = &Hcccccc
    pentagbtn.Flat = 0
    pentagbtn.Color = &Hcccccc
    orcyclesbtn.Flat = 0
    orcyclesbtn.Color = &Hcccccc
    polygbtn.Flat = 0
    polygbtn.Color = &Hcccccc
END SUB

SUB scrollmodebtnclick
    IF scrollmodebtn.Flat = 0 THEN
        scrollmodebtn.Flat = 1
        scrollmodebtn.Color = &H88cc88
        scrollmode = 1
        'scrollchart.enabled=1
        EXIT SUB
    END IF
    IF scrollmodebtn.Flat = 1 THEN
        scrollmodebtn.Flat = 0
        scrollmodebtn.Color = &Hcccccc
        scrollmode = 0
        IF openedfilesnb = 0 THEN
            EXIT SUB
        END IF
        'scrollchart.enabled=0
        chartstart = Scrollchart.Position - numbars
        IF scrollchartpositionwait = 1 THEN
            btnOnClick(drwBox)
        END IF
        EXIT SUB
    END IF
END SUB

SUB disablescrollmode
    'scrollchart.enabled=0
    scrollmodebtn.Flat = 0
    scrollmodebtn.Color = &Hcccccc
    scrollmode = 0
    'scrollchart.enabled=0
    chartstart = Scrollchart.Position - numbars
    IF scrollchartpositionwait = 1 THEN
        btnOnClick(drwBox)
    END IF
    'scrollchart.enabled=1
END SUB

SUB setspaceforwards
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    disablescrollmode
    spaceforwards = VAL(spaceforwardsedit.Text)
    IF showcanvas = 1 THEN
        canvas.Width = frmMain.ClientWidth - leftwidth - 144 - spaceforwards
        WITH closedispcanvas
            .Top = canvas.Top
            .Left = canvas.Width + 181 - 4 + leftwidth - 100
        END WITH
        'sepindizoommore.Left=leftwidth+97+canvas.width+15
        'sepindizoomless.Left=leftwidth+97+canvas.width+15
    END IF
    Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    chartstart = Scrollchart.Position - numbars
    btnOnClick(drwBox)

    disablescrollmode
    spaceforwards = VAL(spaceforwardsedit.Text)
    IF showcanvas = 1 THEN
        canvas.Width = frmMain.ClientWidth - leftwidth - 144 - spaceforwards
        WITH closedispcanvas
            .Top = canvas.Top
            .Left = canvas.Width + 181 - 4 + leftwidth - 100
        END WITH
        'sepindizoommore.Left=leftwidth+97+canvas.width+15
        'sepindizoomless.Left=leftwidth+97+canvas.width+15
    END IF
    Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    chartstart = Scrollchart.Position - numbars
    btnOnClick(drwBox)
END SUB

SUB chartscursormode(mode AS INTEGER)
    WITH Graph
        .Cursor = mode
    END WITH
    WITH canvas
        .Cursor = mode
    END WITH
END SUB

SUB trendlinebtnclick
    IF trendlinebtn.Flat = 0 THEN
        resetbtns
        trendlinebtn.Flat = 1
        trendlinebtn.Color = &H88cc88
        chartscursormode = 1
        say trendlinebtn.hint
        EXIT SUB
    END IF
    IF trendlinebtn.Flat = 1 THEN
        trendlinebtn.Flat = 0
        trendlinebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB cursorbtnclick
    IF cursorbtn.Flat = 0 THEN
        resetbtns
        cursorbtn.Flat = 1
        cursorbtn.Color = &H88cc88
        chartscursormode = 1
        say cursorbtn.hint
        EXIT SUB
    END IF
    IF cursorbtn.Flat = 1 THEN
        cursorbtn.Flat = 0
        cursorbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB timeextbtnclick
    IF timeextbtn.Flat = 0 THEN
        resetbtns
        timeextbtn.Flat = 1
        timeextbtn.Color = &H88cc88
        chartscursormode = 1
        say timeextbtn.hint
        EXIT SUB
    END IF
    IF timeextbtn.Flat = 1 THEN
        timeextbtn.Flat = 0
        timeextbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB fibofanbtnclick
    IF fibofanbtn.Flat = 0 THEN
        resetbtns
        fibofanbtn.Flat = 1
        fibofanbtn.Color = &H88cc88
        chartscursormode = 1
        say fibofanbtn.hint
        EXIT SUB
    END IF
    IF fibofanbtn.Flat = 1 THEN
        fibofanbtn.Flat = 0
        fibofanbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB gannfanbtnclick
    IF gannfanbtn.Flat = 0 THEN
        resetbtns
        gannfanbtn.Flat = 1
        gannfanbtn.Color = &H88cc88
        chartscursormode = 1
        say gannfanbtn.hint
        EXIT SUB
    END IF
    IF gannfanbtn.Flat = 1 THEN
        gannfanbtn.Flat = 0
        gannfanbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB fiboretbtnclick
    IF fiboretbtn.Flat = 0 THEN
        resetbtns
        fiboretbtn.Flat = 1
        fiboretbtn.Color = &H88cc88
        chartscursormode = 1
        say fiboretbtn.hint
        EXIT SUB
    END IF
    IF fiboretbtn.Flat = 1 THEN
        fiboretbtn.Flat = 0
        fiboretbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB parabtnclick
    IF parabtn.Flat = 0 THEN
        resetbtns
        parabtn.Flat = 1
        parabtn.Color = &H88cc88
        chartscursormode = 1
        say parabtn.hint
        EXIT SUB
    END IF
    IF parabtn.Flat = 1 THEN
        parabtn.Flat = 0
        parabtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB hlinebtnclick
    IF hlinebtn.Flat = 0 THEN
        resetbtns
        hlinebtn.Flat = 1
        hlinebtn.Color = &H88cc88
        chartscursormode = 1
        say hlinebtn.hint
        EXIT SUB
    END IF
    IF hlinebtn.Flat = 1 THEN
        hlinebtn.Flat = 0
        hlinebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB vlinebtnclick
    IF vlinebtn.Flat = 0 THEN
        resetbtns
        vlinebtn.Flat = 1
        vlinebtn.Color = &H88cc88
        chartscursormode = 1
        say vlinebtn.hint
        EXIT SUB
    END IF
    IF vlinebtn.Flat = 1 THEN
        vlinebtn.Flat = 0
        vlinebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB sqrbtnclick
    IF sqrbtn.Flat = 0 THEN
        resetbtns
        sqrbtn.Flat = 1
        sqrbtn.Color = &H88cc88
        chartscursormode = 1
        say sqrbtn.hint
        EXIT SUB
    END IF
    IF sqrbtn.Flat = 1 THEN
        sqrbtn.Flat = 0
        sqrbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB tribtnclick
    IF tribtn.Flat = 0 THEN
        resetbtns
        tribtn.Flat = 1
        tribtn.Color = &H88cc88
        chartscursormode = 1
        say tribtn.hint
        EXIT SUB
    END IF
    IF tribtn.Flat = 1 THEN
        tribtn.Flat = 0
        tribtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB sqr2btnclick
    IF sqr2btn.Flat = 0 THEN
        resetbtns
        sqr2btn.Flat = 1
        sqr2btn.Color = &H88cc88
        chartscursormode = 1
        say sqr2btn.hint
        EXIT SUB
    END IF
    IF sqr2btn.Flat = 1 THEN
        sqr2btn.Flat = 0
        sqr2btn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB tri2btnclick
    IF tri2btn.Flat = 0 THEN
        resetbtns
        tri2btn.Flat = 1
        tri2btn.Color = &H88cc88
        chartscursormode = 1
        say tri2btn.hint
        EXIT SUB
    END IF
    IF tri2btn.Flat = 1 THEN
        tri2btn.Flat = 0
        tri2btn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB conicbtnclick
    IF conicbtn.Flat = 0 THEN
        resetbtns
        conicbtn.Flat = 1
        conicbtn.Color = &H88cc88
        chartscursormode = 1
        say conicbtn.hint
        EXIT SUB
    END IF
    IF conicbtn.Flat = 1 THEN
        conicbtn.Flat = 0
        conicbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB circlegiven3pointsbtnclick
    IF circlegiven3pointsbtn.Flat = 0 THEN
        resetbtns
        circlegiven3pointsbtn.Flat = 1
        circlegiven3pointsbtn.Color = &H88cc88
        chartscursormode = 1
        say circlegiven3pointsbtn.hint
        EXIT SUB
    END IF
    IF circlegiven3pointsbtn.Flat = 1 THEN
        circlegiven3pointsbtn.Flat = 0
        circlegiven3pointsbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB primebtnclick
    IF primebtn.Flat = 0 THEN
        resetbtns
        primebtn.Flat = 1
        primebtn.Color = &H88cc88
        chartscursormode = 1
        say primebtn.hint
        EXIT SUB
    END IF
    IF primebtn.Flat = 1 THEN
        primebtn.Flat = 0
        primebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB fibotimezonesbtnclick
    IF fibotimezonesbtn.Flat = 0 THEN
        resetbtns
        fibotimezonesbtn.Flat = 1
        fibotimezonesbtn.Color = &H88cc88
        chartscursormode = 1
        say fibotimezonesbtn.hint
        EXIT SUB
    END IF
    IF fibotimezonesbtn.Flat = 1 THEN
        fibotimezonesbtn.Flat = 0
        fibotimezonesbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB fibopricezonesbtnclick
    IF fibopricezonesbtn.Flat = 0 THEN
        resetbtns
        fibopricezonesbtn.Flat = 1
        fibopricezonesbtn.Color = &H88cc88
        chartscursormode = 1
        say fibopricezonesbtn.hint
        EXIT SUB
    END IF
    IF fibopricezonesbtn.Flat = 1 THEN
        fibopricezonesbtn.Flat = 0
        fibopricezonesbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB fibocirclesbtnclick
    IF fibocirclesbtn.Flat = 0 THEN
        resetbtns
        fibocirclesbtn.Flat = 1
        fibocirclesbtn.Color = &H88cc88
        chartscursormode = 1
        say fibocirclesbtn.hint
        EXIT SUB
    END IF
    IF fibocirclesbtn.Flat = 1 THEN
        fibocirclesbtn.Flat = 0
        fibocirclesbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB timerulerbtnclick
    IF timerulerbtn.Flat = 0 THEN
        resetbtns
        timerulerbtn.Flat = 1
        timerulerbtn.Color = &H88cc88
        chartscursormode = 1
        say timerulerbtn.hint
        EXIT SUB
    END IF
    IF timerulerbtn.Flat = 1 THEN
        timerulerbtn.Flat = 0
        timerulerbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB pricerulerbtnclick
    IF pricerulerbtn.Flat = 0 THEN
        resetbtns
        pricerulerbtn.Flat = 1
        pricerulerbtn.Color = &H88cc88
        chartscursormode = 1
        say pricerulerbtn.hint
        EXIT SUB
    END IF
    IF pricerulerbtn.Flat = 1 THEN
        pricerulerbtn.Flat = 0
        pricerulerbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB gridbtnclick
    IF gridbtn.Flat = 0 THEN
        resetbtns
        gridbtn.Flat = 1
        gridbtn.Color = &H88cc88
        chartscursormode = 1
        say gridbtn.hint
        EXIT SUB
    END IF
    IF gridbtn.Flat = 1 THEN
        gridbtn.Flat = 0
        gridbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB speedresbtnclick
    IF speedresbtn.Flat = 0 THEN
        resetbtns
        speedresbtn.Flat = 1
        speedresbtn.Color = &H88cc88
        chartscursormode = 1
        say speedresbtn.hint
        EXIT SUB
    END IF
    IF speedresbtn.Flat = 1 THEN
        speedresbtn.Flat = 0
        speedresbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB seedoflifebtnclick
    IF seedoflifebtn.Flat = 0 THEN
        resetbtns
        seedoflifebtn.Flat = 1
        seedoflifebtn.Color = &H88cc88
        chartscursormode = 1
        say seedoflifebtn.hint
        EXIT SUB
    END IF
    IF seedoflifebtn.Flat = 1 THEN
        seedoflifebtn.Flat = 0
        seedoflifebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB gannsquarebtnclick
    IF gannsquarebtn.Flat = 0 THEN
        resetbtns
        gannsquarebtn.Flat = 1
        gannsquarebtn.Color = &H88cc88
        chartscursormode = 1
        say gannsquarebtn.hint
        EXIT SUB
    END IF
    IF gannsquarebtn.Flat = 1 THEN
        gannsquarebtn.Flat = 0
        gannsquarebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB fibospiralbtnclick
    IF fibospiralbtn.Flat = 0 THEN
        resetbtns
        fibospiralbtn.Flat = 1
        fibospiralbtn.Color = &H88cc88
        chartscursormode = 1
        say fibospiralbtn.hint
        EXIT SUB
    END IF
    IF fibospiralbtn.Flat = 1 THEN
        fibospiralbtn.Flat = 0
        fibospiralbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB archimedspiralbtnclick
    IF archimedspiralbtn.Flat = 0 THEN
        resetbtns
        archimedspiralbtn.Flat = 1
        archimedspiralbtn.Color = &H88cc88
        chartscursormode = 1
        say archimedspiralbtn.hint
        EXIT SUB
    END IF
    IF archimedspiralbtn.Flat = 1 THEN
        archimedspiralbtn.Flat = 0
        archimedspiralbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB fiboarcsbtnclick
    IF fiboarcsbtn.Flat = 0 THEN
        resetbtns
        fiboarcsbtn.Flat = 1
        fiboarcsbtn.Color = &H88cc88
        chartscursormode = 1
        say fiboarcsbtn.hint
        EXIT SUB
    END IF
    IF fiboarcsbtn.Flat = 1 THEN
        fiboarcsbtn.Flat = 0
        fiboarcsbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB speedresarcsbtnclick
    IF speedresarcsbtn.Flat = 0 THEN
        resetbtns
        speedresarcsbtn.Flat = 1
        speedresarcsbtn.Color = &H88cc88
        chartscursormode = 1
        say speedresarcsbtn.hint
        EXIT SUB
    END IF
    IF speedresarcsbtn.Flat = 1 THEN
        speedresarcsbtn.Flat = 0
        speedresarcsbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB circlebtnclick
    IF circlebtn.Flat = 0 THEN
        resetbtns
        circlebtn.Flat = 1
        circlebtn.Color = &H88cc88
        chartscursormode = 1
        say circlebtn.hint
        EXIT SUB
    END IF
    IF circlebtn.Flat = 1 THEN
        circlebtn.Flat = 0
        circlebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB crossbtnclick
    IF crossbtn.Flat = 0 THEN
        resetbtns
        crossbtn.Flat = 1
        crossbtn.Color = &H88cc88
        chartscursormode = 1
        say crossbtn.hint
        EXIT SUB
    END IF
    IF crossbtn.Flat = 1 THEN
        crossbtn.Flat = 0
        crossbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB invcirclebtnclick
    IF invcirclebtn.Flat = 0 THEN
        resetbtns
        invcirclebtn.Flat = 1
        invcirclebtn.Color = &H88cc88
        chartscursormode = 1
        say invcirclebtn.hint
        EXIT SUB
    END IF
    IF invcirclebtn.Flat = 1 THEN
        invcirclebtn.Flat = 0
        invcirclebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB textbtnclick
    IF textbtn.Flat = 0 THEN
        resetbtns
        textbtn.Flat = 1
        textbtn.Color = &H88cc88
        chartscursormode = 1
        say textbtn.hint
        EXIT SUB
    END IF
    IF textbtn.Flat = 1 THEN
        textbtn.Flat = 0
        textbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB vectortextbtnclick
    IF vectortextbtn.Flat = 0 THEN
        resetbtns
        vectortextbtn.Flat = 1
        vectortextbtn.Color = &H88cc88
        chartscursormode = 1
        say textbtn.hint
        EXIT SUB
    END IF
    IF vectortextbtn.Flat = 1 THEN
        vectortextbtn.Flat = 0
        vectortextbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB aimingbtnclick
    IF aimingbtn.Flat = 0 THEN
        resetbtns
        aimingbtn.Flat = 1
        aimingbtn.Color = &H88cc88
        chartscursormode = 1
        say aimingbtn.hint
        EXIT SUB
    END IF
    IF aimingbtn.Flat = 1 THEN
        aimingbtn.Flat = 0
        aimingbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB handdbtnclick
    IF handdbtn.Flat = 0 THEN
        resetbtns
        handdbtn.Flat = 1
        handdbtn.Color = &H88cc88
        chartscursormode = 1
        say handdbtn.hint
        EXIT SUB
    END IF
    IF handdbtn.Flat = 1 THEN
        handdbtn.Flat = 0
        handdbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB sinbtnclick
    IF sinbtn.Flat = 0 THEN
        resetbtns
        sinbtn.Flat = 1
        sinbtn.Color = &H88cc88
        chartscursormode = 1
        say sinbtn.hint
        EXIT SUB
    END IF
    IF sinbtn.Flat = 1 THEN
        sinbtn.Flat = 0
        sinbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB logbtnclick
    IF logbtn.Flat = 0 THEN
        resetbtns
        logbtn.Flat = 1
        logbtn.Color = &H88cc88
        chartscursormode = 1
        say logbtn.hint
        EXIT SUB
    END IF
    IF logbtn.Flat = 1 THEN
        logbtn.Flat = 0
        logbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB expbtnclick
    IF expbtn.Flat = 0 THEN
        resetbtns
        expbtn.Flat = 1
        expbtn.Color = &H88cc88
        chartscursormode = 1
        say expbtn.hint
        EXIT SUB
    END IF
    IF expbtn.Flat = 1 THEN
        expbtn.Flat = 0
        expbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB priceextbtnclick
    IF priceextbtn.Flat = 0 THEN
        resetbtns
        priceextbtn.Flat = 1
        priceextbtn.Color = &H88cc88
        chartscursormode = 1
        say priceextbtn.hint
        EXIT SUB
    END IF
    IF priceextbtn.Flat = 1 THEN
        priceextbtn.Flat = 0
        priceextbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB reversebtnclick
    IF reversebtn.Flat = 0 THEN
        'resetbtns
        reversebtn.Flat = 1
        reversebtn.Color = &H88cc88
        chartscursormode = 1
        reverse = 1
        say reversebtn.hint
        EXIT SUB
    END IF
    IF reversebtn.Flat = 1 THEN
        reversebtn.Flat = 0
        reversebtn.Color = &Hcccccc
        chartscursormode = 0
        reverse = 0
        EXIT SUB
    END IF
END SUB

SUB flipbtnclick
    IF flipbtn.Flat = 0 THEN
        'resetbtns
        flipbtn.Flat = 1
        flipbtn.Color = &H88cc88
        chartscursormode = 1
        flip = 1
        say flipbtn.hint
        EXIT SUB
    END IF
    IF flipbtn.Flat = 1 THEN
        flipbtn.Flat = 0
        flipbtn.Color = &Hcccccc
        chartscursormode = 0
        flip = 0
        EXIT SUB
    END IF
END SUB

SUB ellipsebtnclick
    IF ellipsebtn.Flat = 0 THEN
        resetbtns
        ellipsebtn.Flat = 1
        ellipsebtn.Color = &H88cc88
        chartscursormode = 1
        say ellipsebtn.hint
        EXIT SUB
    END IF
    IF ellipsebtn.Flat = 1 THEN
        ellipsebtn.Flat = 0
        ellipsebtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB ellipse3btnclick
    IF ellipse3btn.Flat = 0 THEN
        resetbtns
        ellipse3btn.Flat = 1
        ellipse3btn.Color = &H88cc88
        chartscursormode = 1
        say ellipse3btn.hint
        EXIT SUB
    END IF
    IF ellipse3btn.Flat = 1 THEN
        ellipse3btn.Flat = 0
        ellipse3btn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB pitchforkbtnclick
    IF pitchforkbtn.Flat = 0 THEN
        resetbtns
        pitchforkbtn.Flat = 1
        pitchforkbtn.Color = &H88cc88
        chartscursormode = 1
        say pitchforkbtn.hint
        EXIT SUB
    END IF
    IF pitchforkbtn.Flat = 1 THEN
        pitchforkbtn.Flat = 0
        pitchforkbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB schiffpitchforkbtnclick
    IF schiffpitchforkbtn.Flat = 0 THEN
        resetbtns
        schiffpitchforkbtn.Flat = 1
        schiffpitchforkbtn.Color = &H88cc88
        chartscursormode = 1
        say schiffpitchforkbtn.hint
        EXIT SUB
    END IF
    IF schiffpitchforkbtn.Flat = 1 THEN
        schiffpitchforkbtn.Flat = 0
        schiffpitchforkbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB sq9fbtnclick
    IF sq9fbtn.Flat = 0 THEN
        resetbtns
        sq9fbtn.Flat = 1
        sq9fbtn.Color = &H88cc88
        chartscursormode = 1
        say sq9fbtn.hint
        EXIT SUB
    END IF
    IF sq9fbtn.Flat = 1 THEN
        sq9fbtn.Flat = 0
        sq9fbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB timesq9fbtnclick
    IF tsq9fbtn.Flat = 0 THEN
        resetbtns
        tsq9fbtn.Flat = 1
        tsq9fbtn.Color = &H88cc88
        chartscursormode = 1
        say tsq9fbtn.hint
        EXIT SUB
    END IF
    IF tsq9fbtn.Flat = 1 THEN
        tsq9fbtn.Flat = 0
        tsq9fbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB sq144fbtnclick
    IF sq144fbtn.Flat = 0 THEN
        resetbtns
        sq144fbtn.Flat = 1
        sq144fbtn.Color = &H88cc88
        chartscursormode = 1
        say sq144fbtn.hint
        EXIT SUB
    END IF
    IF sq144fbtn.Flat = 1 THEN
        sq144fbtn.Flat = 0
        sq144fbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB timesq144fbtnclick
    IF tsq144fbtn.Flat = 0 THEN
        resetbtns
        tsq144fbtn.Flat = 1
        tsq144fbtn.Color = &H88cc88
        chartscursormode = 1
        say tsq144fbtn.hint
        EXIT SUB
    END IF
    IF tsq144fbtn.Flat = 1 THEN
        tsq144fbtn.Flat = 0
        tsq144fbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB pricecyclesbtnclick
    IF pricecyclesbtn.Flat = 0 THEN
        resetbtns
        pricecyclesbtn.Flat = 1
        pricecyclesbtn.Color = &H88cc88
        chartscursormode = 1
        say pricecyclesbtn.hint
        EXIT SUB
    END IF
    IF pricecyclesbtn.Flat = 1 THEN
        pricecyclesbtn.Flat = 0
        pricecyclesbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB timecyclesbtnclick
    IF timecyclesbtn.Flat = 0 THEN
        resetbtns
        timecyclesbtn.Flat = 1
        timecyclesbtn.Color = &H88cc88
        chartscursormode = 1
        say timecyclesbtn.hint
        EXIT SUB
    END IF
    IF timecyclesbtn.Flat = 1 THEN
        timecyclesbtn.Flat = 0
        timecyclesbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB logspiralbtnclick
    IF logspiralbtn.Flat = 0 THEN
        resetbtns
        logspiralbtn.Flat = 1
        logspiralbtn.Color = &H88cc88
        chartscursormode = 1
        say logspiralbtn.hint
        EXIT SUB
    END IF
    IF logspiralbtn.Flat = 1 THEN
        logspiralbtn.Flat = 0
        logspiralbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB polybtnclick
    IF polybtn.Flat = 0 THEN
        resetbtns
        polybtn.Flat = 1
        polybtn.Color = &H88cc88
        chartscursormode = 1
        say polybtn.hint
        EXIT SUB
    END IF
    IF polybtn.Flat = 1 THEN
        polybtn.Flat = 0
        polybtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB pentagbtnclick
    IF pentagbtn.Flat = 0 THEN
        resetbtns
        pentagbtn.Flat = 1
        pentagbtn.Color = &H88cc88
        chartscursormode = 1
        say pentagbtn.hint
        EXIT SUB
    END IF
    IF pentagbtn.Flat = 1 THEN
        pentagbtn.Flat = 0
        pentagbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB orcyclesbtnclick
    IF orcyclesbtn.Flat = 0 THEN
        resetbtns
        orcyclesbtn.Flat = 1
        orcyclesbtn.Color = &H88cc88
        chartscursormode = 1
        say orcyclesbtn.hint
        EXIT SUB
    END IF
    IF orcyclesbtn.Flat = 1 THEN
        orcyclesbtn.Flat = 0
        orcyclesbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB polygbtnclick
    IF polygbtn.Flat = 0 THEN
        resetbtns
        polygbtn.Flat = 1
        polygbtn.Color = &H88cc88
        chartscursormode = 1
        say polygbtn.hint
        EXIT SUB
    END IF
    IF polygbtn.Flat = 1 THEN
        polygbtn.Flat = 0
        polygbtn.Color = &Hcccccc
        chartscursormode = 0
        EXIT SUB
    END IF
END SUB

SUB settingsbtnclick

    IF crossbtn.Flat = 1 THEN
        crossform.Visible = 1
        crossform.windowstate=0
        setfocus(crossform.handle)
        EXIT SUB
    END IF
    
    IF fiboarcsbtn.Flat = 1 THEN
        fiboarcsform.Visible = 1
        fiboarcsform.windowstate=0
        setfocus(fiboarcsform.handle)
        EXIT SUB
    END IF
    
    IF speedresarcsbtn.Flat = 1 THEN
        speedresarcsform.Visible = 1
        speedresarcsform.windowstate=0
        setfocus(speedresarcsform.handle)
        EXIT SUB
    END IF

    IF seedoflifebtn.Flat = 1 THEN
        seedoflifeform.Visible = 1
        seedoflifeform.windowstate=0
        setfocus(seedoflifeform.handle)
        EXIT SUB
    END IF

    IF gannsquarebtn.Flat = 1 THEN
        gannsquareform.Visible = 1
        gannsquareform.windowstate=0
        setfocus(gannsquareform.handle)
        EXIT SUB
    END IF

    IF fibospiralbtn.Flat = 1 THEN
        fibospiralform.Visible = 1
        fibospiralform.windowstate=0
        setfocus(fibospiralform.handle)
        EXIT SUB
    END IF

    IF archimedspiralbtn.Flat = 1 THEN
        archimedspiralform.Visible = 1
        archimedspiralform.windowstate=0
        setfocus(archimedspiralform.handle)
        EXIT SUB
    END IF

    IF sq144fbtn.Flat = 1 THEN
        sq144form.Visible = 1
        sq144form.windowstate=0
        setfocus(sq144form.handle)
        EXIT SUB
    END IF

    IF tsq144fbtn.Flat = 1 THEN
        tsq144form.Visible = 1
        tsq144form.windowstate=0
        setfocus(tsq144form.handle)
        EXIT SUB
    END IF

    IF sq9fbtn.Flat = 1 THEN
        sq9form.Visible = 1
        sq9form.windowstate=0
        setfocus(sq9form.handle)
        EXIT SUB
    END IF

    IF tsq9fbtn.Flat = 1 THEN
        tsq9form.Visible = 1
        tsq9form.windowstate=0
        setfocus(tsq9form.handle)
        EXIT SUB
    END IF
    
    IF fibofanbtn.Flat = 1 THEN
        fibofanform.Visible = 1
        fibofanform.windowstate=0
        setfocus(fibofanform.handle)
        EXIT SUB
    END IF
    
    IF schiffpitchforkbtn.Flat = 1 THEN
        schiffpitchforkform.Visible = 1
        schiffpitchforkform.windowstate=0
        setfocus(schiffpitchforkform.handle)
        EXIT SUB
    END IF
    
    IF gannfanbtn.Flat = 1 THEN
        gannfanform.Visible = 1
        gannfanform.windowstate=0
        setfocus(gannfanform.handle)
        EXIT SUB
    END IF
    
    IF polygbtn.Flat = 1 THEN
        polygform.Visible = 1
        polygform.windowstate=0
        setfocus(polygform.handle)
        EXIT SUB
    END IF
    
    IF sinbtn.Flat = 1 THEN
        sinform.Visible = 1
        sinform.windowstate=0
        setfocus(sinform.handle)
        EXIT SUB
    END IF
    
    IF primebtn.Flat = 1 THEN
        primeform.Visible = 1
        primeform.windowstate=0
        setfocus(primeform.handle)
        EXIT SUB
    END IF
    
    IF speedresbtn.Flat = 1 THEN
        speedresform.Visible = 1
        speedresform.windowstate=0
        setfocus(speedresform.handle)
        EXIT SUB
    END IF
    
    IF sqrbtn.Flat = 1 THEN
        sqrform.Visible = 1
        sqrform.windowstate=0
        setfocus(sqrform.handle)
        EXIT SUB
    END IF
    
    IF sqr2btn.Flat = 1 THEN
        sqr2form.Visible = 1
        sqr2form.windowstate=0
        setfocus(sqr2form.handle)
        EXIT SUB
    END IF
    
    IF tribtn.Flat = 1 THEN
        triform.Visible = 1
        triform.windowstate=0
        setfocus(triform.handle)
        EXIT SUB
    END IF
    
    IF tri2btn.Flat = 1 THEN
        tri2form.Visible = 1
        tri2form.windowstate=0
        setfocus(tri2form.handle)
        EXIT SUB
    END IF

    SHOWMESSAGE "No settings for this tool or no drawing tool selected"

END SUB

DECLARE SUB editorresize
DECLARE SUB topicclick(SENDER AS QLISTBOX)

CREATE topicsfont AS QFONT
    Size = 13
END CREATE

CREATE articlesfont AS QFONT
    Size = 13
END CREATE

CREATE editorfrm AS QFORM
    Width = 600
    Height = 600
    Center
    Caption = "Articles"
    Top = 131
    Left = 0
    CREATE articleslist AS QLISTBOX
        Left = 0
        Width = 150
        Height = editorfrm.Height - 30
        OnClick = topicclick
        Font = topicsfont
        'Articles topics list
        AddItems "Topics:"
        AddItems "Introducing Forex"
        'End Articles topics list
    END CREATE
    CREATE richedit AS QRICHEDIT
        Left = 150
        Width = editorfrm.Width - 160
        Height = editorfrm.Height - 30
        Font = articlesfont
        ReadOnly = 1
        ScrollBars = ssBoth
        Text = "Click on the topic of your choice in the list box."
    END CREATE
    OnResize = editorresize
END CREATE

CREATE MailForm AS QFORM  'Main Form
    Height = 370
    Width = 500
    Caption = "Express Mailer Version 1.01"
    Center
    CREATE Label1 AS QLABEL
        Top = 12
        Left = 5
        Caption = "SMTP Server:"
    END CREATE
    CREATE Label2 AS QLABEL
        Top = 39
        Left = 5
        Caption = "From:"
    END CREATE
    CREATE Label3 AS QLABEL
        Top = 67
        Left = 5
        Caption = "To:"
    END CREATE
    CREATE Label4 AS QLABEL
        Top = 73 + 27
        Left = 5
        Caption = "Subject:"
    END CREATE
    CREATE Edit1 AS QEDIT

        Left = 110
        Top = 10
        Width = 380
        Height = 20
        Text = "smtp.sfr.fr"
        'onchange=edit1change
    END CREATE
    CREATE Edit2 AS QEDIT

        Left = 110
        Top = 37
        Width = 380
        Height = 20
        Text = "email@server.com"
        'onchange=edit2change
    END CREATE
    CREATE Edit3 AS QEDIT

        Left = 110
        Top = 37 + 27
        Width = 380
        Height = 20
        Text = "email@server.com"
        'onchange=edit3change
    END CREATE
    CREATE Edit4 AS QEDIT

        Left = 110
        Top = 71 + 27
        Width = 380
        Height = 20
        Text = "signal"
        'onchange=edit4change
    END CREATE
    CREATE Button AS QBUTTON
        Left = 70
        Top = 250 + 27
        Height = 20
        Width = 420
        Caption = "<<< Send the e-mail... >>>"
        OnClick = ButtonClick
    END CREATE
    CREATE Status AS QLABEL
        Left = 70
        Top = 280 + 27
        Height = 20
        Width = 420
        Caption = "Please enter your e-mail."
    END CREATE
    CREATE TextBox AS QRICHEDIT
        Top = 95 + 5 + 27
        Left = 70
        Width = 420
        Height = 140
        PlainText = TRUE
        Font = TheFont
        Text = "signal"
        'onchange=edit5change
    END CREATE
    CREATE Label5 AS QLABEL
        Top = 98 + 5 + 27
        Left = 5
        Caption = "Message:"
    END CREATE
    CREATE enablemailer AS QCHECKBOX
        Caption = "Enable"
        Checked = 0
        Top = MailForm.Height - 50
        'onclick=mailersub
    END CREATE
    CREATE savemailer AS QBUTTON
        Caption = "Save changes"
        Top = MailForm.Height - 70
        'onclick=mailersub
        Left = MailForm.Width - 100
        OnClick = savemailersub
    END CREATE
    OnShow = restoremailersub
END CREATE

'sub mailersub
'if enablemailer.checked=1 then

'ini.Section="Settings"
'ini.write("mailer","1")
'exit sub
'end if
'if enablemailer.checked=0 then

'ini.Section="Settings"
'ini.write("mailer","0")
'exit sub
'end if
'end sub

SUB restoremailersub
    Edit1.Text = ini.get("smtp" , "")
    Edit2.Text = ini.get("from" , "")
    Edit3.Text = ini.get("to" , "")
    Edit4.Text = ini.get("subject" , "")
    enablemailer.Checked = VAL(ini.get("mailer" , ""))
    TextBox.Text = ini.get("message" , "")
END SUB

SUB savemailersub
    ini.Section = "Settings"
    ini.Write("smtp" , Edit1.Text)
    ini.Write("from" , Edit2.Text)
    ini.Write("to" , Edit3.Text)
    ini.Write("subject" , Edit4.Text)
    ini.Write("message" , TextBox.Text)
    IF enablemailer.Checked = 1 THEN
        ini.Write("mailer" , "1")
        EXIT SUB
    END IF
    IF enablemailer.Checked = 0 THEN
        ini.Write("mailer" , "0")
        EXIT SUB
    END IF
END SUB


'end sub

$TYPECHECK off

SUB TimerExpired  '"Main" routine
    Timer1.Enabled = FALSE
    Timer1.Interval = DELAY
    IF SockNum <= 0 THEN
        Timer1.Enabled = TRUE
        EXIT SUB
    END IF
    IF Socket.IsServerReady(SockNum) THEN
        LastLine = Socket.ReadLine(SockNum)
        IF Socket.Transferred < 0 THEN  'server dropped connection
            SockNum = 0
            'SHOWMESSAGE "Server disconnected unexpectedly!"
            Status.Caption = "Please enter your e-mail."
        END IF
        LastCode = VAL(MID$(LastLine , 1 , 3)) 'Get 3 digit error code
        IF LastCode > 400 THEN  'indicates error message
            'SHOWMESSAGE "Error: "+LastLine               ' -> abort
            Status.Caption = "Please enter your e-mail."
            Timer1.Enabled = FALSE
            Button.Caption = "<<< Send the e-mail... >>>"
            Socket.close(SockNum)
            SockNum = 0
            Timer1.Enabled = TRUE
            MailStep = 0
        END IF
        IF LastCode = 221 AND MailStep = 6 THEN  'last step completed
            'SHOWMESSAGE "Mail sent succesfully."         ' -> done
            Status.Caption = "Please enter your e-mail."
            Timer1.Enabled = FALSE
            Button.Caption = "<<< Send the e-mail... >>>"
            Socket.close(SockNum)
            SockNum = 0
            Timer1.Enabled = TRUE
            MailStep = 0
        END IF
        SELECT CASE MailStep  'Send the mail
            CASE 1  'This mail is from...
                Status.Caption = "Negotiating transfer [step 1/2]..."
                Socket.WriteLine(SockNum , "MAIL FROM:<" + Edit2.Text + ">")
                MailStep = 2
            CASE 2  'We're gonna send it to...
                Status.Caption = "Negotiating transfer [step 2/2]..."
                Socket.WriteLine(SockNum , "RCPT TO:<" + Edit3.Text + ">")
                MailStep = 3
            CASE 3  'Dear server, I'd like to give you this "letter"...
                Status.Caption = "Starting mail transfer..."
                Socket.WriteLine(SockNum , "DATA")
                MailStep = 4
            CASE 4  '... and here it goes
                Socket.WriteLine(SockNum , "From: " + Edit2.Text + " <" + Edit2.Text + ">")
                Socket.WriteLine(SockNum , "To: " + Edit3.Text)
                Socket.WriteLine(SockNum , "X-Priority: 3")
                Socket.WriteLine(SockNum , "X-MSMail-Priority: Normal")
                Socket.WriteLine(SockNum , "X-Mailer: Rapid-Q Express Mailer by DarkWulf V. 1.01")
                Socket.WriteLine(SockNum , "Reply-to: " + Edit2.Text)
                Socket.WriteLine(SockNum , "Subject: " + Edit4.Text)
                Socket.WriteLine(SockNum , "Content-Type: text/plain; charset=" + CHR$(34) + "iso-8859-1" + CHR$(34))
                Socket.WriteLine(SockNum , "Content-transfer-encoding: 8bit")
                Socket.WriteLine(SockNum , "Status:")
                FOR a = 1 TO TextBox.LineCount
                    Status.Caption = "Sending mail [" + LTRIM$(RTRIM$(STR$(INT(100 / TextBox.LineCount * a)))) + "%]..."
                    t$ = TextBox.Line(a)
                    IF MID$(t$ , 1 , 1) = "." THEN
                        t$ = "." + t$  'one single dot=end of mail
                    END IF
                    Socket.WriteLine(SockNum , t$)
                NEXT a
                Socket.WriteLine(SockNum , ".")
                MailStep = 5
            CASE 5  'Log out
                Status.Caption = "Transfer complete ... logging out..."
                Socket.WriteLine(SockNum , "QUIT")
                MailStep = 6
        END SELECT
    END IF
    Timer1.Enabled = TRUE
END SUB

$TYPECHECK on

SUB ButtonClick  'Begin to send the mail
    IF Button.Caption = "<<< SENDING MAIL >>>" THEN  'Abort it
        Status.Caption = "Please enter your e-mail."
        Timer1.Enabled = FALSE
        Button.Caption = "<<< Send the e-mail... >>>"
        Socket.close(SockNum)
        SockNum = 0
        Timer1.Enabled = TRUE
        MailStep = 0
        EXIT SUB
    END IF
    SockNum = Socket.Connect(Edit1.Text , 25) 'Connect to port 25
    MailStep = 0
    IF SockNum > 0 THEN
        Timer1.Enabled = FALSE
        Button.Caption = "<<< SENDING MAIL >>>"
        Status.Caption = "Connecting to " + Edit1.Text + "..."
        LastLine = Socket.ReadLine(SockNum)
        LastCode = VAL(MID$(LastLine , 1 , 3)) 'Get 3 digit error code
        IF LastCode > 400 THEN  'indicates error message
            'SHOWMESSAGE "Error: "+LastLine
            Status.Caption = "Please enter your e-mail."
            Timer1.Enabled = FALSE
            Button.Caption = "<<< Send the e-mail... >>>"
            Socket.close(SockNum)
            SockNum = 0
            Timer1.Enabled = TRUE
            MailStep = 0
        END IF
        MailStep = 1
        Socket.WriteLine(SockNum , "HELO localhost") 'Hello server!
        Timer1.Enabled = TRUE
    ELSE
        SockNum = 0
        'SHOWMESSAGE "Unable to connect to: "+Edit1.Text      'Couldn't connect to
        'server
    END IF
END SUB

SUB editorresize
    WITH articleslist
        .Left = 0
        .Width = 150
        .Height = editorfrm.Height - 30
    END WITH
    WITH richedit
        .Width = editorfrm.Width - 160
        .Height = editorfrm.Height - 30
    END WITH
END SUB

$include "docs\articles.doc"

SUB topicclick(SENDER AS QLISTBOX)
    SELECT CASE SENDER.Item(sender.ItemIndex)
        CASE "Topics:" :
            richedit.Text = article_topics$
        CASE "Introducing Forex" :
            richedit.Text = article_Introducing_Forex$

    END SELECT
END SUB

SUB showeditor
    editorfrm.Visible = 1
    editorfrm.windowstate=0
    setfocus(editorfrm.handle)
END SUB

DIM MenuItem(100) AS QMENUITEM
DIM menui AS INTEGER
menui = 1
MenuItem(menui).Caption = "Data source"
MenuItem(menui).OnClick = datasource
FileMenu.AddItems(MenuItem(menui))
menui ++
' ---- Useless -------------------
'MenuItem(menui).Caption = "Login"
'MenuItem(menui).OnClick = loginsub
'FileMenu.AddItems(MenuItem(menui))
'menui ++
' --------------------------------
MenuItem(menui).Caption = "Import CSV"
MenuItem(menui).OnClick = importcsv
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Export CSV"
MenuItem(menui).OnClick = exportfile
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Export indicator CSV"
MenuItem(menui).OnClick = export_indicator_data
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Period Converter"
MenuItem(menui).OnClick = Period_Converter_sub
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Export collection"
MenuItem(menui).OnClick = exportcollection
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Open BMP"
MenuItem(menui).OnClick = importbmp
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Save picture"
MenuItem(menui).OnClick = savebmp
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Mixer"
MenuItem(menui).OnClick = mixerform
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Print chart"
MenuItem(menui).OnClick = printchart
FileMenu.AddItems(MenuItem(menui))
menui ++
MenuItem(menui).Caption = "Quit"
MenuItem(menui).OnClick = quit
FileMenu.AddItems(MenuItem(menui))

DIM MenuItem4(100) AS QMENUITEM
DIM menui4 AS INTEGER
menui4 = 1
MenuItem4(menui4).Caption = "Find bar"
MenuItem4(menui4).OnClick = findbar
EditMenu.AddItems(MenuItem4(menui4))
menui4 ++
MenuItem4(menui4).Caption = "Reverse bars"
MenuItem4(menui4).OnClick = reversetillend
EditMenu.AddItems(MenuItem4(menui4))
menui4 ++
MenuItem4(menui4).Caption = "Reverse bars from file..."
MenuItem4(menui4).OnClick = reversetillendfromfile
EditMenu.AddItems(MenuItem4(menui4))
menui4 ++
MenuItem4(menui4).Caption = "Chart conversions"
MenuItem4(menui4).OnClick = chartconvsub
EditMenu.AddItems(MenuItem4(menui4))
menui4 ++
MenuItem4(menui4).Caption = "Save chart data into tmp grid"
MenuItem4(menui4).OnClick = savegridtmp
EditMenu.AddItems(MenuItem4(menui4))
menui4 ++
MenuItem4(menui4).Caption = "Attribute timeframe"
MenuItem4(menui4).OnClick = attribtf
EditMenu.AddItems(MenuItem4(menui4))
menui4 ++
MenuItem4(menui4).Caption = "Reimport file"
MenuItem4(menui4).OnClick = reimportfilesub
EditMenu.AddItems(MenuItem4(menui4))
menui4 ++
MenuItem4(menui4).Caption = "Tool settings"
MenuItem4(menui4).OnClick = settingsbtnclick
EditMenu.AddItems(MenuItem4(menui4))
menui4 ++

DIM MenuItem2(100) AS QMENUITEM
DIM menui2 AS INTEGER
menui2 = 1
MenuItem2(menui2).Caption = "Tools informations"
MenuItem2(menui2).OnClick = showtoolsinfo
WindowsMenu.AddItems(MenuItem2(menui2))
menui2 ++
MenuItem2(menui2).Caption = "Show separate canvas"
MenuItem2(menui2).OnClick = showcanvasclick
WindowsMenu.AddItems(MenuItem2(menui2))
menui2 ++
MenuItem2(menui2).Caption = "Show tools"
MenuItem2(menui2).OnClick = showtoolsclick
WindowsMenu.AddItems(MenuItem2(menui2))
menui2 ++
MenuItem2(menui2).Caption = "Objects list"
MenuItem2(menui2).OnClick = showobjectslistfrm
WindowsMenu.AddItems(MenuItem2(menui2))
menui2 ++
MenuItem2(menui2).Caption = "Reverse log"
MenuItem2(menui2).OnClick = showfrmlogreverse
WindowsMenu.AddItems(MenuItem2(menui2))
menui2 ++
MenuItem2(menui2).Caption = "Show toolbar"
MenuItem2(menui2).OnClick = showtoolbarclick
WindowsMenu.AddItems(MenuItem2(menui2))
menui2 ++
MenuItem2(menui2).Caption = "Previous tools"
MenuItem2(menui2).OnClick = previoustoolsclick
WindowsMenu.AddItems(MenuItem2(menui2))
menui2 ++
MenuItem2(menui2).Caption = "Next tools"
MenuItem2(menui2).OnClick = nexttoolsclick
WindowsMenu.AddItems(MenuItem2(menui2))
menui2 ++
MenuItem2(menui2).Caption = "Market Watchlist Live"
MenuItem2(menui2).OnClick = showwatchlist
WindowsMenu.AddItems(MenuItem2(menui2))

DIM MenuItem3(100) AS QMENUITEM
DIM menui3 AS INTEGER
menui3 = 1
MenuItem3(menui3).Caption = "Chart colors"
MenuItem3(menui3).OnClick = chartcolorssub
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Articles"
MenuItem3(menui3).OnClick = showeditor
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Mailer"
MenuItem3(menui3).OnClick = choosemailer
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Indicators"
MenuItem3(menui3).OnClick = indiform
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Speech settings"
MenuItem3(menui3).OnClick = showspeechform
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Chat"
MenuItem3(menui3).OnClick = chatformsub
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Ephemeris"
MenuItem3(menui3).OnClick = swephformsub
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Astro wheel settings"
MenuItem3(menui3).OnClick = astrowheelsettingssub
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Gann Square of Nine spiral"
MenuItem3(menui3).OnClick = formsq9showsub
ToolsMenu.AddItems(MenuItem3(menui3))
menui3 ++
MenuItem3(menui3).Caption = "Pre Market data"
MenuItem3(menui3).OnClick = premarketsub
ToolsMenu.AddItems(MenuItem3(menui3))

DIM MenuItem5(100) AS QMENUITEM
DIM menui5 AS INTEGER
menui5 = 1
MenuItem5(menui5).Caption = "Help"
MenuItem5(menui5).OnClick = openhelpsub
AboutMenu.AddItems(MenuItem5(menui5))
menui5 ++
MenuItem5(menui5).Caption = "Readme"
MenuItem5(menui5).OnClick = viewreadme
AboutMenu.AddItems(MenuItem5(menui5))
menui5 ++
MenuItem5(menui5).Caption = "About"
MenuItem5(menui5).OnClick = about
AboutMenu.AddItems(MenuItem5(menui5))
menui5 ++
MenuItem5(menui5).Caption = "Check for updates"
MenuItem5(menui5).OnClick = updates
AboutMenu.AddItems(MenuItem5(menui5))
menui5 ++
MenuItem5(menui5).Caption = "What's new"
MenuItem5(menui5).OnClick = whatsnewsub
AboutMenu.AddItems(MenuItem5(menui5))
menui5 ++
MenuItem5(menui5).Caption = "Website"
MenuItem5(menui5).OnClick = websitesub
AboutMenu.AddItems(MenuItem5(menui5))

SUB findbar
    calendarform.Visible = 1
END SUB


SUB justrefreshchart
    IF openedfilesnb > 0 THEN
        disablescrollmode
        btnOnClick(drwBox) ' need to put this for WineHQ compatibility, else the screen does not update correctly (but this slows down computations)
    END IF
END SUB

DECLARE SUB objectslistfrmresize
DECLARE SUB delallobjdbclick
DECLARE SUB delrowobjdbclick
DECLARE SUB delallallobjdbclick

CREATE objectslistfrm AS QFORM
    Width = 400
    Height = 250
    Caption = "Objects list"
    OnResize = objectslistfrmresize
    CREATE clearallobjdbbtn AS QBUTTON
        Top = objectslistfrm.Height - 70
        Left = 0
        Caption = "Clear grid"
        OnClick = delallobjdbclick
    END CREATE
    CREATE clearrowobjdbbtn AS QBUTTON
        Top = objectslistfrm.Height - 70
        Left = 75
        Caption = "Del row"
        OnClick = delrowobjdbclick
    END CREATE
    CREATE clearallallobjdbbtn AS QBUTTON
        Top = objectslistfrm.Height - 70
        Left = 150
        Caption = "Del all objs"
        OnClick = delallallobjdbclick
    END CREATE
    CREATE updatechartbtn AS QBUTTON
        Top = objectslistfrm.Height - 70
        Left = 225
        Caption = "Update chart"
        OnClick = justrefreshchart
    END CREATE
END CREATE

DECLARE SUB objecttypecombochange

DIM objecttypecombo AS QCOMBOBOX
objecttypecombo.Parent = objectslistfrm
objecttypecombo.Width = 150
objecttypecombo.AddItems "Choose an object" , "Trendlines" , "Fibonacci fans" , "Fibonacci retracements" , "Parallel lines" , _
    "Horizontal lines" , "Vertical lines" , "Squares" , "Equilateral triangles" , "Circles" , "Crosses" , "Inverse circles" , "Texts" , "Crosshairs" , _
    "Sinusoids" , "Logarithmic curves" , "Exponential curves" , "Ellipses", "Pentagrams", "SQ9Fs","Squares2","Triangles2","Buy orders","Sell orders",_
    "Text labels","Grids","Speed resistance lines","Fibonacci arcs","Seed of Life","SQ144Fs","Price cycles","Time cycles","Gann square","Fibonnaci spiral",_
"Archimed spiral", "Rotated ellipses", "Fibo circles", "Vector text", "Time Ruler", "Price Ruler", "Fill Region","Speed Res. arcs","Gann Fan"
objecttypecombo.ItemIndex = 0
objecttypecombo.OnChange = objecttypecombochange

SUB delallallobjdbclick
    DIM delallalli AS INTEGER
    FOR delallalli = 1 TO objecttypecombo.itemcount-1
        objecttypecombo.ItemIndex = delallalli
        delallobjdbclick
    NEXT delallalli
END SUB


SUB delallobjdbclick
    DIM delalli AS INTEGER
    DIM delallj AS INTEGER
    SELECT CASE objecttypecombo.ItemIndex
        CASE 1 :
            FOR delalli = 1 TO trendlinesdb.RowCount - 1
                FOR delallj = 1 TO trendlinesdb.ColCount - 1
                    trendlinesdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            trendlinesoffset = 0

        CASE 2 :
            FOR delalli = 1 TO fibofandb.RowCount - 1
                FOR delallj = 1 TO fibofandb.ColCount - 1
                    fibofandb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            fibofanoffset = 0

        CASE 3 :
            FOR delalli = 1 TO fiboretdb.RowCount - 1
                FOR delallj = 1 TO fiboretdb.ColCount - 1
                    fiboretdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            fiboretoffset = 0

        CASE 4 :
            FOR delalli = 1 TO paradb.RowCount - 1
                FOR delallj = 1 TO paradb.ColCount - 1
                    paradb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            paraoffset = 0

        CASE 5 :
            FOR delalli = 1 TO hlinedb.RowCount - 1
                FOR delallj = 1 TO hlinedb.ColCount - 1
                    hlinedb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            hlineoffset = 0

        CASE 6 :
            FOR delalli = 1 TO vlinedb.RowCount - 1
                FOR delallj = 1 TO vlinedb.ColCount - 1
                    vlinedb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            vlineoffset = 0

        CASE 7 :
            FOR delalli = 1 TO sqrdb.RowCount - 1
                FOR delallj = 1 TO sqrdb.ColCount - 1
                    sqrdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            sqroffset = 0

        CASE 8 :
            FOR delalli = 1 TO tridb.RowCount - 1
                FOR delallj = 1 TO tridb.ColCount - 1
                    tridb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            trioffset = 0

        CASE 9 :
            FOR delalli = 1 TO circledb.RowCount - 1
                FOR delallj = 1 TO circledb.ColCount - 1
                    circledb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            circleoffset = 0

        CASE 10 :
            FOR delalli = 1 TO crossdb.RowCount - 1
                FOR delallj = 1 TO crossdb.ColCount - 1
                    crossdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            crossoffset = 0

        CASE 11 :
            FOR delalli = 1 TO invcircledb.RowCount - 1
                FOR delallj = 1 TO invcircledb.ColCount - 1
                    invcircledb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            invcircleoffset = 0

        CASE 12 :
            FOR delalli = 1 TO textdb.RowCount - 1
                FOR delallj = 1 TO textdb.ColCount - 1
                    textdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            textoffset = 0

        CASE 13 :
            FOR delalli = 1 TO aimingdb.RowCount - 1
                FOR delallj = 1 TO aimingdb.ColCount - 1
                    aimingdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            aimingoffset = 0

        CASE 14 :
            FOR delalli = 1 TO sindb.RowCount - 1
                FOR delallj = 1 TO sindb.ColCount - 1
                    sindb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            sinoffset = 0

        CASE 15 :
            FOR delalli = 1 TO logdb.RowCount - 1
                FOR delallj = 1 TO logdb.ColCount - 1
                    logdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            logoffset = 0

        CASE 16 :
            FOR delalli = 1 TO expdb.RowCount - 1
                FOR delallj = 1 TO expdb.ColCount - 1
                    expdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            expoffset = 0

        CASE 17 :
            FOR delalli = 1 TO ellipsedb.RowCount - 1
                FOR delallj = 1 TO ellipsedb.ColCount - 1
                    ellipsedb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            ellipseoffset = 0
       
        CASE 18 :
            FOR delalli = 1 TO pentagdb.RowCount - 1
                FOR delallj = 1 TO pentagdb.ColCount - 1
                    pentagdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            pentagoffset = 0
            
        CASE 19 :
            FOR delalli = 1 TO sq9fdb.RowCount - 1
                FOR delallj = 1 TO sq9fdb.ColCount - 1
                    sq9fdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            sq9foffset = 0    
            
        CASE 20 :
            FOR delalli = 1 TO sqr2db.RowCount - 1
                FOR delallj = 1 TO sqr2db.ColCount - 1
                    sqr2db.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            sqr2offset = 0

        CASE 21 :
            FOR delalli = 1 TO tri2db.RowCount - 1
                FOR delallj = 1 TO tri2db.ColCount - 1
                    tri2db.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            tri2offset = 0
            
        CASE 22 :
            FOR delalli = 1 TO orderbuydb.RowCount - 1
                FOR delallj = 1 TO orderbuydb.ColCount - 1
                    orderbuydb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli     
            
        CASE 23 :
            FOR delalli = 1 TO orderselldb.RowCount - 1
                FOR delallj = 1 TO orderselldb.ColCount - 1
                    orderselldb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli  
            
        CASE 24 :
            FOR delalli = 1 TO textlabelsdb.RowCount - 1
                FOR delallj = 1 TO textlabelsdb.ColCount - 1
                    textlabelsdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            textlabelsoffset=0  
            
        CASE 25 :
            FOR delalli = 1 TO griddb.RowCount - 1
                FOR delallj = 1 TO griddb.ColCount - 1
                    griddb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT 
            gridoffset=0
            
        CASE 26 :
            FOR delalli = 1 TO speedresdb.RowCount - 1
                FOR delallj = 1 TO speedresdb.ColCount - 1
                    speedresdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT 
            speedresoffset=0
            
         CASE 27 :
            FOR delalli = 1 TO fiboarcsdb.RowCount - 1
                FOR delallj = 1 TO fiboarcsdb.ColCount - 1
                    fiboarcsdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT 
            fiboarcsoffset=0

	  CASE 28 :
            FOR delalli = 1 TO seedoflifedb.RowCount - 1
                FOR delallj = 1 TO seedoflifedb.ColCount - 1
                    seedoflifedb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT 
            seedoflifeoffset=0

	  CASE 29 :
            FOR delalli = 1 TO sq144fdb.RowCount - 1
                FOR delallj = 1 TO sq144fdb.ColCount - 1
                    sq144fdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            sq144foffset = 0    

	   CASE 30 :
            FOR delalli = 1 TO pricecyclesdb.RowCount - 1
                FOR delallj = 1 TO pricecyclesdb.ColCount - 1
                    pricecyclesdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            pricecyclesoffset = 0

	   CASE 31 :
            FOR delalli = 1 TO timecyclesdb.RowCount - 1
                FOR delallj = 1 TO timecyclesdb.ColCount - 1
                    timecyclesdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            timecyclesoffset = 0

	    CASE 32 :
            FOR delalli = 1 TO gannsquaredb.RowCount - 1
                FOR delallj = 1 TO gannsquaredb.ColCount - 1
                    gannsquaredb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            gannsquareoffset = 0

	    CASE 33 :
            FOR delalli = 1 TO fibospiraldb.RowCount - 1
                FOR delallj = 1 TO fibospiraldb.ColCount - 1
                    fibospiraldb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            fibospiraloffset = 0

	    CASE 34 :
            FOR delalli = 1 TO archimedspiraldb.RowCount - 1
                FOR delallj = 1 TO archimedspiraldb.ColCount - 1
                    archimedspiraldb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            archimedspiraloffset = 0
            
        CASE 35 :
            FOR delalli = 1 TO ellipse3db.RowCount - 1
                FOR delallj = 1 TO ellipse3db.ColCount - 1
                    ellipse3db.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            ellipse3offset = 0
            
        CASE 36 :
            FOR delalli = 1 TO fibocirclesdb.RowCount - 1
                FOR delallj = 1 TO fibocirclesdb.ColCount - 1
                    fibocirclesdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
           fibocirclesoffset = 0
           
        CASE 37 :
            FOR delalli = 1 TO vectortextdb.RowCount - 1
                FOR delallj = 1 TO vectortextdb.ColCount - 1
                    vectortextdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            vectortextoffset = 0  
            
        CASE 38 :
            FOR delalli = 1 TO timerulerdb.RowCount - 1
                FOR delallj = 1 TO timerulerdb.ColCount - 1
                    timerulerdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            timeruleroffset = 0
            
        CASE 39 :
            FOR delalli = 1 TO pricerulerdb.RowCount - 1
                FOR delallj = 1 TO pricerulerdb.ColCount - 1
                    pricerulerdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            priceruleroffset = 0    
            
        CASE 40 :
            FOR delalli = 1 TO fillregiondb.RowCount - 1
                FOR delallj = 1 TO fillregiondb.ColCount - 1
                    fillregiondb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            fillregionoffset = 0
            
        CASE 41 :
            FOR delalli = 1 TO speedresarcsdb.RowCount - 1
                FOR delallj = 1 TO speedresarcsdb.ColCount - 1
                    speedresarcsdb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT 
            speedresarcsoffset=0
            
        CASE 42 :
            FOR delalli = 1 TO gannfandb.RowCount - 1
                FOR delallj = 1 TO gannfandb.ColCount - 1
                    gannfandb.Cell(delallj , delalli) = ""
                NEXT delallj
            NEXT delalli
            gannfanoffset = 0
             

    END SELECT
END SUB

SUB delrowobjdbclick
    SELECT CASE objecttypecombo.ItemIndex
        CASE 1 :
            trendlinesdb.deleterow(trendlinesdb.Row)
            trendlinesoffset --
            IF trendlinesoffset < 0 THEN
                trendlinesoffset = 0
            END IF

        CASE 2 :
            fibofandb.deleterow(fibofandb.Row)
            fibofanoffset --
            IF fibofanoffset < 0 THEN
                fibofanoffset = 0
            END IF

        CASE 3 :
            fiboretdb.deleterow(fiboretdb.Row)
            fiboretoffset --
            IF fiboretoffset < 0 THEN
                fiboretoffset = 0
            END IF

        CASE 4 :
            paradb.deleterow(paradb.Row)
            paraoffset --
            IF paraoffset < 0 THEN
                paraoffset = 0
            END IF

        CASE 5 :
            hlinedb.deleterow(hlinedb.Row)
            hlineoffset --
            IF hlineoffset < 0 THEN
                hlineoffset = 0
            END IF

        CASE 6 :
            vlinedb.deleterow(vlinedb.Row)
            vlineoffset --
            IF vlineoffset < 0 THEN
                vlineoffset = 0
            END IF

        CASE 7 :
            sqrdb.deleterow(sqrdb.Row)
            sqroffset --
            IF sqroffset < 0 THEN
                sqroffset = 0
            END IF

        CASE 8 :
            tridb.deleterow(tridb.Row)
            trioffset --
            IF trioffset < 0 THEN
                trioffset = 0
            END IF

        CASE 9 :
            circledb.deleterow(circledb.Row)
            circleoffset --
            IF circleoffset < 0 THEN
                circleoffset = 0
            END IF

        CASE 10 :
            crossdb.deleterow(crossdb.Row)
            crossoffset --
            IF crossoffset < 0 THEN
                crossoffset = 0
            END IF

        CASE 11 :
            invcircledb.deleterow(invcircledb.Row)
            invcircleoffset --
            IF invcircleoffset < 0 THEN
                invcircleoffset = 0
            END IF

        CASE 12 :
            textdb.deleterow(textdb.Row)
            textoffset --
            IF textoffset < 0 THEN
                textoffset = 0
            END IF

        CASE 13 :
            aimingdb.deleterow(aimingdb.Row)
            aimingoffset --
            IF aimingoffset < 0 THEN
                aimingoffset = 0
            END IF

        CASE 14 :
            sindb.deleterow(sindb.Row)
            sinoffset --
            IF sinoffset < 0 THEN
                sinoffset = 0
            END IF

        CASE 15 :
            logdb.deleterow(logdb.Row)
            logoffset --
            IF logoffset < 0 THEN
                logoffset = 0
            END IF

        CASE 16 :
            expdb.deleterow(expdb.Row)
            expoffset --
            IF expoffset < 0 THEN
                expoffset = 0
            END IF

        CASE 17 :
            ellipsedb.deleterow(ellipsedb.Row)
            ellipseoffset --
            IF ellipseoffset < 0 THEN
                ellipseoffset = 0
            END IF
            
        CASE 18 :
            pentagdb.deleterow(pentagdb.Row)
            pentagoffset --
            IF pentagoffset < 0 THEN
                pentagoffset = 0
            END IF    
            
        CASE 19 :
            sq9fdb.deleterow(sq9fdb.Row)
            sq9foffset --
            IF sq9foffset < 0 THEN
                sq9foffset = 0
            END IF     
            
        CASE 20 :
            sqr2db.deleterow(sqr2db.Row)
            sqr2offset --
            IF sqr2offset < 0 THEN
                sqr2offset = 0
            END IF

        CASE 21 :
            tri2db.deleterow(tri2db.Row)
            tri2offset --
            IF tri2offset < 0 THEN
                tri2offset = 0
            END IF
            
        CASE 22 :
            orderbuydb.deleterow(orderbuydb.Row)
            
        CASE 23 :
            orderselldb.deleterow(orderselldb.Row)
            
        CASE 24 :
            textlabelsdb.deleterow(textlabelsdb.Row)
            textlabelsoffset --
            IF textlabelsoffset < 0 THEN
                textlabelsoffset = 0
            END IF     
            
         CASE 25 :
            griddb.deleterow(griddb.Row)
            gridoffset --
            IF gridoffset < 0 THEN
                gridoffset = 0
            END IF
            
         CASE 26 :
            speedresdb.deleterow(speedresdb.Row)
            speedresoffset --
            IF speedresoffset < 0 THEN
                speedresoffset = 0
            END IF
            
          CASE 27 :
            fiboarcsdb.deleterow(fiboarcsdb.Row)
            fiboarcsoffset --
            IF fiboarcsoffset < 0 THEN
                fiboarcsoffset = 0
            END IF

	  CASE 28 :
            seedoflifedb.deleterow(seedoflifedb.Row)
            seedoflifeoffset --
            IF seedoflifeoffset < 0 THEN
                seedoflifeoffset = 0
            END IF

	  CASE 29 :
            sq144fdb.deleterow(sq144fdb.Row)
            sq144foffset --
            IF sq144foffset < 0 THEN
                sq144foffset = 0
            END IF

	   CASE 30 :
            pricecyclesdb.deleterow(pricecyclesdb.Row)
            pricecyclesoffset --
            IF pricecyclesoffset < 0 THEN
                pricecyclesoffset = 0
            END IF

	   CASE 31 :
            timecyclesdb.deleterow(timecyclesdb.Row)
            timecyclesoffset --
            IF timecyclesoffset < 0 THEN
                timecyclesoffset = 0
            END IF

	    CASE 32 :
            gannsquaredb.deleterow(gannsquaredb.Row)
            gannsquareoffset --
            IF gannsquareoffset < 0 THEN
                gannsquareoffset = 0
            END IF

	    CASE 33 :
            fibospiraldb.deleterow(fibospiraldb.Row)
            fibospiraloffset --
            IF fibospiraloffset < 0 THEN
                fibospiraloffset = 0
            END IF

	    CASE 34 :
            archimedspiraldb.deleterow(archimedspiraldb.Row)
            archimedspiraloffset --
            IF archimedspiraloffset < 0 THEN
                archimedspiraloffset = 0
            END IF
            
        CASE 35 :
            ellipse3db.deleterow(ellipse3db.Row)
            ellipse3offset --
            IF ellipse3offset < 0 THEN
                ellipse3offset = 0
            END IF
            
        CASE 36 :
            fibocirclesdb.deleterow(fibocirclesdb.Row)
            fibocirclesoffset --
            IF fibocirclesoffset < 0 THEN
                fibocirclesoffset = 0
            END IF
            
        CASE 37 :
            vectortextdb.deleterow(vectortextdb.Row)
            vectortextoffset --
            IF vectortextoffset < 0 THEN
                vectortextoffset = 0
            END IF    
            
        CASE 38 :
            timerulerdb.deleterow(timerulerdb.Row)
            timeruleroffset --
            IF timeruleroffset < 0 THEN
                timeruleroffset = 0
            END IF   
            
        CASE 39 :
            pricerulerdb.deleterow(pricerulerdb.Row)
            priceruleroffset --
            IF priceruleroffset < 0 THEN
                priceruleroffset = 0
            END IF 
            
        CASE 40 :
            fillregiondb.deleterow(fillregiondb.Row)
            fillregionoffset --
            IF fillregionoffset < 0 THEN
                fillregionoffset = 0
            END IF 
            
        CASE 41 :
            speedresarcsdb.deleterow(speedresarcsdb.Row)
            speedresarcsoffset --
            IF speedresarcsoffset < 0 THEN
                speedresarcsoffset = 0
            END IF
            
        CASE 42 :
            gannfandb.deleterow(gannfandb.Row)
            gannfanoffset --
            IF gannfanoffset < 0 THEN
                gannfanoffset = 0
            END IF


    END SELECT
END SUB

DECLARE SUB hideallobjectsdb

hideallobjectsdb

SUB hideallobjectsdb
    trendlinesdb.Visible = 0
    fibofandb.Visible = 0
    gannfandb.Visible = 0
    fiboretdb.Visible = 0
    paradb.Visible = 0
    hlinedb.Visible = 0
    vlinedb.Visible = 0
    sqrdb.Visible = 0
    tridb.Visible = 0
    sqr2db.Visible = 0
    tri2db.Visible = 0
    circledb.Visible = 0
    crossdb.Visible = 0
    invcircledb.Visible = 0
    textdb.Visible = 0
    vectortextdb.Visible = 0
    aimingdb.Visible = 0
    sindb.Visible = 0
    logdb.Visible = 0
    expdb.Visible = 0
    ellipsedb.Visible = 0
    ellipse3db.Visible = 0
    fibocirclesdb.Visible = 0
    timerulerdb.Visible = 0
    pricerulerdb.Visible = 0
    fillregiondb.Visible = 0
    pentagdb.Visible = 0
    sq9fdb.visible=0
    sq144fdb.visible=0
    orderbuydb.visible=0
    orderselldb.visible=0
    textlabelsdb.visible=0
    griddb.visible=0
    speedresdb.visible=0
    fiboarcsdb.visible=0
    speedresarcsdb.visible=0
    seedoflifedb.visible=0
    gannsquaredb.visible=0
    fibospiraldb.visible=0
    archimedspiraldb.visible=0
    pricecyclesdb.visible=0
    timecyclesdb.visible=0
END SUB


SUB objecttypecombochange
    SELECT CASE objecttypecombo.ItemIndex

        CASE 1 :
            hideallobjectsdb
            trendlinesdb.Visible = 1

        CASE 2 :
            hideallobjectsdb
            fibofandb.Visible = 1

        CASE 3 :
            hideallobjectsdb
            fiboretdb.Visible = 1

        CASE 4 :
            hideallobjectsdb
            paradb.Visible = 1

        CASE 5 :
            hideallobjectsdb
            hlinedb.Visible = 1

        CASE 6 :
            hideallobjectsdb
            vlinedb.Visible = 1

        CASE 7 :
            hideallobjectsdb
            sqrdb.Visible = 1

        CASE 8 :
            hideallobjectsdb
            tridb.Visible = 1

        CASE 9 :
            hideallobjectsdb
            circledb.Visible = 1

        CASE 10 :
            hideallobjectsdb
            crossdb.Visible = 1

        CASE 11 :
            hideallobjectsdb
            invcircledb.Visible = 1

        CASE 12 :
            hideallobjectsdb
            textdb.Visible = 1

        CASE 13 :
            hideallobjectsdb
            aimingdb.Visible = 1

        CASE 14 :
            hideallobjectsdb
            sindb.Visible = 1

        CASE 15 :
            hideallobjectsdb
            logdb.Visible = 1

        CASE 16 :
            hideallobjectsdb
            expdb.Visible = 1

        CASE 17 :
            hideallobjectsdb
            ellipsedb.Visible = 1
            
        CASE 18 :
            hideallobjectsdb
            pentagdb.Visible = 1   
            
        CASE 19 :
            hideallobjectsdb
            sq9fdb.Visible = 1  
            
        CASE 20 :
            hideallobjectsdb
            sqr2db.Visible = 1

        CASE 21 :
            hideallobjectsdb
            tri2db.Visible = 1   
            
        CASE 22 :
            hideallobjectsdb
            orderbuydb.Visible = 1
         
        CASE 23 :
            hideallobjectsdb
            orderselldb.Visible = 1
            
        CASE 24 :
            hideallobjectsdb
            textlabelsdb.Visible = 1        
            
        CASE 25 :
            hideallobjectsdb
            griddb.Visible = 1    
            
        CASE 26 :
            hideallobjectsdb
            speedresdb.Visible = 1 
            
        CASE 27 :
            hideallobjectsdb
            fiboarcsdb.Visible = 1  

	CASE 28 :
            hideallobjectsdb
            seedoflifedb.Visible = 1 

 	CASE 29 :
            hideallobjectsdb
            sq144fdb.Visible = 1

	CASE 30 :
            hideallobjectsdb
            pricecyclesdb.Visible = 1

	CASE 31 :
            hideallobjectsdb
            timecyclesdb.Visible = 1

	CASE 32 :
            hideallobjectsdb
            gannsquaredb.Visible = 1
	
	CASE 33 :
            hideallobjectsdb
            fibospiraldb.Visible = 1

	CASE 34 :
            hideallobjectsdb
            archimedspiraldb.Visible = 1
            
    CASE 35 :
            hideallobjectsdb
            ellipse3db.Visible = 1
            
    CASE 36 :
            hideallobjectsdb
            fibocirclesdb.Visible = 1
            
    CASE 37 :
            hideallobjectsdb
            vectortextdb.Visible = 1
            
    CASE 38 :
            hideallobjectsdb
            timerulerdb.Visible = 1
            
    CASE 39 :
            hideallobjectsdb
            pricerulerdb.Visible = 1
            
    CASE 40 :
            hideallobjectsdb
            fillregiondb.Visible = 1
            
    CASE 41 :
            hideallobjectsdb
            speedresarcsdb.Visible = 1  
            
    CASE 42 :
            hideallobjectsdb
            gannfandb.Visible = 1

    END SELECT

END SUB

trendlinesdb.Parent = objectslistfrm
trendlinesdb.Top = 50
trendlinesdb.AddOptions(goEditing , goThumbTracking ,)
trendlinesdb.Width = objectslistfrm.Width - 30
trendlinesdb.colcount=6
trendlinesdb.Cell(1 , 0) = "Price 1"
trendlinesdb.Cell(2 , 0) = "Price 2"
trendlinesdb.Cell(3 , 0) = "Unix time 1"
trendlinesdb.Cell(4 , 0) = "Unix time 2"
trendlinesdb.Cell(5 , 0) = "Label name"
trendlinesdb.RowCount = 1000

fibofandb.Parent = objectslistfrm
fibofandb.Top = 50
fibofandb.AddOptions(goEditing , goThumbTracking)
fibofandb.Width = objectslistfrm.Width - 30
fibofandb.Cell(1 , 0) = "Price 1"
fibofandb.Cell(2 , 0) = "Price 2"
fibofandb.Cell(3 , 0) = "Unix time 1"
fibofandb.Cell(4 , 0) = "Unix time 2"
fibofandb.RowCount = 1000

gannfandb.Parent = objectslistfrm
gannfandb.Top = 50
gannfandb.AddOptions(goEditing , goThumbTracking)
gannfandb.Width = objectslistfrm.Width - 30
gannfandb.Cell(1 , 0) = "Price 1"
gannfandb.Cell(2 , 0) = "Price 2"
gannfandb.Cell(3 , 0) = "Unix time 1"
gannfandb.Cell(4 , 0) = "Unix time 2"
gannfandb.RowCount = 1000

fiboretdb.Parent = objectslistfrm
fiboretdb.Top = 50
fiboretdb.AddOptions(goEditing , goThumbTracking)
fiboretdb.Width = objectslistfrm.Width - 30
fiboretdb.Cell(1 , 0) = "Price 1"
fiboretdb.Cell(2 , 0) = "Price 2"
fiboretdb.Cell(3 , 0) = "Unix time 1"
fiboretdb.Cell(4 , 0) = "Unix time 2"
fiboretdb.RowCount = 1000

paradb.Parent = objectslistfrm
paradb.Top = 50
paradb.AddOptions(goEditing , goThumbTracking)
paradb.Width = objectslistfrm.Width - 30
paradb.Cell(1 , 0) = "Price 1"
paradb.Cell(2 , 0) = "Price 2"
paradb.Cell(3 , 0) = "Price 3"
paradb.Cell(4 , 0) = "Unix time 1"
paradb.Cell(5 , 0) = "Unix time 2"
paradb.Cell(6 , 0) = "Unix time 3"
paradb.RowCount = 1000
paradb.colcount=7

hlinedb.Parent = objectslistfrm
hlinedb.Top = 50
hlinedb.AddOptions(goEditing , goThumbTracking)
hlinedb.Width = objectslistfrm.Width - 30
hlinedb.Cell(1 , 0) = "Price 1"
hlinedb.Cell(2 , 0) = "Price 2"
hlinedb.Cell(3 , 0) = "Unix time 1"
hlinedb.Cell(4 , 0) = "Unix time 2"
hlinedb.RowCount = 1000

vlinedb.Parent = objectslistfrm
vlinedb.Top = 50
vlinedb.AddOptions(goEditing , goThumbTracking)
vlinedb.Width = objectslistfrm.Width - 30
vlinedb.Cell(1 , 0) = "Price 1"
vlinedb.Cell(2 , 0) = "Price 2"
vlinedb.Cell(3 , 0) = "Unix time 1"
vlinedb.Cell(4 , 0) = "Unix time 2"
vlinedb.RowCount = 1000

sqrdb.Parent = objectslistfrm
sqrdb.Top = 50
sqrdb.AddOptions(goEditing , goThumbTracking)
sqrdb.Width = objectslistfrm.Width - 30
sqrdb.Cell(1 , 0) = "Price 1"
sqrdb.Cell(2 , 0) = "Price 2"
sqrdb.Cell(3 , 0) = "Unix time 1"
sqrdb.Cell(4 , 0) = "Unix time 2"
sqrdb.RowCount = 1000

tridb.Parent = objectslistfrm
tridb.Top = 50
tridb.AddOptions(goEditing , goThumbTracking)
tridb.Width = objectslistfrm.Width - 30
tridb.Cell(1 , 0) = "Price 1"
tridb.Cell(2 , 0) = "Price 2"
tridb.Cell(3 , 0) = "Unix time 1"
tridb.Cell(4 , 0) = "Unix time 2"
tridb.RowCount = 1000

sqr2db.Parent = objectslistfrm
sqr2db.Top = 50
sqr2db.AddOptions(goEditing , goThumbTracking)
sqr2db.Width = objectslistfrm.Width - 30
sqr2db.Cell(1 , 0) = "Price 1"
sqr2db.Cell(2 , 0) = "Price 2"
sqr2db.Cell(3 , 0) = "Unix time 1"
sqr2db.Cell(4 , 0) = "Unix time 2"
sqr2db.RowCount = 1000

tri2db.Parent = objectslistfrm
tri2db.Top = 50
tri2db.AddOptions(goEditing , goThumbTracking)
tri2db.Width = objectslistfrm.Width - 30
tri2db.Cell(1 , 0) = "Price 1"
tri2db.Cell(2 , 0) = "Price 2"
tri2db.Cell(3 , 0) = "Unix time 1"
tri2db.Cell(4 , 0) = "Unix time 2"
tri2db.RowCount = 1000

circledb.Parent = objectslistfrm
circledb.Top = 50
circledb.AddOptions(goEditing , goThumbTracking)
circledb.Width = objectslistfrm.Width - 30
circledb.Cell(1 , 0) = "Price 1"
circledb.Cell(2 , 0) = "Price 2"
circledb.Cell(3 , 0) = "Unix time 1"
circledb.Cell(4 , 0) = "Unix time 2"
circledb.RowCount = 1000

crossdb.Parent = objectslistfrm
crossdb.Top = 50
crossdb.AddOptions(goEditing , goThumbTracking)
crossdb.Width = objectslistfrm.Width - 30
crossdb.Cell(1 , 0) = "Price 1"
crossdb.Cell(2 , 0) = "Price 2"
crossdb.Cell(3 , 0) = "Unix time 1"
crossdb.Cell(4 , 0) = "Unix time 2"
crossdb.RowCount = 1000

invcircledb.Parent = objectslistfrm
invcircledb.Top = 50
invcircledb.AddOptions(goEditing , goThumbTracking)
invcircledb.Width = objectslistfrm.Width - 30
invcircledb.Cell(1 , 0) = "Price 1"
invcircledb.Cell(2 , 0) = "Price 2"
invcircledb.Cell(3 , 0) = "Unix time 1"
invcircledb.Cell(4 , 0) = "Unix time 2"
invcircledb.RowCount = 1000

textdb.Parent = objectslistfrm
textdb.Top = 50
textdb.AddOptions(goEditing , goThumbTracking)
textdb.Width = objectslistfrm.Width - 30
textdb.Cell(1 , 0) = "Price 1"
textdb.Cell(2 , 0) = "Price 2"
textdb.Cell(3 , 0) = "Unix time 1"
textdb.Cell(4 , 0) = "Unix time 2"
textdb.RowCount = 1000

vectortextdb.Parent = objectslistfrm
vectortextdb.Top = 50
vectortextdb.AddOptions(goEditing , goThumbTracking)
vectortextdb.Width = objectslistfrm.Width - 30
vectortextdb.colcount=10
vectortextdb.Cell(1 , 0) = "Price 1"
vectortextdb.Cell(2 , 0) = "Unix time 1"
vectortextdb.Cell(3 , 0) = "Text"
vectortextdb.Cell(4 , 0) = "Color"
vectortextdb.Cell(5 , 0) = "Label name"
vectortextdb.Cell(6 , 0) = "BG Color"
vectortextdb.Cell(7 , 0) = "Stretch x"
vectortextdb.Cell(8 , 0) = "Stretch y"
vectortextdb.Cell(9 , 0) = "Angle"
vectortextdb.RowCount = 1000

aimingdb.Parent = objectslistfrm
aimingdb.Top = 50
aimingdb.AddOptions(goEditing , goThumbTracking)
aimingdb.Width = objectslistfrm.Width - 30
aimingdb.Cell(1 , 0) = "Price 1"
aimingdb.Cell(2 , 0) = "Price 2"
aimingdb.Cell(3 , 0) = "Unix time 1"
aimingdb.Cell(4 , 0) = "Unix time 2"
aimingdb.RowCount = 1000

sindb.Parent = objectslistfrm
sindb.Top = 50
sindb.AddOptions(goEditing , goThumbTracking)
sindb.Width = objectslistfrm.Width - 30
sindb.Cell(1 , 0) = "Price 1"
sindb.Cell(2 , 0) = "Price 2"
sindb.Cell(3 , 0) = "Unix time 1"
sindb.Cell(4 , 0) = "Unix time 2"
sindb.RowCount = 1000

logdb.Parent = objectslistfrm
logdb.Top = 50
logdb.AddOptions(goEditing , goThumbTracking)
logdb.Width = objectslistfrm.Width - 30
logdb.Cell(1 , 0) = "Price 1"
logdb.Cell(2 , 0) = "Price 2"
logdb.Cell(3 , 0) = "Unix time 1"
logdb.Cell(4 , 0) = "Unix time 2"
logdb.RowCount = 1000

expdb.Parent = objectslistfrm
expdb.Top = 50
expdb.AddOptions(goEditing , goThumbTracking)
expdb.Width = objectslistfrm.Width - 30
expdb.Cell(1 , 0) = "Price 1"
expdb.Cell(2 , 0) = "Price 2"
expdb.Cell(3 , 0) = "Unix time 1"
expdb.Cell(4 , 0) = "Unix time 2"
expdb.RowCount = 1000

ellipsedb.Parent = objectslistfrm
ellipsedb.Top = 50
ellipsedb.AddOptions(goEditing , goThumbTracking)
ellipsedb.Width = objectslistfrm.Width - 30
ellipsedb.Cell(1 , 0) = "Price 1"
ellipsedb.Cell(2 , 0) = "Price 2"
ellipsedb.Cell(3 , 0) = "Unix time 1"
ellipsedb.Cell(4 , 0) = "Unix time 2"
ellipsedb.RowCount = 1000

ellipse3db.Parent = objectslistfrm
ellipse3db.Top = 50
ellipse3db.AddOptions(goEditing , goThumbTracking)
ellipse3db.Width = objectslistfrm.Width - 30
ellipse3db.Cell(1 , 0) = "Price 1"
ellipse3db.Cell(2 , 0) = "Price 2"
ellipse3db.Cell(3 , 0) = "Unix time 1"
ellipse3db.Cell(4 , 0) = "Unix time 2"
ellipse3db.RowCount = 1000

fibocirclesdb.Parent = objectslistfrm
fibocirclesdb.Top = 50
fibocirclesdb.AddOptions(goEditing , goThumbTracking)
fibocirclesdb.Width = objectslistfrm.Width - 30
fibocirclesdb.Cell(1 , 0) = "Price 1"
fibocirclesdb.Cell(2 , 0) = "Price 2"
fibocirclesdb.Cell(3 , 0) = "Unix time 1"
fibocirclesdb.Cell(4 , 0) = "Unix time 2"
fibocirclesdb.RowCount = 1000

timerulerdb.Parent = objectslistfrm
timerulerdb.Top = 50
timerulerdb.AddOptions(goEditing , goThumbTracking)
timerulerdb.Width = objectslistfrm.Width - 30
timerulerdb.Cell(1 , 0) = "Price 1"
timerulerdb.Cell(2 , 0) = "Price 2"
timerulerdb.Cell(3 , 0) = "Unix time 1"
timerulerdb.Cell(4 , 0) = "Unix time 2"
timerulerdb.RowCount = 1000

pricerulerdb.Parent = objectslistfrm
pricerulerdb.Top = 50
pricerulerdb.AddOptions(goEditing , goThumbTracking)
pricerulerdb.Width = objectslistfrm.Width - 30
pricerulerdb.Cell(1 , 0) = "Price 1"
pricerulerdb.Cell(2 , 0) = "Price 2"
pricerulerdb.Cell(3 , 0) = "Unix time 1"
pricerulerdb.Cell(4 , 0) = "Unix time 2"
pricerulerdb.RowCount = 1000

pentagdb.Parent = objectslistfrm
pentagdb.Top = 50
pentagdb.AddOptions(goEditing , goThumbTracking)
pentagdb.Width = objectslistfrm.Width - 30
pentagdb.Cell(1 , 0) = "Price 1"
pentagdb.Cell(2 , 0) = "Price 2"
pentagdb.Cell(3 , 0) = "Unix time 1"
pentagdb.Cell(4 , 0) = "Unix time 2"
pentagdb.RowCount = 1000

sq9fdb.Parent = objectslistfrm
sq9fdb.Top = 50
sq9fdb.AddOptions(goEditing , goThumbTracking)
sq9fdb.Width = objectslistfrm.Width - 30
sq9fdb.Cell(1 , 0) = "Price 1"
sq9fdb.Cell(2 , 0) = "Price 2"
sq9fdb.Cell(3 , 0) = "Unix time 1"
sq9fdb.Cell(4 , 0) = "Unix time 2"
sq9fdb.RowCount = 1000

sq144fdb.Parent = objectslistfrm
sq144fdb.Top = 50
sq144fdb.AddOptions(goEditing , goThumbTracking)
sq144fdb.Width = objectslistfrm.Width - 30
sq144fdb.Cell(1 , 0) = "Price 1"
sq144fdb.Cell(2 , 0) = "Price 2"
sq144fdb.Cell(3 , 0) = "Unix time 1"
sq144fdb.Cell(4 , 0) = "Unix time 2"
sq144fdb.RowCount = 1000

orderbuydb.Parent = objectslistfrm
orderbuydb.Top = 50
orderbuydb.AddOptions(goEditing , goThumbTracking ,)
orderbuydb.Width = objectslistfrm.Width - 30
orderbuydb.Cell(1 , 0) = "Price 1"
orderbuydb.Cell(2 , 0) = ""
orderbuydb.Cell(3 , 0) = "Unix time 1"
orderbuydb.Cell(4 , 0) = ""
orderbuydb.RowCount = 1000

orderselldb.Parent = objectslistfrm
orderselldb.Top = 50
orderselldb.AddOptions(goEditing , goThumbTracking ,)
orderselldb.Width = objectslistfrm.Width - 30
orderselldb.Cell(1 , 0) = "Price 1"
orderselldb.Cell(2 , 0) = ""
orderselldb.Cell(3 , 0) = "Unix time 1"
orderselldb.Cell(4 , 0) = ""
orderselldb.RowCount = 1000

textlabelsdb.Parent = objectslistfrm
textlabelsdb.Top = 50
textlabelsdb.AddOptions(goEditing , goThumbTracking ,)
textlabelsdb.Width = objectslistfrm.Width - 30
textlabelsdb.colcount=7
textlabelsdb.Cell(1 , 0) = "Price 1"
textlabelsdb.Cell(2 , 0) = "Unix time 1"
textlabelsdb.Cell(3 , 0) = "Text"
textlabelsdb.Cell(4 , 0) = "Color"
textlabelsdb.Cell(5 , 0) = "Label name"
textlabelsdb.Cell(6 , 0) = "BG Color"
textlabelsdb.RowCount = 1000

fillregiondb.Parent = objectslistfrm
fillregiondb.Top = 50
fillregiondb.AddOptions(goEditing , goThumbTracking ,)
fillregiondb.Width = objectslistfrm.Width - 30
fillregiondb.colcount=7
fillregiondb.Cell(1 , 0) = "Price 1"
fillregiondb.Cell(2 , 0) = "Unix time 1"
fillregiondb.Cell(3 , 0) = "Price 2"
fillregiondb.Cell(4 , 0) = "Unix time 2"
fillregiondb.Cell(5 , 0) = "Color"
fillregiondb.Cell(6 , 0) = "Not used"
fillregiondb.RowCount = 1000

griddb.Parent = objectslistfrm
griddb.Top = 50
griddb.AddOptions(goEditing , goThumbTracking ,)
griddb.Width = objectslistfrm.Width - 30
griddb.Cell(1 , 0) = "Price 1"
griddb.Cell(2 , 0) = "Price 2"
griddb.Cell(3 , 0) = "Unix time 1"
griddb.Cell(4 , 0) = "Unix time 2"
griddb.RowCount = 1000

speedresdb.Parent = objectslistfrm
speedresdb.Top = 50
speedresdb.AddOptions(goEditing , goThumbTracking ,)
speedresdb.Width = objectslistfrm.Width - 30
speedresdb.Cell(1 , 0) = "Price 1"
speedresdb.Cell(2 , 0) = "Price 2"
speedresdb.Cell(3 , 0) = "Unix time 1"
speedresdb.Cell(4 , 0) = "Unix time 2"
speedresdb.RowCount = 1000

fiboarcsdb.Parent = objectslistfrm
fiboarcsdb.Top = 50
fiboarcsdb.AddOptions(goEditing , goThumbTracking ,)
fiboarcsdb.Width = objectslistfrm.Width - 30
fiboarcsdb.Cell(1 , 0) = "Price 1"
fiboarcsdb.Cell(2 , 0) = "Price 2"
fiboarcsdb.Cell(3 , 0) = "Unix time 1"
fiboarcsdb.Cell(4 , 0) = "Unix time 2"
fiboarcsdb.RowCount = 1000

speedresarcsdb.Parent = objectslistfrm
speedresarcsdb.Top = 50
speedresarcsdb.AddOptions(goEditing , goThumbTracking ,)
speedresarcsdb.Width = objectslistfrm.Width - 30
speedresarcsdb.Cell(1 , 0) = "Price 1"
speedresarcsdb.Cell(2 , 0) = "Price 2"
speedresarcsdb.Cell(3 , 0) = "Unix time 1"
speedresarcsdb.Cell(4 , 0) = "Unix time 2"
speedresarcsdb.RowCount = 1000

seedoflifedb.Parent = objectslistfrm
seedoflifedb.Top = 50
seedoflifedb.AddOptions(goEditing , goThumbTracking ,)
seedoflifedb.Width = objectslistfrm.Width - 30
seedoflifedb.Cell(1 , 0) = "Price 1"
seedoflifedb.Cell(2 , 0) = "Price 2"
seedoflifedb.Cell(3 , 0) = "Unix time 1"
seedoflifedb.Cell(4 , 0) = "Unix time 2"
seedoflifedb.RowCount = 1000

pricecyclesdb.Parent = objectslistfrm
pricecyclesdb.Top = 50
pricecyclesdb.AddOptions(goEditing , goThumbTracking ,)
pricecyclesdb.Width = objectslistfrm.Width - 30
pricecyclesdb.Cell(1 , 0) = "Price 1"
pricecyclesdb.Cell(2 , 0) = "Price 2"
pricecyclesdb.Cell(3 , 0) = "Unix time 1"
pricecyclesdb.Cell(4 , 0) = "Unix time 2"
pricecyclesdb.RowCount = 1000

timecyclesdb.Parent = objectslistfrm
timecyclesdb.Top = 50
timecyclesdb.AddOptions(goEditing , goThumbTracking ,)
timecyclesdb.Width = objectslistfrm.Width - 30
timecyclesdb.Cell(1 , 0) = "Price 1"
timecyclesdb.Cell(2 , 0) = "Price 2"
timecyclesdb.Cell(3 , 0) = "Unix time 1"
timecyclesdb.Cell(4 , 0) = "Unix time 2"
timecyclesdb.RowCount = 1000

gannsquaredb.Parent = objectslistfrm
gannsquaredb.Top = 50
gannsquaredb.AddOptions(goEditing , goThumbTracking ,)
gannsquaredb.Width = objectslistfrm.Width - 30
gannsquaredb.Cell(1 , 0) = "Price 1"
gannsquaredb.Cell(2 , 0) = "Price 2"
gannsquaredb.Cell(3 , 0) = "Unix time 1"
gannsquaredb.Cell(4 , 0) = "Unix time 2"
gannsquaredb.RowCount = 1000

fibospiraldb.Parent = objectslistfrm
fibospiraldb.Top = 50
fibospiraldb.AddOptions(goEditing , goThumbTracking ,)
fibospiraldb.Width = objectslistfrm.Width - 30
fibospiraldb.Cell(1 , 0) = "Price 1"
fibospiraldb.Cell(2 , 0) = "Price 2"
fibospiraldb.Cell(3 , 0) = "Unix time 1"
fibospiraldb.Cell(4 , 0) = "Unix time 2"
fibospiraldb.RowCount = 1000

archimedspiraldb.Parent = objectslistfrm
archimedspiraldb.Top = 50
archimedspiraldb.AddOptions(goEditing , goThumbTracking ,)
archimedspiraldb.Width = objectslistfrm.Width - 30
archimedspiraldb.Cell(1 , 0) = "Price 1"
archimedspiraldb.Cell(2 , 0) = "Price 2"
archimedspiraldb.Cell(3 , 0) = "Unix time 1"
archimedspiraldb.Cell(4 , 0) = "Unix time 2"
archimedspiraldb.RowCount = 1000

SUB objectslistfrmresize

END SUB

SUB showobjectslistfrm
    objectslistfrm.Visible = 1
END SUB


CREATE Form2 AS QFORM
    Width = 180
    Height = 310
    Center
    Caption = "Parameters"
    CREATE form2Label1 AS QLABEL
        Left = 10
        Top = 10
        Width = 95
        Transparent = 1
        Caption = "Date position:"
    END CREATE
    CREATE form2Edit1 AS QEDIT
        Left = form2Label1.Width + 10
        Top = 10
        Width = 20
        Text = "1"
    END CREATE
    CREATE form2Label2 AS QLABEL
        Left = 10
        Top = form2Label1.Top + 30
        Width = 95
        Transparent = 1
        Caption = "Time position:"
    END CREATE
    CREATE form2Edit2 AS QEDIT
        Left = form2Label2.Width + 10
        Top = form2Label1.Top + 30
        Width = 20
        Text = "2"
    END CREATE
    CREATE form2Label3 AS QLABEL
        Left = 10
        Top = form2Label2.Top + 30
        Width = 95
        Transparent = 1
        Caption = "Open position:"
    END CREATE
    CREATE form2Edit3 AS QEDIT
        Left = form2Label3.Width + 10
        Top = form2Label2.Top + 30
        Width = 20
        Text = "3"
    END CREATE
    CREATE form2Label4 AS QLABEL
        Left = 10
        Top = form2Label3.Top + 30
        Width = 95
        Transparent = 1
        Caption = "High position:"
    END CREATE
    CREATE form2Edit4 AS QEDIT
        Left = form2Label4.Width + 10
        Top = form2Label3.Top + 30
        Width = 20
        Text = "4"
    END CREATE
    CREATE form2Label5 AS QLABEL
        Left = 10
        Top = form2Label4.Top + 30
        Width = 95
        Transparent = 1
        Caption = "Low position:"
    END CREATE
    CREATE form2Edit5 AS QEDIT
        Left = form2Label5.Width + 10
        Top = form2Label4.Top + 30
        Width = 20
        Text = "5"
    END CREATE
    CREATE form2Label6 AS QLABEL
        Left = 10
        Top = form2Label5.Top + 30
        Width = 95
        Transparent = 1
        Caption = "Close position:"
    END CREATE
    CREATE form2Edit6 AS QEDIT
        Left = form2Label6.Width + 10
        Top = form2Label5.Top + 30
        Width = 20
        Text = "6"
    END CREATE
    CREATE form2Label7 AS QLABEL
        Left = 10
        Top = form2Label6.Top + 30
        Width = 95
        Transparent = 1
        Caption = "Volume position:"
    END CREATE
    CREATE form2Edit7 AS QEDIT
        Left = form2Label7.Width + 10
        Top = form2Label6.Top + 30
        Width = 20
        Text = "7"
    END CREATE
    CREATE form2Label8 AS QLABEL
        Left = 10
        Top = form2Label7.Top + 30
        Width = 95
        Transparent = 1
        Caption = "Separator character:"
    END CREATE
    CREATE form2Edit8 AS QEDIT
        Left = form2Label8.Width + 10
        Top = form2Label7.Top + 30
        Width = 20
        Text = ","
    END CREATE
    CREATE Buttonparam AS QBUTTON
        Left = 10
        Top = form2Label8.Top + 30

        Caption = "Open file"
        OnClick = Buttonf2Click
    END CREATE

    Visible = 0

END CREATE

CREATE filesettingsfrm AS QFORM
    Height = 300
    CREATE MTpathbtn AS QBUTTON
        Caption = "Choose CSV path"
        Width = 100
        OnClick = mtpathform
        ShowHint = 1
    END CREATE
    CREATE mtpathedit AS QEDIT
        Top = 30
        Width = 300
        Text = "CSV path not defined yet"
    END CREATE
    CREATE pausesdurationlab AS QLABEL
        Caption = "Pauses duration:"
        Top = 60
    END CREATE
    CREATE pausesdurationedit AS QEDIT
        Text = "2"
        Top = 60
        Left = 100
    END CREATE
    CREATE barsbefonorndlab AS QLABEL
        Caption = "Bars before not rnd:"
        Top = 90
    END CREATE
    CREATE barsbefonorndedit AS QEDIT
        Text = "70"
        Top = 90
        Left = 100
    END CREATE
    CREATE nbtfmultslab AS QLABEL
        Caption = "Nb of tfmults to play:"
        Top = 120
    END CREATE
    CREATE nbtfmultsedit AS QEDIT
        Text = "5"
        Top = 120
        Left = 100
    END CREATE
    CREATE bolliperlab AS QLABEL
        Caption = "Bolli period:"
        Top = 150
    END CREATE
    CREATE bolliperedit AS QEDIT
        Text = "120"
        Top = 150
        Left = 100
    END CREATE

    Visible = 0
    CREATE MTpathexitbtn AS QBUTTON
        Caption = "Choose CSV file for exit signal"
        Width = 200
        Top = 200
        OnClick = mtpathexitform
        ShowHint = 1
    END CREATE
    CREATE mtpathexitedit AS QEDIT
        Top = 220
        Width = 300
        Text = "CSV file for exit signal not defined yet"
    END CREATE
    CREATE fsfrmok AS QBUTTON
        Top = 240
        Caption = "OK"
        OnClick = filesettingsfrmokclicked
    END CREATE
END CREATE

SUB filesettings
    filesettingsfrm.Visible = 1
END SUB

create symbolslistform as qform
caption="Symbols list"
center
height=360
width=360
visible=0
onshow=loadsymbolslistsub

create markettypecombo as qcombobox
left=10
top=10
width=200
additems "AMEX"
additems "Amsterdam"
additems "Brussels"
additems "CAC_yahoo"
additems "COMMODITIES_ENERGY"
additems "COMMODITIES_GRAINS"
additems "COMMODITIES_METALS"
additems "COMMODITIES_SOFTS"
additems "Commodities_yahoo"
additems "Copenhagen"
additems "Cryptocurrencies_eToro"
additems "CURRENCIES"
additems "CURRENCY_FUTURES"
additems "CURRENCY_INDICES"
additems "DAX_stocks"
additems "dji_stocks"
additems "finnhub_tickers"
additems "Frankfurt"
additems "German_stocks"
additems "Helsinki"
additems "HongKong"
additems "Hungarian_stocks"
additems "INDICES_ASIA"
additems "INDICES_EUROPE"
additems "INDICES_AMERICA"
additems "INDICES_FUTURES_AMERICA"
additems "INDICES_FUTURES_ASIA"
additems "INDICES_FUTURES_EUROPE"
additems "INDICES_OTHERS"
additems "indices_fr_paris_yahoo"
additems "indices_us_dow_jones_yahoo"
additems "indices_us_nasdaq_yahoo"
additems "indices_us_nyse_yahoo"
additems "indices_us_other_yahoo"
additems "indices_us_sp_yahoo"
additems "indices_us_treasury_bonds_yahoo"
additems "indices_world_africa-middle_east_yahoo"
additems "indices_world_america_yahoo"
additems "indices_world_asia-pacific_yahoo"
additems "indices_world_europe_yahoo"
additems "Istanbul"
additems "Japan_ETFs_stocks"
additems "Japan_stocks"
additems "Lisbon"
additems "LSE_exchange"
additems "Madrid"
additems "MDAX_stocks"
additems "Milano"
additems "NASDAQ"
additems "nasdaq_stocks"
additems "Nasdaq100_stocks"
additems "nasdaqtraded"
additems "Nikkei225_stocks"
additems "NSE"
additems "nyse_mkt_stocks"
additems "nyse_stocks"
additems "nyse_yahoo"
additems "Oslo"
additems "Paris"
additems "Polish_stocks"
additems "SaudiArabia"
additems "sp500_stocks"
additems "Stockholm"
additems "Tiigo_cryptocurrencies"
additems "TOPIX30_stocks"
additems "Toronto"
additems "UK_ETFs_stocks"
additems "UK_stocks"
additems "UK100_stocks"
additems "US_ETFs_stocks"
additems "us_stocks"
additems "WIG30_stocks"
additems "custom_list"
additems "XETRA"
additems "Zurich"
additems "Yahoo_ETFS"
additems "Yahoo_Finance_Currencies"
additems "Yahoo_Finance_Futures"
additems "Yahoo_Finance_World_Indices"
itemindex=0
onchange=markettypecombochangesub
end create

create reloadsymbolslistbtn as qbutton
left=markettypecombo.left+markettypecombo.width+10
top=10
height=20
caption="Reload list"
onclick=reloadsymbolslistbtnsub
end create

create symbolslistbox as qlistbox

top=30
left=10
height=200
width=300
onclick=symbolslistboxonclicksub
ondblclick=symbolslistboxondblclicksub

end create

create selectsymbolslistbtn as qbutton
top=symbolslistbox.top+symbolslistbox.height+10
left=10
caption="Select symbol"
onclick=selectsymbolslistbtnsub
end create

create loadsymbolslistbtn as qbutton
top=symbolslistbox.top+symbolslistbox.height+10
left=selectsymbolslistbtn.left+selectsymbolslistbtn.width+10
width=230
caption="Load symbol with current data source settings"
onclick=loadsymbolslistbtnsub
end create

create searchsymbolslistlabel as qlabel
top=selectsymbolslistbtn.top+selectsymbolslistbtn.height+10
left=10
caption="Find:"
end create

create searchsymbolslistedit as qedit
top=searchsymbolslistlabel.top
left=50
end create

create searchsymbolslistbtn as qbutton
top=searchsymbolslistedit.top
left=180
caption="FIND"
onclick=searchsymbolslistbtnsub
end create

create searchnextsymbolslistbtn as qbutton
top=searchsymbolslistedit.top
left=260
caption="FIND NEXT"
onclick=searchnextsymbolslistbtnsub
end create

create updatesymbolslistbtn as qbutton
top=searchnextsymbolslistbtn.top+30
left=10
width=100
caption="Update symbols list"
onclick=updatesymbolslistbtnsub
end create

create restoredefaultdatabtn as qbutton
top=updatesymbolslistbtn.top
left=updatesymbolslistbtn.left+updatesymbolslistbtn.width+10
width=100
caption="Restore default data"
onclick=restoredefaultdatabtnsub
end create

end create

create alphavantageform as qform
caption="Alpha Vantage"
center
height=600
width=360
visible=0
create alphavantageapikeylabel as qlabel
left=10
top=10
'width=200
caption="Enter your Alpha Vantage API key:"
end create
create alphavantageapikeyedit as qedit
left=alphavantageapikeylabel.left+alphavantageapikeylabel.width
top=10
width=150
text=""
OnChange = alphavantageapikeyeditchange
end create
create alphavantagesearchsymbollabel as qlabel
left=10
top=30
'width=200
caption="Search for a stock:"
end create
create alphavantagesearchsymboledit as qedit
left=alphavantagesearchsymbollabel.left+alphavantagesearchsymbollabel.width
top=30
width=150
text=""
end create
create alphavantagesearchsymbolbutton as qbutton
top=50
left=10
onclick=alphavantagesearchsymbolbuttonclicksub
caption="Search"
end create
create alphavantagesearchsymbolrichedit as qrichedit
top=80
left=10
width=300
Scrollbars = ssBoth
text="Search result"
end create
create tiingoapikeylabel as qlabel
left=10
top=alphavantagesearchsymbolrichedit.top+alphavantagesearchsymbolrichedit.height+10
'width=200
caption="Enter your Tiingo API key:"
end create
create tiingoapikeyedit as qedit
left=tiingoapikeylabel.left+tiingoapikeylabel.width
top=tiingoapikeylabel.top
width=150
text=""
OnChange = tiingoapikeyeditchange
end create

create finnhubapikeylabel as qlabel
left=10
top=tiingoapikeyedit.top+tiingoapikeyedit.height+10
'width=200
caption="Enter your finnhub.io API key:"
end create
create finnhubapikeyedit as qedit
left=finnhubapikeylabel.left+finnhubapikeylabel.width
top=finnhubapikeylabel.top
width=150
text=""
OnChange = finnhubapikeyeditchange
end create

end create

declare sub datetimesetyf

CREATE datasourcefrm AS QFORM
    Caption = "Data source"
    Height = 250
    Width = 300
    onshow=datetimesetyf
    CREATE dssourcelbl AS QLABEL
        Caption = "Source:"
    END CREATE
    CREATE dssource AS QCOMBOBOX
        Left = 50
        AddItems "Yahoo! Finance Internet"
        AddItems "Stooq"
        AddItems "Google Finance"
        AddItems "Alpha Vantage Stocks"
        AddItems "Alpha Vantage Forex"
        AddItems "Alpha Vantage Cryptocurrencies"
        AddItems "Tiingo Cryptocurrencies"
        AddItems "Tiingo IEX"
        AddItems "finnhub.io Stocks"
        AddItems "finnhub.io Crypto"
        ItemIndex = 0
    END CREATE
    CREATE dssymbol AS QLABEL
        Top = 20
        Caption = "Symbol:"
    END CREATE
    CREATE dssymboledit AS QEDIT
        Top = 20
        Left = 50
        Text = "MSFT"
    END CREATE
    create dssymbollistshow as qbutton
        top=20
        left=180
        caption="Symbols list"
        onclick=showsymbolslist
    end create 
    create apikeybutton as qbutton
        top=40
        left=170
        width=110
        caption="Alpha Vantage API key"
        onclick=showalphavantageform
    end create  
    CREATE dsstartdate AS QLABEL
        Top = 40
        Caption = "Start date:"
    END CREATE
    CREATE dsstartcalendarobj AS QEDIT
        Top = 40
        Left = 50
        Text = "03-01-1793"
        width=100
    END CREATE
    CREATE dsenddate AS QLABEL
        Top = 60
        Caption = "End date:"
    END CREATE
    CREATE dsendcalendarobj AS QEDIT
        Top = 60
        Left = 50
        Text = DATE$ +" "+ MID$(TIME$ , 1 , 5)
        width=100
    END CREATE
    CREATE dstimeframelbl AS QLABEL
        Top = 80
        Caption = "Timeframe:"
    END CREATE
    CREATE dstimeframe AS QCOMBOBOX
        Top = 80
        Left = 50
        additems "1M"
        additems "5M"
        additems "15M"
        additems "30M"
        additems "60M"
        additems "240M"        
        AddItems "Daily"
        AddItems "Weekly"
        AddItems "Monthly"
        ItemIndex = 4
        onchange=datetimesetyf
    END CREATE
    create googledaysbacklabel as qlabel
    top=110
    caption="Days back:"
    end create
    create googledaysbackedit as qedit
    top=110
    left=100
    text="30"
    width=50
    end create
    create googlerealtimecheckbox as qcheckbox
    top=110
    left=150
    caption="Realtime"
    width=120
    end create
    create googlerefreshratelabel as qlabel
    top=130
    caption="Refresh rate (in ms):"
    end create
    create googlerefreshrateedit as qedit
    top=130
    left=100
    text="5000"
    width=50    
    onchange=googlerefreshrateeditchangesub
    end create
    CREATE dsok AS QBUTTON
        Top = 150
        Caption = "Get chart"
        OnClick = dsokclick
    END CREATE
    CREATE dsinfolbl AS QLABEL
        Top = 180
        Caption = "For the full list of symbols, please visit:" + CHR$(10) + "http://eoddata.com/symbols.aspx"
    END CREATE
END CREATE

datetimesetyf


sub datetimesetyf
    enddateyf
    startdateyf
end sub

sub enddateyf
 yahoofinancecurrenttimestamp=val(varptr$(current_time()))
 'print str$(yahoofinancecurrenttimestamp)
 'yahoofinancecurrenttimestamponeminute=yahoofinancecurrenttimestamp-129600
 'yahoofinancecurrenttimestampfiveminutes=yahoofinancecurrenttimestamp-800393
 'yahoofinancecurrenttimestamp15minutes=yahoofinancecurrenttimestamp-2401181
 'yahoofinancecurrenttimestamp30minutes=yahoofinancecurrenttimestamp-4802363
 'yahoofinancecurrenttimestamphourly=yahoofinancecurrenttimestamp-6243071
 'yahoofinancecurrenttimestampdaily=yahoofinancecurrenttimestamp-137894400
 'yahoofinancecurrenttimestampweekly=yahoofinancecurrenttimestamp-160876800
 'yahoofinancecurrenttimestampmonthly=yahoofinancecurrenttimestamp-689472000

 currentimeyfend = Format$("%12.0f",yahoofinancecurrenttimestamp) 'VARPTR$(current_time())
 ftyfend = VARPTR$(unix_time_to_date(VARPTR(currentimeyfend)))
 yearyfend = MID$(ftyfend , 0,4)
 monthlyfend = MID$(ftyfend , 6,2)
 dayyfend = MID$(ftyfend , 9 , 2)
 houryfend = MID$(ftyfend , 12 , 2)
 minuteyfend = MID$(ftyfend , 15 , 2)
 dayyfend=REPLACESUBSTR$(dayyfend , " " , "0")
 datetimefend=monthlyfend+"-"+dayyfend+"-"+yearyfend+" "+houryfend+":"+minuteyfend
 dsendcalendarobj.text=datetimefend
end sub

sub startdateyf
 yahoofinancecurrenttimestamp=val(varptr$(current_time()))
 yahoofinancecurrenttimestamponeminute=yahoofinancecurrenttimestamp-129600
 yahoofinancecurrenttimestampfiveminutes=yahoofinancecurrenttimestamp-800393
 yahoofinancecurrenttimestamp15minutes=yahoofinancecurrenttimestamp-2401181
 yahoofinancecurrenttimestamp30minutes=yahoofinancecurrenttimestamp-4802363
 yahoofinancecurrenttimestamphourly=yahoofinancecurrenttimestamp-6243071
  yahoofinancecurrenttimestamp4hours=yahoofinancecurrenttimestamp-12486142
 yahoofinancecurrenttimestampdaily=yahoofinancecurrenttimestamp-45964800
 yahoofinancecurrenttimestampweekly=yahoofinancecurrenttimestamp-160876800
 yahoofinancecurrenttimestampmonthly=yahoofinancecurrenttimestamp-689472000
 
 DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0 :
            dstf = "1"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestamponeminute)
        CASE 1 :
            dstf = "5"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestampfiveminutes)
        CASE 2 :
            dstf = "15"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestamp15minutes)
        CASE 3 :
            dstf = "30"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestamp30minutes)
        case 4 :
            dstf = "60"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestamphourly)
        case 5 :
            dstf = "240"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestamp4hours)
        case 6 :
            dstf = "1440"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestampdaily)
        case 7 :
            dstf = "10080"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestampweekly)
        case 8 :
            dstf = "43200"
            currentimeyfstart = Format$("%12.0f",yahoofinancecurrenttimestampmonthly)
    END SELECT

 'currentimeyfend = str$(yahoofinancecurrenttimestamp) 'VARPTR$(current_time())
 ftyfstart = VARPTR$(unix_time_to_date(VARPTR(currentimeyfstart)))
 yearyfstart = MID$(ftyfstart ,0,4)
 monthlyfstart = MID$(ftyfstart , 6,2)
 dayyfstart = MID$(ftyfstart , 9 , 2)
 houryfstart = MID$(ftyfstart , 12 , 2)
 minuteyfstart = MID$(ftyfstart , 15 , 2)
 dayyfstart=REPLACESUBSTR$(dayyfstart , " " , "0")
 datetimefstart=monthlyfstart+"-"+dayyfstart+"-"+yearyfstart+" "+houryfstart+":"+minuteyfstart
 dsstartcalendarobj.text=datetimefstart
end sub

SUB datasource
    datasourcefrm.Visible = 1
    datasourcefrm.WindowState = 0
    setfocus(datasourcefrm.handle)
END SUB

SUB dsokclick    
    
    useindiCheckedtmp=0
    if useindi.Checked=1 then useindiCheckedtmp=1
    useindi.Checked = 0
    'InetIsOffline returns 0 if you're connected
    DEFINT A

    A = InetIsOffLine(0)
    IF A = 0 THEN
        'Print "Connected To Internet"
    ELSE
        'Print "Not Connected to Internet"
        SHOWMESSAGE "No internet connection"
        EXIT SUB
    END IF
    dsok.Enabled = 0
    DIM dsstartcalendarobjm AS STRING , dsstartcalendarobjd AS STRING , dsstartcalendarobjy AS STRING , dsendcalendarobjm AS STRING , dsendcalendarobjd AS STRING , dsendcalendarobjy AS STRING
    dsstartcalendarobjd = MID$(dsstartcalendarobj.Text , 4 , 2)
    dsstartcalendarobjm = MID$(dsstartcalendarobj.Text , 1 , 2)
    dsstartcalendarobjy = MID$(dsstartcalendarobj.Text , 7 , 4)
    dsendcalendarobjd = MID$(dsendcalendarobj.Text , 4 , 2)
    dsendcalendarobjm = MID$(dsendcalendarobj.Text , 1 , 2)
    dsendcalendarobjy = MID$(dsendcalendarobj.Text , 7 , 4)

    DEFSTR url
    'IF dssource.ItemIndex = 0 THEN url = "http://ichart.finance.yahoo.com/table.csv?s=" + UCASE$(dssymboledit.Text) + "&a=" + dsstartcalendarobjm + "&b=" + dsstartcalendarobjd + "&c=" + dsstartcalendarobjy + "&d=" + dsendcalendarobjm + "&e=" + dsendcalendarobjd + "&f=" + dsendcalendarobjy + "&g=" + LCASE$(LEFT$(dstimeframe.Item(dstimeframe.ItemIndex) , 1)) + "&ignore=.csv"
    'IF dssource.ItemIndex = 0 THEN 
    '    showmessage "Yahoo Finance is no longer supported"
    '    dsok.Enabled = 1
    '    exit sub
    'end if
    ini.Section = "Settings"
    if ini.get("streamsource" , "")="Use_Yahoo_Finance" and ini.get("automation" , "")="1" then 
		while dssource.itemindex>0
            		doevents
            	dssource.itemindex=0
        	wend
	end if
    IF dssource.ItemIndex = 0 AND googlerealtimecheckbox.Checked = 0 THEN        
        yahoofinancegetdatasub
        exit sub
    end if    
    IF dssource.ItemIndex = 1 AND googlerealtimecheckbox.Checked = 0 THEN 
        'url = "http://stooq.com/q/d/l/?s=" + LCASE$(dssymboledit.Text) + "&d1=" + dsstartcalendarobjy + dsstartcalendarobjm + dsstartcalendarobjd + "&d2=" + dsendcalendarobjy + dsendcalendarobjm + dsendcalendarobjd + "&i=" + LCASE$(LEFT$(dstimeframe.Item(dstimeframe.ItemIndex) , 1))    
        stooqgetdatasub
        exit sub
    END IF
    IF dssource.ItemIndex = 1 AND googlerealtimecheckbox.Checked = 1 THEN
        showmessage "Realtime update of chart not implemented yet"
        dsok.Enabled = 1
        exit sub
    END IF
    IF dssource.ItemIndex = 2 THEN
        'IF googlerealtimecheckbox.Checked = 0 THEN getcharttimer.enabled=1
        'googlegetquotesub
        showmessage "Google Finance is no longer supported"
        dsok.Enabled = 1
        EXIT SUB
    END IF
    IF  dssource.ItemIndex = 3 AND googlerealtimecheckbox.Checked = 1 THEN
        showmessage "Realtime update of chart not implemented yet"
        dsok.Enabled = 1
        exit sub
    end if
    IF dssource.ItemIndex = 0 AND googlerealtimecheckbox.Checked = 1 THEN
        'googlegetquotesub
        showmessage "Yahoo Finance is no longer supported"
        dsok.Enabled = 1
        EXIT SUB
    END IF
    IF dssource.ItemIndex = 3 or dssource.ItemIndex = 4 AND googlerealtimecheckbox.Checked = 0 THEN
        if alphavantageapikeyedit.Text="" then
            showmessage "Please specify your Alpha Vantage API key"
            dsok.Enabled = 1
            exit sub
        end if
        alphavantagegetdatasub
        exit sub
    end if    
    IF  dssource.ItemIndex = 4 AND googlerealtimecheckbox.Checked = 1 THEN
        showmessage "Realtime update of chart not implemented yet"
        dsok.Enabled = 1
        exit sub
    end if
    IF dssource.ItemIndex = 5 then
        SHOWMESSAGE "Alpha Vantage Cryptocurrencies not implemented yet"
        dsok.Enabled = 1
        exit sub
    end if
    IF dssource.ItemIndex = 6 then
        if tiingoapikeyedit.Text="" then
            showmessage "Please specify your Tiingo API key"
            dsok.Enabled = 1
            exit sub
        end if
        tiingogetdatasub
        exit sub
    end if
    IF dssource.ItemIndex = 7 then
        if tiingoapikeyedit.Text="" then
            showmessage "Please specify your Tiingo API key"
            dsok.Enabled = 1
            exit sub
        end if
        tiingo_IEX_getdatasub
        exit sub
    end if
    IF dssource.ItemIndex = 8 then
        if finnhubapikeyedit.Text="" then
            showmessage "Please specify your finnhub.io API key"
            dsok.Enabled = 1
            exit sub
        end if
        finnhubgetdatasub
        exit sub
    end if
    
    IF dssource.ItemIndex = 9 then
        if finnhubapikeyedit.Text="" then
            showmessage "Please specify your finnhub.io API key"
            dsok.Enabled = 1
            exit sub
        end if
        finnhubgetdatasub
        exit sub
    end if

    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            SHOWMESSAGE "Intraday timeframes are only available for Alpha Vantage"
            dsok.Enabled = 1
            EXIT SUB
        CASE 1  :
            SHOWMESSAGE "Intraday timeframes are only available for Alpha Vantage"
            dsok.Enabled = 1
            EXIT SUB
        CASE 2  :
            SHOWMESSAGE "Intraday timeframes are only available for Alpha Vantage"
            dsok.Enabled = 1
            EXIT SUB
        CASE 3  :
            SHOWMESSAGE "Intraday timeframes are only available for Alpha Vantage"
            dsok.Enabled = 1
            EXIT SUB
        CASE 4  :
            SHOWMESSAGE "Intraday timeframes are only available for Alpha Vantage"
            dsok.Enabled = 1
            EXIT SUB
        CASE 5  :
            SHOWMESSAGE "Intraday timeframes are only available for Alpha Vantage"
            dsok.Enabled = 1
            EXIT SUB
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT

    DEFSTR outFileName = UCASE$(dssymboledit.Text) + dstf + ".tmp"

    CHDIR homepath + "\csv"
    
    getcharttimer.enabled=1
    IF GetFileHTTP(url , outFileName) THEN
        SHOWMESSAGE "Download Error : " & url
        dsok.Enabled = 1
        EXIT SUB
    ELSE
        'PRINT "Download Finished & OK : " & URL
        'showmessage "Download Finished & OK : " & URL
        DIM filestream AS QFILESTREAM
        DEFSTR filecontentstr = ""
        filestream.Open(outFileName , 0)
        WHILE NOT filestream.eof
            filecontentstr = filecontentstr + filestream.ReadLine
        WEND
        IF VAL(barsdisplayed.Text) > filestream.LineCount - 1 AND LEN(filecontentstr) > 7 THEN barsdisplayed.Text = STR$(filestream.LineCount - 1)
        filestream.Close
        IF LEN(filecontentstr) < 8 THEN
            SHOWMESSAGE "Invalid symbol"
            dsok.Enabled = 1
            EXIT SUB
        END IF
        IF VAL(barsdisplayed.Text) < 1 THEN barsdisplayed.Text = "1"
        IF dssource.ItemIndex = 0 AND googlerealtimecheckbox.Checked = 0 THEN importfileyahoo()
        IF dssource.ItemIndex = 1 THEN
            IF googlerealtimecheckbox.Checked = 1 THEN
                SHOWMESSAGE "There is no real time mode for Stooq data"
                googlerealtimecheckbox.Checked = 0
            END IF
            importfilestooq()
        END IF

    END IF

END SUB



'An form, that displais contents of folders and
'has special icons for image-files.

CREATE dirtreeform AS QFORM
    Height = 300
    Width = 450
    Center
    CREATE DirList AS QFILELISTBOX  'Can double as a Directory list box
        ShowIcons = TRUE
        Mask = "*.*"
        AddFileTypes(ftDirectory) 'Add Directories
        DelFileTypes(ftNormal) 'Remove files (see RAPIDQ.INC for values)
        OnDblClick = ChangeDirectories
        Height = dirtreeform.ClientHeight - 50
        Width = 200
    END CREATE
    CREATE csvList AS QFILELISTBOX
        ShowIcons = TRUE
        Mask = "*.csv"
        'OnDblClick = ExecuteApplication
        Left = 215
        Height = dirtreeform.ClientHeight - 50
        Width = 225
        OnClick = choosefile
    END CREATE
    CREATE dirdrivelab AS QLABEL
        Top = dirtreeform.ClientHeight - 50
        Caption = "Drive letter:"
    END CREATE
    CREATE dirdriveedit AS QEDIT
        Top = dirtreeform.ClientHeight - 50
        Left = 100
        Text = "C"
    END CREATE
    CREATE dirdrivebtn AS QBUTTON
        Top = dirtreeform.ClientHeight - 50
        Left = 150
        Caption = "OK"
        OnClick = dirdrivebtnclicked
    END CREATE
    Visible = 0
    Center
    Caption = DirList.Directory
    'OnResize = ResizeForm
END CREATE

SUB dirdrivebtnclicked
    DirList.Drive = dirdriveedit.Text
    DirList.update
END SUB

SUB filesettingsfrmokclicked
    ini.Section = "Settings"
    ini.Write("csvpath" , mtpathedit.Text)
    ini.Write("csvpathexit" , mtpathexitedit.Text)
    filesettingsfrm.Visible = 0
END SUB

SUB edit1change
    ini.Section = "Settings"
    ini.Write("smtp" , Edit1.Text)
END SUB

SUB edit2change
    ini.Section = "Settings"
    ini.Write("from" , Edit2.Text)
END SUB

SUB edit3change
    ini.Section = "Settings"
    ini.Write("to" , Edit3.Text)
END SUB

SUB edit4change
    ini.Section = "Settings"
    ini.Write("subject" , Edit4.Text)
END SUB

SUB edit5change
    ini.Section = "Settings"
    ini.Write("message" , TextBox.Text)
END SUB


'------------------------------------------------------


SUB ChangeDirectories
    CHDIR(DirList.Item(DirList.ItemIndex) - "[" - "]")
    DirList.Directory = CurDir$  :  csvList.Directory = CurDir$
    dirtreeform.Caption = CurDir$
    mtpathedit.Text = DirList.Directory
END SUB

SUB choosefile
    mtpathexitedit.Text = csvList.Item(csvList.ItemIndex)
END SUB

SUB mtpathform
    dirtreeform.Visible = 1
END SUB

SUB mtpathexitform
    dirtreeform.Visible = 1
END SUB

'Restoring last settings from ini file
IF ini.exist THEN
    ini.Section = "Settings"
    IF ini.get("csvpath" , "") <> "" THEN
        IF DIREXISTS(ini.get("csvpath" , "")) THEN
            DirList.Directory = ini.get("csvpath" , "")  :  csvList.Directory = ini.get("csvpath" , "")
            dirtreeform.Caption = CurDir$
            mtpathedit.Text = DirList.Directory
        END IF
    END IF
    IF ini.get("csvpathexit" , "") <> "" THEN
        'if direxists(ini.get("csvpath","")) then
        'DirList.Directory = ini.get("csvpath","") : csvList.Directory = ini.get("csvpath","")
        FOR i = 0 TO csvList.ItemCount - 1
            IF csvList.Item(i) = ini.get("csvpathexit" , "") THEN
                csvList.ItemIndex = i
                EXIT FOR
            END IF
        NEXT i
        'dirtreeform.Caption = CurDir$
        'mtpathedit.text=DirList.Directory
        'end if
        mtpathexitedit.Text = ini.get("csvpathexit" , "")
    END IF
    IF ini.get("barsdisplayed" , "") <> "" THEN barsdisplayed.Text = ini.get("barsdisplayed" , "")
    IF ini.get("alphavantageapikey" , "") <> "" THEN alphavantageapikeyedit.Text = ini.get("alphavantageapikey" , "")
    IF ini.get("tiingoapikey" , "") <> "" THEN tiingoapikeyedit.Text = ini.get("tiingoapikey" , "")
    IF ini.get("finnhubapikey" , "") <> "" THEN finnhubapikeyedit.Text = ini.get("finnhubapikey" , "")
    IF ini.get("countedbars" , "") <> "" THEN 
    cntbarsedit.Text = ini.get("countedbars" , "")
    if val(cntbarsedit.Text)>1000 then cntbarsedit.Text="1000"
    setcntbarseditstr=cntbarsedit.Text:cpptmpfuncreturn=varptr$(setcntbarsedit(varptr(setcntbarseditstr)))
    end if
    IF val(ini.get("checkforupdates" , "")) = 1 THEN checkupdatesstartupcheckbox.checked=1
    IF val(ini.get("checkforupdates" , "")) = 0 THEN checkupdatesstartupcheckbox.checked=0
    IF VAL(ini.get("automation" , "")) > 0 THEN beginauto
    IF VAL(ini.get("exitsignal" , "")) > 0 THEN beginexitsignal
    IF ini.get("AlphaVantage_pauses" , "") <> "" THEN timerautomation.interval=VAL(ini.get("AlphaVantage_pauses" , ""))
    IF ini.get("streamsource" , "") <> "" and ini.get("lastsymbol" , "") <> "" THEN 
        if ini.get("streamsource" , "")="Use_Yahoo_Finance" then 
		while dssource.itemindex>0
            		doevents
            	dssource.itemindex=0
        	wend
	end if
        if ini.get("streamsource" , "")="Use_AlphaVantage" and val(ini.get("lastsymbol" , ""))<=427 then dssource.itemindex=3
        if ini.get("streamsource" , "")="Use_AlphaVantage" and val(ini.get("lastsymbol" , ""))>427 then dssource.itemindex=4        
        if ini.get("streamsource" , "")="Use_Tiingo_Crypto" and val(ini.get("lastsymbol" , ""))<=68 then dssource.itemindex=6        
    end if

END IF

SUB importcsv
    Form2.Visible = 1
    Form2.WindowState = 0
    SetFocus(Form2.Handle)
END SUB

SUB importbmp

    DIM OpenDialog AS QOPENDIALOG
    IF OpenDialog.Execute THEN
        openedfilesnb ++
        openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(openedfilesnbplusone())
        importedfile(openedfilesnb) = OpenDialog.FileName
        displayedfile = openedfilesnb
        displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
        mixgrid.Cell(0 , displayedfile) = importedfile(displayedfile)
        mixgridcolcount(displayedfile) = 1
        mixgridcolcount2(displayedfile) = 0
        mixgridcolcount3(displayedfile) = 0
        mixgridcolcount4(displayedfile) = 0
        IF openedfilesnb > 1 THEN
            rowgridoffset = 7 * (openedfilesnb - 1)
            rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
        END IF
        'dispchartnb.AddItems STR$(displayedfile)
        dispchartnb.AddItems StripFileName(importedfile(displayedfile))
        dispchartnb.ItemIndex = openedfilesnb - 1
    END IF
    IF FILEEXISTS(OpenDialog.FileName) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF
    'Dim file as Qfilestream
    'file.open(OpenDialog.FileName, 0)
    WITH Graph
        .buffer.LoadFromFile(OpenDialog.FileName)
        'ImgMemory.pixelformat=pf24bit
        '.width=.buffer.width
        '.height=.buffer.height
    END WITH
    'file.close


    scrollchartpositionwait = 0

    scrollchartpositionwait = 1

    updatemixerlists
    'bgimg.visible=0
    Graph.Visible = 1
    split.Visible = 0
    splith.Visible = 0
    closedispchart.Visible = 1
    'Scrollchart.visible=1
    WITH Graph
        .firstbufcntreset
        .savebuffertmp
        .paintchart
    END WITH

END SUB

'sub sepindizoommoreclick()
'sepindizoom=sepindizoom-0.1
'btnOnClick(drwBox)
'end sub

'sub sepindizoomlessclick()
'sepindizoom=sepindizoom+0.1
'btnOnClick(drwBox)
'end sub

SUB tfmultp_click()
    tfmult.Text = STR$(VAL(tfmult.Text) + 1)
    tfmultok_click()
END SUB

SUB tfmultm_click()
    tfmult.Text = STR$(VAL(tfmult.Text) - 1)
    IF tfmult.Text = "0" THEN
        tfmult.Text = "1"
    END IF
    tfmultok_click()
END SUB

SUB refreshgrids
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    DIM i AS INTEGER
    chartbars(displayedfile) = chartbarstmp(displayedfile)
    'chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    'dim j as integer
    'dim high as double
    'dim low as double
    'dim vol as integer
    'dim lines as integer
    'lines=1
    FOR i = 1 TO chartbars(displayedfile)
        Grid.Cell(rowgridoffset + 1 , i) = Gridtmp.Cell(rowgridoffset + 1 , i)
        Grid.Cell(rowgridoffset + 2 , i) = Gridtmp.Cell(rowgridoffset + 2 , i)
        Grid.Cell(rowgridoffset + 3 , i) = Gridtmp.Cell(rowgridoffset + 3 , i)
        Grid.Cell(rowgridoffset + 4 , i) = Gridtmp.Cell(rowgridoffset + 4 , i)
        Grid.Cell(rowgridoffset + 5 , i) = Gridtmp.Cell(rowgridoffset + 5 , i)
        Grid.Cell(rowgridoffset + 6 , i) = Gridtmp.Cell(rowgridoffset + 6 , i)
        Grid.Cell(rowgridoffset + 7 , i) = Gridtmp.Cell(rowgridoffset + 7 , i)
 writealive
    NEXT i


    'chartbars(displayedfile)=lines-1
    'print chartbars(displayedfile)
    'Scrollchart.Max=chartbars(displayedfile)
    'Scrollchart.Position=chartbars(displayedfile)
    'chartstart=Scrollchart.Position-numbars
    'btnOnClick(drwBox)
    justrefreshchart
END SUB

sub refreshgrids2

' -------------- This code replaces refreshgrids sub ----------------------------------
    displayedfilestr=str$(displayedfile):chartbars(displayedfile) = val(varptr$(getchartbars(varptr(displayedfilestr))))    

    defstr istr
    FOR i = 1 TO chartbars(displayedfile)
        istr=str$(i)
        rowgridoffsetstr=str$(rowgridoffset + 1):Grid.Cell(rowgridoffset + 1 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
        rowgridoffsetstr=str$(rowgridoffset + 2):Grid.Cell(rowgridoffset + 2 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
        rowgridoffsetstr=str$(rowgridoffset + 3):Grid.Cell(rowgridoffset + 3 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
        rowgridoffsetstr=str$(rowgridoffset + 4):Grid.Cell(rowgridoffset + 4 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
        rowgridoffsetstr=str$(rowgridoffset + 5):Grid.Cell(rowgridoffset + 5 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
        rowgridoffsetstr=str$(rowgridoffset + 6):Grid.Cell(rowgridoffset + 6 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
        rowgridoffsetstr=str$(rowgridoffset + 7):Grid.Cell(rowgridoffset + 7 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
        Gridtmp.Cell(rowgridoffset + 1 , i) = Grid.Cell(rowgridoffset + 1 , i)
        Gridtmp.Cell(rowgridoffset + 2 , i) = Grid.Cell(rowgridoffset + 2 , i)
        Gridtmp.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 3 , i)
        Gridtmp.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 4 , i)
        Gridtmp.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 5 , i)
        Gridtmp.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , i)
        Gridtmp.Cell(rowgridoffset + 7 , i) = Grid.Cell(rowgridoffset + 7 , i)
 'writealive
    NEXT i
    
writealive
    justrefreshchart
' -------------- End of this code replaces refreshgrids sub -------------------------------  

end sub

SUB refreshgridsnorefresh
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    DIM i AS INTEGER
    chartbars(displayedfile) = chartbarstmp(displayedfile)
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    'dim j as integer
    'dim high as double
    'dim low as double
    'dim vol as integer
    'dim lines as integer
    'lines=1
    FOR i = 1 TO chartbars(displayedfile)
        Grid.Cell(rowgridoffset + 1 , i) = Gridtmp.Cell(rowgridoffset + 1 , i)
        Grid.Cell(rowgridoffset + 2 , i) = Gridtmp.Cell(rowgridoffset + 2 , i)
        Grid.Cell(rowgridoffset + 3 , i) = Gridtmp.Cell(rowgridoffset + 3 , i)
        Grid.Cell(rowgridoffset + 4 , i) = Gridtmp.Cell(rowgridoffset + 4 , i)
        Grid.Cell(rowgridoffset + 5 , i) = Gridtmp.Cell(rowgridoffset + 5 , i)
        Grid.Cell(rowgridoffset + 6 , i) = Gridtmp.Cell(rowgridoffset + 6 , i)
        Grid.Cell(rowgridoffset + 7 , i) = Gridtmp.Cell(rowgridoffset + 7 , i)
    NEXT i


    'chartbars(displayedfile)=lines-1
    'print chartbars(displayedfile)
    'Scrollchart.Max=chartbars(displayedfile)
    'Scrollchart.Position=chartbars(displayedfile)
    'chartstart=Scrollchart.Position-numbars
    'btnOnClick(drwBox)
    justrefreshchart
END SUB


SUB savegridtmp
    DIM i AS INTEGER
    FOR i = 1 TO chartbars(displayedfile)
        Gridtmp.Cell(rowgridoffset + 1 , i) = Grid.Cell(rowgridoffset + 1 , i)
        Gridtmp.Cell(rowgridoffset + 2 , i) = Grid.Cell(rowgridoffset + 2 , i)
        Gridtmp.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 3 , i)
        Gridtmp.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 4 , i)
        Gridtmp.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 5 , i)
        Gridtmp.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , i)
        Gridtmp.Cell(rowgridoffset + 7 , i) = Grid.Cell(rowgridoffset + 7 , i)
    NEXT i
END SUB

SUB tfmultok_click()
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF      
    
' ---------- old code version (only price is correct, time does not work) -----------------
' Please use the menu File > Period Converter for correct price and time

    DIM i AS INTEGER
    DIM j AS INTEGER
    DIM high AS DOUBLE
    DIM low AS DOUBLE
    DIM vol AS INTEGER
    DIM lines AS INTEGER
    lines = 1
    chartbars(displayedfile) = chartbarstmp(displayedfile)
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    FOR i = 1 TO chartbars(displayedfile)
        Grid.Cell(rowgridoffset + 1 , i) = Gridtmp.Cell(rowgridoffset + 1 , i)
        Grid.Cell(rowgridoffset + 2 , i) = Gridtmp.Cell(rowgridoffset + 2 , i)
        Grid.Cell(rowgridoffset + 3 , i) = Gridtmp.Cell(rowgridoffset + 3 , i)
        Grid.Cell(rowgridoffset + 4 , i) = Gridtmp.Cell(rowgridoffset + 4 , i)
        Grid.Cell(rowgridoffset + 5 , i) = Gridtmp.Cell(rowgridoffset + 5 , i)
        Grid.Cell(rowgridoffset + 6 , i) = Gridtmp.Cell(rowgridoffset + 6 , i)
        Grid.Cell(rowgridoffset + 7 , i) = Gridtmp.Cell(rowgridoffset + 7 , i)
    NEXT i
    FOR j = 1 TO chartbars(displayedfile) STEP VAL(tfmult.Text)
        IF j <= chartbars(displayedfile) - VAL(tfmult.Text) + 1 THEN
            high = VAL(Grid.Cell(rowgridoffset + 4 , j))
            low = VAL(Grid.Cell(rowgridoffset + 5 , j))
            vol = 0
            FOR i = 1 TO VAL(tfmult.Text)
                IF VAL(Grid.Cell(rowgridoffset + 4 , j + i - 1)) > high THEN
                    high = VAL(Grid.Cell(rowgridoffset + 4 , j + i - 1))
                END IF
                IF VAL(Grid.Cell(rowgridoffset + 5 , j + i - 1)) < low THEN
                    low = VAL(Grid.Cell(rowgridoffset + 5 , j + i - 1))
                END IF
                vol = vol + VAL(Grid.Cell(rowgridoffset + 7 , j + i - 1))
            NEXT i
            
            Grid.Cell(rowgridoffset + 4 , lines) = STR$(high)
            Grid.Cell(rowgridoffset + 5 , lines) = STR$(low)
            Grid.Cell(rowgridoffset + 3 , lines) = Grid.Cell(rowgridoffset + 3 , j)
            Grid.Cell(rowgridoffset + 6 , lines) = Grid.Cell(rowgridoffset + 6 , j + VAL(tfmult.Text) - 1)
            Grid.Cell(rowgridoffset + 7 , lines) = STR$(vol)
            lines ++
        END IF
        IF j > chartbars(displayedfile) - VAL(tfmult.Text) + 1 THEN
            high = VAL(Grid.Cell(rowgridoffset + 4 , j))
            low = VAL(Grid.Cell(rowgridoffset + 5 , j))
            vol = 0
            FOR i = 1 TO chartbars(displayedfile) - j + 1
                IF VAL(Grid.Cell(rowgridoffset + 4 , j + i - 1)) > high THEN
                    high = VAL(Grid.Cell(rowgridoffset + 4 , j + i - 1))
                END IF
                IF VAL(Grid.Cell(rowgridoffset + 5 , j + i - 1)) < low THEN
                    low = VAL(Grid.Cell(rowgridoffset + 5 , j + i - 1))
                END IF
                vol = vol + VAL(Grid.Cell(rowgridoffset + 7 , j + i - 1))
            NEXT i
            Grid.Cell(rowgridoffset + 4 , lines) = STR$(high)
            Grid.Cell(rowgridoffset + 5 , lines) = STR$(low)
            Grid.Cell(rowgridoffset + 3 , lines) = Grid.Cell(rowgridoffset + 3 , j)
            Grid.Cell(rowgridoffset + 6 , lines) = Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile))
            Grid.Cell(rowgridoffset + 7 , lines) = STR$(vol)
            lines ++
        END IF
    NEXT j
    chartbars(displayedfile) = lines - 1
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
   
    exportfilename()
   
    Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    chartstart = Scrollchart.Position - numbars
    btnOnClick(drwBox)
END SUB

SUB dispchartnbchanged()
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    displayedfile = dispchartnb.ItemIndex + 1
    displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
    rowgridoffset = 7 * (displayedfile - 1)
    rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
    Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    updatemixerlists
    detect_timeframe
    btnOnClick(drwBox)    
    say "Display chart number: "+str$(dispchartnb.ItemIndex + 1)
END SUB

SUB closedispcanvas_click()
    say "Separate canvas closed"    
    canvas.Visible = FALSE
    closedispcanvas.Visible = FALSE
    'sepindizoommore.visible=0
    'sepindizoomless.visible=0
    'sepindiheight.visible=0
    'sepindiheightok.visible=0
    'sepindiheightlab.visible=0
    sepindivalminlab.Visible = 0
    sepindivalmaxlab.Visible = 0
    sepindivalminedit.Visible = 0
    sepindivalmaxedit.Visible = 0
    sepindivalok.Visible = 0
    showcanvas = 0
    setup()
    WITH Graph
        .Height = frmMain.ClientHeight - 180 + 100 + 10
        .Width = frmMain.ClientWidth - leftwidth - 25
        IF openedfilesnb > 0 THEN
            .Redrawchart  'Redraw the QChart Object
            .firstbufcntreset
            .savebuffertmp
            .paintchart
        END IF
    END WITH
    WITH Scrollchart
        .Left = Graph.Left
        .Top = Graph.Height + 70 - 20
        .Width = Graph.Width
    END WITH
    WITH pricescaleplusbtn
        .Left = Graph.Left - 30
        .Top = Graph.Top + 15
    END WITH
    WITH pricescaleminusbtn
        .Left = Graph.Left - 30
        .Top = Graph.Top + 15 + 20
    END WITH
    WITH addbarsbtn
        .Left = Graph.Left - 30
        .Top = Graph.Top + 15 + 20+20
    END WITH
    WITH shiftchartbtn
        .Left = Graph.Left - 30
        .Top = Graph.Top + 15 + 20+20+20
    END WITH
    split.Top = Graph.Height + 70
    split.Left = Graph.Left
    split.Width = Graph.Width
    splith.Left = Graph.Left
    splith.Top = Graph.Top
    splith.Height = Graph.Height
    'Plus anything else that needs doing in your form resize
    'Graph.OnPaint = Graph.PaintChart                  'This line REQUIRED to process Repaints
    canvas.OnPaint = canvas.paint
    WITH closedispchart
        .Top = Graph.Top + 2
        .Left = Graph.Width + 98 + leftwidth - 100
    END WITH
END SUB

SUB showcanvasclick()
    'canvas.visible=1
    closedispcanvas.Visible = 1
    'sepindizoommore.visible=1
    'sepindizoomless.visible=1
    'sepindiheight.visible=1
    'sepindiheightok.visible=1
    'sepindiheightlab.visible=1
    'sepindivalminlab.visible=1
    'sepindivalmaxlab.visible=1
    'sepindivalminedit.visible=1
    'sepindivalmaxedit.visible=1
    'sepindivalok.visible=1
    showcanvas = 1
    setup()
    'WITH Graph
    '.Height = frmMain.ClientHeight-180'+130
    '.Width = frmMain.ClientWidth - btngroupbox.Width-25
    'if openedfilesnb>0 then
    '.RedrawChart                                       'Redraw the QChart Object
    'end if
    'END WITH
    'WITH Scrollchart
    '.Left = Graph.Left
    '.Top = Graph.Height+50-20
    '.Width = Graph.Width
    'END WITH
    'Plus anything else that needs doing in your form resize
    'Graph.OnPaint = Graph.PaintChart                  'This line REQUIRED to process Repaints
    'canvas.onpaint=canvas.paint
    'with closedispchart
    '.Top=Graph.Top+2
    '.Left=Graph.Width+98
    'end with
    btnOnClick(drwBox)
    WITH Graph
        .bufcntreset
        .savebuffertmp
    END WITH
    say "Separate canvas shown"
END SUB

SUB closedispchart_click()
    
    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile) + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile))
    IF openedfilesnb = 0 THEN
        Graph.Visible = FALSE
        split.Visible = 0
        splith.Visible = 0
        canvas.Visible = FALSE
        closedispchart.Visible = FALSE
        Scrollchart.Visible = 0
        pricescaleplusbtn.visible=0
        pricescaleminusbtn.visible=0
        addbarsbtn.visible=0
        shiftchartbtn.visible=0
        'sepindizoommore.visible=0
        'sepindizoomless.visible=0
        'sepindiheight.visible=1
        'sepindiheightok.visible=1
        'sepindiheightlab.visible=1
        sepindivalminlab.Visible = 0
        sepindivalmaxlab.Visible = 0
        sepindivalminedit.Visible = 0
        sepindivalmaxedit.Visible = 0
        sepindivalok.Visible = 0
        showcanvas = 0
        setup()
        closedispcanvas.Visible = 0
        mixgridcolcount(displayedfile) = 0
        mixgridcolcount2(displayedfile) = 0
        mixgridcolcount3(displayedfile) = 0
        mixgridcolcount4(displayedfile) = 0
        updatemixerlists
        tfmult.Text = "1"
        barsdisplayed.Text = "222"
        disableallindis
        EXIT SUB
    END IF
    IF openedfilesnb = 1 THEN
        canvas.Visible = 0
        sepindivalminlab.Visible = 0
        sepindivalmaxlab.Visible = 0
        sepindivalminedit.Visible = 0
        sepindivalmaxedit.Visible = 0
        sepindivalok.Visible = 0
        showcanvas = 0
        setup()
        mixgridcolcount(displayedfile) = 0
        mixgridcolcount2(displayedfile) = 0
        mixgridcolcount3(displayedfile) = 0
        mixgridcolcount4(displayedfile) = 0

        updatemixerlists

        say "Chart closed"

    END IF
    IF openedfilesnb > 1 && displayedfile < openedfilesnb THEN
        rowgridoffset = 7 * (displayedfile - 1)
        rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
    END IF     
    
    IF openedfilesnb > 1 && displayedfile < openedfilesnb THEN
        DIM i AS INTEGER , j AS INTEGER, k as integer
        FOR i = displayedfile TO openedfilesnb
            k=i+1
            if k>openedfilesnb then k=i
            FOR j = 1 TO chartbars(k)
                
                Grid.Cell(7 * (i - 1) + 1 , j) = Grid.Cell(7 * (i) + 1 , j)
                Grid.Cell(7 * (i - 1) + 2 , j) = Grid.Cell(7 * (i) + 2 , j)
                Grid.Cell(7 * (i - 1) + 3 , j) = Grid.Cell(7 * (i) + 3 , j)
                Grid.Cell(7 * (i - 1) + 4 , j) = Grid.Cell(7 * (i) + 4 , j)
                Grid.Cell(7 * (i - 1) + 5 , j) = Grid.Cell(7 * (i) + 5 , j)
                Grid.Cell(7 * (i - 1) + 6 , j) = Grid.Cell(7 * (i) + 6 , j)
                Grid.Cell(7 * (i - 1) + 7 , j) = Grid.Cell(7 * (i) + 7 , j)
                Gridtmp.Cell(7 * (i - 1) + 1 , j) = Grid.Cell(7 * (i) + 1 , j)
                Gridtmp.Cell(7 * (i - 1) + 2 , j) = Grid.Cell(7 * (i) + 2 , j)
                Gridtmp.Cell(7 * (i - 1) + 3 , j) = Grid.Cell(7 * (i) + 3 , j)
                Gridtmp.Cell(7 * (i - 1) + 4 , j) = Grid.Cell(7 * (i) + 4 , j)
                Gridtmp.Cell(7 * (i - 1) + 5 , j) = Grid.Cell(7 * (i) + 5 , j)
                Gridtmp.Cell(7 * (i - 1) + 6 , j) = Grid.Cell(7 * (i) + 6 , j)
                Gridtmp.Cell(7 * (i - 1) + 7 , j) = Grid.Cell(7 * (i) + 7 , j)
                mixgrid.Cell(j - 1 , i) = mixgrid.Cell(j - 1 , i + 1)
                mixgrid2.Cell(j - 1 , i) = mixgrid2.Cell(j - 1 , i + 1)
                mixgrid3.Cell(j - 1 , i) = mixgrid3.Cell(j - 1 , i + 1)
                mixgrid4.Cell(j - 1 , i) = mixgrid4.Cell(j - 1 , i + 1)
            NEXT j            
            importedfile(i) = importedfile(i + 1)
            dispchartnb.item(i-1)=dispchartnb.item(i)
            chartbars(i) = chartbars(i + 1)
            mixgridcolcount(i) = mixgridcolcount(i + 1)
            mixgridcolcount2(i) = mixgridcolcount2(i + 1)
            mixgridcolcount3(i) = mixgridcolcount3(i + 1)
            mixgridcolcount4(i) = mixgridcolcount4(i + 1)
        NEXT i

        cpptmpfuncreturn=varptr$(shiftgridsonebackward())

    END IF

    IF openedfilesnb > 1 AND displayedfile = openedfilesnb THEN
        rowgridoffset = 7 * (displayedfile - 2)
        rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
        mixgridcolcount(displayedfile) = 0
        mixgridcolcount2(displayedfile) = 0
        mixgridcolcount3(displayedfile) = 0
        mixgridcolcount4(displayedfile) = 0
        displayedfile --
        cpptmpfuncreturn=varptr$(displayedfileminusone())
    END IF

    openedfilesnb --

    cpptmpfuncreturn=varptr$(openedfilesnbminusone())

    dispchartnb.DelItems = dispchartnb.ItemCount - 1

    dispchartnb.ItemIndex = displayedfile - 1

    IF openedfilesnb > 0 THEN
        Scrollchart.Max = chartbars(displayedfile)
        Scrollchart.Position = chartbars(displayedfile)
        say "Chart closed"
    END IF
    chartstart = Scrollchart.Position - numbars

    updatemixerlists

    IF openedfilesnb = 0 THEN
        Graph.Visible = FALSE
        split.Visible = 0
        splith.Visible = 0
        closedispchart.Visible = FALSE
        Scrollchart.Visible = 0
        pricescaleplusbtn.visible=0
        pricescaleminusbtn.visible=0
        addbarsbtn.visible=0
        shiftchartbtn.visible=0
        'sepindizoommore.visible=0
        'sepindizoomless.visible=0
        'sepindiheight.visible=0
        'sepindiheightok.visible=0
        'sepindiheightlab.visible=0
        'sepindivalminlab.visible=0
        'sepindivalmaxlab.visible=0
        'sepindivalminedit.visible=0
        'sepindivalmaxedit.visible=0
        'sepindivalok.visible=0
        closedispcanvas.Visible = 0
        'bgimg.visible=1
        tfmult.Text = "1"
        barsdisplayed.Text = "222"

        disableallindis         

        EXIT SUB
    END IF
    IF openedfilesnb > 0 THEN 
        btnOnClick(drwBox)
    END IF
END SUB


SUB dispbarsok_click()
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    chartstart = Scrollchart.Position - numbars
    btnOnClick(drwBox)
    say "Displayed bars set to: "+barsdisplayed.Text
END SUB

SUB Scrolling()
    chartstart = Scrollchart.Position - numbars
    IF scrollchartpositionwait = 1 THEN
        IF scrollmodebtn.Flat = 0 THEN
            scrollmodebtn.Flat = 1
            scrollmodebtn.Color = &H88cc88
            scrollmode = 1
            Scrollchart.Enabled = 1
        END IF
        btnOnClick(drwBox)
    END IF
END SUB

SUB TimerOverchartbackward()
    chartstart --
    btnOnClick(drwBox)
END SUB

SUB TimerOverdispbarsp()
    numbars ++
    barsdisplayed.Text = STR$(VAL(barsdisplayed.Text) + 1)
    Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    chartstart = Scrollchart.Position - numbars
    btnOnClick(drwBox)
END SUB

SUB TimerOverdispbarsm()
    numbars --
    barsdisplayed.Text = STR$(VAL(barsdisplayed.Text) - 1)
    Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    chartstart = Scrollchart.Position - numbars
    btnOnClick(drwBox)
END SUB

SUB dispbarspd()
    Timerdispbarsp.Enabled = 1
END SUB

SUB dispbarspu()
    Timerdispbarsp.Enabled = 0
END SUB

SUB dispbarsmd()
    Timerdispbarsm.Enabled = 1
END SUB

SUB dispbarsmu()
    Timerdispbarsm.Enabled = 0
END SUB

SUB setup()

    'Prevent initial resize exception
    IF AppStart THEN AppStart = FALSE  :  EXIT SUB
    'de.bug "Resize"


    'with bgimg
    '.width=frmmain.width
    '.height=frmmain.height
    'end with

    'with btngroupbox
    '.top=frmmain.height-265
    'end with

    WITH Graph
        .Height = frmMain.ClientHeight - 70  '+10+leftwidth-180
        IF showcanvas = 1 THEN
            .Height = .Height - 90 - sepindiheight + 110
        END IF
        .Width = frmMain.ClientWidth - leftwidth - 25
        .Left = leftwidth + 16
        IF openedfilesnb > 0 THEN
            .Redrawchart  'Redraw the QChart Object
            .firstbufcntreset
            .savebuffertmp
            .paintchart
        END IF
    END WITH

    split.Top = Graph.Height + 70
    split.Left = Graph.Left
    split.Width = Graph.Width

    splith.Left = Graph.Left
    splith.Top = Graph.Top
    splith.Height = Graph.Height

    IF showcanvas = 1 THEN
        WITH canvas
            .Width = graph.XAxis.LEN 'graph.left+graph.width-52-canvas.left
            .Height = sepindiheight
            .Top = Graph.Top + Graph.Height + 20  '-val(sepindiheight.text)+130
            if charttypecombo.itemindex=1 then .Left = 1.8621*graph.left 'leftwidth + 97 - 4 + 23
            if charttypecombo.itemindex=0 then .Left = graph.left+timechartpos(0,1)
            .RedrawChart2
            .firstbufcntreset
            .savebuffertmp
            .paint
        END WITH        

        WITH closedispcanvas
            .Top = canvas.Top
            .Left = canvas.left+canvas.width'canvas.Width + 181 - 4 + leftwidth - 100 - 5 + 20
        END WITH             

        'with sepindizoommore
        '.Top =graph.top+graph.height+15+10
        '.Left=leftwidth+97+canvas.width+15
        '.width=20
        'end with

        'with sepindizoomless
        '.Top =graph.top+graph.height+65+10
        '.Left=leftwidth+97+canvas.width+15
        '.width=20
        'end with

        'with sepindiheightlab
        '.Top =graph.top+graph.height+20+10
        '.Left=leftwidth+97+canvas.width+45
        '.width=100
        'end with

        'with sepindiheight
        '
        '
        '.Top =graph.top+graph.height+40+10
        '.Left=leftwidth+97+canvas.width+45
        '.width=50
        '
        'end with

        'with sepindiheightok
        '
        '
        '.Top =graph.top+graph.height+40+10
        '.Left=leftwidth+97+canvas.width+95
        '.width=25
        '
        'end with

        WITH sepindivalminlab
            .Visible = 1
            'align=6
            .Top = Graph.Top + Graph.Height + 65 + 10
            .Left = leftwidth + 10
            'caption="Min value"
        END WITH

        WITH sepindivalminedit
            .Visible = 1
            'align=6
            .Top = Graph.Top + Graph.Height + 65 + 20 + 10
            .Left = leftwidth + 10
            'width=50
            'text="0"
        END WITH

        WITH sepindivalmaxlab
            .Visible = 1
            'align=6
            .Top = Graph.Top + Graph.Height + 65 - 50 + 10
            .Left = leftwidth + 10
            'caption="Max value"
        END WITH

        WITH sepindivalmaxedit
            .Visible = 1
            'align=6
            .Top = Graph.Top + Graph.Height + 65 - 50 + 20 + 10
            .Left = leftwidth + 10
            'width=50
            'text="0"
        END WITH

        WITH sepindivalok
            .Visible = 1
            'align=6
            .Top = Graph.Top + Graph.Height + 65 - 50 + 20 + 25 + 10
            .Left = leftwidth + 10 + 55
            'width=25
            'onclick=dispbarsok_click
            'caption="OK"
        END WITH

    END IF

    WITH Scrollchart
        .Left = Graph.Left
        .Top = Graph.Height + 70 - 20
        .Width = Graph.Width
    END WITH
    
    with pricescaleplusbtn
        .Left = Graph.Left - 30
        .Top = Graph.Top + 15
    end with
    
    with pricescaleminusbtn
        .Left = Graph.Left - 30
        .Top = Graph.Top + 15 + 20
    end with
    
    with addbarsbtn
        .Left = Graph.Left - 30
        .Top = Graph.Top + 15 + 20+20
    end with
    
    with shiftchartbtn
        .Left = Graph.Left - 30
        .Top = Graph.Top + 15 + 20+20+20
    end with

    'Plus anything else that needs doing in your form resize
    'Graph.OnPaint = Graph.PaintChart                  'This line REQUIRED to process Repaints
    IF showcanvas = 1 THEN
        canvas.OnPaint = canvas.paint
    END IF
    WITH closedispchart
        .Top = Graph.Top + 2
        .Left = Graph.Width + 98 + leftwidth - 100
    END WITH

    IF showcanvas = 1 THEN
        WITH sepindivalminlab
            .Align = 6
            .Top = Graph.Top + Graph.Height + 65 + 10
            .Left = leftwidth + 10
            .Caption = "Min value"
        END WITH

        WITH sepindivalminedit
            .Align = 6
            .Top = Graph.Top + Graph.Height + 65 + 20 + 10
            .Left = leftwidth + 10
            .Width = 50
        END WITH

        WITH sepindivalmaxlab
            .Align = 6
            .Top = Graph.Top + Graph.Height + 65 - 50 + 10
            .Left = leftwidth + 10
            .Caption = "Max value"
        END WITH

        WITH sepindivalmaxedit
            .Align = 6
            .Top = Graph.Top + Graph.Height + 65 - 50 + 20 + 10
            .Left = leftwidth + 10
            .Width = 50
        END WITH

        WITH sepindivalok
            .Align = 6
            .Top = Graph.Top + Graph.Height + 65 - 50 + 20 + 25 + 10
            .Left = leftwidth + 10 + 55
            .Width = 25
        END WITH
    END IF

END SUB


CREATE mixform AS QFORM
    Width = 800
    Height = 600
    Center
    Caption = "Mixer"

    CREATE additionlab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Addition list:"
    END CREATE

    CREATE additionlist AS QLISTBOX
        Left = 0
        Top = additionlab.Top + 20
        Height = 80
        Width = mixform.Width - 23
    END CREATE

    CREATE additionbutton AS QBUTTON
        Left = 0
        Top = additionlist.Top + additionlist.Height
        Caption = "Add chart"
        OnClick = importfileaddition
    END CREATE

    CREATE additionbuttondel AS QBUTTON
        Left = additionbutton.Left + additionbutton.Width + 10
        Top = additionlist.Top + additionlist.Height
        Caption = "Remove chart"
        OnClick = importfileadditiondel
    END CREATE

    CREATE subtractionlab AS QLABEL
        Left = 0
        Top = additionbutton.Top + additionbutton.Height + 10
        Caption = "Subtraction list:"
    END CREATE

    CREATE subtractionlist AS QLISTBOX
        Left = 0
        Top = subtractionlab.Top + 20
        Height = 80
        Width = mixform.Width - 23
    END CREATE

    CREATE subtractionbutton AS QBUTTON
        Left = 0
        Top = subtractionlist.Top + subtractionlist.Height
        Caption = "Add chart"
        OnClick = importfilesubtraction
    END CREATE

    CREATE subtractionbuttondel AS QBUTTON
        Left = subtractionbutton.Left + subtractionbutton.Width + 10
        Top = subtractionlist.Top + subtractionlist.Height
        Caption = "Remove chart"
        OnClick = importfilesubtractiondel
    END CREATE

    CREATE multiplylab AS QLABEL
        Left = 0
        Top = subtractionbutton.Top + subtractionbutton.Height + 10
        Caption = "Multiplication list:"
    END CREATE

    CREATE multiplylist AS QLISTBOX
        Left = 0
        Top = multiplylab.Top + 20
        Height = 80
        Width = mixform.Width - 23
    END CREATE

    CREATE multiplybutton AS QBUTTON
        Left = 0
        Top = multiplylist.Top + multiplylist.Height
        Caption = "Add chart"
        OnClick = importfilemultiply
    END CREATE

    CREATE multiplybuttondel AS QBUTTON
        Left = multiplybutton.Left + multiplybutton.Width + 10
        Top = multiplylist.Top + multiplylist.Height
        Caption = "Remove chart"
        OnClick = importfilemultiplydel
    END CREATE

    CREATE dividelab AS QLABEL
        Left = 0
        Top = multiplybutton.Top + multiplybutton.Height + 10
        Caption = "Division list:"
    END CREATE

    CREATE dividelist AS QLISTBOX
        Left = 0
        Top = dividelab.Top + 20
        Height = 80
        Width = mixform.Width - 23
    END CREATE

    CREATE dividebutton AS QBUTTON
        Left = 0
        Top = dividelist.Top + dividelist.Height
        Caption = "Add chart"
        OnClick = importfiledivide
    END CREATE

    CREATE dividebuttondel AS QBUTTON
        Left = dividebutton.Left + dividebutton.Width + 10
        Top = dividelist.Top + dividelist.Height
        Caption = "Remove chart"
        OnClick = importfiledividedel
    END CREATE

    CREATE otheropbtn AS QBUTTON
        Left = 0
        Top = dividebuttondel.Top + dividebuttondel.Height
        Caption = "Other operations"
        OnClick = otheropssub
    END CREATE


END CREATE

CREATE chartconvform AS QFORM
    Caption = "Chart conversions"
    CREATE exp10btn AS QBUTTON
        Left = 0
        Top = 0
        Caption = "Convert chart to exponential base 10"
        Width = 300
        OnClick = exp10sub
    END CREATE
    CREATE sinusoidalbtn AS QBUTTON
        Left = 0
        Top = 30
        Caption = "Convert chart to sinusoidal"
        Width = 300
        OnClick = sinusoidalsub
    END CREATE
END CREATE

CREATE attribtfform AS QFORM
    Caption = "Timeframe attribution"
    CREATE attribtflabel AS qlabel
        Left = 0
        Top = 0
        Caption = "Chart TF:"
    END CREATE
    CREATE attribtfcombo AS qcombobox
        Left = 50
        Top = 0
        Width = 70
        AddItems "1"
        AddItems "5"
        AddItems "15"
        AddItems "30"
        AddItems "60"
        AddItems "240"
        AddItems "1440"
        AddItems "10080"
        AddItems "43200"
        OnChange = attribtfeditItemChanged
    END CREATE
    CREATE attribtfminuteslabel AS qlabel
        Left = 120
        Top = 0
        Caption = "minutes"
    END CREATE
END CREATE

sub writetf (dispfile as integer,tftowrite as integer)
 IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
 DIM o AS INTEGER
 defint ii=chartbars(displayedfile) - VAL(cntbarsedit.Text)
 if ii<1 then ii=1
 
 select case tftowrite
 
     case 1:
                        'REDIM Open5(0 TO 0) AS DOUBLE
                        'REDIM high5(0 TO 0) AS DOUBLE
                        'REDIM low5(0 TO 0) AS DOUBLE
                        'REDIM Close5(0 TO 0) AS DOUBLE
                        'REDIM volume5(0 TO 0) AS INTEGER
                        'redim date5(0 TO 0) AS string
                        'redim time5(0 TO 0) AS string
                        'REDIM datetimeserial5(0 TO 0) AS double

                        'REDIM Open5(1 TO 100) AS DOUBLE
                        'REDIM high5(1 TO 100) AS DOUBLE
                        'REDIM low5(1 TO 100) AS DOUBLE
                        'REDIM Close5(1 TO 100) AS DOUBLE
                        'REDIM volume5(1 TO 100) AS INTEGER
                        'redim date5(1 TO 100) AS string
                        'redim time5(1 TO 100) AS string
                        'REDIM datetimeserial5(1 TO 100) AS double

                        
                        o = 0
                        dim year as integer,month as integer,day as integer, hour as integer,minute as integer,second as integer

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date1(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time1(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open1(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high1(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low1(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close1(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume1(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date1(o) , 0 , 4))
                            month = VAL(MID$(date1(o) , 6 , 2))
                            day = VAL(MID$(date1(o) , 9 , 2))
                            hour = VAL(MID$(time1(o) , 0 , 2))
                            minute = VAL(MID$(time1(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial1(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial5(o)=datetimeserial5(o)*24*60*60
                            'datetimeserial5(o)=datetimeserial5(o)+(hour*60*60)
                            'datetimeserial5(o)=datetimeserial5(o)+(minute*60)
                            o ++
                        NEXT i
 
     case 5:
                        'REDIM Open5(0 TO 0) AS DOUBLE
                        'REDIM high5(0 TO 0) AS DOUBLE
                        'REDIM low5(0 TO 0) AS DOUBLE
                        'REDIM Close5(0 TO 0) AS DOUBLE
                        'REDIM volume5(0 TO 0) AS INTEGER
                        'redim date5(0 TO 0) AS string
                        'redim time5(0 TO 0) AS string
                        'REDIM datetimeserial5(0 TO 0) AS double

                        'REDIM Open5(1 TO 100) AS DOUBLE
                        'REDIM high5(1 TO 100) AS DOUBLE
                        'REDIM low5(1 TO 100) AS DOUBLE
                        'REDIM Close5(1 TO 100) AS DOUBLE
                        'REDIM volume5(1 TO 100) AS INTEGER
                        'redim date5(1 TO 100) AS string
                        'redim time5(1 TO 100) AS string
                        'REDIM datetimeserial5(1 TO 100) AS double

                        
                        o = 0
                        'dim year as integer,month as integer,day as integer, hour as integer,minute as integer,second as integer

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date5(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time5(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open5(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high5(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low5(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close5(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume5(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date5(o) , 0 , 4))
                            month = VAL(MID$(date5(o) , 6 , 2))
                            day = VAL(MID$(date5(o) , 9 , 2))
                            hour = VAL(MID$(time5(o) , 0 , 2))
                            minute = VAL(MID$(time5(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial5(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial5(o)=datetimeserial5(o)*24*60*60
                            'datetimeserial5(o)=datetimeserial5(o)+(hour*60*60)
                            'datetimeserial5(o)=datetimeserial5(o)+(minute*60)
                            o ++
                        NEXT i
        case 15:
                        'REDIM Open15(0 TO 0) AS DOUBLE
                        'REDIM high15(0 TO 0) AS DOUBLE
                        'REDIM low15(0 TO 0) AS DOUBLE
                        'REDIM Close15(0 TO 0) AS DOUBLE
                        'REDIM volume15(0 TO 0) AS INTEGER
                        'redim date15(0 TO 0) AS string
                        'redim time15(0 TO 0) AS string
                        'REDIM datetimeserial15(0 TO 0) AS double

                        'REDIM Open15(1 TO 100) AS DOUBLE
                        'REDIM high15(1 TO 100) AS DOUBLE
                        'REDIM low15(1 TO 100) AS DOUBLE
                        'REDIM Close15(1 TO 100) AS DOUBLE
                        'REDIM volume15(1 TO 100) AS INTEGER
                        'redim date15(1 TO 100) AS string
                        'redim time15(1 TO 100) AS string
                        'REDIM datetimeserial15(1 TO 100) AS double

                        
                        o = 0

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date15(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time15(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open15(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high15(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low15(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close15(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume15(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date15(o) , 0 , 4))
                            month = VAL(MID$(date15(o) , 6 , 2))
                            day = VAL(MID$(date15(o) , 9 , 2))
                            hour = VAL(MID$(time15(o) , 0 , 2))
                            minute = VAL(MID$(time15(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial15(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial15(o)=DateSerial (year, month, day)
                            'datetimeserial15(o)=datetimeserial15(o)*24*60*60
                            'datetimeserial15(o)=datetimeserial15(o)+(hour*60*60)
                            'datetimeserial15(o)=datetimeserial15(o)+(minute*60)
                            o ++
                        NEXT i
        case 30:
                        'REDIM Open30(0 TO 0) AS DOUBLE
                        'REDIM high30(0 TO 0) AS DOUBLE
                        'REDIM low30(0 TO 0) AS DOUBLE
                        'REDIM Close30(0 TO 0) AS DOUBLE
                        'REDIM volume30(0 TO 0) AS INTEGER
                        'redim date30(0 TO 0) AS string
                        'redim time30(0 TO 0) AS string
                        'REDIM datetimeserial30(0 TO 0) AS double

                        'REDIM Open30(1 TO 100) AS DOUBLE
                        'REDIM high30(1 TO 100) AS DOUBLE
                        'REDIM low30(1 TO 100) AS DOUBLE
                        'REDIM Close30(1 TO 100) AS DOUBLE
                        'REDIM volume30(1 TO 100) AS INTEGER
                        'redim date30(1 TO 100) AS string
                        'redim time30(1 TO 100) AS string
                        'REDIM datetimeserial30(1 TO 100) AS double

                        
                        o = 0

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date30(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time30(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open30(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high30(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low30(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close30(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume30(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date30(o) , 0 , 4))
                            month = VAL(MID$(date30(o) , 6 , 2))
                            day = VAL(MID$(date30(o) , 9 , 2))
                            hour = VAL(MID$(time30(o) , 0 , 2))
                            minute = VAL(MID$(time30(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial30(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial30(o)=DateSerial (year, month, day)
                            'datetimeserial30(o)=datetimeserial30(o)*24*60*60
                            'datetimeserial30(o)=datetimeserial30(o)+(hour*60*60)
                            'datetimeserial30(o)=datetimeserial30(o)+(minute*60)
                            o ++
                        NEXT i
        case 60:
                        'REDIM Open60(0 TO 0) AS DOUBLE
                        'REDIM high60(0 TO 0) AS DOUBLE
                        'REDIM low60(0 TO 0) AS DOUBLE
                        'REDIM Close60(0 TO 0) AS DOUBLE
                        'REDIM volume60(0 TO 0) AS INTEGER
                        'redim date60(0 TO 0) AS string
                        'redim time60(0 TO 0) AS string
                        'REDIM datetimeserial60(0 TO 0) AS double

                        'REDIM Open60(1 TO 100) AS DOUBLE
                        'REDIM high60(1 TO 100) AS DOUBLE
                        'REDIM low60(1 TO 100) AS DOUBLE
                        'REDIM Close60(1 TO 100) AS DOUBLE
                        'REDIM volume60(1 TO 100) AS INTEGER
                        'redim date60(1 TO 100) AS string
                        'redim time60(1 TO 100) AS string
                        'REDIM datetimeserial60(1 TO 100) AS double

                        
                        o = 0

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date60(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time60(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open60(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high60(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low60(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close60(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume60(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date60(o) , 0 , 4))
                            month = VAL(MID$(date60(o) , 6 , 2))
                            day = VAL(MID$(date60(o) , 9 , 2))
                            hour = VAL(MID$(time60(o) , 0 , 2))
                            minute = VAL(MID$(time60(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial60(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial60(o)=DateSerial (year, month, day)
                            'datetimeserial60(o)=datetimeserial60(o)*24*60*60
                            'datetimeserial60(o)=datetimeserial60(o)+(hour*60*60)
                            'datetimeserial60(o)=datetimeserial60(o)+(minute*60)
                            o ++
                        NEXT i
        case 240:
                        'REDIM Open240(0 TO 0) AS DOUBLE
                        'REDIM high240(0 TO 0) AS DOUBLE
                        'REDIM low240(0 TO 0) AS DOUBLE
                        'REDIM Close240(0 TO 0) AS DOUBLE
                        'REDIM volume240(0 TO 0) AS INTEGER
                        'redim date240(0 TO 0) AS string
                        'redim time240(0 TO 0) AS string
                        'REDIM datetimeserial240(0 TO 0) AS double

                        'REDIM Open240(1 TO 100) AS DOUBLE
                        'REDIM high240(1 TO 100) AS DOUBLE
                        'REDIM low240(1 TO 100) AS DOUBLE
                        'REDIM Close240(1 TO 100) AS DOUBLE
                        'REDIM volume240(1 TO 100) AS INTEGER
                        'redim date240(1 TO 100) AS string
                        'redim time240(1 TO 100) AS string
                        'REDIM datetimeserial240(1 TO 100) AS double

                        
                        o = 0

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date240(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time240(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open240(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high240(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low240(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close240(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume240(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date240(o) , 0 , 4))
                            month = VAL(MID$(date240(o) , 6 , 2))
                            day = VAL(MID$(date240(o) , 9 , 2))
                            hour = VAL(MID$(time240(o) , 0 , 2))
                            minute = VAL(MID$(time240(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial240(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial240(o)=DateSerial (year, month, day)
                            'datetimeserial240(o)=datetimeserial240(o)*24*60*60
                            'datetimeserial240(o)=datetimeserial240(o)+(hour*60*60)
                            'datetimeserial240(o)=datetimeserial240(o)+(minute*60)
                            o ++
                        NEXT i
        case 1440:
                        'REDIM Open1440(0 TO 0) AS DOUBLE
                        'REDIM high1440(0 TO 0) AS DOUBLE
                        'REDIM low1440(0 TO 0) AS DOUBLE
                        'REDIM Close1440(0 TO 0) AS DOUBLE
                        'REDIM volume1440(0 TO 0) AS INTEGER
                        'redim date1440(0 TO 0) AS string
                        'redim time1440(0 TO 0) AS string
                        'REDIM datetimeserial1440(0 TO 0) AS double

                        'REDIM Open1440(1 TO 100) AS DOUBLE
                        'REDIM high1440(1 TO 100) AS DOUBLE
                        'REDIM low1440(1 TO 100) AS DOUBLE
                        'REDIM Close1440(1 TO 100) AS DOUBLE
                        'REDIM volume1440(1 TO 100) AS INTEGER
                        'redim date1440(1 TO 100) AS string
                        'redim time1440(1 TO 100) AS string
                        'REDIM datetimeserial1440(1 TO 100) AS double

                        
                        o = 0

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date1440(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time1440(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open1440(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high1440(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low1440(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close1440(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume1440(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date1440(o) , 0 , 4))
                            month = VAL(MID$(date1440(o) , 6 , 2))
                            day = VAL(MID$(date1440(o) , 9 , 2))
                            hour = VAL(MID$(time1440(o) , 0 , 2))
                            minute = VAL(MID$(time1440(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial1440(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial1440(o)=DateSerial (year, month, day)
                            'datetimeserial1440(o)=datetimeserial1440(o)*24*60*60
                            'datetimeserial1440(o)=datetimeserial1440(o)+(hour*60*60)
                            'datetimeserial1440(o)=datetimeserial1440(o)+(minute*60)
                            o ++
                        NEXT i
        case 10080:
                        'REDIM Open10080(0 TO 0) AS DOUBLE
                        'REDIM high10080(0 TO 0) AS DOUBLE
                        'REDIM low10080(0 TO 0) AS DOUBLE
                        'REDIM Close10080(0 TO 0) AS DOUBLE
                        'REDIM volume10080(0 TO 0) AS INTEGER
                        'redim date10080(0 TO 0) AS string
                        'redim time10080(0 TO 0) AS string
                        'REDIM datetimeserial10080(0 TO 0) AS double

                        'REDIM Open10080(1 TO 100) AS DOUBLE
                        'REDIM high10080(1 TO 100) AS DOUBLE
                        'REDIM low10080(1 TO 100) AS DOUBLE
                        'REDIM Close10080(1 TO 100) AS DOUBLE
                        'REDIM volume10080(1 TO 100) AS INTEGER
                        'redim date10080(1 TO 100) AS string
                        'redim time10080(1 TO 100) AS string
                        'REDIM datetimeserial10080(1 TO 100) AS double

                        
                        o = 0

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date10080(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time10080(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open10080(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high10080(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low10080(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close10080(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume10080(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date10080(o) , 0 , 4))
                            month = VAL(MID$(date10080(o) , 6 , 2))
                            day = VAL(MID$(date10080(o) , 9 , 2))
                            hour = VAL(MID$(time10080(o) , 0 , 2))
                            minute = VAL(MID$(time10080(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial10080(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial10080(o)=DateSerial (year, month, day)
                            'datetimeserial10080(o)=datetimeserial10080(o)*24*60*60
                            'datetimeserial10080(o)=datetimeserial10080(o)+(hour*60*60)
                            'datetimeserial10080(o)=datetimeserial10080(o)+(minute*60)
                            o ++
                        NEXT i
        case 43200:
                        'REDIM Open43200(0 TO 0) AS DOUBLE
                        'REDIM high43200(0 TO 0) AS DOUBLE
                        'REDIM low43200(0 TO 0) AS DOUBLE
                        'REDIM Close43200(0 TO 0) AS DOUBLE
                        'REDIM volume43200(0 TO 0) AS INTEGER
                        'redim date43200(0 TO 0) AS string
                        'redim time43200(0 TO 0) AS string
                        'REDIM datetimeserial43200(0 TO 0) AS double

                        'REDIM Open43200(1 TO 100) AS DOUBLE
                        'REDIM high43200(1 TO 100) AS DOUBLE
                        'REDIM low43200(1 TO 100) AS DOUBLE
                        'REDIM Close43200(1 TO 100) AS DOUBLE
                        'REDIM volume43200(1 TO 100) AS INTEGER
                        'redim date43200(1 TO 100) AS string
                        'redim time43200(1 TO 100) AS string
                        'REDIM datetimeserial43200(1 TO 100) AS double

                        
                        o = 0

                        FOR i = chartbars(displayedfile) TO ii STEP - 1
                            date43200(o) = Grid.Cell(rowgridoffset + 1 , i)
                            time43200(o) = Grid.Cell(rowgridoffset + 2 , i)
                            Open43200(o) = VAL(Grid.Cell(rowgridoffset + 3 , i))
                            high43200(o) = VAL(Grid.Cell(rowgridoffset + 4 , i))
                            low43200(o) = VAL(Grid.Cell(rowgridoffset + 5 , i))
                            Close43200(o) = VAL(Grid.Cell(rowgridoffset + 6 , i))
                            volume43200(o) = VAL(Grid.Cell(rowgridoffset + 7 , i))
                            year = VAL(MID$(date43200(o) , 0 , 4))
                            month = VAL(MID$(date43200(o) , 6 , 2))
                            day = VAL(MID$(date43200(o) , 9 , 2))
                            hour = VAL(MID$(time43200(o) , 0 , 2))
                            minute = VAL(MID$(time43200(o) , 4 , 2))
                            second=0
                            parameters=str$(year)+";"+str$(month)+";"+str$(day)+";"+str$(hour)+";"+str$(minute)+";"+str$(second)
                            datetimeserial43200(o)=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
                            'datetimeserial43200(o)=DateSerial (year, month, day)
                            'datetimeserial43200(o)=datetimeserial43200(o)*24*60*60
                            'datetimeserial43200(o)=datetimeserial43200(o)+(hour*60*60)
                            'datetimeserial43200(o)=datetimeserial43200(o)+(minute*60)
                            o ++
                        NEXT i
    end select
        
end sub

sub attribtfeditItemChanged
    charttf(displayedfile)=val(attribtfcombo.item(attribtfcombo.itemindex))
    displayedfilestr=str$(displayedfile):defstr charttfdisplayedfilestr=str$(charttf(displayedfile)):cpptmpfuncreturn=varptr$(setcharttf(varptr(charttfdisplayedfilestr),varptr(displayedfilestr)))
    'print str$(charttf(displayedfile))
    writetf(displayedfile,charttf(displayedfile))
    defstr tftowritestr=str$(charttf(displayedfile)):cpptmpfuncreturn=varptr$(writetfcpp(varptr(tftowritestr)))
end sub

CREATE otheropsform AS QFORM
    Caption = "Other operations"

    CREATE reversebarslab AS QLABEL
        Top = 30
        Caption = "Reverse bars frequency:"
    END CREATE
    CREATE reversebarsnumeratoredit AS QEDIT
        Top = 30
        Left = reversebarslab.Left + reversebarslab.Width
        Width = 50
        Text = "1"
    END CREATE
    CREATE slashlab2 AS QLABEL
        Top = 30
        Left = reversebarsnumeratoredit.Left + reversebarsnumeratoredit.Width
        Caption = "/"
    END CREATE
    CREATE reversebarsdenominatoredit AS QEDIT
        Top = 30
        Left = slashlab2.Left + slashlab2.Width
        Width = 50
        Text = "1"
    END CREATE
    CREATE barslab2 AS QLABEL
        Top = 30
        Left = reversebarsdenominatoredit.Left + reversebarsdenominatoredit.Width
        Caption = "bar(s)"
    END CREATE
    CREATE barnbbeginlab AS QLABEL
        Top = 60
        Caption = "Begin at bar #:"
    END CREATE
    CREATE barnbbeginedit AS QEDIT
        Top = 60
        Left = barnbbeginlab.Left + barnbbeginlab.Width
        Width = 50
        Text = "2"
    END CREATE

    CREATE reversebarscomputebtn AS QBUTTON
        Top = 90
        Caption = "Compute"
        OnClick = reversebarscomputesub
    END CREATE

    CREATE priceratiolab AS QLABEL
        Top = 130
        Caption = "Price ratio:"
    END CREATE

    CREATE priceratioedit AS QEDIT
        Top = 130
        Left = priceratiolab.Left + priceratiolab.Width + 5
        Text = "1"
    END CREATE

    CREATE priceratiobutton AS QBUTTON
        Top = 130
        Left = priceratioedit.Left + priceratioedit.Width + 5
        Caption = "OK"
        OnClick = changepriceratiosub
    END CREATE

END CREATE

SUB exp10sub
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    DIM i AS INTEGER
    DIM j AS INTEGER
    'chartbars(displayedfile)=chartbarstmp(displayedfile)
    'dim j as integer
    'dim high as double
    'dim low as double
    'dim vol as integer
    'dim lines as integer
    'lines=1

    IF alltimehigh >= 1000 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 0.01)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 0.01)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 0.01)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 0.01)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF

    IF alltimehigh >= 300 AND alltimehigh < 1000 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 0.1 * 0.3)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 0.1 * 0.3)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 0.1 * 0.3)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 0.1 * 0.3)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF

    IF alltimehigh >= 100 AND alltimehigh < 300 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 0.1)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 0.1)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 0.1)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 0.1)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF

    IF alltimehigh >= 10 AND alltimehigh < 100 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 0.3)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 0.3)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 0.3)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 0.3)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF

    IF alltimehigh >= 6 AND alltimehigh < 10 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 3)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 3)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 3)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 3)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 4 AND alltimehigh < 6 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 5)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 5)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 5)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 5)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 3 AND alltimehigh < 4 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 7)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 7)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 7)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 7)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 2 AND alltimehigh < 3 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 10)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 10)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 10)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 10)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 1.3 AND alltimehigh < 2 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 15)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 15)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 15)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 15)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 1.1 AND alltimehigh < 1.3 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 23)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 23)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 23)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 23)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 1 AND alltimehigh < 1.1 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 27)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 27)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 27)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 27)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 0.9 AND alltimehigh < 1 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 30)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 30)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 30)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 30)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 0.8 AND alltimehigh < 0.9 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 33)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 33)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 33)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 33)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh >= 0.7 AND alltimehigh < 0.8 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 37)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 37)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 37)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 37)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF
    
    IF alltimehigh > 0 AND alltimehigh < 0.7 THEN
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 42)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 42)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 42)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 42)
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i
    END IF

    writealive

    FOR i = 1 TO chartbars(displayedfile)
        'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
        'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
        Grid.Cell(rowgridoffset + 3 , i) = STR$(exp10(VAL(Grid.Cell(rowgridoffset + 3 , i))))
        Grid.Cell(rowgridoffset + 4 , i) = STR$(exp10(VAL(Grid.Cell(rowgridoffset + 4 , i))))
        Grid.Cell(rowgridoffset + 5 , i) = STR$(exp10(VAL(Grid.Cell(rowgridoffset + 5 , i))))
        Grid.Cell(rowgridoffset + 6 , i) = STR$(exp10(VAL(Grid.Cell(rowgridoffset + 6 , i))))
        'Grid.Cell(rowgridoffset+7,i)=str$(exp10(val(Grid.Cell(rowgridoffset+7,i))))
        'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
    NEXT i

    writealive


    DIM graphvi AS INTEGER
    alltimehigh = 0
    FOR graphvi = 1 TO chartbars(displayedfile)
        IF VAL(Grid.Cell(rowgridoffset + 4 , graphvi)) > alltimehigh THEN
            alltimehigh = VAL(Grid.Cell(rowgridoffset + 4 , graphvi))
        END IF
    NEXT graphvi
    'for graphvi=1 to chartbars(displayedfile)
    'if val(Grid.cell(rowgridoffset+4,graphvi))=alltimehigh then
    'exit for
    'end if
    'next graphvi

    writealive

    DIM athtmp AS DOUBLE
    athtmp = alltimehigh
    DIM tensinc AS INTEGER
    tensinc = 0

    WHILE INSTR(STR$(athtmp) , "E") > 0
        athtmp = athtmp / 10
        tensinc ++
    WEND

    writealive

    FOR j = 1 TO tensinc + 5

        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) / 10)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) / 10)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) / 10)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) / 10)
            'Grid.Cell(rowgridoffset+7,i)=str$(exp10(val(Grid.Cell(rowgridoffset+7,i))))
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)

        NEXT i

        writealive

    NEXT j

    alltimehigh = 0
    FOR graphvi = 1 TO chartbars(displayedfile)
        IF VAL(Grid.Cell(rowgridoffset + 4 , graphvi)) > alltimehigh THEN
            alltimehigh = VAL(Grid.Cell(rowgridoffset + 4 , graphvi))
        END IF
    NEXT graphvi
    athtmp = alltimehigh
    tensinc = 0

    writealive

    WHILE INSTR(STR$(athtmp) , ".") > 0

        athtmp = athtmp * 10
        tensinc ++

    WEND

    writealive

    FOR j = 1 TO tensinc

        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * 10)
            Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * 10)
            Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * 10)
            Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * 10)
            'Grid.Cell(rowgridoffset+7,i)=str$(exp10(val(Grid.Cell(rowgridoffset+7,i))))
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)

        NEXT i

        writealive

    NEXT j


    IF LEN(STR$(athtmp)) > 5 THEN

        DIM tensdec AS INTEGER
        tensdec = LEN(STR$(athtmp)) - 5

        FOR j = 1 TO tensdec

            FOR i = 1 TO chartbars(displayedfile)
                'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
                'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
                Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) / 10)
                Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) / 10)
                Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) / 10)
                Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) / 10)
                'Grid.Cell(rowgridoffset+7,i)=str$(exp10(val(Grid.Cell(rowgridoffset+7,i))))
                'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)

            NEXT i

            writealive

        NEXT j

    END IF


    'chartbars(displayedfile)=lines-1
    'print chartbars(displayedfile)
    'Scrollchart.Max=chartbars(displayedfile)
    'Scrollchart.Position=chartbars(displayedfile)
    'chartstart=Scrollchart.Position-numbars
    'btnOnClick(drwBox)
    'justrefreshchart
'DIM Mem AS QMemoryStream
'   dim datavalstr as string
'   for j=3 to 6
'       rowgridoffsetstr=str$(rowgridoffset + j)            
'       
'       FOR i = 1 TO chartbars(displayedfile)
'           offsetstr=str$(i)
'           'datavalstr=StrF$(val(Grid.Cell(rowgridoffset + j , i)),ffFixed,15,15)
'           datavalstr = Grid.Cell(rowgridoffset + j , i)
'           Mem.WriteStr(datavalstr,len(datavalstr))
'           Mem.Position = 0
'           'datavalstr = Mem.ReadStr(LEN(datavalstr))
'           cpptmpfuncreturn=varptr$(setdatagrid(varptr(rowgridoffsetstr),varptr(offsetstr),Mem.pointer)) 
'   
'       next i        
'   next j
'em.Close
    exportfilename()
    btnOnClick(drwBox)
    savegridtmp

END SUB

SUB sinusoidalsub
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    
    DIM inputsinratio AS qinputbox , inputsinratiotxt AS STRING
    inputsinratiotxt = inputsinratio.INPUT("Enter your ratio (0.1 or 1 or 10 for example):")
    
    DIM i AS INTEGER
    DIM j AS INTEGER
    'chartbars(displayedfile)=chartbarstmp(displayedfile)
    'dim j as integer
    'dim high as double
    'dim low as double
    'dim vol as integer
    'dim lines as integer
    'lines=1
    defdbl pricesin
    
        FOR i = 1 TO chartbars(displayedfile)
            'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
            'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
            pricesin=val(inputsinratiotxt)*VAL(Grid.Cell(rowgridoffset + 3 , i))
            if pricesin/360>1 then
                pricesin=frac(pricesin/360)
                pricesin=360*pricesin
            end if
            pricesin=deg2rad(pricesin)
            Grid.Cell(rowgridoffset + 3 , i)=str$(sin(pricesin)+0*0.628) ' *val(inputsinratiotxt)

            pricesin=val(inputsinratiotxt)*VAL(Grid.Cell(rowgridoffset + 4 , i))
            if pricesin/360>1 then
                pricesin=frac(pricesin/360)
                pricesin=360*pricesin
            end if
            pricesin=deg2rad(pricesin)
            Grid.Cell(rowgridoffset + 4 , i)=str$(sin(pricesin)+0*0.628)
            
            pricesin=val(inputsinratiotxt)*VAL(Grid.Cell(rowgridoffset + 5 , i))
            if pricesin/360>1 then
                pricesin=frac(pricesin/360)
                pricesin=360*pricesin
            end if
            pricesin=deg2rad(pricesin)
            Grid.Cell(rowgridoffset + 5 , i)=str$(sin(pricesin)+0*0.628)
            
            pricesin=val(inputsinratiotxt)*VAL(Grid.Cell(rowgridoffset + 6 , i))
            if pricesin/360>1 then
                pricesin=frac(pricesin/360)
                pricesin=360*pricesin
            end if
            pricesin=deg2rad(pricesin)
            Grid.Cell(rowgridoffset + 6 , i)=str$(sin(pricesin)+0*0.628)           
            
            'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
        NEXT i

    exportfilename()
    btnOnClick(drwBox)
    savegridtmp

END SUB

SUB changepriceratiosub
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    DIM i AS INTEGER
    'chartbars(displayedfile)=chartbarstmp(displayedfile)
    'dim j as integer
    'dim high as double
    'dim low as double
    'dim vol as integer
    'dim lines as integer
    'lines=1
    FOR i = 1 TO chartbars(displayedfile)
        'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
        'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
        Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * VAL(priceratioedit.Text))
        Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * VAL(priceratioedit.Text))
        Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * VAL(priceratioedit.Text))
        Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * VAL(priceratioedit.Text))
        'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
    NEXT i


    'chartbars(displayedfile)=lines-1
    'print chartbars(displayedfile)
    'Scrollchart.Max=chartbars(displayedfile)
    'Scrollchart.Position=chartbars(displayedfile)
    'chartstart=Scrollchart.Position-numbars
    'btnOnClick(drwBox)
    justrefreshchart
END SUB

SUB changepriceratiosub2
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    DIM i AS INTEGER
    'chartbars(displayedfile)=chartbarstmp(displayedfile)
    'dim j as integer
    'dim high as double
    'dim low as double
    'dim vol as integer
    'dim lines as integer
    'lines=1
    FOR i = 1 TO chartbars(displayedfile)
        'Grid.Cell(rowgridoffset+1,i)=str$(val(Grid.Cell(rowgridoffset+1,i)))
        'Grid.Cell(rowgridoffset+2,i)=Gridtmp.Cell(rowgridoffset+2,i)
        Grid.Cell(rowgridoffset + 3 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 3 , i)) * VAL(priceratioedit2.Text))
        Grid.Cell(rowgridoffset + 4 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 4 , i)) * VAL(priceratioedit2.Text))
        Grid.Cell(rowgridoffset + 5 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 5 , i)) * VAL(priceratioedit2.Text))
        Grid.Cell(rowgridoffset + 6 , i) = STR$(VAL(Grid.Cell(rowgridoffset + 6 , i)) * VAL(priceratioedit2.Text))
        'Grid.Cell(rowgridoffset+7,i)=Gridtmp.Cell(rowgridoffset+7,i)
    NEXT i


    'chartbars(displayedfile)=lines-1
    'print chartbars(displayedfile)
    'Scrollchart.Max=chartbars(displayedfile)
    'Scrollchart.Position=chartbars(displayedfile)
    'chartstart=Scrollchart.Position-numbars
    'btnOnClick(drwBox)
    justrefreshchart
    savegridtmp
    say "Price ratio set to: "+priceratioedit2.Text
END SUB


CREATE indicatorsform AS QFORM
    Width = 250
    Height = 300
    Center
    Caption = "Indicators"

    CREATE indicatorslab AS QLABEL
        Left = 0
        Top = 0
        Caption = "Indicators:"
    END CREATE

    CREATE indicatorslist AS QLISTBOX
        Left = 0
        Top = 20
        Height = 150
        Width = indicatorsform.Width - 20
        OnDblClick = indilist_dblclick
    END CREATE

    CREATE indicatorslistsel AS QLISTBOX
        Visible = 0
        Left = indicatorsform.Width - 25
        Top = 20
        Height = 80
        Width = 15
    END CREATE

    CREATE btnaddindi AS QBUTTON
        Left = 0
        Width = 90
        Top = indicatorslist.Top + 150
        Caption = "Add indicator"
        OnClick = btnaddindi_click
    END CREATE

    CREATE btnremoveindi AS QBUTTON
        Left = 90
        Width = 90
        Top = indicatorslist.Top + 150
        Caption = "Remove indicator"
        OnClick = btndelindi_click
    END CREATE

    CREATE btnsettingsindi AS QBUTTON
        Left = 0
        Width = 90
        Top = btnaddindi.Top + btnaddindi.Height
        Caption = "Properties"
        OnClick = settingsclick
    END CREATE

    CREATE btndescrindi AS QBUTTON
        Left = btnsettingsindi.Width
        Width = 30
        Top = btnaddindi.Top + btnaddindi.Height
        Caption = "?"
        OnClick = showdescrindi
    END CREATE

    CREATE btnokindi AS QBUTTON
        Left = btndescrindi.Width + btndescrindi.Left
        Width = 30
        Top = btnaddindi.Top + btnaddindi.Height
        Caption = "OK"
        OnClick = refresh_chart
    END CREATE
    
    CREATE btnremoveallindi AS QBUTTON
        Left = btnokindi.Width + btnokindi.Left
        Width = 60
        Top = btnaddindi.Top + btnaddindi.Height
        Caption = "Unselect all"
        OnClick = uncheck_all_indi_sub
    END CREATE

    CREATE autoadjustsepindi AS QCHECKBOX
        Left = 10
        Width = 200
        Top = btnokindi.Top + btnokindi.Height
        Caption = "Auto adjust indicators in canvas"
        Checked = 1
    END CREATE

END CREATE

useindi.Parent = indicatorsform

useindi.Left = 10
useindi.Width = 200
useindi.Top = autoadjustsepindi.Top + autoadjustsepindi.Height
useindi.Caption = "Use indicators"
useindi.Checked = 0
useindi.OnClick = useindisub    

create swephform as qform

    height=600
    width=600
    onshow=swephformonshowsub

    create logo_label as qlabel
        caption="Swiss Ephemeris"
    end create

    create et_flag as qcheckbox
        caption="Ephemeris time"
        checked=1
        left=100
    end create
    
    create is_apparent as qcheckbox
        caption="apparent pos."
        checked=1
        top=20
        left=100
    end create
    
    create is_sidereal as qcheckbox
        caption="sidereal"
        top=40
        left=100
    end create
    
    create hel_flag as qcheckbox
        caption="heliocentric"
        top=0
        left=200
        onclick=hel_flag_Click
    end create
    
    create bary_flag as qcheckbox
        caption="barycentric"
        top=20
        left=200
        onclick=bary_flag_Click
    end create
    
    create is_j2000 as qcheckbox
        caption="Equinox J2000"
        top=40
        left=200
    end create
    
    create add_hypo as qcheckbox
        caption="with hypothetical bodies"
        top=0
        left=300
    end create
    
    create with_houses as qcheckbox
        caption="with Placidus houses"
        top=20
        left=300
    end create
    
    create geolon as qedit
        text="8.00"
        top=40
        left=300
        width=50
        onchange=geolon_change
    end create
    
    create geolat as qedit
        text="47.00"
        top=40
        left=350
        width=50
        onchange=geolat_change
    end create
    
    create day_label as qlabel
        caption="Day"
        top=60
        left=0
    end create
    
    create Day as qedit
        text="1"
        top=80
        left=0
        width=50
        onchange=Day_Change
    end create
    
    create month_label as qlabel
        caption="Month"
        top=60
        left=50
    end create
    
    create Month as qedit
        text="1"
        top=80
        left=50
        width=50
        onchange=month_change
    end create
    
    create year_label as qlabel
        caption="Year"
        top=60
        left=100
    end create
    
    create Year as qedit
        text="1997"
        top=80
        left=100
        width=50
        onchange=year_change
    end create
    
    create hour_label as qlabel
        caption="Hour"
        top=60
        left=150
    end create
    
    create hour as qedit
        text="00"
        top=80
        left=150
        width=50
        onchange=hour_change
    end create
    
    create min_label as qlabel
        caption="Min."
        top=60
        left=200
    end create
    
    create minute as qedit
        text="00"
        top=80
        left=200
        width=50
        onchange=minute_change
    end create
    
    create fixed_star_label as qlabel
        caption="fixed star"
        top=60
        left=250
    end create
    
    create fstar as qedit
        text=""
        top=80
        left=250
        width=80
        onchange=fstar_change
    end create
    
    create Compute as qbutton
        caption="Compute!"
        top=80
        left=350
        onclick=Compute_sweph_Click
    end create
    
    create swephout as qrichedit
        top=120
        left=0
        width=400
        height=400
        scrollbars=2
    end create

end create

CREATE chatform AS QFORM
    Width = 530
    Height = 400
    Center
    Caption = "Chat"
    visible=0
    onshow=chatformonshowsub
    onclose=chatformonclosesub
    
    create usernamelbl as qlabel
    top=0
    caption="Username:"
    width=100
    end create
    create usernameedit as qedit
    top=0
    left=usernamelbl.width
    end create
    create chatbox as qrichedit
    top=usernameedit.height
    left=0
    width=350
    height=300
    scrollbars=ssboth
    hideselection=0
    end create
    create usernameslist as qlistbox
    top=chatbox.top
    left=chatbox.width
    height=300
    width=150
    end create
    create sendmsgedit as qedit
    top=chatbox.height+usernameedit.height
    left=0
    width=450
    onkeydown=sendmsgeditkeydown
    end create
    create sendmsgbtn as qbutton
    top=sendmsgedit.top
    left=sendmsgedit.width
    width=50
    caption="Send"
    onclick=sendmsgbtnonclicksub
    end create
    
END CREATE

CREATE speechform AS QFORM
    Width = 250
    Height = 300
    Center
    Caption = "Speech settings"
    visible=0
    
    create usespeech as qcheckbox
    caption="Use speech engine"
    width=150
    checked=0
    onclick=checkusespeech
    end create
    
    
END CREATE

SUB useindisub
    IF useindi.Checked = 0 THEN
        useindischeckbox.Checked = 0
        EXIT SUB
    END IF
    IF useindi.Checked = 1 THEN
        useindischeckbox.Checked = 1
        EXIT SUB
    END IF
END SUB

DIM indilisti AS INTEGER
DIM indicanvascount() AS INTEGER
DIM countcanvas AS INTEGER
FOR indilisty = 0 TO 10
    countcanvas = 0
    FOR indilisti = 0 TO UBOUND(indinames)
        IF VAL(indicanvas(indilisti)) = indilisty THEN
            indicatorslist.AddItems indinames(indilisti) + " ( )"
            countcanvas ++
        END IF
    NEXT indilisti
    indicanvascount(indilisty) = countcanvas
NEXT i

SUB showdescrindi
    if showdescindopened=0 then
    showdescindopened=1

    FOR nli = 0 TO indiinilist.ItemCount - 1
        'qtcfile.open(indiinilist.Item(nli) , fmOpenRead)
        'indicanvas(nli) = qtcfile.ReadLine() 'Read an entire line
        indiini.filename=homepath+"\indicators\"+indiinilist.Item(nli)
        indiini.section="Settings"
        indicanvas(nli)=indiini.get("canvas","")
    NEXT nli
    'qtcfile.close
    'DIM descrmsg AS STRING
    'DIM indidesc(0 TO indiinilist.ItemCount - 1) AS STRING
    'DIM indilisty AS INTEGER
    'DIM nld AS INTEGER
    'DIM descordercount AS INTEGER
    descordercount = 0
    'DIM descfile AS QFILESTREAM
    FOR indilisty = 0 TO 1
        FOR nld = 0 TO indiinilist.ItemCount - 1
            IF VAL(indicanvas(nld)) = indilisty THEN
                'descfile.open(indiinilist.Item(nld) , fmOpenRead)
                'indidesc(descordercount) = descfile.ReadLine() 'Read an entire line
                indiini.filename=homepath+"\indicators\"+indiinilist.Item(nld)
                indiini.section="Settings"
                indidesc(descordercount)=indiini.get("description","")
                descordercount ++
            END IF
        NEXT nld
    NEXT indilisty
    'descfile.close
    end if
    if hidedescindmsgbox=0 then
        MESSAGEDLG(txtformat(indidesc(indicatorslist.ItemIndex)) , 2 , 4 , 0)
    end if
END SUB

'-====================================== Indicators Properties forms =============================================-

'Indexing indicators

DIM qtpList AS QFILELISTBOX
qtpList.Visible = 0
qtpList.Parent = frmMain
qtpList.Mask = "*.qtp"
qtpList.Directory = homepath + "\indicators"

SUB hideformp(frmname AS QFORM)
    frmname.Visible = 0
END SUB

SUB showformp(frmname AS QFORM)
    frmname.Visible = 1
END SUB

$include "includes\includeqtp.inc"

$include "includes\includeset.inc"

'sub settingsclick
'select case indicatorslist.itemindex

'case 0
'maform.visible=1
'case 4
'bbhlform.visible=1
'case 5
'atrchannelform.visible=1
'case 3
'vegasform.visible=1
'case 8
'pricecloseform.visible=1
'case 2
'mfiform.visible=1
'case 9
'atrform.visible=1
'case 10
'valuechartform.visible=1
'case 1
'bandsform.visible=1
'case 6
'averagerangeform.visible=1
'case 7
'cogform.visible=1
'case 11
'spectrometerform.visible=1
'case 12
'vcatrcform.visible=1

'end select
'end sub

'-====================================== END SETTINGS FORMS =============================================-

'-====================================== INDICATORS SCRIPTS =============================================-

$include "includes\includeqti.inc"

'dim vo2(0 to 1000) as double,vh2(0 to 1000) as double,vb2(0 to 1000) as double,vc2(0 to 1000) as double
'dim valuechart2levelup1(0 to 1000) as integer,valuechart2levelup2(0 to 1000) as integer
'dim valuechart2leveldn1(0 to 1000) as integer,valuechart2leveldn2(0 to 1000) as integer
'dim p2 as integer
'p2=5


'-====================================== END INDICATORS SCRIPTS =============================================-

SUB disableallindis
    DIM indilisti AS INTEGER
    FOR indilisti = 0 TO indicatorslist.ItemCount
        indicatorslistsel.Item(indilisti) = ""
        indicatorslist.Item(indilisti) = MID$(indicatorslist.Item(indilisti) , 0 , LEN(indicatorslist.Item(indilisti)) - 2)
        indicatorslist.Item(indilisti) = indicatorslist.Item(indilisti) + " )"
    NEXT indilisti
    'useindischeckbox.checked=0
END SUB

FUNCTION txtformat(descrmsg AS STRING) AS STRING
    DIM txtf AS STRING
    txtf = ""
    DIM i AS INTEGER
    FOR i = 1 TO LEN(descrmsg) STEP 40
        txtf = txtf + MID$(descrmsg , i , 40) + CHR$(10)
    NEXT i
    txtformat = txtf
END FUNCTION

DIM indil AS INTEGER
FOR indil = 1 TO indicatorslist.ItemCount
    indicatorslistsel.AddItems ""
NEXT indil

SUB refresh_chart()
    indicatorsform.Visible = 0
    IF openedfilesnb > 0 THEN
        disablescrollmode
        btnOnClick(drwBox) ' need to put this for WineHQ compatibility, else the screen does not update correctly (but this slows down computations)
    END IF
END SUB

SUB uncheck_all_indi_sub    
    DIM i AS INTEGER
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
    useindischeckbox.Checked = 0  
END SUB

SUB refresh_chartlive()
    Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    chartstart = Scrollchart.Position - numbars
    btnOnClick(drwBox)
END SUB


SUB indiform()
    indicatorsform.Visible = 1
    indicatorsform.WindowState = 0
    SetFocus(indicatorsform.Handle)
END SUB

SUB mixerform()
    additionlist.Clear
    subtractionlist.Clear
    multiplylist.Clear
    dividelist.Clear
    DIM i AS INTEGER
    FOR i = 0 TO mixgrid.ColCount
        additionlist.AddItems mixgrid.Cell(i , displayedfile)
    NEXT i
    FOR i = 0 TO mixgrid2.ColCount
        subtractionlist.AddItems mixgrid2.Cell(i , displayedfile)
    NEXT i
    FOR i = 0 TO mixgrid3.ColCount
        multiplylist.AddItems mixgrid3.Cell(i , displayedfile)
    NEXT i
    FOR i = 0 TO mixgrid4.ColCount
        dividelist.AddItems mixgrid4.Cell(i , displayedfile)
    NEXT i
    mixform.Visible = 1
    mixform.WindowState = 0
    SetFocus(mixform.Handle)
END SUB

SUB updatemixerlists()
    additionlist.Clear
    subtractionlist.Clear
    multiplylist.Clear
    dividelist.Clear
    DIM i AS INTEGER
    FOR i = 0 TO mixgrid.ColCount
        additionlist.AddItems mixgrid.Cell(i , displayedfile)
    NEXT i
    FOR i = 0 TO mixgrid2.ColCount
        subtractionlist.AddItems mixgrid2.Cell(i , displayedfile)
    NEXT i
    FOR i = 0 TO mixgrid3.ColCount
        multiplylist.AddItems mixgrid3.Cell(i , displayedfile)
    NEXT i
    FOR i = 0 TO mixgrid4.ColCount
        dividelist.AddItems mixgrid4.Cell(i , displayedfile)
    NEXT i
END SUB

SUB btnaddindi_click()
    indicatorslistsel.Item(indicatorslist.ItemIndex) = "x"
    indicatorslist.Item(indicatorslist.ItemIndex) = MID$(indicatorslist.Item(indicatorslist.ItemIndex) , 0 , LEN(indicatorslist.Item(indicatorslist.ItemIndex)) - 2)
    indicatorslist.Item(indicatorslist.ItemIndex) = indicatorslist.Item(indicatorslist.ItemIndex) + "X)"
    IF useindi.Checked = 0 THEN
        useindi.Checked = 1
    END IF
    IF useindischeckbox.Checked = 0 THEN
        useindischeckbox.Checked = 1
    END IF
END SUB

SUB btndelindi_click()
    indicatorslistsel.Item(indicatorslist.ItemIndex) = ""
    indicatorslist.Item(indicatorslist.ItemIndex) = MID$(indicatorslist.Item(indicatorslist.ItemIndex) , 0 , LEN(indicatorslist.Item(indicatorslist.ItemIndex)) - 2)
    indicatorslist.Item(indicatorslist.ItemIndex) = indicatorslist.Item(indicatorslist.ItemIndex) + " )"
    if left$(indicatorslist.Item(indicatorslist.ItemIndex),12)="stepftvcprdl" then cntbarsedit.text="1000"
    if left$(indicatorslist.Item(indicatorslist.ItemIndex),13)="MonthlyPivot2" then cntbarsedit.text="1000"
    if left$(indicatorslist.Item(indicatorslist.ItemIndex),30)="Elliot_Wave_3_Level_ZZ_Semafor" then
    defint delalli,delallj
        FOR delallj=1 to 10
        FOR delalli = 1 TO 1000 - 1
            if textlabelsdb.Cell(5 , delalli) = "elliot wave" then          
                textlabelsdb.deleterow(delalli)
                textlabelsoffset--
                if textlabelsoffset<0 then textlabelsoffset=0
            end if
        NEXT delalli        
        textlabelsdb.RowCount = val(maxnbofpersistobjectsedit.text)
        next delallj
    end if
    if left$(indicatorslist.Item(indicatorslist.ItemIndex),13)="TD_Sequential" then
        'defint delalli,delallj
        FOR delallj=1 to 10
        FOR delalli = 1 TO 1000 - 1
            if textlabelsdb.Cell(5 , delalli) = "TD Sequential" then          
                textlabelsdb.deleterow(delalli)
                textlabelsoffset--
                if textlabelsoffset<0 then textlabelsoffset=0
            end if
        NEXT delalli        
        textlabelsdb.RowCount = val(maxnbofpersistobjectsedit.text)
        next delallj
    end if
    if left$(indicatorslist.Item(indicatorslist.ItemIndex),10)="ZigZag cpp" then
    'defint delalli,delallj
        FOR delallj=1 to 10
        FOR delalli = 1 TO 1000 - 1
            if trendlinesdb.Cell(5 , delalli) = "zigzagcpp" then          
                trendlinesdb.deleterow(delalli)
                trendlinesoffset--
                if trendlinesoffset<0 then trendlinesoffset=0
            end if
        NEXT delalli        
        trendlinesdb.RowCount = val(maxnbofpersistobjectsedit.text)
        next delallj
    end if
END SUB

SUB indilist_dblclick
    IF indicatorslistsel.Item(indicatorslist.ItemIndex) = "" THEN
        btnaddindi_click()
        EXIT SUB
    END IF
    IF indicatorslistsel.Item(indicatorslist.ItemIndex) = "x" THEN
        btndelindi_click()
        EXIT SUB
    END IF
END SUB

SUB Buttonf2Click(Sender AS QBUTTON)
    Form2.Visible = 0
    importfile()

END SUB


SUB showtoolsinfo
    formtoolsinfo.Visible = 1
    formtoolsinfo.WindowState = 0
    'setfocus(formtoolsinfo.handle)
    SetFocus(frmMain.Handle)
END SUB



SUB formtoolsinforesized
    infotext.Width = formtoolsinfo.Width - 10
    infotext.Height = 0.25 * (formtoolsinfo.Height - 30)
    infotext2.Top = infotext.Top+infotext.height 'formtoolsinfo.Height / 2.2
    infotext2.Width = formtoolsinfo.Width - 10
    infotext2.Height = 0.75 * (formtoolsinfo.Height - 30)
END SUB

SUB dispinfotext(infotxt AS STRING)
    infotext.Text = infotxt
END SUB

SUB choosepencolor
    IF colordlg.Execute THEN
        pencolor = colordlg.Color
        pencolorbtn.Color = colordlg.Color
    END IF
END SUB

SUB chooseplotareacolor
    IF colordlg.Execute THEN
        plotareacolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chooseplotareacolor2
    IF colordlg.Execute THEN
        plotareacolor2 = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartbackgroundcolor2sub
    IF colordlg.Execute THEN
        chartbackgroundcolor2 = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartforegroundcolorsub
    IF colordlg.Execute THEN
        chartforegroundcolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartgridcolorsub
    IF colordlg.Execute THEN
        chartgridcolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB bullcandlecolorsub
    IF colordlg.Execute THEN
        bullcandlecolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB bearcandlecolorsub
    IF colordlg.Execute THEN
        bearcandlecolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB linegraphcolorsub
    IF colordlg.Execute THEN
        linegraphcolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB pengraphcolorsub
    IF colordlg.Execute THEN
        pencolor = colordlg.Color
        btnOnClick(drwBox)
        pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartmaintitlecolorsub
    IF colordlg.Execute THEN
        chartmaintitlecolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartsubtitlecolorsub
    IF colordlg.Execute THEN
        chartsubtitlecolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartxaxistitlecolorsub
    IF colordlg.Execute THEN
        chartxaxistitlecolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartyaxistitlecolorsub
    IF colordlg.Execute THEN
        chartyaxistitlecolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartcopyrightmarkcolorsub
    IF colordlg.Execute THEN
        chartcopyrightmarkcolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartlabelscolorsub
    IF colordlg.Execute THEN
        chartlabelscolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartlegendcolorsub
    IF colordlg.Execute THEN
        chartlegendcolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

SUB chartaxescolorsub
    IF colordlg.Execute THEN
        chartaxescolor = colordlg.Color
        btnOnClick(drwBox)
        'pencolorbtn.color=colordlg.Color
    END IF
END SUB

sub chartcolorssub
chartcolorsform.visible=1
end sub

sub chartcolorschemecombochangedsub

if chartcolorschemecombo.itemindex=0 then
pencolor=blue
plotareacolor=sweetblue
plotareacolor2=white
chartbackgroundcolor2=white
chartforegroundcolor=black
chartgridcolor=dimgray
bullcandlecolor=green
bearcandlecolor=red
linegraphcolor=black
chartmaintitlecolor=black
chartsubtitlecolor=black
chartxaxistitlecolor=black
chartyaxistitlecolor=black
chartcopyrightmarkcolor=black
chartlabelscolor=black
chartlegendcolor=black
chartaxescolor=black
end if

if chartcolorschemecombo.itemindex=1 then
pencolor=blue
plotareacolor=black
plotareacolor2=black
chartbackgroundcolor2=black
chartforegroundcolor=yellow
chartgridcolor=white
bullcandlecolor=black
bearcandlecolor=white
linegraphcolor=yellow
chartmaintitlecolor=white
chartsubtitlecolor=white
chartxaxistitlecolor=white
chartyaxistitlecolor=white
chartcopyrightmarkcolor=white
chartlabelscolor=white
chartlegendcolor=white
chartaxescolor=white
end if

if chartcolorschemecombo.itemindex=2 then
pencolor=blue
plotareacolor=black
plotareacolor2=black
chartbackgroundcolor2=black
chartforegroundcolor=lime
chartgridcolor=white
bullcandlecolor=black
bearcandlecolor=white
linegraphcolor=lime
chartmaintitlecolor=white
chartsubtitlecolor=white
chartxaxistitlecolor=white
chartyaxistitlecolor=white
chartcopyrightmarkcolor=white
chartlabelscolor=white
chartlegendcolor=white
chartaxescolor=white
end if

if chartcolorschemecombo.itemindex=3 then
pencolor=blue
plotareacolor=white
plotareacolor2=white
chartbackgroundcolor2=white
chartforegroundcolor=black
chartgridcolor=black
bullcandlecolor=white
bearcandlecolor=black
linegraphcolor=black
chartmaintitlecolor=black
chartsubtitlecolor=black
chartxaxistitlecolor=black
chartyaxistitlecolor=black
chartcopyrightmarkcolor=black
chartlabelscolor=black
chartlegendcolor=black
chartaxescolor=black
end if

btnOnClick(drwBox)

end sub

SUB choosemailer
    MailForm.Visible = 1
END SUB

SUB choosetextfont
    FontDialog.GetFont(Font)
    IF FontDialog.Execute THEN
        'ShowMessage "You selected "+FontDialog.Name
        'font.name=FontDialog.Name
        'font.size=FontDialog.size
        FontDialog.SetFont(Font)
    END IF
    Font.Name = FontDialog.Name
    Font.Size = FontDialog.Size
    Font.Color = FontDialog.Color
    Graph.buffer.Font.Name = Font.Name
    Graph.buffer.Font.Size = Font.Size
    canvas.BMP.Font.Name = Font.Name
    canvas.BMP.Font.Size = Font.Size
    textcolor = Font.Color
END SUB

'API Call that lets RapidQ programs minimize to the task bar
setwindowlong(frmMain.Handle , GWL_HWNDPARENT , HWND_DESKTOP)
setwindowlong(application.Handle , GWL_HWNDPARENT , frmMain.Handle)
Graph.ClearAll
canvas.ClearAll2
hidedescindmsgbox=1
showdescrindi
hidedescindmsgbox=0
frmMainonshowsub ' check for updates on startup

' =================== Watchlist form ==============================

create form_watchlist as qform

    caption="Watchlist"
    height=666
    width=360
    icon="Net5.ico"
    onshow=initialize_watchlist

    create symbollabel as qlabel
        caption="Symbol"
        width=100
        top=0
        left=0
    end create

    create symbolslistbox_watchlist as qlistbox
        top=symbollabel.top+symbollabel.height
        left=symbollabel.left
        width=symbollabel.width
        height=form_watchlist.height-50-symbollabel.height
    end create
    
    create pricelabel as qlabel
        caption="Price"
        width=100
        top=0
        left=symbollabel.left+symbollabel.width
    end create

    create pricelistbox as qlistbox
        top=pricelabel.top+pricelabel.height
        left=pricelabel.left
        width=pricelabel.width
        height=form_watchlist.height-50-pricelabel.height
    end create
    
    create startstreambtn as qbutton
        top=0
        left=pricelistbox.left+pricelistbox.width
        width=50
        height=30
        caption="Start"
        onclick=startstreamsub_watchlist
        enabled=1
    end create
    
    create stopstreambtn as qbutton
        top=0
        left=startstreambtn.left+startstreambtn.width
        width=50
        height=30
        caption="Stop"
        onclick=stopstreamsub_watchlist
        enabled=1
    end create
    
    create addtickerbtn as qbutton
        top=startstreambtn.top+startstreambtn.height
        left=pricelistbox.left+pricelistbox.width
        width=70
        height=30
        caption="Add symbol"
        onclick=addtickersub_watchlist
        enabled=1
    end create
    
    create removetickerbtn as qbutton
        top=startstreambtn.top+startstreambtn.height
        left=addtickerbtn.left+addtickerbtn.width
        width=70
        height=30
        caption="Remove symbol"
        onclick=removetickersub_watchlist
        enabled=1
    end create
    
    create moveuptickerbtn as qbutton
        top=addtickerbtn.top+addtickerbtn.height
        left=pricelistbox.left+pricelistbox.width
        width=70
        height=30
        caption="Move up"
        onclick=moveuptickersub_watchlist
        enabled=1
    end create
    
    create movedowntickerbtn as qbutton
        top=moveuptickerbtn.top+moveuptickerbtn.height
        left=pricelistbox.left+pricelistbox.width
        width=70
        height=30
        caption="Move down"
        onclick=movedowntickersub_watchlist
        enabled=1
    end create
    
    create usespeechwatchlist as qcheckbox
        top=movedowntickerbtn.top+movedowntickerbtn.height
        left=pricelistbox.left+pricelistbox.width
        width=111
        height=30
        caption="Use speech engine"
        checked=0
        onclick=checkusespeechwatchlist
    end create
    
    create usespeechhelpbtnwatchlist as qbutton
        top=movedowntickerbtn.top+movedowntickerbtn.height
        left=usespeechwatchlist.left+usespeechwatchlist.width
        width=20
        height=20
        caption="?"
        onclick=usespeechhelpbtnwatchlistsub
    end create

    create opencharttickerbtn as qbutton
        top=usespeechwatchlist.top+usespeechwatchlist.height
        left=pricelistbox.left+pricelistbox.width
        width=70
        height=30
        caption="Open chart"
        onclick=opencharttickerfinnhubbtnsub
    end create
    
    create watchlisttickerscombo as qcombobox
        top=opencharttickerbtn.top+opencharttickerbtn.height
        left=pricelistbox.left+pricelistbox.width
        width=100
        height=20
        'caption="Open chart"
        additems "Stocks","Indices","Currencies","Commodities","Crypto","Custom"
        itemindex=0
        onchange=watchlisttickerscombochangesub
    end create


end create

' ============================================================

frmMain.ShowModal

SUB showwatchlist
    form_watchlist.Visible = 1
    form_watchlist.WindowState = 0
    'setfocus(formtoolsinfo.handle)
    SetFocus(form_watchlist.Handle)
END SUB

'---------------------------------------------------------------------
'Unregister hotkeys
'UnRegisterHotKey(frmmain.Handle, 0)
'UnRegisterHotKey(hotkeysfrm.Handle, 1)
'
'SUB FormWndProc (hWnd&, uMsg&, wParam&, lParam&)
'IF uMsg& = WM_HOTKEY THEN
''SetForeGroundWindow(hWnd&)
''ShowMessage("Hotkey "+STR$(wParam&)+" hit!")
'if (STR$(wParam&)="0") then
'graphmousedown(1)
'sepindimousedown(1)
'end if

'if (STR$(wParam&)="0") then
'graphclicked
'sepindiclicked
'end if
'
'END IF
'END SUB
'-----------------------------------------------------------------------

'dim qtnnoext as string
'for qtpi=0 to qtplist.itemcount-1
'qtnnoext= mid$( indiinilist.item(qtpi),0,instr(indiinilist.item(qtpi),".")-1 )
'next qtpi

$include "includes\includebtnonclick.inc"

SUB scrollmodeoff
    scrollmodeofftimer.Enabled = FALSE
    IF scrollmodebtn.Flat = 1 THEN
        disablescrollmode
    END IF
END SUB

SUB frmMainResize(SENDER AS QFORM)

    '----- Prevent initial resize exception
    IF AppStart THEN AppStart = FALSE  :  EXIT SUB

    'de.bug "Resize"
    WITH Graph
        .Width = frmMain.ClientWidth - leftwidth  'Calculate new sizes
        .Height = frmMain.ClientHeight - sepindiheight + 130
        .RedrawChart  'Redraw the QChart Object
    END WITH
    split.Top = Graph.Height + 70

    WITH canvas
        .Width = frmMain.ClientWidth - leftwidth - 60  'Calculate new sizes
        .Height = frmMain.ClientHeight  '+val(sepindiheight.text)-130
        .RedrawChart2  'Redraw the QChart Object
    END WITH

    'Plus anything else that needs doing in your form resize

END SUB

'-------------------------------------------------------------------------------------------
SUB frmMainClose(action as integer)

IF usespeech.checked=1 THEN speechdeinitialization     ' CleanUp the Speech (De-Initialize/Un-Initialize).
 
    action=0
    IF MessageDlg("Quit all instances of QChartist?", mtConfirmation, mbYes OR mbNo, 0) = mrYes THEN
        run "c:\qchartist\qckill.exe"
	'application.terminate 'bugs
    END IF

END SUB

'-------------------------------------------------------------------------------------------

SUB exportfile()
    DIM SaveDialog AS QSAVEDIALOG
    SaveDialog.Caption = "Export Graph"
    SaveDialog.Filter = "CSV File|*.csv"
    SaveDialog.FilterIndex = 1
    SaveDialog.FileName = MID$(importedfile(displayedfile) , 0 , LEN(importedfile(displayedfile)) - 4) + "x" + tfmult.Text + ".csv"

    IF SaveDialog.Execute THEN
        DIM csvFile AS QFILESTREAM
        csvFile.open(SaveDialog.FileName , 65535) '65535 = fmCreate
        DIM csvi AS INTEGER
        DIM datecsv AS STRING
        DIM timecsv AS STRING
        DIM opencsv AS STRING
        DIM highcsv AS STRING
        DIM lowcsv AS STRING
        DIM closecsv AS STRING
        DIM volumecsv AS STRING

        SELECT CASE axistypecomboitemindex
            CASE 0 :
                FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                    datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                    timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                    opencsv = Grid.Cell(rowgridoffset + 3 , csvi)
                    highcsv = Grid.Cell(rowgridoffset + 4 , csvi)
                    lowcsv = Grid.Cell(rowgridoffset + 5 , csvi)
                    closecsv = Grid.Cell(rowgridoffset + 6 , csvi)
                    volumecsv = Grid.Cell(rowgridoffset + 7 , csvi)
                    csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
                NEXT csvi
            CASE 1 :
                FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                    datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                    timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                    opencsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 3 , csvi))) , ffGeneral , 4 , 4)
                    highcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 4 , csvi))) , ffGeneral , 4 , 4)
                    lowcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 5 , csvi))) , ffGeneral , 4 , 4)
                    closecsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 6 , csvi))) , ffGeneral , 4 , 4)
                    volumecsv = ROUND(log10(VAL(Grid.Cell(rowgridoffset + 7 , csvi))))
                    csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
                NEXT csvi
        END SELECT
        csvFile.close
    END IF
END SUB

sub Period_Converter_sub

IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    
    DIM inputperiodmult AS qinputbox , periodmulttxt AS STRING
    periodmulttxt = inputperiodmult.INPUT("Enter a period multiplier (integer):")
    
    DIM i AS INTEGER
    chartbars(displayedfile) = chartbarstmp(displayedfile)
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    
    FOR i = 1 TO chartbars(displayedfile)
        Grid.Cell(rowgridoffset + 1 , i) = Gridtmp.Cell(rowgridoffset + 1 , i)
        Grid.Cell(rowgridoffset + 2 , i) = Gridtmp.Cell(rowgridoffset + 2 , i)
        Grid.Cell(rowgridoffset + 3 , i) = Gridtmp.Cell(rowgridoffset + 3 , i)
        Grid.Cell(rowgridoffset + 4 , i) = Gridtmp.Cell(rowgridoffset + 4 , i)
        Grid.Cell(rowgridoffset + 5 , i) = Gridtmp.Cell(rowgridoffset + 5 , i)
        Grid.Cell(rowgridoffset + 6 , i) = Gridtmp.Cell(rowgridoffset + 6 , i)
        Grid.Cell(rowgridoffset + 7 , i) = Gridtmp.Cell(rowgridoffset + 7 , i)
    NEXT i
    
   defint start_pos, last_fpos
   defdbl d_open, d_low, d_high, d_close, d_volume, last_volume,i_time,time0,periodseconds,d_opentmp, d_lowtmp, d_hightmp, d_closetmp, d_volumetmp
   defstr d_date,d_time,d_date2,d_time2
   defstr i_time_date,i_time_time,i_time_datetmp,i_time_timetmp
   defint    hwnd=0,cnt=0
'//---- History header
   defint    version=400
   defstr c_copyright
   defstr c_symbol=importedfile(displayedfile)
   defint    i_period=charttf(displayedfile)*VAL(periodmulttxt)
   'defint    i_digits=Digits
   'dim    i_unused(13) as integer
'//----  
   'ExtHandle=FileOpenHistory(c_symbol+i_period+".hst", FILE_BIN|FILE_WRITE);
    defstr savedialogfilename=homepath+"\csv\"+StripFileName(importedfile(displayedfile))
    savedialogfilename=MID$(savedialogfilename , 0 , LEN(savedialogfilename) - 4) + "_" + str$(i_period) + ".csv"    

    DIM csvFile AS QFILESTREAM
    csvFile.open(savedialogfilename , 65535) '65535 = fmCreate
   'if(ExtHandle < 0) return(-1);
'//---- write history file header
   ' Inspired from the MT4 period converter
   'FileWriteInteger(ExtHandle, version, LONG_VALUE);
   'FileWriteString(ExtHandle, c_copyright, 64);
   '(FileWriteString(ExtHandle, c_symbol, 12);
   'importedfile(displayedfile)=MID$(importedfile(displayedfile) , 0 , LEN(importedfile(displayedfile)) - 4) + "x" + tfmult.Text + ".csv"
   '(FileWriteInteger(ExtHandle, i_period, LONG_VALUE);
   'charttf(displayedfile)=i_period
   
   'FileWriteInteger(ExtHandle, i_digits, LONG_VALUE);
   'FileWriteInteger(ExtHandle, 0, LONG_VALUE);       //timesign
   'FileWriteInteger(ExtHandle, 0, LONG_VALUE);       //last_sync
   'FileWriteArray(ExtHandle, i_unused, 0, 13);
'//---- write history file
   periodseconds=i_period*60
   'showmessage str$(i_period)
   start_pos=chartbars(displayedfile)-1
   d_open=val(Grid.Cell(rowgridoffset + 3 , chartbars(displayedfile)-start_pos))
   d_low=val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-start_pos))
   d_high=val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-start_pos))
   d_volume=val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-start_pos))
   d_date=Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)-start_pos)
   d_time=Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)-start_pos) 
                           
   defstr year = MID$(d_date , 0 , 4)
   defstr month = MID$(d_date , 6 , 2)
   defstr day = MID$(d_date , 9 , 2)
   defstr hour = MID$(d_time , 0 , 2)
   defstr minute = MID$(d_time , 4 , 2)
   defstr second="0"
   defstr parameters=year+";"+month+";"+day+";"+hour+";"+minute+";"+second

   i_time=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters))))

   
   defdbl i_time_minute
   
   for i=start_pos-1 to 0 step -1
   
      d_date2=Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)-i)
      d_time2=Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)-i)
      year = MID$(d_date2 , 0 , 4)
      month = MID$(d_date2 , 6 , 2)
      day = MID$(d_date2 , 9 , 2)
      hour = MID$(d_time2 , 0 , 2)
      minute = MID$(d_time2 , 4 , 2)
      second="0"
      parameters=year+";"+month+";"+day+";"+hour+";"+minute+";"+second
       
      'time0=val(varptr$(timebcpp(varptr(i))))
      time0=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters)))) 'DateSerial (year, month, day)
      'showmessage str$(time0)
      '//---- history may be updated
      'if i=0 then
        
         '//---- modify index if history was updated
         'if(RefreshRates()) then i=iBarShift(NULL,0,time0);
      'end if
      '//----
      if time0>=i_time+periodseconds or i=0 then
        
         if i=0 and time0<i_time+periodseconds then
           
            d_volume+=val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-0))
            if val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-0))<d_low then  d_low=val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-0))
            if val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-0))>d_high then d_high=val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-0))
            d_close=val(Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)-0))
         end if
         'last_fpos=FileTell(ExtHandle);
         last_volume=val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-i))
         'FileWriteInteger(ExtHandle, i_time, LONG_VALUE);
         'FileWriteDouble(ExtHandle, d_open, DOUBLE_VALUE);
         'FileWriteDouble(ExtHandle, d_low, DOUBLE_VALUE);
         'FileWriteDouble(ExtHandle, d_high, DOUBLE_VALUE);
         'FileWriteDouble(ExtHandle, d_close, DOUBLE_VALUE);
         'FileWriteDouble(ExtHandle, d_volume, DOUBLE_VALUE);
         'FileFlush(ExtHandle);
         'showmessage str$(i_time)
             
        defstr myunixtimestr=Format$("%12.0f", i_time)
        'showmessage myunixtimestr
        cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(myunixtimestr))) ' works here in year 2038
        'showmessage cpptmpfuncreturn
        'defstr year,month,day,hour,minute
        year=mid$(cpptmpfuncreturn,0,4)
        month=mid$(cpptmpfuncreturn,6,2)
        day=mid$(cpptmpfuncreturn,9,2)
        hour=mid$(cpptmpfuncreturn,12,2)
        minute=mid$(cpptmpfuncreturn,15,2)
                        
        day=REPLACESUBSTR$(day , " " , "0")

        i_time_date =year + "." + month + "." + day
        i_time_time=hour+":"+minute
        
        'showmessage i_time_date
         
         
         'dim savedialogfilename as string
        'savedialogfilename=homepath+"\csv\temp.csv"
        'savedialogfilename=homepath+"\"+StripFileName(importedfile(displayedfile))
        'savedialogfilename=MID$(savedialogfilename , 0 , LEN(savedialogfilename) - 4) + "x" + tfmult.Text + ".csv"    

        'DIM csvFile AS QFILESTREAM
        'csvFile.open(savedialogfilename , 65535) '65535 = fmCreate
        
        'DIM csvi AS INTEGER
        
        'SELECT CASE axistypecomboitemindex
            'CASE 0 :
                'FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                    'datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                    'timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                    'opencsv = Grid.Cell(rowgridoffset + 3 , csvi)
                    'highcsv = Grid.Cell(rowgridoffset + 4 , csvi)
                    'lowcsv = Grid.Cell(rowgridoffset + 5 , csvi)
                    'closecsv = Grid.Cell(rowgridoffset + 6 , csvi)
                    'volumecsv = Grid.Cell(rowgridoffset + 7 , csvi)
                    csvFile.WriteLine(i_time_date + "," + i_time_time + "," + str$(d_open) + "," + str$(d_high) + "," + str$(d_low) _
                     + "," + str$(d_close) + "," + str$(d_volume))
                     if i=0 then
                        'showmessage "i=0"
                        i_time_datetmp=i_time_date
                        i_time_timetmp=i_time_time
                        d_opentmp=d_open
                        d_hightmp=d_high
                        d_lowtmp=d_low
                        d_closetmp=d_close
                        d_volumetmp=d_volume
                     end if
                'NEXT csvi
            'CASE 1 :
            '    FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
            '        datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
            '        timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
            '        opencsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 3 , csvi))) , ffGeneral , 4 , 4)
            '        highcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 4 , csvi))) , ffGeneral , 4 , 4)
            '        lowcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 5 , csvi))) , ffGeneral , 4 , 4)
            '        closecsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 6 , csvi))) , ffGeneral , 4 , 4)
            '        volumecsv = ROUND(log10(VAL(Grid.Cell(rowgridoffset + 7 , csvi))))
            '        csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
            '    NEXT csvi
        'END SELECT
        'csvFile.close
        '$ESCAPECHARS ON
        'dim strfilename as string
        'strfilename=replacesubstr$(savedialogfilename,chr$(92),chr$(92)+chr$(92))
        'cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(strfilename)))
        '$ESCAPECHARS OFF  
         
         cnt++
         if time0>=i_time+periodseconds then
           
            i_time=time0/periodseconds
            i_time=i_time*periodseconds
            d_open=val(Grid.Cell(rowgridoffset + 3 , chartbars(displayedfile)-i))
            d_low=val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-i))
            d_high=val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-i))
            d_close=val(Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)-i))
            d_volume=last_volume
         end if      
       else
        
         d_volume+=val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-i))
         if val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-i))<d_low then  d_low=val(Grid.Cell(rowgridoffset + 5 ,chartbars(displayedfile)- i))
         if val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-i))>d_high then d_high=val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-i))
         d_close=val(Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)-i))
        end if
     next i 
   'FileFlush(ExtHandle);
   'csvFile.close
   print "Period converter done with ",cnt," record(s) written"
   '//---- collect incoming ticks
   defdbl localtimecurrent=val(varptr$(current_time()))
   defint last_time=localtimecurrent-5
   'while(IsStopped()==false)
     '{
      defdbl cur_time=val(varptr$(current_time()))
      '//---- check for new rates
      'if(RefreshRates())
        '{
            'd_open=val(Grid.Cell(rowgridoffset + 3 , chartbars(displayedfile)-0))
            'd_low=val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-0))
            'd_high=val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-0))
            'd_volume=val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-0))
            d_date=Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)-0)
            d_time=Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)-0) 
                           
            year = MID$(d_date , 0 , 4)
            month = MID$(d_date , 6 , 2)
            day = MID$(d_date , 9 , 2)
            hour = MID$(d_time , 0 , 2)
            minute = MID$(d_time , 4 , 2)
            second="0"
            parameters=year+";"+month+";"+day+";"+hour+";"+minute+";"+second
   
         time0=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters))))
         'FileSeek(ExtHandle,last_fpos,SEEK_SET);
         '//---- is there current bar?
         if time0<i_time+periodseconds then
           '{
            d_volume=d_volume+val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-0))-last_volume
            last_volume=val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-0)) 
            if val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-0))<d_low then d_low=val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-0))
            if val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-0))>d_high then d_high=val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-0))
            d_close=val(Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)-0))
           '}
         else
           '{
            '//---- no, there is new bar
            d_volume=d_volume+val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-1))-last_volume
            if val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-1))<d_low then d_low=val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-1))
            if val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-1))>d_high then d_high=val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-1))
            '//---- write previous bar remains
            'FileWriteInteger(ExtHandle, i_time, LONG_VALUE);
            'FileWriteDouble(ExtHandle, d_open, DOUBLE_VALUE);
            'FileWriteDouble(ExtHandle, d_low, DOUBLE_VALUE);
            'FileWriteDouble(ExtHandle, d_high, DOUBLE_VALUE);
            'FileWriteDouble(ExtHandle, d_close, DOUBLE_VALUE);
            'FileWriteDouble(ExtHandle, d_volume, DOUBLE_VALUE);
            'last_fpos=FileTell(ExtHandle);
             csvFile.WriteLine(i_time_date + "," + i_time_time + "," + str$(d_open) + "," + str$(d_high) + "," + str$(d_low) _
             + "," + str$(d_close) + "," + str$(d_volume))
            '//----
            i_time=time0/periodseconds
            i_time=i_time*periodseconds
            d_open=val(Grid.Cell(rowgridoffset + 3 , chartbars(displayedfile)-0))
            d_low=val(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)-0))
            d_high=val(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)-0))
            d_close=val(Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)-0))
            d_volume=val(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)-0))
            last_volume=d_volume
           '}
           end if
         '//----
         
         myunixtimestr=Format$("%12.0f", i_time)
        'showmessage myunixtimestr
        cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(myunixtimestr))) ' works here in year 2038
        'showmessage cpptmpfuncreturn
        'defstr year,month,day,hour,minute
        year=mid$(cpptmpfuncreturn,0,4)
        month=mid$(cpptmpfuncreturn,6,2)
        day=mid$(cpptmpfuncreturn,9,2)
        hour=mid$(cpptmpfuncreturn,12,2)
        minute=mid$(cpptmpfuncreturn,15,2)
                        
        day=REPLACESUBSTR$(day , " " , "0")

        i_time_date =year + "." + month + "." + day
        i_time_time=hour+":"+minute
         
         'FileWriteInteger(ExtHandle, i_time, LONG_VALUE);
         'FileWriteDouble(ExtHandle, d_open, DOUBLE_VALUE);
         'FileWriteDouble(ExtHandle, d_low, DOUBLE_VALUE);
         'FileWriteDouble(ExtHandle, d_high, DOUBLE_VALUE);
         'FileWriteDouble(ExtHandle, d_close, DOUBLE_VALUE);
         'FileWriteDouble(ExtHandle, d_volume, DOUBLE_VALUE);
         'FileFlush(ExtHandle);
         if i_time_date<>i_time_datetmp or i_time_time<>i_time_timetmp or d_open<>d_opentmp or d_high<>d_hightmp or d_low<>d_lowtmp or _
         d_close<>d_closetmp or d_volume<>d_volumetmp then
             csvFile.WriteLine(i_time_date + "," + i_time_time + "," + str$(d_open) + "," + str$(d_high) + "," + str$(d_low) _
             + "," + str$(d_close) + "," + str$(d_volume))
         end if
         csvFile.close
         '//----
   showmessage "File exported in csv directory"    

end sub

sub export_indicator_data

defint i,j,csvi

DIM datecsv AS STRING
DIM timecsv AS STRING
DIM opencsv AS STRING
DIM highcsv AS STRING
DIM lowcsv AS STRING
DIM closecsv AS STRING
DIM volumecsv AS STRING
DIM csvFile AS QFILESTREAM
dim savedialogfilename as string

' j=2 Export first indicator's buffer

FOR j = 2 TO drawidseparatecanvas STEP 2 ' next indicator's buffer is j + 2

if Grid_sep_indi.Cell(j , 2)<>"" then

	savedialogfilename=homepath+"\csv\exported_indicator"+str$(j/2)+".csv"

	csvFile.open(savedialogfilename , 65535) '65535 = fmCreate

	csvi=1

	    FOR i = 0 TO barsdisplayed2-2 + val(generalsettingsfuturebarsedit.text)               
	        datecsv = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)-barsdisplayed2+2 - val(generalsettingsfuturebarsedit.text)+i)
	        timecsv = Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)-barsdisplayed2+2 - val(generalsettingsfuturebarsedit.text)+i)        
	        opencsv = Grid_sep_indi.Cell(j , i + 2)
	        highcsv = Grid_sep_indi.Cell(j , i + 2)
	        lowcsv = Grid_sep_indi.Cell(j , i + 2)
	        closecsv = Grid_sep_indi.Cell(j , i + 2)
	        volumecsv = "1"
	        IF axistypecomboitemindex = 1 THEN
	            IF VAL(canvas.separateindicator1.Cell(j , i+2)) > 0 THEN
	                opencsv = log10(VAL(Grid_sep_indi.Cell(j , i+2)))
	                highcsv = log10(VAL(Grid_sep_indi.Cell(j , i+2)))
	                lowcsv = log10(VAL(Grid_sep_indi.Cell(j , i+2)))
	                closecsv = log10(VAL(Grid_sep_indi.Cell(j , i+2)))
	            END IF
	        END IF
	        csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
	        csvi++
	    NEXT i

	csvFile.close

end if
    
NEXT j

showmessage "Done"

end sub

SUB exportfilename()
    'DIM SaveDialog AS QSAVEDIALOG
    'SaveDialog.Caption = "Export Graph"
    'SaveDialog.Filter = "CSV File|*.csv"
    'SaveDialog.FilterIndex = 1    
    'SaveDialog.FileName = homepath+"\csv\temp.csv"
    dim savedialogfilename as string
    savedialogfilename=homepath+"\csv\temp.csv"

    'IF SaveDialog.Execute THEN
        DIM csvFile AS QFILESTREAM
        csvFile.open(savedialogfilename , 65535) '65535 = fmCreate
        DIM csvi AS INTEGER
        DIM datecsv AS STRING
        DIM timecsv AS STRING
        DIM opencsv AS STRING
        DIM highcsv AS STRING
        DIM lowcsv AS STRING
        DIM closecsv AS STRING
        DIM volumecsv AS STRING
        'DIM inputcsvbars AS qinputbox
        'dim csvbars as string
        'csvbars=inputcsvbars.input("How many bars to export?")
        SELECT CASE axistypecomboitemindex
            CASE 0 :
                FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                    datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                    timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                    opencsv = Grid.Cell(rowgridoffset + 3 , csvi)
                    highcsv = Grid.Cell(rowgridoffset + 4 , csvi)
                    lowcsv = Grid.Cell(rowgridoffset + 5 , csvi)
                    closecsv = Grid.Cell(rowgridoffset + 6 , csvi)
                    volumecsv = Grid.Cell(rowgridoffset + 7 , csvi)
                    csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
                NEXT csvi
            CASE 1 :
                FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                    datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                    timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                    opencsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 3 , csvi))) , ffGeneral , 4 , 4)
                    highcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 4 , csvi))) , ffGeneral , 4 , 4)
                    lowcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 5 , csvi))) , ffGeneral , 4 , 4)
                    closecsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 6 , csvi))) , ffGeneral , 4 , 4)
                    volumecsv = ROUND(log10(VAL(Grid.Cell(rowgridoffset + 7 , csvi))))
                    csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
                NEXT csvi
        END SELECT
        csvFile.close
        $ESCAPECHARS ON
    dim strfilename as string
    strfilename=replacesubstr$(savedialogfilename,chr$(92),chr$(92)+chr$(92))
    'dim strfilenamelines as integer
    'strfilenamelines=filegetlinecount(varptr(strfilename))

'    dim mystr as string
'    dim savmystr(0 to 100000) as string
'    dim iinc as integer
'    iinc=0 
    
'    dim reinitfseek as string:reinitfseek="0"
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    for i=1 to strfilenamelines
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    next i
'    reinitfseek="1"
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
    cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(strfilename)))
    $ESCAPECHARS OFF
    'END IF
END SUB

SUB exportfileyahoo()
    DIM SaveDialog AS QSAVEDIALOG
    SaveDialog.Caption = "Export Graph"
    SaveDialog.Filter = "CSV File|*.csv"
    SaveDialog.FilterIndex = 1
    SaveDialog.FileName = MID$(importedfile(displayedfile) , 0 , LEN(importedfile(displayedfile)) - 4) + ".csv"
    'IF SaveDialog.Execute THEN
    
    DIM csvFile AS QFILESTREAM
    csvFile.open(SaveDialog.FileName , 65535) '65535 = fmCreate

    DIM csvi AS INTEGER
    DIM datecsv AS STRING
    DIM timecsv AS STRING
    DIM opencsv AS STRING
    DIM highcsv AS STRING
    DIM lowcsv AS STRING
    DIM closecsv AS STRING
    DIM volumecsv AS STRING
    'dim inputcsvbars as qinputbox
    'dim csvbars as string
    'csvbars=inputcsvbars.input("How many bars to export?")
    SELECT CASE axistypecomboitemindex
        CASE 0 :
            FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                opencsv = Grid.Cell(rowgridoffset + 3 , csvi)
                highcsv = Grid.Cell(rowgridoffset + 4 , csvi)
                lowcsv = Grid.Cell(rowgridoffset + 5 , csvi)
                closecsv = Grid.Cell(rowgridoffset + 6 , csvi)
                volumecsv = Grid.Cell(rowgridoffset + 7 , csvi)
                csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
            NEXT csvi
        CASE 1 :
            FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                opencsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 3 , csvi))) , ffGeneral , 4 , 4)
                highcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 4 , csvi))) , ffGeneral , 4 , 4)
                lowcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 5 , csvi))) , ffGeneral , 4 , 4)
                closecsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 6 , csvi))) , ffGeneral , 4 , 4)
                volumecsv = ROUND(log10(VAL(Grid.Cell(rowgridoffset + 7 , csvi))))
                csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
            NEXT csvi
    END SELECT
    csvFile.close
    'End if
    'dsok.Enabled = 1
END SUB


SUB importfileyahoo()

    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    form2Edit2.Text = "1"
    form2Edit3.Text = "2"
    form2Edit4.Text = "3"
    form2Edit5.Text = "4"
    form2Edit6.Text = "5"
    form2Edit7.Text = "6"


    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))


    DIM OpenDialog AS QOPENDIALOG
    'OpenDialog.initialdir=homepath+"\csv"'mtpathedit.text
    'IF OpenDialog.Execute THEN

    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0 :
            dstf = "1"
        CASE 1 :
            dstf = "5"
        CASE 2 :
            dstf = "15"
        CASE 3 :
            dstf = "30"
        case 4 :
            dstf = "60"
        case 5 :
            dstf = "240"
        case 6 :
            dstf = "1440"
        case 7 :
            dstf = "10080"
        case 8 :
            dstf = "43200"
    END SELECT


    openedfilesnb ++
    openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(openedfilesnbplusone())
    importedfile(openedfilesnb) = homepath + "\csv\" + UCASE$(dssymboledit.Text) + dstf + ".tmp"  'OpenDialog.FileName
    importedfileopenedfilesnbstr=str$(importedfile(openedfilesnb)):openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(setimportedfile(varptr(importedfileopenedfilesnbstr),varptr(openedfilesnbstr)))
    displayedfile = openedfilesnb
    displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
    mixgrid.Cell(0 , displayedfile) = importedfile(displayedfile)
    mixgridcolcount(displayedfile) = 1
    mixgridcolcount2(displayedfile) = 0
    mixgridcolcount3(displayedfile) = 0
    mixgridcolcount4(displayedfile) = 0
    IF openedfilesnb > 1 THEN
        rowgridoffset = 7 * (openedfilesnb - 1)
        rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
    END IF
    'dispchartnb.AddItems STR$(displayedfile)
    dispchartnb.AddItems StripFileName(importedfile(displayedfile))
    dispchartnb.ItemIndex = openedfilesnb - 1
    'END IF
    'if FileExists(OpenDialog.FileName) = FALSE THEN
    'print " file not found "
    'exit sub
    'end if

     dim yhooarrtmp(0 TO 100000) as string
     DIM file AS QFILESTREAM,yincr as integer
     file.open(importedfile(displayedfile) , 0)
     yincr=-1
     DO
         yincr++
         yhooarrtmp(yincr) = file.ReadLine
     LOOP UNTIL file.eof
     file.close
     
     file.open(importedfile(displayedfile) , 65535)
     dim yincr2 as integer
     for yincr2=1 to yincr
          
         file.writeline(yhooarrtmp(yincr2))
     next yincr2
     file.close

    
    $ESCAPECHARS ON
    dim strfilename as string
    strfilename=replacesubstr$(importedfile(displayedfile),chr$(92),chr$(92)+chr$(92))
    dim strfilenamelines as integer
    strfilenamelines=filegetlinecount(varptr(strfilename))
    'dim i as integer
    dim mystr as string
    dim savmystr(0 to 100000) as string
    dim iinc as integer
    iinc=0 

    dim reinitfseek as string:reinitfseek="0"
    'openedfilesnbstr=str$(openedfilesnb)
    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
    iinc++
    savmystr(iinc)=mystr
    for i=1 to strfilenamelines
    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
    iinc++
    savmystr(iinc)=mystr
    next i
    reinitfseek="1"
    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))    
    $ESCAPECHARS OFF

    j = 0

    DO

        j ++

        'getline$ = file.ReadLine
        getline$ = savmystr(j)

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        'commapos = 0
        'FOR i = 1 TO timepos - 1
        '    IF timepos = 1 THEN
        '        EXIT FOR
        '    END IF
        '    commapos = INSTR(commapos + 1 , getline$ , separator)
        'NEXT i
        'time = MID$(getline$ , commapos + 1 , LEN(getline$))
        'time = MID$(time , 0 , INSTR(0 , time , separator) - 1)
        time = "00:00"

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , INSTR(0 , vol , separator) - 1)

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol


        Gridtmp.Cell(rowgridoffset + 1 , j) = date
        Gridtmp.Cell(rowgridoffset + 2 , j) = time
        Gridtmp.Cell(rowgridoffset + 3 , j) = open
        Gridtmp.Cell(rowgridoffset + 4 , j) = high
        Gridtmp.Cell(rowgridoffset + 5 , j) = low
        Gridtmp.Cell(rowgridoffset + 6 , j) = close
        Gridtmp.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL j=strfilenamelines
    'file.close
 
    chartbars(displayedfile) = j
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))

    DIM o AS INTEGER
    o = 1
    FOR i = chartbars(displayedfile) TO 1 STEP - 1
        Grid.Cell(rowgridoffset + 1 , i) = Gridtmp.Cell(rowgridoffset + 1 , o)
        Grid.Cell(rowgridoffset + 2 , i) = Gridtmp.Cell(rowgridoffset + 2 , o)
        Grid.Cell(rowgridoffset + 3 , i) = Gridtmp.Cell(rowgridoffset + 3 , o)
        Grid.Cell(rowgridoffset + 4 , i) = Gridtmp.Cell(rowgridoffset + 4 , o)
        Grid.Cell(rowgridoffset + 5 , i) = Gridtmp.Cell(rowgridoffset + 5 , o)
        Grid.Cell(rowgridoffset + 6 , i) = Gridtmp.Cell(rowgridoffset + 6 , o)
        Grid.Cell(rowgridoffset + 7 , i) = Gridtmp.Cell(rowgridoffset + 7 , o)
        o ++
    NEXT i
    FOR i = 1 TO chartbars(displayedfile)
        Gridtmp.Cell(rowgridoffset + 1 , i) = Grid.Cell(rowgridoffset + 1 , i)
        Gridtmp.Cell(rowgridoffset + 2 , i) = Grid.Cell(rowgridoffset + 2 , i)
        Gridtmp.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 3 , i)
        Gridtmp.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 4 , i)
        Gridtmp.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 5 , i)
        Gridtmp.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , i)
        Gridtmp.Cell(rowgridoffset + 7 , i) = Grid.Cell(rowgridoffset + 7 , i)

    NEXT i


    chartbarstmp(displayedfile) = j
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))
    Scrollchart.Max = chartbars(displayedfile)
    scrollchartpositionwait = 0
    Scrollchart.Position = chartbars(displayedfile)
    scrollchartpositionwait = 1
    chartstart = Scrollchart.Position - numbars

    updatemixerlists
    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))
    btnOnClick(drwBox)

    form2Edit2.Text = "2"
    form2Edit3.Text = "3"
    form2Edit4.Text = "4"
    form2Edit5.Text = "5"
    form2Edit6.Text = "6"
    form2Edit7.Text = "7"

    exportfileyahoo()

    'delfile(varptr(strfilename))
    'importedfile(displayedfile)=MID$(importedfile(displayedfile) , 0 , LEN(importedfile(displayedfile)) - 4) + ".csv"
    'reimportfile()
    'updatemixerlists
    'logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    'writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))
    dim impfdispfcsv as string:impfdispfcsv=MID$(importedfile(displayedfile) , 0 , LEN(importedfile(displayedfile)) - 4) + ".csv"
    cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(impfdispfcsv)))
    detect_timeframe
    if useindiCheckedtmp=1 then
    useindi.checked=1    
    btnOnClick(drwBox)
    end if    
    dsok.Enabled = 1
END SUB

SUB importfilestooq()
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    form2Edit2.Text = "1"
    form2Edit3.Text = "2"
    form2Edit4.Text = "3"
    form2Edit5.Text = "4"
    form2Edit6.Text = "5"
    form2Edit7.Text = "6"


    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM OpenDialog AS QOPENDIALOG
    'OpenDialog.initialdir=homepath+"\csv"'mtpathedit.text
    'IF OpenDialog.Execute THEN

    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0 :
            dstf = "1"
        CASE 1 :
            dstf = "5"
        CASE 2 :
            dstf = "15"
        CASE 3 :
            dstf = "30"
        case 4 :
            dstf = "60"
        case 5 :
            dstf = "240"
        case 6 :
            dstf = "1440"
        case 7 :
            dstf = "10080"
        case 8 :
            dstf = "43200"
    END SELECT


    openedfilesnb ++
    openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(openedfilesnbplusone())
    importedfile(openedfilesnb) = homepath + "\csv\" + UCASE$(dssymboledit.Text) + dstf + ".tmp"  'OpenDialog.FileName
    importedfileopenedfilesnbstr=str$(importedfile(openedfilesnb)):openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(setimportedfile(varptr(importedfileopenedfilesnbstr),varptr(openedfilesnbstr)))
    displayedfile = openedfilesnb
    displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
    mixgrid.Cell(0 , displayedfile) = importedfile(displayedfile)
    mixgridcolcount(displayedfile) = 1
    mixgridcolcount2(displayedfile) = 0
    mixgridcolcount3(displayedfile) = 0
    mixgridcolcount4(displayedfile) = 0
    IF openedfilesnb > 1 THEN
        rowgridoffset = 7 * (openedfilesnb - 1)
        rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
    END IF
    'dispchartnb.AddItems STR$(displayedfile)
    dispchartnb.AddItems StripFileName(importedfile(displayedfile))
    dispchartnb.ItemIndex = openedfilesnb - 1
    'END IF
    'if FileExists(OpenDialog.FileName) = FALSE THEN
    'print " file not found "
    'exit sub
    'end if

' We do this to suppress the first line of the file and to add a fictive volume
     dim yhooarrtmp(0 TO 100000) as string
     DIM file AS QFILESTREAM,yincr as integer
     file.open(importedfile(displayedfile) , 0)
     yincr=-1
     DO
         yincr++
         yhooarrtmp(yincr) = file.ReadLine
     LOOP UNTIL file.eof
     file.close
     
     file.open(importedfile(displayedfile) , 65535)
     dim yincr2 as integer
     for yincr2=1 to yincr
          
         file.writeline(yhooarrtmp(yincr2)+",1")
     next yincr2
     file.close
' -------------------------------------------------     
    
    
    $ESCAPECHARS ON
    dim strfilename as string
    strfilename=replacesubstr$(importedfile(displayedfile),chr$(92),chr$(92)+chr$(92))
    dim strfilenamelines as integer
    strfilenamelines=filegetlinecount(varptr(strfilename))
    'dim i as integer
    dim mystr as string
    dim savmystr(0 to 100000) as string
    dim iinc as integer
    iinc=0 
    
    dim reinitfseek as string:reinitfseek="0"
    'openedfilesnbstr=str$(openedfilesnb)
    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
    iinc++
    savmystr(iinc)=mystr
    for i=1 to strfilenamelines
    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
    iinc++
    savmystr(iinc)=mystr
    next i
    reinitfseek="1"
    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))    
    $ESCAPECHARS OFF

    j = 0

    DO

        j ++

        'getline$ = file.ReadLine
        getline$ = savmystr(j)

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        'commapos = 0
        'FOR i = 1 TO timepos - 1
        '    IF timepos = 1 THEN
        '        EXIT FOR
        '    END IF
        '    commapos = INSTR(commapos + 1 , getline$ , separator)
        'NEXT i
        'time = MID$(getline$ , commapos + 1 , LEN(getline$))
        'time = MID$(time , 0 , INSTR(0 , time , separator) - 1)
        time = "00:00"

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)


        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        'vol = MID$(vol , 0 , INSTR(0 , vol , separator) - 1)        

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol


        Gridtmp.Cell(rowgridoffset + 1 , j) = date
        Gridtmp.Cell(rowgridoffset + 2 , j) = time
        Gridtmp.Cell(rowgridoffset + 3 , j) = open
        Gridtmp.Cell(rowgridoffset + 4 , j) = high
        Gridtmp.Cell(rowgridoffset + 5 , j) = low
        Gridtmp.Cell(rowgridoffset + 6 , j) = close
        Gridtmp.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL j=strfilenamelines
    'file.close

    chartbars(displayedfile) = j
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))

    chartbarstmp(displayedfile) = j
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))
    Scrollchart.Max = chartbars(displayedfile)
    scrollchartpositionwait = 0
    Scrollchart.Position = chartbars(displayedfile)
    scrollchartpositionwait = 1
    chartstart = Scrollchart.Position - numbars
    
    updatemixerlists
    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))
    btnOnClick(drwBox)

    form2Edit2.Text = "2"
    form2Edit3.Text = "3"
    form2Edit4.Text = "4"
    form2Edit5.Text = "5"
    form2Edit6.Text = "6"
    form2Edit7.Text = "7"

    exportfileyahoo()
    'delfile(varptr(strfilename))
    'importedfile(displayedfile)=MID$(importedfile(displayedfile) , 0 , LEN(importedfile(displayedfile)) - 4) + ".csv"
    'reimportfile()
    'updatemixerlists
    'logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    'writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))
    dim impfdispfcsv as string:impfdispfcsv=MID$(importedfile(displayedfile) , 0 , LEN(importedfile(displayedfile)) - 4) + ".csv"
    cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(impfdispfcsv)))
    detect_timeframe
    if useindiCheckedtmp=1 then
    useindi.checked=1    
    btnOnClick(drwBox)
    end if    
    dsok.Enabled = 1
END SUB


SUB importfile2()
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM OpenDialog AS QOPENDIALOG
    OpenDialog.InitialDir = mtpathedit.Text
    IF OpenDialog.Execute THEN
        openedfilesnb ++
        openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(openedfilesnbplusone())
        importedfile(openedfilesnb) = OpenDialog.FileName
        displayedfile = openedfilesnb
        displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
        mixgrid.Cell(0 , displayedfile) = importedfile(displayedfile)
        mixgridcolcount(displayedfile) = 1
        mixgridcolcount2(displayedfile) = 0
        mixgridcolcount3(displayedfile) = 0
        mixgridcolcount4(displayedfile) = 0
        IF openedfilesnb > 1 THEN
            rowgridoffset = 7 * (openedfilesnb - 1)
            rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
        END IF
        'dispchartnb.AddItems STR$(displayedfile)
        dispchartnb.AddItems StripFileName(importedfile(displayedfile))
        dispchartnb.ItemIndex = openedfilesnb - 1
    END IF
    IF FILEEXISTS(OpenDialog.FileName) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF

    DIM file AS QFILESTREAM
    file.open(OpenDialog.FileName , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol


        Gridtmp.Cell(rowgridoffset + 1 , j) = date
        Gridtmp.Cell(rowgridoffset + 2 , j) = time
        Gridtmp.Cell(rowgridoffset + 3 , j) = open
        Gridtmp.Cell(rowgridoffset + 4 , j) = high
        Gridtmp.Cell(rowgridoffset + 5 , j) = low
        Gridtmp.Cell(rowgridoffset + 6 , j) = close
        Gridtmp.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL file.eof
    file.close
    chartbars(displayedfile) = j
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    chartbarstmp(displayedfile) = j
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))
    Scrollchart.Max = chartbars(displayedfile)
    scrollchartpositionwait = 0
    Scrollchart.Position = chartbars(displayedfile)
    scrollchartpositionwait = 1
    chartstart = Scrollchart.Position - numbars
    updatemixerlists
    'bgimg.visible=0
    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))
    btnOnClick(drwBox)
END SUB



SUB importfile()
    
'    DIM date AS STRING , time AS STRING
'    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
'    DIM datepos AS INTEGER
'    DIM timepos AS INTEGER
'    DIM openpos AS INTEGER
'    DIM highpos AS INTEGER
'    DIM lowpos AS INTEGER
'    DIM closepos AS INTEGER
'    DIM volpos AS INTEGER
'    DIM separator AS STRING
'    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
'    DIM getline$ AS STRING

'    datepos = VAL(form2Edit1.Text)
'    timepos = VAL(form2Edit2.Text)
'    openpos = VAL(form2Edit3.Text)
'    highpos = VAL(form2Edit4.Text)
'    lowpos = VAL(form2Edit5.Text)
'    closepos = VAL(form2Edit6.Text)
'    volpos = VAL(form2Edit7.Text)
'    separator = VAL(form2Edit8.Text)
    'numbars = VAL(barsdisplayed.Text)
    
    DIM OpenDialog AS QOPENDIALOG
    OpenDialog.InitialDir = mtpathedit.Text
    IF OpenDialog.Execute THEN
        openedfilesnb ++
        openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(openedfilesnbplusone())
        importedfile(openedfilesnb) = OpenDialog.FileName
        importedfileopenedfilesnbstr=str$(importedfile(openedfilesnb)):openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(setimportedfile(varptr(importedfileopenedfilesnbstr),varptr(openedfilesnbstr)))
        displayedfile = openedfilesnb
        displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
        mixgrid.Cell(0 , displayedfile) = importedfile(displayedfile)
        mixgridcolcount(displayedfile) = 1
        mixgridcolcount2(displayedfile) = 0
        mixgridcolcount3(displayedfile) = 0
        mixgridcolcount4(displayedfile) = 0
        IF openedfilesnb > 1 THEN
            rowgridoffset = 7 * (openedfilesnb - 1)
            rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
        END IF
        'dispchartnb.AddItems STR$(displayedfile)
        dispchartnb.AddItems StripFileName(importedfile(displayedfile))
        dispchartnb.ItemIndex = openedfilesnb - 1
    END IF
    IF FILEEXISTS(OpenDialog.FileName) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF

    $ESCAPECHARS ON
    dim strfilename as string
    strfilename=replacesubstr$(opendialog.filename,chr$(92),chr$(92)+chr$(92))
    dim strfilenamelines as integer
    strfilenamelines=filegetlinecount(varptr(strfilename))

'    dim mystr as string
'    dim savmystr(0 to 100000) as string
'    dim iinc as integer
'    iinc=0 
    
'    dim reinitfseek as string:reinitfseek="0"
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    for i=1 to strfilenamelines
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    next i
'    reinitfseek="1"
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
    cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(strfilename)))
    $ESCAPECHARS OFF
    
    defstr istr
    for i=1 to strfilenamelines    
    istr=str$(i)    
    rowgridoffsetstr=str$(rowgridoffset + 1)    
    Grid.Cell(rowgridoffset + 1 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 1 , i) = Grid.Cell(rowgridoffset + 1 , i)
    rowgridoffsetstr=str$(rowgridoffset + 2)    
    Grid.Cell(rowgridoffset + 2 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 2 , i) = Grid.Cell(rowgridoffset + 2 , i)
    rowgridoffsetstr=str$(rowgridoffset + 3)    
    Grid.Cell(rowgridoffset + 3 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 3 , i)
    rowgridoffsetstr=str$(rowgridoffset + 4)    
    Grid.Cell(rowgridoffset + 4 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 4 , i)
    rowgridoffsetstr=str$(rowgridoffset + 5)    
    Grid.Cell(rowgridoffset + 5 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 5 , i)
    rowgridoffsetstr=str$(rowgridoffset + 6)    
    Grid.Cell(rowgridoffset + 6 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , i)
    rowgridoffsetstr=str$(rowgridoffset + 7)    
    Grid.Cell(rowgridoffset + 7 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 7 , i) = Grid.Cell(rowgridoffset + 7 , i)    
    next i    
    j=strfilenamelines
    
'    j = 0
'
'    DO
'
'        j ++
'
'
'        getline$ = savmystr(j)
'
'        commapos = 0
'        FOR i = 1 TO datepos - 1
'            IF datepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        date = MID$(getline$ , commapos + 1 , LEN(getline$))
'        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO timepos - 1
'            IF timepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        time = MID$(getline$ , commapos + 1 , LEN(getline$))
'        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO openpos - 1
'            IF openpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        open = MID$(getline$ , commapos + 1 , LEN(getline$))
'        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO highpos - 1
'            IF highpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        high = MID$(getline$ , commapos + 1 , LEN(getline$))
'        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO lowpos - 1
'            IF lowpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        low = MID$(getline$ , commapos + 1 , LEN(getline$))
'        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO closepos - 1
'            IF closepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        close = MID$(getline$ , commapos + 1 , LEN(getline$))
'        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO volpos - 1
'            IF volpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
'        vol = MID$(vol , 0 , LEN(vol))
'
'        Grid.Cell(rowgridoffset + 1 , j) = date
'        Grid.Cell(rowgridoffset + 2 , j) = time
'        Grid.Cell(rowgridoffset + 3 , j) = open
'        Grid.Cell(rowgridoffset + 4 , j) = high
'        Grid.Cell(rowgridoffset + 5 , j) = low
'        Grid.Cell(rowgridoffset + 6 , j) = close
'        Grid.Cell(rowgridoffset + 7 , j) = vol
'
'
'        Gridtmp.Cell(rowgridoffset + 1 , j) = date
'        Gridtmp.Cell(rowgridoffset + 2 , j) = time
'        Gridtmp.Cell(rowgridoffset + 3 , j) = open
'        Gridtmp.Cell(rowgridoffset + 4 , j) = high
'        Gridtmp.Cell(rowgridoffset + 5 , j) = low
'        Gridtmp.Cell(rowgridoffset + 6 , j) = close
'        Gridtmp.Cell(rowgridoffset + 7 , j) = vol
'
'    LOOP UNTIL j=strfilenamelines

    chartbars(displayedfile) = j
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    chartbarstmp(displayedfile) = j
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))
    Scrollchart.Max = chartbars(displayedfile)
    scrollchartpositionwait = 0
    Scrollchart.Position = chartbars(displayedfile)
    scrollchartpositionwait = 1
    if val(barsdisplayed.text)>chartbars(displayedfile) then barsdisplayed.text=str$(chartbars(displayedfile))
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))
    chartstart = Scrollchart.Position - numbars
    updatemixerlists

    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))    
    detect_timeframe
    btnOnClick(drwBox)    
END SUB



SUB exportcollection()

    useindi.Checked = 0

    exportfile

    barsdisplayed.Text = "7"
    dispbarsok_click

    DIM jjj AS string :
    jjj = importedfile(displayedfile)
    DIM kkk AS INTEGER
    kkk = INSTR(0 , jjj , ".")
    DIM iii AS INTEGER
    DIM lll AS STRING
    FOR iii = kkk - 1 TO 0 STEP - 1
        lll = MID$(jjj , iii , 1)
        IF ASC(lll) < 48 OR ASC(lll) > 57 THEN
            EXIT FOR
        END IF
    NEXT iii
    DIM mmm AS STRING
    mmm = MID$(jjj , iii + 1)
    mmm = MID$(mmm , 0 , INSTR(0 , mmm , ".") - 1)

    SELECT CASE VAL(mmm)

        CASE 30 :
            tfmult.Text = "48"
            tfmultok_click
            exportfile
            tfmult.Text = "336"
            tfmultok_click
            exportfile

        CASE 60 :
            tfmult.Text = "24"
            tfmultok_click
            exportfile
            tfmult.Text = "168"
            tfmultok_click
            exportfile

        CASE 240 :
            tfmult.Text = "6"
            tfmultok_click
            exportfile
            tfmult.Text = "42"
            tfmultok_click
            exportfile

    END SELECT

END SUB

SUB importfileauto(ifafilename AS STRING)  ' use this sub to open the file in the same display nb (no openedfilesnb++)
'    DIM date AS STRING , time AS STRING
'    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
'    DIM datepos AS INTEGER
'    DIM timepos AS INTEGER
'    DIM openpos AS INTEGER
'    DIM highpos AS INTEGER
'    DIM lowpos AS INTEGER
'    DIM closepos AS INTEGER
'    DIM volpos AS INTEGER
'    DIM separator AS STRING
'    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
'    DIM getline$ AS STRING

'    datepos = VAL(form2Edit1.Text)
'    timepos = VAL(form2Edit2.Text)
'    openpos = VAL(form2Edit3.Text)
'    highpos = VAL(form2Edit4.Text)
'    lowpos = VAL(form2Edit5.Text)
'    closepos = VAL(form2Edit6.Text)
'    volpos = VAL(form2Edit7.Text)
'    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    'DIM OpenDialog AS QOpenDialog
    'IF OpenDialog.Execute THEN
    'openedfilesnb++
    importedfile(openedfilesnb) = ifafilename
    importedfileopenedfilesnbstr=str$(importedfile(openedfilesnb)):openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(setimportedfile(varptr(importedfileopenedfilesnbstr),varptr(openedfilesnbstr)))
    displayedfile = openedfilesnb
    displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
    mixgrid.Cell(0 , displayedfile) = importedfile(displayedfile)
    mixgridcolcount(displayedfile) = 1
    mixgridcolcount2(displayedfile) = 0
    mixgridcolcount3(displayedfile) = 0
    mixgridcolcount4(displayedfile) = 0
    IF openedfilesnb > 1 THEN
        rowgridoffset = 7 * (openedfilesnb - 1)
        rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
    END IF
    'dispchartnb.AddItems STR$(displayedfile)
    dispchartnb.AddItems StripFileName(importedfile(displayedfile))
    dispchartnb.ItemIndex = openedfilesnb - 1
    'END IF
    IF FILEEXISTS(ifafilename) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF

    'DIM file AS QFILESTREAM
    'file.open(ifafilename , 0)
    
    $ESCAPECHARS ON
    dim strfilename as string
    strfilename=replacesubstr$(ifafilename,chr$(92),chr$(92)+chr$(92))
    dim strfilenamelines as integer
    strfilenamelines=filegetlinecount(varptr(strfilename))

'    dim mystr as string
'    dim savmystr(0 to 100000) as string
'    dim iinc as integer
'    iinc=0 
    
'    dim reinitfseek as string:reinitfseek="0"
    openedfilesnbstr=str$(openedfilesnb)
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    for i=1 to strfilenamelines
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    next i
'    reinitfseek="1"
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
    cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(strfilename)))
    $ESCAPECHARS OFF
    
    defstr istr
    for i=1 to strfilenamelines    
    istr=str$(i)    
    rowgridoffsetstr=str$(rowgridoffset + 1)    
    Grid.Cell(rowgridoffset + 1 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 1 , i) = Grid.Cell(rowgridoffset + 1 , i)
    rowgridoffsetstr=str$(rowgridoffset + 2)    
    Grid.Cell(rowgridoffset + 2 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 2 , i) = Grid.Cell(rowgridoffset + 2 , i)
    rowgridoffsetstr=str$(rowgridoffset + 3)    
    Grid.Cell(rowgridoffset + 3 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 3 , i)
    rowgridoffsetstr=str$(rowgridoffset + 4)    
    Grid.Cell(rowgridoffset + 4 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 4 , i)
    rowgridoffsetstr=str$(rowgridoffset + 5)    
    Grid.Cell(rowgridoffset + 5 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 5 , i)
    rowgridoffsetstr=str$(rowgridoffset + 6)    
    Grid.Cell(rowgridoffset + 6 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , i)
    rowgridoffsetstr=str$(rowgridoffset + 7)    
    Grid.Cell(rowgridoffset + 7 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 7 , i) = Grid.Cell(rowgridoffset + 7 , i)    
    next i    
    j=strfilenamelines
    writealive    

'    j = 0

'    DO

'        j ++


'        getline$ = savmystr(j)

'        commapos = 0
'        FOR i = 1 TO datepos - 1
'            IF datepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        date = MID$(getline$ , commapos + 1 , LEN(getline$))
'        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

'        commapos = 0
'        FOR i = 1 TO timepos - 1
'            IF timepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        time = MID$(getline$ , commapos + 1 , LEN(getline$))
'        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

'        commapos = 0
'        FOR i = 1 TO openpos - 1
'            IF openpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        open = MID$(getline$ , commapos + 1 , LEN(getline$))
'        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

'        commapos = 0
'        FOR i = 1 TO highpos - 1
'            IF highpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        high = MID$(getline$ , commapos + 1 , LEN(getline$))
'        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO lowpos - 1
'            IF lowpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        low = MID$(getline$ , commapos + 1 , LEN(getline$))
'        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO closepos - 1
'            IF closepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        close = MID$(getline$ , commapos + 1 , LEN(getline$))
'        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO volpos - 1
'            IF volpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
'        vol = MID$(vol , 0 , LEN(vol))
'
'        Grid.Cell(rowgridoffset + 1 , j) = date
'        Grid.Cell(rowgridoffset + 2 , j) = time
'        Grid.Cell(rowgridoffset + 3 , j) = open
'        Grid.Cell(rowgridoffset + 4 , j) = high
'        Grid.Cell(rowgridoffset + 5 , j) = low
'        Grid.Cell(rowgridoffset + 6 , j) = close
'        Grid.Cell(rowgridoffset + 7 , j) = vol
'
'
'        Gridtmp.Cell(rowgridoffset + 1 , j) = date
'        Gridtmp.Cell(rowgridoffset + 2 , j) = time
'        Gridtmp.Cell(rowgridoffset + 3 , j) = open
'        Gridtmp.Cell(rowgridoffset + 4 , j) = high
'        Gridtmp.Cell(rowgridoffset + 5 , j) = low
'        Gridtmp.Cell(rowgridoffset + 6 , j) = close
'        Gridtmp.Cell(rowgridoffset + 7 , j) = vol
' writealive
'    LOOP UNTIL j=strfilenamelines


    chartbars(displayedfile) = j
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    chartbarstmp(displayedfile) = j
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))
    Scrollchart.Max = chartbars(displayedfile)
    scrollchartpositionwait = 0
    Scrollchart.Position = chartbars(displayedfile)
    scrollchartpositionwait = 1
    chartstart = Scrollchart.Position - numbars
    updatemixerlists

    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))
    btnOnClick(drwBox)
END SUB

SUB importfileauto2(filenameauto AS STRING) ' use this sub to open the file in a new display nb (openedfilesnb++)
'    DIM date AS STRING , time AS STRING
'    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
'    DIM datepos AS INTEGER
'    DIM timepos AS INTEGER
'    DIM openpos AS INTEGER
'    DIM highpos AS INTEGER
'    DIM lowpos AS INTEGER
'    DIM closepos AS INTEGER
'    DIM volpos AS INTEGER
'    DIM separator AS STRING
'    DIM commapos AS INTEGER

    DIM i AS INTEGER , j AS INTEGER
'    DIM getline$ AS STRING

'    datepos = VAL(form2Edit1.Text)
'    timepos = VAL(form2Edit2.Text)
'    openpos = VAL(form2Edit3.Text)
'    highpos = VAL(form2Edit4.Text)
'    lowpos = VAL(form2Edit5.Text)
'    closepos = VAL(form2Edit6.Text)
'    volpos = VAL(form2Edit7.Text)
'    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    'DIM OpenDialog AS QOpenDialog
    'IF OpenDialog.Execute THEN
    openedfilesnb ++
    openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(openedfilesnbplusone())
    importedfile(openedfilesnb) = filenameauto
    importedfileopenedfilesnbstr=str$(importedfile(openedfilesnb)):openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(setimportedfile(varptr(importedfileopenedfilesnbstr),varptr(openedfilesnbstr)))
    displayedfile = openedfilesnb
    displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
    mixgrid.Cell(0 , displayedfile) = importedfile(displayedfile)
    mixgridcolcount(displayedfile) = 1
    mixgridcolcount2(displayedfile) = 0
    mixgridcolcount3(displayedfile) = 0
    mixgridcolcount4(displayedfile) = 0
    IF openedfilesnb > 1 THEN
        rowgridoffset = 7 * (openedfilesnb - 1)
        rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
    END IF
    'dispchartnb.AddItems STR$(displayedfile)
    dispchartnb.AddItems StripFileName(importedfile(displayedfile))
    dispchartnb.ItemIndex = openedfilesnb - 1
    'END IF
    IF FILEEXISTS(filenameauto) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF

    'DIM file AS QFILESTREAM
    'file.open(filenameauto , 0)
    
    $ESCAPECHARS ON
    dim strfilename as string
    strfilename=replacesubstr$(filenameauto,chr$(92),chr$(92)+chr$(92))
    dim strfilenamelines as integer
    strfilenamelines=filegetlinecount(varptr(strfilename))
    'dim i as integer
'    dim mystr as string
'    dim savmystr(0 to 100000) as string
'    dim iinc as integer
'    iinc=0 
    
'    dim reinitfseek as string:reinitfseek="0"
    openedfilesnbstr=str$(openedfilesnb)
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    for i=1 to strfilenamelines
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    next i
'    reinitfseek="1"
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(strfilename)))
    $ESCAPECHARS OFF
    
    defstr istr
    for i=1 to strfilenamelines    
    istr=str$(i)    
    rowgridoffsetstr=str$(rowgridoffset + 1)    
    Grid.Cell(rowgridoffset + 1 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 1 , i) = Grid.Cell(rowgridoffset + 1 , i)
    rowgridoffsetstr=str$(rowgridoffset + 2)    
    Grid.Cell(rowgridoffset + 2 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 2 , i) = Grid.Cell(rowgridoffset + 2 , i)
    rowgridoffsetstr=str$(rowgridoffset + 3)    
    Grid.Cell(rowgridoffset + 3 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 3 , i)
    rowgridoffsetstr=str$(rowgridoffset + 4)    
    Grid.Cell(rowgridoffset + 4 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 4 , i)
    rowgridoffsetstr=str$(rowgridoffset + 5)    
    Grid.Cell(rowgridoffset + 5 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 5 , i)
    rowgridoffsetstr=str$(rowgridoffset + 6)    
    Grid.Cell(rowgridoffset + 6 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , i)
    rowgridoffsetstr=str$(rowgridoffset + 7)    
    Grid.Cell(rowgridoffset + 7 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 7 , i) = Grid.Cell(rowgridoffset + 7 , i)    
    next i    
    j=strfilenamelines 

'    j = 0

'    DO

'        j ++

        'getline$ = file.ReadLine
'        getline$ = savmystr(j)

'        commapos = 0
'        FOR i = 1 TO datepos - 1
'            IF datepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        date = MID$(getline$ , commapos + 1 , LEN(getline$))
'        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO timepos - 1
'            IF timepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        time = MID$(getline$ , commapos + 1 , LEN(getline$))
'        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO openpos - 1
'            IF openpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        open = MID$(getline$ , commapos + 1 , LEN(getline$))
'        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO highpos - 1
'            IF highpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        high = MID$(getline$ , commapos + 1 , LEN(getline$))
'        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO lowpos - 1
'            IF lowpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        low = MID$(getline$ , commapos + 1 , LEN(getline$))
'        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO closepos - 1
'            IF closepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        close = MID$(getline$ , commapos + 1 , LEN(getline$))
'        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO volpos - 1
'            IF volpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
'        vol = MID$(vol , 0 , LEN(vol))
'
'        Grid.Cell(rowgridoffset + 1 , j) = date
'        Grid.Cell(rowgridoffset + 2 , j) = time
'        Grid.Cell(rowgridoffset + 3 , j) = open
'        Grid.Cell(rowgridoffset + 4 , j) = high
'        Grid.Cell(rowgridoffset + 5 , j) = low
'        Grid.Cell(rowgridoffset + 6 , j) = close
'        Grid.Cell(rowgridoffset + 7 , j) = vol
'
'
'        Gridtmp.Cell(rowgridoffset + 1 , j) = date
'        Gridtmp.Cell(rowgridoffset + 2 , j) = time
'        Gridtmp.Cell(rowgridoffset + 3 , j) = open
'        Gridtmp.Cell(rowgridoffset + 4 , j) = high
'        Gridtmp.Cell(rowgridoffset + 5 , j) = low
'        Gridtmp.Cell(rowgridoffset + 6 , j) = close
'        Gridtmp.Cell(rowgridoffset + 7 , j) = vol
'
'    LOOP UNTIL j=strfilenamelines
    'file.close
    chartbars(displayedfile) = j
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    chartbarstmp(displayedfile) = j
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))
    Scrollchart.Max = chartbars(displayedfile)
    scrollchartpositionwait = 0
    Scrollchart.Position = chartbars(displayedfile)
    scrollchartpositionwait = 1
    chartstart = Scrollchart.Position - numbars
    updatemixerlists
    'bgimg.visible=0
    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))
    detect_timeframe
    
    'if useindiCheckedtmp=1 then
    '    useindi.checked=1        
    '    btnOnClick(drwBox)
    '    end if        
    '    dsok.Enabled = 1
        
    btnOnClick(drwBox)    
END SUB

SUB importfile1m(filenameauto AS STRING) ' use this sub to open the file in a new display nb (openedfilesnb++)


    DIM i AS INTEGER , j AS INTEGER

    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))


    openedfilesnb ++
    openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(openedfilesnbplusone())
    importedfile(openedfilesnb) = filenameauto
    importedfileopenedfilesnbstr=str$(importedfile(openedfilesnb)):openedfilesnbstr=str$(openedfilesnb):cpptmpfuncreturn=varptr$(setimportedfile(varptr(importedfileopenedfilesnbstr),varptr(openedfilesnbstr)))
    displayedfile = openedfilesnb
    displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setdisplayedfile(varptr(displayedfilestr)))
    mixgrid.Cell(0 , displayedfile) = importedfile(displayedfile)
    mixgridcolcount(displayedfile) = 1
    mixgridcolcount2(displayedfile) = 0
    mixgridcolcount3(displayedfile) = 0
    mixgridcolcount4(displayedfile) = 0
    IF openedfilesnb > 1 THEN
        rowgridoffset = 7 * (openedfilesnb - 1)
        rowgridoffsetstr=str$(rowgridoffset):cpptmpfuncreturn=varptr$(setrowgridoffset(varptr(rowgridoffsetstr)))
    END IF
    'dispchartnb.AddItems STR$(displayedfile)
    dispchartnb.AddItems StripFileName(importedfile(displayedfile))
    dispchartnb.ItemIndex = openedfilesnb - 1

    IF FILEEXISTS(filenameauto) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF


    
    $ESCAPECHARS ON
    dim strfilename as string
    strfilename=replacesubstr$(filenameauto,chr$(92),chr$(92)+chr$(92))
    dim strfilenamelines as integer
    strfilenamelines=filegetlinecount(varptr(strfilename))

    openedfilesnbstr=str$(openedfilesnb)

cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(strfilename)))
    $ESCAPECHARS OFF
    
    defstr istr
    for i=1 to strfilenamelines    
    istr=str$(i)    
    rowgridoffsetstr=str$(rowgridoffset + 1)    
    Grid.Cell(rowgridoffset + 1 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 1 , i) = Grid.Cell(rowgridoffset + 1 , i)
    date1(strfilenamelines-i)=Grid.Cell(rowgridoffset + 1 , i)
    rowgridoffsetstr=str$(rowgridoffset + 2)    
    Grid.Cell(rowgridoffset + 2 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 2 , i) = Grid.Cell(rowgridoffset + 2 , i)
    time1(strfilenamelines-i)=Grid.Cell(rowgridoffset + 2 , i)
    rowgridoffsetstr=str$(rowgridoffset + 3)    
    Grid.Cell(rowgridoffset + 3 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 3 , i)
    open1(strfilenamelines-i)=val(Grid.Cell(rowgridoffset + 3 , i))
    rowgridoffsetstr=str$(rowgridoffset + 4)    
    Grid.Cell(rowgridoffset + 4 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 4 , i)
    high1(strfilenamelines-i)=val(Grid.Cell(rowgridoffset + 4 , i))
    rowgridoffsetstr=str$(rowgridoffset + 5)    
    Grid.Cell(rowgridoffset + 5 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 5 , i)
    low1(strfilenamelines-i)=val(Grid.Cell(rowgridoffset + 5 , i))
    rowgridoffsetstr=str$(rowgridoffset + 6)    
    Grid.Cell(rowgridoffset + 6 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , i)
    close1(strfilenamelines-i)=val(Grid.Cell(rowgridoffset + 6 , i))
    rowgridoffsetstr=str$(rowgridoffset + 7)    
    Grid.Cell(rowgridoffset + 7 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 7 , i) = Grid.Cell(rowgridoffset + 7 , i)
    volume1(strfilenamelines-i)=val(Grid.Cell(rowgridoffset + 7 , i))
    next i    
    j=strfilenamelines 


    chartbars(displayedfile) = j
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    chartbarstmp(displayedfile) = j
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))
    Scrollchart.Max = chartbars(displayedfile)
    scrollchartpositionwait = 0
    Scrollchart.Position = chartbars(displayedfile)
    scrollchartpositionwait = 1
    chartstart = Scrollchart.Position - numbars
    updatemixerlists

    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb) + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Import csv " + importedfile(openedfilesnb))
    btnOnClick(drwBox)
    'closedispchart_click()
END SUB

SUB reimportfile()
'    DIM date AS STRING , time AS STRING
'    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
'    DIM datepos AS INTEGER
'    DIM timepos AS INTEGER
'    DIM openpos AS INTEGER
'    DIM highpos AS INTEGER
'    DIM lowpos AS INTEGER
'    DIM closepos AS INTEGER
'    DIM volpos AS INTEGER
'    DIM separator AS STRING
'    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
'    DIM getline$ AS STRING

'    datepos = VAL(form2Edit1.Text)
'    timepos = VAL(form2Edit2.Text)
'    openpos = VAL(form2Edit3.Text)
'    highpos = VAL(form2Edit4.Text)
'    lowpos = VAL(form2Edit5.Text)
'    closepos = VAL(form2Edit6.Text)
'    volpos = VAL(form2Edit7.Text)
'    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

'    DIM OpenDialog AS QOPENDIALOG

    'DIM file AS QFILESTREAM
    'file.open(importedfile(displayedfile) , 0)
    $ESCAPECHARS ON
    dim strfilename as string
    strfilename=replacesubstr$(importedfile(displayedfile),chr$(92),chr$(92)+chr$(92))
    dim strfilenamelines as integer
    strfilenamelines=filegetlinecount(varptr(strfilename))
    'dim i as integer
'    dim mystr as string
'    dim savmystr(0 to 100000) as string
'    dim iinc as integer
'    iinc=0 
    
'    dim reinitfseek as string:reinitfseek="0"
    openedfilesnbstr=str$(openedfilesnb)
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    for i=1 to strfilenamelines
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
'    iinc++
'    savmystr(iinc)=mystr
'    next i
'    reinitfseek="1"
'    mystr=varptr$(filegetalllines(varptr(strfilename),varptr(reinitfseek)))
cpptmpfuncreturn=varptr$(filegetlinesarray(varptr(strfilename)))
    $ESCAPECHARS OFF
    
    defstr istr
    for i=1 to strfilenamelines    
    istr=str$(i)    
    rowgridoffsetstr=str$(rowgridoffset + 1)    
    Grid.Cell(rowgridoffset + 1 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 1 , i) = Grid.Cell(rowgridoffset + 1 , i)
    rowgridoffsetstr=str$(rowgridoffset + 2)    
    Grid.Cell(rowgridoffset + 2 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 2 , i) = Grid.Cell(rowgridoffset + 2 , i)
    rowgridoffsetstr=str$(rowgridoffset + 3)    
    Grid.Cell(rowgridoffset + 3 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 3 , i)
    rowgridoffsetstr=str$(rowgridoffset + 4)    
    Grid.Cell(rowgridoffset + 4 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 4 , i)
    rowgridoffsetstr=str$(rowgridoffset + 5)    
    Grid.Cell(rowgridoffset + 5 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 5 , i)
    rowgridoffsetstr=str$(rowgridoffset + 6)    
    Grid.Cell(rowgridoffset + 6 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , i)
    rowgridoffsetstr=str$(rowgridoffset + 7)    
    Grid.Cell(rowgridoffset + 7 , i) = varptr$(getdatagrid(varptr(rowgridoffsetstr),varptr(istr)))
    Gridtmp.Cell(rowgridoffset + 7 , i) = Grid.Cell(rowgridoffset + 7 , i)    
    next i    
    j=strfilenamelines 
    writealive

'    j = 0

'    DO

'        j ++

        'getline$ = file.ReadLine
'        getline$ = savmystr(j)

'        commapos = 0
'        FOR i = 1 TO datepos - 1
'            IF datepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        date = MID$(getline$ , commapos + 1 , LEN(getline$))
'        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO timepos - 1
'            IF timepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        time = MID$(getline$ , commapos + 1 , LEN(getline$))
'        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO openpos - 1
'            IF openpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        open = MID$(getline$ , commapos + 1 , LEN(getline$))
'        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO highpos - 1
'            IF highpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        high = MID$(getline$ , commapos + 1 , LEN(getline$))
'        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO lowpos - 1
'            IF lowpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        low = MID$(getline$ , commapos + 1 , LEN(getline$))
'        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO closepos - 1
'            IF closepos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        close = MID$(getline$ , commapos + 1 , LEN(getline$))
'        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)
'
'        commapos = 0
'        FOR i = 1 TO volpos - 1
'            IF volpos = 1 THEN
'                EXIT FOR
'            END IF
'            commapos = INSTR(commapos + 1 , getline$ , separator)
'        NEXT i
'        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
'        vol = MID$(vol , 0 , LEN(vol))
'
'        Grid.Cell(rowgridoffset + 1 , j) = date
'        Grid.Cell(rowgridoffset + 2 , j) = time
'        Grid.Cell(rowgridoffset + 3 , j) = open
'        Grid.Cell(rowgridoffset + 4 , j) = high
'        Grid.Cell(rowgridoffset + 5 , j) = low
'        Grid.Cell(rowgridoffset + 6 , j) = close
'        Grid.Cell(rowgridoffset + 7 , j) = vol
'
'        Gridtmp.Cell(rowgridoffset + 1 , j) = date
'        Gridtmp.Cell(rowgridoffset + 2 , j) = time
'        Gridtmp.Cell(rowgridoffset + 3 , j) = open
'        Gridtmp.Cell(rowgridoffset + 4 , j) = high
'        Gridtmp.Cell(rowgridoffset + 5 , j) = low
'        Gridtmp.Cell(rowgridoffset + 6 , j) = close
'        Gridtmp.Cell(rowgridoffset + 7 , j) = vol
' writealive
'    LOOP UNTIL j=strfilenamelines
    'file.close
    chartbars(displayedfile) = j
    chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))
    chartbarstmp(displayedfile) = j
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))
    Scrollchart.Max = chartbars(displayedfile)
    scrollchartpositionwait = 0
    Scrollchart.Position = chartbars(displayedfile)
    scrollchartpositionwait = 1
    chartstart = Scrollchart.Position - numbars
    'tfmultok_click
    btnOnClick(drwBox)

END SUB

SUB importfilemultiply()
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM OpenDialog AS QOPENDIALOG
    IF OpenDialog.Execute THEN
        mixgrid3.Cell(mixgridcolcount3(displayedfile) , displayedfile) = OpenDialog.FileName
        mixgridcolcount3(displayedfile) = mixgridcolcount3(displayedfile) + 1
    END IF
    IF FILEEXISTS(OpenDialog.FileName) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF
    DIM file AS QFILESTREAM
    file.open(OpenDialog.FileName , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL file.eof
    file.close

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    FOR k = 1 TO chartbars(displayedfile)
        FOR l = m TO j
            IF (Gridtmp.Cell(rowgridoffset + 1 , k) = Grid.Cell(rowgridoffset + 1 , l)) AND (Gridtmp.Cell(rowgridoffset + 2 , k) = Grid.Cell(rowgridoffset + 2 , l)) THEN
                incr ++
                m = l + 1
                Gridtmp.Cell(rowgridoffset + 1 , incr) = Gridtmp.Cell(rowgridoffset + 1 , k)
                Gridtmp.Cell(rowgridoffset + 2 , incr) = Gridtmp.Cell(rowgridoffset + 2 , k)
                Gridtmp.Cell(rowgridoffset + 3 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) * VAL(Grid.Cell(rowgridoffset + 3 , l)))
                Gridtmp.Cell(rowgridoffset + 4 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 4 , k)) * VAL(Grid.Cell(rowgridoffset + 4 , l)))
                Gridtmp.Cell(rowgridoffset + 5 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 5 , k)) * VAL(Grid.Cell(rowgridoffset + 5 , l)))
                Gridtmp.Cell(rowgridoffset + 6 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 6 , k)) * VAL(Grid.Cell(rowgridoffset + 6 , l)))
                Gridtmp.Cell(rowgridoffset + 7 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 7 , k)) + VAL(Grid.Cell(rowgridoffset + 7 , l)))
            END IF
        NEXT l
        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
    NEXT k

    chartbarstmp(displayedfile) = incr
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    tfmultm_click
    mixerform
END SUB

SUB importfilemultiplydel()
    'if additionlist.itemindex=0 then
    'showmessage "Main chart can't be removed from here."
    'exit sub
    'end if
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM file AS QFILESTREAM
    file.open(multiplylist.Item(multiplylist.ItemIndex) , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL file.eof
    file.close

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    FOR k = 1 TO chartbars(displayedfile)
        FOR l = m TO j
            IF (Gridtmp.Cell(rowgridoffset + 1 , k) = Grid.Cell(rowgridoffset + 1 , l)) AND (Gridtmp.Cell(rowgridoffset + 2 , k) = Grid.Cell(rowgridoffset + 2 , l)) THEN
                incr ++
                m = l + 1
                Gridtmp.Cell(rowgridoffset + 1 , incr) = Gridtmp.Cell(rowgridoffset + 1 , k)
                Gridtmp.Cell(rowgridoffset + 2 , incr) = Gridtmp.Cell(rowgridoffset + 2 , k)
                Gridtmp.Cell(rowgridoffset + 3 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) / VAL(Grid.Cell(rowgridoffset + 3 , l)))
                Gridtmp.Cell(rowgridoffset + 4 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 4 , k)) / VAL(Grid.Cell(rowgridoffset + 4 , l)))
                Gridtmp.Cell(rowgridoffset + 5 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 5 , k)) / VAL(Grid.Cell(rowgridoffset + 5 , l)))
                Gridtmp.Cell(rowgridoffset + 6 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 6 , k)) / VAL(Grid.Cell(rowgridoffset + 6 , l)))
                Gridtmp.Cell(rowgridoffset + 7 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 7 , k)) - VAL(Grid.Cell(rowgridoffset + 7 , l)))
            END IF
        NEXT l
        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
    NEXT k

    chartbarstmp(displayedfile) = incr
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    FOR i = multiplylist.ItemIndex TO mixgridcolcount3(displayedfile) - 1
        mixgrid3.Cell(i , displayedfile) = mixgrid3.Cell(i + 1 , displayedfile)
    NEXT i
    mixgridcolcount3(displayedfile) = mixgridcolcount3(displayedfile) - 1
    tfmultm_click
    mixerform
END SUB


SUB importfiledivide()
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM OpenDialog AS QOPENDIALOG
    IF OpenDialog.Execute THEN
        mixgrid4.Cell(mixgridcolcount4(displayedfile) , displayedfile) = OpenDialog.FileName
        mixgridcolcount4(displayedfile) = mixgridcolcount4(displayedfile) + 1
    END IF
    IF FILEEXISTS(OpenDialog.FileName) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF
    DIM file AS QFILESTREAM
    file.open(OpenDialog.FileName , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL file.eof
    file.close

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    FOR k = 1 TO chartbars(displayedfile)
        FOR l = m TO j
            IF (Gridtmp.Cell(rowgridoffset + 1 , k) = Grid.Cell(rowgridoffset + 1 , l)) AND (Gridtmp.Cell(rowgridoffset + 2 , k) = Grid.Cell(rowgridoffset + 2 , l)) THEN
                incr ++
                m = l + 1
                Gridtmp.Cell(rowgridoffset + 1 , incr) = Gridtmp.Cell(rowgridoffset + 1 , k)
                Gridtmp.Cell(rowgridoffset + 2 , incr) = Gridtmp.Cell(rowgridoffset + 2 , k)
                Gridtmp.Cell(rowgridoffset + 3 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) / VAL(Grid.Cell(rowgridoffset + 3 , l)))
                Gridtmp.Cell(rowgridoffset + 4 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 4 , k)) / VAL(Grid.Cell(rowgridoffset + 4 , l)))
                Gridtmp.Cell(rowgridoffset + 5 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 5 , k)) / VAL(Grid.Cell(rowgridoffset + 5 , l)))
                Gridtmp.Cell(rowgridoffset + 6 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 6 , k)) / VAL(Grid.Cell(rowgridoffset + 6 , l)))
                Gridtmp.Cell(rowgridoffset + 7 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 7 , k)) + VAL(Grid.Cell(rowgridoffset + 7 , l)))
            END IF
        NEXT l
        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
    NEXT k

    chartbarstmp(displayedfile) = incr
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    tfmultm_click
    mixerform
END SUB

SUB importfiledividedel()
    'if additionlist.itemindex=0 then
    'showmessage "Main chart can't be removed from here."
    'exit sub
    'end if
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM file AS QFILESTREAM
    file.open(dividelist.Item(dividelist.ItemIndex) , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL file.eof
    file.close

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    FOR k = 1 TO chartbars(displayedfile)
        FOR l = m TO j
            IF (Gridtmp.Cell(rowgridoffset + 1 , k) = Grid.Cell(rowgridoffset + 1 , l)) AND (Gridtmp.Cell(rowgridoffset + 2 , k) = Grid.Cell(rowgridoffset + 2 , l)) THEN
                incr ++
                m = l + 1
                Gridtmp.Cell(rowgridoffset + 1 , incr) = Gridtmp.Cell(rowgridoffset + 1 , k)
                Gridtmp.Cell(rowgridoffset + 2 , incr) = Gridtmp.Cell(rowgridoffset + 2 , k)
                Gridtmp.Cell(rowgridoffset + 3 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) * VAL(Grid.Cell(rowgridoffset + 3 , l)))
                Gridtmp.Cell(rowgridoffset + 4 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 4 , k)) * VAL(Grid.Cell(rowgridoffset + 4 , l)))
                Gridtmp.Cell(rowgridoffset + 5 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 5 , k)) * VAL(Grid.Cell(rowgridoffset + 5 , l)))
                Gridtmp.Cell(rowgridoffset + 6 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 6 , k)) * VAL(Grid.Cell(rowgridoffset + 6 , l)))
                Gridtmp.Cell(rowgridoffset + 7 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 7 , k)) - VAL(Grid.Cell(rowgridoffset + 7 , l)))
            END IF
        NEXT l
        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
    NEXT k

    chartbarstmp(displayedfile) = incr
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    FOR i = dividelist.ItemIndex TO mixgridcolcount4(displayedfile) - 1
        mixgrid4.Cell(i , displayedfile) = mixgrid4.Cell(i + 1 , displayedfile)
    NEXT i
    mixgridcolcount4(displayedfile) = mixgridcolcount4(displayedfile) - 1
    tfmultm_click
    mixerform
END SUB

SUB chartconvsub
    chartconvform.Visible = 1
END SUB

sub attribtf
    attribtfform.visible=1
end sub

SUB otheropssub
    otheropsform.Visible = 1
END SUB

SUB reversebarscomputesub
    DIM i AS INTEGER , j AS INTEGER

    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0
    DIM freq AS INTEGER
    freq = 0
    DIM freqfact AS DOUBLE
    DIM kbarlow AS DOUBLE , kbarlowprev AS DOUBLE
    DIM kbarhigh AS DOUBLE , kbarhighprev AS DOUBLE
    DIM kbaropen AS DOUBLE , kbaropenprev AS DOUBLE
    DIM kbarclose AS DOUBLE , kbarcloseprev AS DOUBLE
    DIM distcloseopen AS DOUBLE , distclosehigh AS DOUBLE , distcloselow AS DOUBLE


    FOR k = VAL(barnbbeginedit.Text) TO chartbars(displayedfile)

        freq ++
        IF freq > VAL(reversebarsdenominatoredit.Text) THEN
            freq = 1
        END IF
        IF freq = 1 THEN  'freq<=val(reversebarsnumeratoredit.text) then
            reversebarscomputesubb(k)
            refreshgrids

        END IF
        IF freq = VAL(reversebarsnumeratoredit.Text) + 1 THEN  'freq<=val(reversebarsnumeratoredit.text) then
            reversebarscomputesubb(k)
            refreshgrids
        END IF

    NEXT k


END SUB

SUB showfrmlogreverse
    frmlogreverse.Visible = 1
END SUB

SUB findbarfromfile(fbffdate AS STRING , fbfftime AS STRING)

    DIM caldatey AS STRING
    DIM caldatem AS STRING
    DIM caldated AS STRING
    DIM caldate AS STRING
    DIM i AS INTEGER

    'caldate=caldatey+"."+caldatem+"."+caldated

    FOR i = 1 TO chartbars(displayedfile)
        IF like(Grid.Cell(rowgridoffset + 1 , i) , fbffdate) AND like(Grid.Cell(rowgridoffset + 2 , i) , fbfftime) THEN
            'Scrollchart.Position=i+numbars-1
            clickedbarnb = i - chartstart
            graphbarnboncurstatic = clickedbarnb + chartstart
            'justrefreshchart
            EXIT FOR
        END IF
    NEXT i

END SUB

SUB reversetillendfromfile


    DIM getline$ AS STRING

    DIM OpenDialog AS QOPENDIALOG
    OpenDialog.InitialDir = homepath
    IF OpenDialog.Execute THEN

    END IF
    IF FILEEXISTS(OpenDialog.FileName) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF

    DIM file AS QFILESTREAM
    file.open(OpenDialog.FileName , 0)

    DEFINT j = 0
    DIM revdate AS STRING
    DIM revtime AS STRING


    DO

        j ++

        getline$ = file.ReadLine

        IF INSTR(getline$ , "Reverse") > 0 THEN
            revdate = MID$(MID$(getline$ , INSTR(getline$ , "From Date: ")) , 12 , INSTR(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , " ") - 1)
            revtime = MID$(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , INSTR(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , " ") + 1 , 5)
            findbarfromfile(revdate , revtime)
            reversetillendnorefresh
        END IF

    LOOP UNTIL file.eof
    file.close
    cpptmpfuncreturn=varptr$(refreshgridscpp())
    'refreshgrids  
    refreshgrids2    
END SUB

SUB reversetillend
    DIM i AS INTEGER , j AS INTEGER

    'numbars = VAL(barsdisplayed.Text)

    'DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    'm = 1
    'incr = 0
    'DIM freq AS INTEGER
    'freq = 0
    'DIM freqfact AS DOUBLE
    'DIM kbarlow AS DOUBLE , kbarlowprev AS DOUBLE
    'DIM kbarhigh AS DOUBLE , kbarhighprev AS DOUBLE
    'DIM kbaropen AS DOUBLE , kbaropenprev AS DOUBLE
    'DIM kbarclose AS DOUBLE , kbarcloseprev AS DOUBLE
    'DIM distcloseopen AS DOUBLE , distclosehigh AS DOUBLE , distcloselow AS DOUBLE
    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Reverse " + importedfile(displayedfile) + " " + "From Date: " + Grid.Cell(rowgridoffset + 1 , clickedbarnb + chartstart) + " " + Grid.Cell(rowgridoffset + 2 , clickedbarnb + chartstart) + " till end" + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Reverse " + importedfile(displayedfile) + " " + "From Date: " + Grid.Cell(rowgridoffset + 1 , clickedbarnb + chartstart) + " " + Grid.Cell(rowgridoffset + 2 , clickedbarnb + chartstart) + " till end")
    'reversebarscomputesubb(graphbarnboncurstatic)
    graphbarnboncurstaticstr=str$(graphbarnboncurstatic)
    cpptmpfuncreturn=varptr$(reversebarscomputesubbcpp(varptr(graphbarnboncurstaticstr)))
    cpptmpfuncreturn=varptr$(refreshgridscpp())
    'refreshgrids
    refreshgrids2  
END SUB

SUB deleteafter

showmessage "not implemented yet"
exit sub

    DIM i AS INTEGER , j AS INTEGER

   
    graphbarnboncurstaticstr=str$(graphbarnboncurstatic)
    cpptmpfuncreturn=varptr$(reversebarscomputesubbcpp(varptr(graphbarnboncurstaticstr)))
    cpptmpfuncreturn=varptr$(refreshgridscpp())

    refreshgrids2  
END SUB

SUB reversetillendnorefresh
    DIM i AS INTEGER , j AS INTEGER

    'numbars = VAL(barsdisplayed.Text)

    'DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    'm = 1
    'incr = 0
    'DIM freq AS INTEGER
    'freq = 0
    'DIM freqfact AS DOUBLE
    'DIM kbarlow AS DOUBLE , kbarlowprev AS DOUBLE
    'DIM kbarhigh AS DOUBLE , kbarhighprev AS DOUBLE
    'DIM kbaropen AS DOUBLE , kbaropenprev AS DOUBLE
    'DIM kbarclose AS DOUBLE , kbarcloseprev AS DOUBLE
    'DIM distcloseopen AS DOUBLE , distclosehigh AS DOUBLE , distcloselow AS DOUBLE
    logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Reverse " + importedfile(displayedfile) + " " + "From Date: " + Grid.Cell(rowgridoffset + 1 , clickedbarnb + chartstart) + " " + Grid.Cell(rowgridoffset + 2 , clickedbarnb + chartstart) + " till end" + CHR$(10)
    writetolog(DATE$ + " " + TIME$ + " " + "Reverse " + importedfile(displayedfile) + " " + "From Date: " + Grid.Cell(rowgridoffset + 1 , clickedbarnb + chartstart) + " " + Grid.Cell(rowgridoffset + 2 , clickedbarnb + chartstart) + " till end")
    'reversebarscomputesubb(graphbarnboncurstatic)
    graphbarnboncurstaticstr=str$(graphbarnboncurstatic)
    cpptmpfuncreturn=varptr$(reversebarscomputesubbcpp(varptr(graphbarnboncurstaticstr)))
    'refreshgrids
    tmpreverse(reversecount) = DATE$ + " " + TIME$ + " " + "Reverse " + importedfile(displayedfile) + " " + "From Date: " + Grid.Cell(rowgridoffset + 1 , clickedbarnb + chartstart) + " " + Grid.Cell(rowgridoffset + 2 , clickedbarnb + chartstart) + " till end"
    reversecount ++
END SUB

SUB reversebarscomputesubb(referencialk AS INTEGER)

    DIM i AS INTEGER , j AS INTEGER


    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    DIM kbarlow AS DOUBLE , kbarlowprev AS DOUBLE
    DIM kbarhigh AS DOUBLE , kbarhighprev AS DOUBLE
    DIM kbaropen AS DOUBLE , kbaropenprev AS DOUBLE
    DIM kbarclose AS DOUBLE , kbarcloseprev AS DOUBLE
    DIM distcloseopen AS DOUBLE , distclosehigh AS DOUBLE , distcloselow AS DOUBLE
    DIM distopenclose AS DOUBLE , distopenhigh AS DOUBLE , distopenlow AS DOUBLE


    FOR k = referencialk TO chartbars(displayedfile)


        kbarlow = VAL(Gridtmp.Cell(rowgridoffset + 5 , k))
        kbarhigh = VAL(Gridtmp.Cell(rowgridoffset + 4 , k))
        kbaropen = VAL(Gridtmp.Cell(rowgridoffset + 3 , k))
        kbarlowprev = VAL(Gridtmp.Cell(rowgridoffset + 5 , referencialk - 1))
        kbarhighprev = VAL(Gridtmp.Cell(rowgridoffset + 4 , referencialk - 1))
        kbaropenprev = VAL(Gridtmp.Cell(rowgridoffset + 3 , referencialk - 1))
        kbarclose = VAL(Gridtmp.Cell(rowgridoffset + 6 , k))
        kbarcloseprev = VAL(Gridtmp.Cell(rowgridoffset + 6 , referencialk - 1))

        'if kbaropen>kbarclose then
        'distcloseopen=-1*(kbaropen-kbarclose)
        'end if
        'if kbaropen<kbarclose then
        'distcloseopen=kbarclose-kbaropen
        'end if

        IF kbaropen >= kbarclose THEN
            distopenclose = kbaropen - kbarclose
        END IF
        IF kbaropen < kbarclose THEN
            distopenclose = - 1 * (kbarclose - kbaropen)
        END IF

        'if kbarhigh>kbarclose then
        'distclosehigh=-1*(kbarhigh-kbarclose)
        'end if
        'if kbarhigh<kbarclose then
        'distclosehigh=kbarclose-kbarhigh
        'end if

        IF kbarhigh >= kbaropen THEN
            distopenhigh = - 1 * (kbarhigh - kbaropen)
        END IF
        IF kbarhigh < kbaropen THEN
            distopenhigh = kbaropen - kbarhigh
        END IF

        'if kbarlow>kbarclose then
        'distcloselow=-1*(kbarlow-kbarclose)
        'end if
        'if kbarlow<kbarclose then
        'distcloselow=kbarclose-kbarlow
        'end if

        IF kbarlow > kbaropen THEN
            distopenlow = - 1 * (kbarlow - kbaropen)
        END IF
        IF kbarlow <= kbaropen THEN
            distopenlow = kbaropen - kbarlow
        END IF

        'if kbarclose>kbarcloseprev then
        'gridtmp.cell(rowgridoffset+6,k)=str$(kbarcloseprev-(kbarclose-kbarcloseprev))
        'end if
        'if kbarclose<kbarcloseprev then
        'gridtmp.cell(rowgridoffset+6,k)=str$(kbarcloseprev+(kbarcloseprev-kbarclose))
        'end if

        IF kbaropen > kbarcloseprev THEN
            Gridtmp.Cell(rowgridoffset + 3 , k) = STR$(kbarcloseprev - (kbaropen - kbarcloseprev))
        END IF
        IF kbaropen < kbarcloseprev THEN
            Gridtmp.Cell(rowgridoffset + 3 , k) = STR$(kbarcloseprev + (kbarcloseprev - kbaropen))
        END IF

        'gridtmp.cell(rowgridoffset+3,k)=str$(val(gridtmp.cell(rowgridoffset+6,k))+distcloseopen)
        Gridtmp.Cell(rowgridoffset + 6 , k) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) + distopenclose)
        'gridtmp.cell(rowgridoffset+4,k)=str$(val(gridtmp.cell(rowgridoffset+6,k))+distcloselow)
        Gridtmp.Cell(rowgridoffset + 4 , k) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) + distopenlow)
        'gridtmp.cell(rowgridoffset+5,k)=str$(val(gridtmp.cell(rowgridoffset+6,k))+distclosehigh)
        Gridtmp.Cell(rowgridoffset + 5 , k) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) + distopenhigh)


        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
        writealive
    NEXT k


    chartbarstmp(displayedfile) = chartbars(displayedfile)
    'chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    'tfmultm_click
    'mixerform

END SUB


SUB importfileaddition()
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM OpenDialog AS QOPENDIALOG
    IF OpenDialog.Execute THEN
        mixgrid.Cell(mixgridcolcount(displayedfile) , displayedfile) = OpenDialog.FileName
        mixgridcolcount(displayedfile) = mixgridcolcount(displayedfile) + 1
    END IF
    IF FILEEXISTS(OpenDialog.FileName) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF
    DIM file AS QFILESTREAM
    file.open(OpenDialog.FileName , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL file.eof
    file.close

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    FOR k = 1 TO chartbars(displayedfile)
        FOR l = m TO j
            IF (Gridtmp.Cell(rowgridoffset + 1 , k) = Grid.Cell(rowgridoffset + 1 , l)) AND (Gridtmp.Cell(rowgridoffset + 2 , k) = Grid.Cell(rowgridoffset + 2 , l)) THEN
                incr ++
                m = l + 1
                Gridtmp.Cell(rowgridoffset + 1 , incr) = Gridtmp.Cell(rowgridoffset + 1 , k)
                Gridtmp.Cell(rowgridoffset + 2 , incr) = Gridtmp.Cell(rowgridoffset + 2 , k)
                Gridtmp.Cell(rowgridoffset + 3 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) + VAL(Grid.Cell(rowgridoffset + 3 , l)))
                Gridtmp.Cell(rowgridoffset + 4 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 4 , k)) + VAL(Grid.Cell(rowgridoffset + 4 , l)))
                Gridtmp.Cell(rowgridoffset + 5 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 5 , k)) + VAL(Grid.Cell(rowgridoffset + 5 , l)))
                Gridtmp.Cell(rowgridoffset + 6 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 6 , k)) + VAL(Grid.Cell(rowgridoffset + 6 , l)))
                Gridtmp.Cell(rowgridoffset + 7 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 7 , k)) + VAL(Grid.Cell(rowgridoffset + 7 , l)))
            END IF
        NEXT l
        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
    NEXT k

    chartbarstmp(displayedfile) = incr
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    tfmultm_click
    mixerform
END SUB


SUB importfileadditiondel()
    IF additionlist.ItemIndex = 0 THEN
        SHOWMESSAGE "Main chart can't be removed from here."
        EXIT SUB
    END IF
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM file AS QFILESTREAM
    file.open(additionlist.Item(additionlist.ItemIndex) , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL file.eof
    file.close

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    FOR k = 1 TO chartbars(displayedfile)
        FOR l = m TO j
            IF (Gridtmp.Cell(rowgridoffset + 1 , k) = Grid.Cell(rowgridoffset + 1 , l)) AND (Gridtmp.Cell(rowgridoffset + 2 , k) = Grid.Cell(rowgridoffset + 2 , l)) THEN
                incr ++
                m = l + 1
                Gridtmp.Cell(rowgridoffset + 1 , incr) = Gridtmp.Cell(rowgridoffset + 1 , k)
                Gridtmp.Cell(rowgridoffset + 2 , incr) = Gridtmp.Cell(rowgridoffset + 2 , k)
                Gridtmp.Cell(rowgridoffset + 3 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) - VAL(Grid.Cell(rowgridoffset + 3 , l)))
                Gridtmp.Cell(rowgridoffset + 4 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 4 , k)) - VAL(Grid.Cell(rowgridoffset + 4 , l)))
                Gridtmp.Cell(rowgridoffset + 5 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 5 , k)) - VAL(Grid.Cell(rowgridoffset + 5 , l)))
                Gridtmp.Cell(rowgridoffset + 6 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 6 , k)) - VAL(Grid.Cell(rowgridoffset + 6 , l)))
                Gridtmp.Cell(rowgridoffset + 7 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 7 , k)) - VAL(Grid.Cell(rowgridoffset + 7 , l)))
            END IF
        NEXT l
        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
    NEXT k

    chartbarstmp(displayedfile) = incr
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    FOR i = additionlist.ItemIndex TO mixgridcolcount(displayedfile) - 1
        mixgrid.Cell(i , displayedfile) = mixgrid.Cell(i + 1 , displayedfile)
    NEXT i
    mixgridcolcount(displayedfile) = mixgridcolcount(displayedfile) - 1
    tfmultm_click
    mixerform
END SUB

SUB importfilesubtraction()
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM OpenDialog AS QOPENDIALOG
    IF OpenDialog.Execute THEN
        mixgrid2.Cell(mixgridcolcount2(displayedfile) , displayedfile) = OpenDialog.FileName
        mixgridcolcount2(displayedfile) = mixgridcolcount2(displayedfile) + 1
    END IF
    IF FILEEXISTS(OpenDialog.FileName) = FALSE THEN
        PRINT " file not found "
        EXIT SUB
    END IF
    DIM file AS QFILESTREAM
    file.open(OpenDialog.FileName , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open  'open
        Grid.Cell(rowgridoffset + 4 , j) = high  'high
        Grid.Cell(rowgridoffset + 5 , j) = low  'low
        Grid.Cell(rowgridoffset + 6 , j) = close  'close
        Grid.Cell(rowgridoffset + 7 , j) = vol  'vol

    LOOP UNTIL file.eof
    file.close

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    FOR k = 1 TO chartbars(displayedfile)
        FOR l = m TO j
            IF (Gridtmp.Cell(rowgridoffset + 1 , k) = Grid.Cell(rowgridoffset + 1 , l)) AND (Gridtmp.Cell(rowgridoffset + 2 , k) = Grid.Cell(rowgridoffset + 2 , l)) THEN
                incr ++
                m = l + 1
                Gridtmp.Cell(rowgridoffset + 1 , incr) = Gridtmp.Cell(rowgridoffset + 1 , k)
                Gridtmp.Cell(rowgridoffset + 2 , incr) = Gridtmp.Cell(rowgridoffset + 2 , k)
                Gridtmp.Cell(rowgridoffset + 3 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) - VAL(Grid.Cell(rowgridoffset + 3 , l)))
                Gridtmp.Cell(rowgridoffset + 4 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 4 , k)) - VAL(Grid.Cell(rowgridoffset + 4 , l)))
                Gridtmp.Cell(rowgridoffset + 5 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 5 , k)) - VAL(Grid.Cell(rowgridoffset + 5 , l)))
                Gridtmp.Cell(rowgridoffset + 6 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 6 , k)) - VAL(Grid.Cell(rowgridoffset + 6 , l)))
                Gridtmp.Cell(rowgridoffset + 7 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 7 , k)) + VAL(Grid.Cell(rowgridoffset + 7 , l)))
            END IF
        NEXT l
        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
    NEXT k

    chartbarstmp(displayedfile) = incr
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    tfmultm_click
    mixerform
END SUB

SUB importfilesubtractiondel()
    DIM date AS STRING , time AS STRING
    DIM open AS STRING , high AS STRING , low AS STRING , close AS STRING , vol AS STRING
    DIM datepos AS INTEGER
    DIM timepos AS INTEGER
    DIM openpos AS INTEGER
    DIM highpos AS INTEGER
    DIM lowpos AS INTEGER
    DIM closepos AS INTEGER
    DIM volpos AS INTEGER
    DIM separator AS STRING
    DIM commapos AS INTEGER
    DIM i AS INTEGER , j AS INTEGER
    DIM getline$ AS STRING

    datepos = VAL(form2Edit1.Text)
    timepos = VAL(form2Edit2.Text)
    openpos = VAL(form2Edit3.Text)
    highpos = VAL(form2Edit4.Text)
    lowpos = VAL(form2Edit5.Text)
    closepos = VAL(form2Edit6.Text)
    volpos = VAL(form2Edit7.Text)
    separator = VAL(form2Edit8.Text)
    numbars = VAL(barsdisplayed.Text)
    defstr numbarsstr=str$(numbars):cpptmpfuncreturn=varptr$(setnumbars(varptr(numbarsstr)))

    DIM file AS QFILESTREAM
    file.open(subtractionlist.Item(subtractionlist.ItemIndex) , 0)

    j = 0

    DO

        j ++

        getline$ = file.ReadLine

        commapos = 0
        FOR i = 1 TO datepos - 1
            IF datepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        date = MID$(getline$ , commapos + 1 , LEN(getline$))
        date = MID$(date , 0 , INSTR(0 , date , separator) - 1)

        commapos = 0
        FOR i = 1 TO timepos - 1
            IF timepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        time = MID$(getline$ , commapos + 1 , LEN(getline$))
        time = MID$(time , 0 , INSTR(0 , time , separator) - 1)

        commapos = 0
        FOR i = 1 TO openpos - 1
            IF openpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        open = MID$(getline$ , commapos + 1 , LEN(getline$))
        open = MID$(open , 0 , INSTR(0 , open , separator) - 1)

        commapos = 0
        FOR i = 1 TO highpos - 1
            IF highpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        high = MID$(getline$ , commapos + 1 , LEN(getline$))
        high = MID$(high , 0 , INSTR(0 , high , separator) - 1)

        commapos = 0
        FOR i = 1 TO lowpos - 1
            IF lowpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        low = MID$(getline$ , commapos + 1 , LEN(getline$))
        low = MID$(low , 0 , INSTR(0 , low , separator) - 1)

        commapos = 0
        FOR i = 1 TO closepos - 1
            IF closepos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        close = MID$(getline$ , commapos + 1 , LEN(getline$))
        close = MID$(close , 0 , INSTR(0 , close , separator) - 1)

        commapos = 0
        FOR i = 1 TO volpos - 1
            IF volpos = 1 THEN
                EXIT FOR
            END IF
            commapos = INSTR(commapos + 1 , getline$ , separator)
        NEXT i
        vol = MID$(getline$ , commapos + 1 , LEN(getline$))
        vol = MID$(vol , 0 , LEN(vol))

        Grid.Cell(rowgridoffset + 1 , j) = date
        Grid.Cell(rowgridoffset + 2 , j) = time
        Grid.Cell(rowgridoffset + 3 , j) = open
        Grid.Cell(rowgridoffset + 4 , j) = high
        Grid.Cell(rowgridoffset + 5 , j) = low
        Grid.Cell(rowgridoffset + 6 , j) = close
        Grid.Cell(rowgridoffset + 7 , j) = vol

    LOOP UNTIL file.eof
    file.close

    DIM k AS INTEGER , l AS INTEGER , m AS INTEGER , incr AS INTEGER
    m = 1
    incr = 0

    FOR k = 1 TO chartbars(displayedfile)
        FOR l = m TO j
            IF (Gridtmp.Cell(rowgridoffset + 1 , k) = Grid.Cell(rowgridoffset + 1 , l)) AND (Gridtmp.Cell(rowgridoffset + 2 , k) = Grid.Cell(rowgridoffset + 2 , l)) THEN
                incr ++
                m = l + 1
                Gridtmp.Cell(rowgridoffset + 1 , incr) = Gridtmp.Cell(rowgridoffset + 1 , k)
                Gridtmp.Cell(rowgridoffset + 2 , incr) = Gridtmp.Cell(rowgridoffset + 2 , k)
                Gridtmp.Cell(rowgridoffset + 3 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 3 , k)) + VAL(Grid.Cell(rowgridoffset + 3 , l)))
                Gridtmp.Cell(rowgridoffset + 4 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 4 , k)) + VAL(Grid.Cell(rowgridoffset + 4 , l)))
                Gridtmp.Cell(rowgridoffset + 5 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 5 , k)) + VAL(Grid.Cell(rowgridoffset + 5 , l)))
                Gridtmp.Cell(rowgridoffset + 6 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 6 , k)) + VAL(Grid.Cell(rowgridoffset + 6 , l)))
                Gridtmp.Cell(rowgridoffset + 7 , incr) = STR$(VAL(Gridtmp.Cell(rowgridoffset + 7 , k)) - VAL(Grid.Cell(rowgridoffset + 7 , l)))
            END IF
        NEXT l
        mixform.Caption = "Please wait while calculating... " + STR$(INT(100 / chartbars(displayedfile) * k)) + "% done"
    NEXT k

    chartbarstmp(displayedfile) = incr
    chartbarstmpdisplayedfilestr=str$(chartbarstmp(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbarstmp(varptr(chartbarstmpdisplayedfilestr),varptr(displayedfilestr)))

    FOR i = subtractionlist.ItemIndex TO mixgridcolcount2(displayedfile) - 1
        mixgrid2.Cell(i , displayedfile) = mixgrid2.Cell(i + 1 , displayedfile)
    NEXT i
    mixgridcolcount2(displayedfile) = mixgridcolcount2(displayedfile) - 1
    tfmultm_click
    mixerform
END SUB

SUB sepindiclicked
    IF trendlinebtn.Flat = 1 OR fibofanbtn.Flat = 1 OR fiboretbtn.Flat = 1 OR parabtn.Flat = 1 OR hlinebtn.Flat = 1 OR _
        vlinebtn.Flat = 1 OR sqrbtn.Flat = 1 OR tribtn.Flat = 1 OR circlebtn.Flat = 1 OR crossbtn.Flat = 1 OR invcirclebtn.Flat = 1 OR _
        textbtn.Flat = 1 OR aimingbtn.Flat = 1 OR handdbtn.Flat = 1 OR sinbtn.Flat = 1 OR logbtn.Flat = 1 OR expbtn.Flat = 1 OR ellipsebtn.Flat = 1 OR _
        pitchforkbtn.Flat = 1 OR orcyclesbtn.Flat = 1 OR priceextbtn.Flat = 1 OR timeextbtn.Flat = 1 OR gridbtn.Flat = 1 OR speedresbtn.Flat = 1  OR _
        fiboarcsbtn.Flat = 1 OR seedoflifebtn.Flat = 1 OR sq9fbtn.Flat = 1 OR sq144fbtn.Flat = 1 OR pricecyclesbtn.Flat = 1 OR timecyclesbtn.Flat = 1 OR _
        logspiralbtn.flat = 1 OR pentagbtn.flat=1 OR polygbtn.flat=1 OR sqr2btn.flat=1 OR tri2btn.flat=1 OR conicbtn.flat=1 OR ellipse3btn.Flat = 1 OR _
        circlegiven3pointsbtn.flat=1 OR primebtn.flat=1 or fibocirclesbtn.flat=1 OR vectortextbtn.Flat = 1 OR timerulerbtn.Flat = 1 OR _
        pricerulerbtn.Flat = 1 OR speedresarcsbtn.Flat = 1 OR schiffpitchforkbtn.Flat = 1 OR gannfanbtn.Flat = 1 THEN
        IF sepindiclick = 0 THEN
	    sepindicursorpos2
            sepindiclick = 1
            WITH canvas
                .bufcntreset
                .savebuffertmp
            END WITH

            DIM XVAL AS double , YVAL AS INTEGER
            'GetCursorPos(NPOS)
            'XVAL=NPOS.xpos
            'YVAL=NPOS.ypos
            'xval=xval-frmmain.left-canvas.left-4-mouseexcentricityx
            'yval=yval-frmmain.top-canvas.top-42-mouseexcentricityy
            XVAL = relativecordsepindix
            YVAL = relativecordsepindiy
	    firstclicksepindi=1
            firstclicksepindix = XVAL
            firstclicksepindiy = YVAL
	    firstclicksepindiprice = sepgraphpriceoncur
            IF textbtn.Flat = 1 THEN
                enterdrawtxt
            END IF
            IF vectortextbtn.Flat = 1 THEN
                enterdrawvectortxt
            END IF
            IF primebtn.Flat = 1 THEN
                calculateprimesub
            END IF
            IF (aimingbtn.Flat = 1 AND graphclick = 0) THEN
                graphmousedown(0, xval+(canvas.left-graph.left) , (canvas.top-graph.top)+yval) 'button 0=left click, but 1=right click, but 2=mouse wheel click
                graphcursorpos(xval+(canvas.left-graph.left) , (canvas.top-graph.top)+yval)
                graphclicked
            END IF	
	    if conicpointclicknb<6 and conicbtn.Flat = 1 then
                conicpointclicknb++
                conicpointsx(conicpointclicknb)=firstclicksepindix
                conicpointsy(conicpointclicknb)=firstclicksepindiy
                'Graph.savebuffertmpsimplez
                sepindicursorpos2 
                'graphclicktimer.Enabled = 1
                detpos2
                
                'XVAL = mousemovegraphx
                'YVAL = mousemovegraphy
                secondclicksepindix = mousemovesepindix
                secondclicksepindiy = mousemovesepindiy  
                sepindiclick = 0                                                                         

                'graphclicktimer.Enabled = 0
                firstclicksepindi = 0  
                EXIT SUB    
                
            end if  
        if circlegiven3pointsclicknb<4 and circlegiven3pointsbtn.Flat = 1 then
                circlegiven3pointsclicknb++
                circlegiven3pointsx(circlegiven3pointsclicknb)=firstclicksepindix
                circlegiven3pointsy(circlegiven3pointsclicknb)=firstclicksepindiy
                'Graph.savebuffertmpsimplez
                sepindicursorpos2 
                'graphclicktimer.Enabled = 1
                detpos2
                
                'XVAL = mousemovegraphx
                'YVAL = mousemovegraphy
                secondclicksepindix = mousemovesepindix
                secondclicksepindiy = mousemovesepindiy  
                sepindiclick = 0                                                                         

                'graphclicktimer.Enabled = 0
                firstclicksepindi = 0  
                EXIT SUB    
                
            end if      
            sepindiclicktimer.Enabled = 1
            EXIT SUB
        END IF
        IF sepindiclick = 1 THEN
            XVAL = mousemovesepindix
            YVAL = mousemovesepindiy
            secondclicksepindix = XVAL
            secondclicksepindiy = YVAL
            IF parabtn.Flat = 1 OR pitchforkbtn.Flat = 1 OR orcyclesbtn.Flat = 1 OR priceextbtn.Flat = 1 OR timeextbtn.Flat = 1 OR _
            schiffpitchforkbtn.Flat = 1 THEN
                'GetCursorPos(NPOS)
                'XVAL=NPOS.xpos
                'YVAL=NPOS.ypos
                'xval=xval-frmmain.left-canvas.left-4
                'yval=yval-frmmain.top-canvas.top-42                
                canvas.savebuffertmpsimplez
                sepindiclick = 2
                EXIT SUB
            END IF
            IF aimingbtn.Flat = 1 THEN
                graphclick = 0
                graphclicktimer.Enabled = 0
            END IF
            sepindiclick = 0
            sepindiclicktimer.Enabled = 0
            EXIT SUB
        END IF
        IF sepindiclick = 2 THEN
            sepindiclick = 0
            sepindiclicktimer.Enabled = 0
            EXIT SUB
        END IF
    END IF
END SUB

SUB enterdrawtxt
    DIM inputtxt AS qinputbox
    drawtxt = inputtxt.INPUT("Enter your text:")
    say drawtxt
END SUB

SUB enterdrawvectortxt
    DIM inputvectortxt AS qinputbox
    drawvectortxt = inputvectortxt.INPUT("Enter your text:")
    say drawvectortxt
END SUB


SUB graphmousedown(Button AS INTEGER , x AS INTEGER , y AS INTEGER)

    relativecordx = x
    relativecordy = y
    mousediffx=screen.mousex-relativecordx
    mousediffy=screen.mousey-relativecordy
    IF Button = 2 THEN
        IF graphclick = 0 THEN
            aimingbtn.Flat = 0
            aimingbtnclick
            graphclicked
            EXIT SUB
        END IF
        IF graphclick > 0 THEN
            IF aimingbtn.Flat = 1 THEN
                sepindiclick = 0
                sepindiclicktimer.Enabled = 0
            END IF	    
            graphclick = 0
            graphclicktimer.Enabled = 0
            firstclickgraph = 0
            aimingbtnclick
        END IF

        WITH Graph
            .restorebuffertmpz
        END WITH


        Graph.savebuffertmpsimple
        Graph.paintchart
                
        WITH canvas
            .restorebuffertmpz
        END WITH
        
        canvas.savebuffertmpsimple
        if showcanvas = 1 then
        canvas.paint
        end if

    END IF
    IF Button = 1 THEN

        IF cursorbtn.Flat = 1 THEN
            IF graphclick = 0 THEN
                graphcursorpos2
                graphbarnboncurstatic = graphbarnboncur
                DIM mousxval AS double , mousyval AS INTEGER
                mousxval = xvalgcp2
                mousyval = yvalgcp2
                DIM i AS INTEGER
                DIM ycurbtn AS INTEGER
                DIM prcurbtnplus AS DOUBLE
                DIM prcurbtnminus AS DOUBLE
                DIM clickedonobj AS INTEGER
                clickedonobj = 0
                ycurbtn = (pricechartpos(1,0) - graphpriceoncur) / (pricechartpos(1,0)-pricechartpos(0,0)) * (pricechartpos(0,1)-pricechartpos(1,1)) + pricechartpos(1,1)
                prcurbtnplus = pricechartpos(1,0) - (ycurbtn + 5 - pricechartpos(1,1)) / (pricechartpos(0,1)-pricechartpos(1,1)) * (pricechartpos(1,0)-pricechartpos(0,0))
                prcurbtnminus = pricechartpos(1,0) - (ycurbtn - 5 - pricechartpos(1,1)) / (pricechartpos(0,1)-pricechartpos(1,1)) * (pricechartpos(1,0)-pricechartpos(0,0))
                for i=0 to 1000
                if graphserialdateoncur=timechartpos(i,0) then
                exit for
                end if
                next i
                defint gsdtp=round((timechartpos(i+1,0)-timechartpos(i,0))/2)
                defint gsdtm=round((timechartpos(i,0)-timechartpos(i-1,0))/2)
                defint timepixelinterval=timechartpos(1,1)-timechartpos(0,1)
                FOR i = 1 TO trendlinesdb.RowCount
                    IF (VAL(trendlinesdb.Cell(1 , i)) <= prcurbtnminus AND _
                        VAL(trendlinesdb.Cell(1 , i)) >= prcurbtnplus AND _
                        VAL(trendlinesdb.Cell(3 , i)) <= graphserialdateoncur + gsdtp AND _
                        VAL(trendlinesdb.Cell(3 , i)) >= graphserialdateoncur - gsdtm) THEN
                        objectcursor.objtype = 1
                        objectcursor.offset = i
                        clickedonobj = 1
                        PopupMenu.Popup(xvalgcp2 , yvalgcp2)
                    END IF
                    IF (VAL(trendlinesdb.Cell(2 , i)) <= prcurbtnminus AND _
                        VAL(trendlinesdb.Cell(2 , i)) >= prcurbtnplus AND _
                        VAL(trendlinesdb.Cell(4 , i)) <= graphserialdateoncur + gsdtp AND _
                        VAL(trendlinesdb.Cell(4 , i)) >= graphserialdateoncur - gsdtm) THEN
                        objectcursor.objtype = 1
                        objectcursor.offset = i
                        clickedonobj = 1
                        PopupMenu.Popup(xvalgcp2 , yvalgcp2)
                    END IF
                NEXT i
                FOR i = 1 TO sqr2db.RowCount
                    IF (VAL(sqr2db.Cell(2 , i)) <= prcurbtnminus AND _
                        VAL(sqr2db.Cell(2 , i)) >= prcurbtnplus AND _
                        VAL(sqr2db.Cell(4 , i)) <= graphserialdateoncur + gsdtp AND _
                        VAL(sqr2db.Cell(4 , i)) >= graphserialdateoncur - gsdtm) THEN
                        objectcursor.objtype = 2
                        objectcursor.offset = i
                        clickedonobj = 1
                        PopupMenu.Popup(xvalgcp2 , yvalgcp2)
                    END IF
                NEXT i
                FOR i = 1 TO tri2db.RowCount
                    IF (VAL(tri2db.Cell(2 , i)) <= prcurbtnminus AND _
                        VAL(tri2db.Cell(2 , i)) >= prcurbtnplus AND _
                        VAL(tri2db.Cell(4 , i)) <= graphserialdateoncur + gsdtp AND _
                        VAL(tri2db.Cell(4 , i)) >= graphserialdateoncur - gsdtm) THEN
                        objectcursor.objtype = 3
                        objectcursor.offset = i
                        clickedonobj = 1
                        PopupMenu.Popup(xvalgcp2 , yvalgcp2)
                    END IF
                NEXT i
            END IF
            IF clickedonobj = 0 and button=0 THEN
                'graphcursorpos2
                clickedbarnb = graphbarnboncurstatic - chartstart
                justrefreshchart
                popupmenubar.Popup(mousxval , mousyval)
            END IF
            EXIT SUB
        END IF


        IF graphclick > 0 THEN
            IF aimingbtn.Flat = 1 THEN
                sepindiclick = 0
                sepindiclicktimer.Enabled = 0
            END IF
            graphclick = 0
            graphclicktimer.Enabled = 0
            firstclickgraph = 0
        END IF

        WITH Graph
            .restorebuffertmpz
        END WITH

        'with canvas
        '.restorebuffertmpz
        'end with
        'graph.visible=0
        'graph.visible=1
        Graph.savebuffertmpsimple
        Graph.paintchart
        'canvas.savebuffertmpsimple
        'canvas.paint
        WITH canvas
            .restorebuffertmpz
        END WITH
        
        canvas.savebuffertmpsimple
        if showcanvas = 1 then
        canvas.paint
        end if
    END IF

END SUB

SUB sepindimousedown(Button AS INTEGER , x AS INTEGER , y AS INTEGER)
    relativecordsepindix = x
    relativecordsepindiy = y
    mousediffsepindix=screen.mousex-relativecordsepindix
    mousediffsepindiy=screen.mousey-relativecordsepindiy
    IF Button = 2 THEN
        IF sepindiclick = 0 THEN
            aimingbtn.Flat = 0
            aimingbtnclick
            sepindiclicked
            EXIT SUB
        END IF
        IF sepindiclick > 0 THEN
            IF aimingbtn.Flat = 1 THEN
                graphclick = 0
                graphclicktimer.Enabled = 0
                firstclickgraph = 0
            END IF
            sepindiclick = 0
            sepindiclicktimer.Enabled = 0
            'firstclicksepindi = 0
            aimingbtnclick
        END IF

        WITH canvas
            .restorebuffertmpz
        END WITH


        canvas.savebuffertmpsimple
        canvas.paint
        
        WITH Graph
            .restorebuffertmpz
        END WITH

        Graph.savebuffertmpsimple
        Graph.paintchart

    END IF
    IF Button = 1 THEN
        IF sepindiclick > 0 THEN
            IF aimingbtn.Flat = 1 THEN
                graphclick = 0
                graphclicktimer.Enabled = 0
                firstclickgraph = 0
            END IF
            sepindiclick = 0
            sepindiclicktimer.Enabled = 0
        END IF

        'with graph
        '.restorebuffertmpz
        'end with

        WITH canvas
            .restorebuffertmpz
        END WITH
        'graph.visible=0
        'graph.visible=1
        'graph.savebuffertmpsimple
        'graph.paintchart
        canvas.savebuffertmpsimple
        canvas.paint
        
        WITH Graph
            .restorebuffertmpz
        END WITH

        Graph.savebuffertmpsimple
        Graph.paintchart
    END IF

END SUB

SUB clearbtnclick

    IF graphclick > 0 THEN
        IF aimingbtn.Flat = 1 THEN
            sepindiclick = 0
            sepindiclicktimer.Enabled = 0
        END IF
        graphclick = 0
        graphclicktimer.Enabled = 0
        firstclickgraph = 0
    END IF
    IF sepindiclick > 0 THEN
        IF aimingbtn.Flat = 1 THEN
            graphclick = 0
            graphclicktimer.Enabled = 0
        END IF
        sepindiclick = 0
        sepindiclicktimer.Enabled = 0
        'firstclicksepindi=0
    END IF

    WITH Graph
        .restorefirstbuffertmpz
    END WITH
    WITH canvas
        .restorefirstbuffertmpz
    END WITH
    WITH Graph
        .firstbufcntreset
        .savebuffertmp
        .paintchart
    END WITH
    WITH canvas
        .firstbufcntreset
        .savebuffertmp
        .paint
    END WITH


END SUB

SUB graphclicked

    IF polybtn.Flat = 1 THEN

        DIM XVAL AS INTEGER , YVAL AS INTEGER
        'GetCursorPos(NPOS)
        'XVAL=NPOS.xpos
        'YVAL=NPOS.ypos
        'xval=xval-frmmain.left-graph.left-5-mouseexcentricityx
        'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
        XVAL = relativecordx
        YVAL = relativecordy
        'firstclickgraph=1
        'firstclickgraphx=xval
        'firstclickgraphy=yval
        'firstclickgraphprice=graphpriceoncur
        'firstclickgraphtime=graphserialdateoncur

        ptl(ipoly).Parent = frmMain
        ptl(ipoly).Color = &h0000ff
        ptl(ipoly).Width = 6
        ptl(ipoly).Height = 6
        ptl(ipoly).Left = XVAL + Graph.Left
        ptl(ipoly).Top = YVAL + Graph.Top

        ptl(ipoly).OnMouseDown = pdown
        ptl(ipoly).OnMouseUp = pup
        ptl(ipoly).OnMouseMove = pmove
        ptl(ipoly).Visible = 1
        ptl(ipoly).Enabled = 1
        pbez.x = XVAL + Graph.Left
        pbez.y = YVAL + Graph.Top
        ptl(ipoly).tag = curve.Position
        curve.writeudt pbez


        IF ipoly > 0 AND bezier? = 0 THEN
            btypes(ipoly + 1) = PT_LINETO
        ELSE

            btypes(ipoly + 1) = PT_BEZIERTO
        END IF


        ipoly ++
        IF btype = 1 THEN
            btypes(ipoly) = PT_MOVETO

        END IF
        btype = 0

        operations

    END IF

    IF trendlinebtn.Flat = 1 OR fibofanbtn.Flat = 1 OR fiboretbtn.Flat = 1 OR parabtn.Flat = 1 OR hlinebtn.Flat = 1 OR _
        vlinebtn.Flat = 1 OR sqrbtn.Flat = 1 OR tribtn.Flat = 1 OR circlebtn.Flat = 1 OR crossbtn.Flat = 1 OR invcirclebtn.Flat = 1 OR _
        textbtn.Flat = 1 OR aimingbtn.Flat = 1 OR handdbtn.Flat = 1 OR sinbtn.Flat = 1 OR logbtn.Flat = 1 OR expbtn.Flat = 1 OR ellipsebtn.Flat = 1 OR _
        pitchforkbtn.Flat = 1 OR priceextbtn.Flat = 1 OR sq9fbtn.Flat = 1 OR sq144fbtn.Flat = 1 OR timeextbtn.Flat = 1 OR tsq9fbtn.Flat = 1 _
        OR tsq144fbtn.Flat = 1 OR pricecyclesbtn.Flat = 1 OR timecyclesbtn.Flat = 1 OR logspiralbtn.Flat = 1 OR pentagbtn.Flat = 1 OR orcyclesbtn.Flat = 1 _
        OR polygbtn.flat=1 OR sqr2btn.Flat = 1 OR tri2btn.Flat OR conicbtn.Flat OR gridbtn.Flat OR speedresbtn.Flat OR fiboarcsbtn.Flat OR _
        seedoflifebtn.Flat OR gannsquarebtn.Flat OR fibospiralbtn.Flat OR archimedspiralbtn.Flat OR ellipse3btn.Flat = 1 OR _
        circlegiven3pointsbtn.Flat OR primebtn.flat OR fibotimezonesbtn.flat OR fibopricezonesbtn.flat OR fibocirclesbtn.flat OR vectortextbtn.Flat = 1 OR _
        timerulerbtn.Flat = 1 OR pricerulerbtn.Flat = 1 OR speedresarcsbtn.Flat OR schiffpitchforkbtn.Flat = 1 OR gannfanbtn.Flat = 1 THEN

        IF graphclick = 0 THEN
            graphcursorpos2
            graphclick = 1
            WITH Graph
                .bufcntreset
                .savebuffertmp
            END WITH

            'DIM XVAL AS integer, YVAL AS integer
            'GetCursorPos(NPOS)
            'XVAL=NPOS.xpos
            'YVAL=NPOS.ypos
            'nposrela.xpos=npos.xpos
            'nposrela.ypos=npos.ypos
            'ScreenToClient(frmmain.handle,nposrela)
            'xval=xval-frmmain.left-graph.left-5-mouseexcentricityx
            'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
            XVAL = relativecordx
            YVAL = relativecordy
            'xval=nposrela.xpos
            'yval=nposrela.ypos
            firstclickgraph = 1
            firstclickgraphx = XVAL
            firstclickgraphy = YVAL
            firstclickgraphprice = graphpriceoncur
            defint i
            for i=0 to 1000
            if firstclickgraphx>=timechartpos(i,1) and firstclickgraphx<=timechartpos(i+1,1) then
            defdbl mypixelratio=(xval-timechartpos(i,1))/(timechartpos(i+1,1)-timechartpos(i,1))
            firstclickgraphtime=round((timechartpos(i+1,0)-timechartpos(i,0))*mypixelratio)+timechartpos(i,0)
            exit for
            end if
            next i
            
            'if fibofansymetryfrompointradio.checked=1 and symetryfrompoint=0 then
            '    graphcursorpos2
            '    secondclickgraphx = mousemovegraphx
            '    secondclickgraphy = mousemovegraphy
                
            'end if
            
            if fibofansymetryfrompointradio.checked=1 and symetryfrompoint=1 and fibofanbtn.Flat = 1 then
                'Graph.savebuffertmpsimplez
                graphcursorpos2 
                'graphclicktimer.Enabled = 1
                detpos
                
                'XVAL = mousemovegraphx
                'YVAL = mousemovegraphy
                secondclickgraphx = mousemovegraphx
                secondclickgraphy = mousemovegraphy  
                lastpointofsymetryx=mousemovegraphx
                lastpointofsymetryy=mousemovegraphy
                graphclick = 0                                                                         
                symetryfrompoint=0
                'graphclicktimer.Enabled = 0
                firstclickgraph = 0  
                EXIT SUB    
                
            end if  
            
            if conicpointclicknb<6 and conicbtn.Flat = 1 then
                conicpointclicknb++
                conicpointsx(conicpointclicknb)=firstclickgraphx
                conicpointsy(conicpointclicknb)=firstclickgraphy
                'Graph.savebuffertmpsimplez
                graphcursorpos2 
                'graphclicktimer.Enabled = 1
                detpos
                
                'XVAL = mousemovegraphx
                'YVAL = mousemovegraphy
                secondclickgraphx = mousemovegraphx
                secondclickgraphy = mousemovegraphy  
                graphclick = 0                                                                         

                'graphclicktimer.Enabled = 0
                firstclickgraph = 0  
                EXIT SUB    
                
            end if    
            
            if circlegiven3pointsclicknb<4 and circlegiven3pointsbtn.Flat = 1 then
                circlegiven3pointsclicknb++
                circlegiven3pointsx(circlegiven3pointsclicknb)=firstclickgraphx
                circlegiven3pointsy(circlegiven3pointsclicknb)=firstclickgraphy
                'Graph.savebuffertmpsimplez
                graphcursorpos2 
                'graphclicktimer.Enabled = 1
                detpos
                
                'XVAL = mousemovegraphx
                'YVAL = mousemovegraphy
                secondclickgraphx = mousemovegraphx
                secondclickgraphy = mousemovegraphy  
                graphclick = 0                                                                         

                'graphclicktimer.Enabled = 0
                firstclickgraph = 0  
                EXIT SUB    
                
            end if                                        

            IF textbtn.Flat = 1 THEN
                enterdrawtxt
            END IF
            IF vectortextbtn.Flat = 1 THEN
                enterdrawvectortxt
            END IF
            IF primebtn.Flat = 1 THEN
                prime_x1=firstclickgraphx
                prime_y1=firstclickgraphy
                calculateprimesub
            END IF
            IF aimingbtn.Flat = 1 AND sepindiclick = 0 AND showcanvas = 1 THEN
                sepindimousedown(0, xval-(canvas.left-graph.left) , -1*(canvas.top-graph.top)+yval) 'button 0=left click, but 1=right click, but 2=mouse wheel click
                sepindicursorpos(xval-(canvas.left-graph.left) , -1*(canvas.top-graph.top)+yval)
                sepindiclicked
            END IF     
            
            graphclicktimer.Enabled = 1
            EXIT SUB
        END IF

        IF graphclick = 1 THEN            
            graphcursorpos2                   
            'GetCursorPos(NPOS)
            'XVAL=NPOS.xpos
            'YVAL=NPOS.ypos
            'xval=xval-frmmain.left-graph.left-4-mouseexcentricityx
            'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
            XVAL = mousemovegraphx
            YVAL = mousemovegraphy
            secondclickgraphx = XVAL
            secondclickgraphy = YVAL
            secondclickgraphprice = graphpriceoncur
            for i=0 to 1000
            if secondclickgraphx>=timechartpos(i,1) and secondclickgraphx<=timechartpos(i+1,1) then
            mypixelratio=(xval-timechartpos(i,1))/(timechartpos(i+1,1)-timechartpos(i,1))
            secondclickgraphtime=round((timechartpos(i+1,0)-timechartpos(i,0))*mypixelratio)+timechartpos(i,0)
            exit for
            end if
            next i
            IF parabtn.Flat = 1 OR pitchforkbtn.Flat = 1 OR priceextbtn.Flat = 1 OR timeextbtn.Flat = 1 OR orcyclesbtn.Flat = 1 _
            OR (sinbtn.flat=1 and sinfromtrendlineradio.checked=1) OR schiffpitchforkbtn.Flat = 1 THEN
                Graph.savebuffertmpsimplez
                IF parabtn.Flat = 1 AND graphclick = 1 THEN
                paraoffset ++
                paradb.Cell(1 , paraoffset) = STR$(firstclickgraphprice)
                paradb.Cell(2 , paraoffset) = STR$(secondclickgraphprice)
                paradb.Cell(4 , paraoffset) = Format$("%12.0f", firstclickgraphtime)
                paradb.Cell(5 , paraoffset) = Format$("%12.0f", secondclickgraphtime)
                END IF
                graphclick = 2                
                EXIT SUB
            END IF            
            IF aimingbtn.Flat = 1 THEN
                sepindiclick = 0
                sepindiclicktimer.Enabled = 0
            END IF
            graphclick = 0
            graphclicktimer.Enabled = 0
            firstclickgraph = 0
            IF trendlinebtn.Flat = 1 THEN
                trendlinesoffset ++
                trendlinesdb.Cell(1 , trendlinesoffset) = STR$(firstclickgraphprice)
                trendlinesdb.Cell(2 , trendlinesoffset) = STR$(secondclickgraphprice)
                trendlinesdb.Cell(3 , trendlinesoffset) = Format$("%12.0f", firstclickgraphtime)
                trendlinesdb.Cell(4 , trendlinesoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF fibofanbtn.Flat = 1 THEN
                fibofanoffset ++
                fibofandb.Cell(1 , fibofanoffset) = STR$(firstclickgraphprice)
                fibofandb.Cell(2 , fibofanoffset) = STR$(secondclickgraphprice)
                fibofandb.Cell(3 , fibofanoffset) = Format$("%12.0f", firstclickgraphtime)
                fibofandb.Cell(4 , fibofanoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF gannfanbtn.Flat = 1 THEN
                gannfanoffset ++
                gannfandb.Cell(1 , gannfanoffset) = STR$(firstclickgraphprice)
                gannfandb.Cell(2 , gannfanoffset) = STR$(secondclickgraphprice)
                gannfandb.Cell(3 , gannfanoffset) = Format$("%12.0f", firstclickgraphtime)
                gannfandb.Cell(4 , gannfanoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF fiboretbtn.Flat = 1 THEN
                fiboretoffset ++
                fiboretdb.Cell(1 , fiboretoffset) = STR$(firstclickgraphprice)
                fiboretdb.Cell(2 , fiboretoffset) = STR$(secondclickgraphprice)
                fiboretdb.Cell(3 , fiboretoffset) = Format$("%12.0f", firstclickgraphtime)
                fiboretdb.Cell(4 , fiboretoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF            
            IF hlinebtn.Flat = 1 THEN
                hlineoffset ++
                hlinedb.Cell(1 , hlineoffset) = STR$(firstclickgraphprice)
                hlinedb.Cell(2 , hlineoffset) = STR$(secondclickgraphprice)
                hlinedb.Cell(3 , hlineoffset) = Format$("%12.0f", firstclickgraphtime)
                hlinedb.Cell(4 , hlineoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF vlinebtn.Flat = 1 THEN
                vlineoffset ++
                vlinedb.Cell(1 , vlineoffset) = STR$(firstclickgraphprice)
                vlinedb.Cell(2 , vlineoffset) = STR$(secondclickgraphprice)
                vlinedb.Cell(3 , vlineoffset) = Format$("%12.0f", firstclickgraphtime)
                vlinedb.Cell(4 , vlineoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF sqrbtn.Flat = 1 THEN
                sqroffset ++
                sqrdb.Cell(1 , sqroffset) = STR$(firstclickgraphprice)
                sqrdb.Cell(2 , sqroffset) = STR$(secondclickgraphprice)
                sqrdb.Cell(3 , sqroffset) = Format$("%12.0f", firstclickgraphtime)
                sqrdb.Cell(4 , sqroffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF tribtn.Flat = 1 THEN
                trioffset ++
                tridb.Cell(1 , trioffset) = STR$(firstclickgraphprice)
                tridb.Cell(2 , trioffset) = STR$(secondclickgraphprice)
                tridb.Cell(3 , trioffset) = Format$("%12.0f", firstclickgraphtime)
                tridb.Cell(4 , trioffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF sqr2btn.Flat = 1 THEN
                sqr2offset ++
                sqr2db.Cell(1 , sqr2offset) = STR$(firstclickgraphprice)
                sqr2db.Cell(2 , sqr2offset) = STR$(secondclickgraphprice)
                sqr2db.Cell(3 , sqr2offset) = Format$("%12.0f", firstclickgraphtime)
                sqr2db.Cell(4 , sqr2offset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF tri2btn.Flat = 1 THEN
                tri2offset ++
                tri2db.Cell(1 , tri2offset) = STR$(firstclickgraphprice)
                tri2db.Cell(2 , tri2offset) = STR$(secondclickgraphprice)
                tri2db.Cell(3 , tri2offset) = Format$("%12.0f", firstclickgraphtime)
                tri2db.Cell(4 , tri2offset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF circlebtn.Flat = 1 THEN
                circleoffset ++
                circledb.Cell(1 , circleoffset) = STR$(firstclickgraphprice)
                circledb.Cell(2 , circleoffset) = STR$(secondclickgraphprice)
                circledb.Cell(3 , circleoffset) = Format$("%12.0f", firstclickgraphtime)
                circledb.Cell(4 , circleoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF crossbtn.Flat = 1 THEN
                crossoffset ++
                crossdb.Cell(1 , crossoffset) = STR$(firstclickgraphprice)
                crossdb.Cell(2 , crossoffset) = STR$(secondclickgraphprice)
                crossdb.Cell(3 , crossoffset) = Format$("%12.0f", firstclickgraphtime)
                crossdb.Cell(4 , crossoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF invcirclebtn.Flat = 1 THEN
                invcircleoffset ++
                invcircledb.Cell(1 , invcircleoffset) = STR$(firstclickgraphprice)
                invcircledb.Cell(2 , invcircleoffset) = STR$(secondclickgraphprice)
                invcircledb.Cell(3 , invcircleoffset) = Format$("%12.0f", firstclickgraphtime)
                invcircledb.Cell(4 , invcircleoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF textbtn.Flat = 1 THEN
                textoffset ++
                textdb.Cell(1 , textoffset) = STR$(firstclickgraphprice)
                textdb.Cell(2 , textoffset) = STR$(secondclickgraphprice)
                textdb.Cell(3 , textoffset) = Format$("%12.0f", firstclickgraphtime)
                textdb.Cell(4 , textoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF vectortextbtn.Flat = 1 THEN
                vectortextoffset ++
                vectortextdb.Cell(1 , vectortextoffset) = STR$(firstclickgraphprice)
                vectortextdb.Cell(2 , vectortextoffset) = STR$(secondclickgraphprice)
                vectortextdb.Cell(3 , vectortextoffset) = Format$("%12.0f", firstclickgraphtime)
                vectortextdb.Cell(4 , vectortextoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF aimingbtn.Flat = 1 THEN
                aimingoffset ++
                aimingdb.Cell(1 , aimingoffset) = STR$(firstclickgraphprice)
                aimingdb.Cell(2 , aimingoffset) = STR$(secondclickgraphprice)
                aimingdb.Cell(3 , aimingoffset) = Format$("%12.0f", firstclickgraphtime)
                aimingdb.Cell(4 , aimingoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF sinbtn.Flat = 1 THEN
                sinoffset ++
                sindb.Cell(1 , sinoffset) = STR$(firstclickgraphprice)
                sindb.Cell(2 , sinoffset) = STR$(secondclickgraphprice)
                sindb.Cell(3 , sinoffset) = Format$("%12.0f", firstclickgraphtime)
                sindb.Cell(4 , sinoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF logbtn.Flat = 1 THEN
                logoffset ++
                logdb.Cell(1 , logoffset) = STR$(firstclickgraphprice)
                logdb.Cell(2 , logoffset) = STR$(secondclickgraphprice)
                logdb.Cell(3 , logoffset) = Format$("%12.0f", firstclickgraphtime)
                logdb.Cell(4 , logoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF expbtn.Flat = 1 THEN
                expoffset ++
                expdb.Cell(1 , expoffset) = STR$(firstclickgraphprice)
                expdb.Cell(2 , expoffset) = STR$(secondclickgraphprice)
                expdb.Cell(3 , expoffset) = Format$("%12.0f", firstclickgraphtime)
                expdb.Cell(4 , expoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF ellipsebtn.Flat = 1 THEN
                ellipseoffset ++
                ellipsedb.Cell(1 , ellipseoffset) = STR$(firstclickgraphprice)
                ellipsedb.Cell(2 , ellipseoffset) = STR$(secondclickgraphprice)
                ellipsedb.Cell(3 , ellipseoffset) = Format$("%12.0f", firstclickgraphtime)
                ellipsedb.Cell(4 , ellipseoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF ellipse3btn.Flat = 1 THEN
                ellipse3offset ++
                ellipse3db.Cell(1 , ellipse3offset) = STR$(firstclickgraphprice)
                ellipse3db.Cell(2 , ellipse3offset) = STR$(secondclickgraphprice)
                ellipse3db.Cell(3 , ellipse3offset) = Format$("%12.0f", firstclickgraphtime)
                ellipse3db.Cell(4 , ellipse3offset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF fibocirclesbtn.Flat = 1 THEN
                fibocirclesoffset ++
                fibocirclesdb.Cell(1 , fibocirclesoffset) = STR$(firstclickgraphprice)
                fibocirclesdb.Cell(2 , fibocirclesoffset) = STR$(secondclickgraphprice)
                fibocirclesdb.Cell(3 , fibocirclesoffset) = Format$("%12.0f", firstclickgraphtime)
                fibocirclesdb.Cell(4 , fibocirclesoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF timerulerbtn.Flat = 1 THEN
                timeruleroffset ++
                timerulerdb.Cell(1 , timeruleroffset) = STR$(firstclickgraphprice)
                timerulerdb.Cell(2 , timeruleroffset) = STR$(secondclickgraphprice)
                timerulerdb.Cell(3 , timeruleroffset) = Format$("%12.0f", firstclickgraphtime)
                timerulerdb.Cell(4 , timeruleroffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF pricerulerbtn.Flat = 1 THEN
                priceruleroffset ++
                pricerulerdb.Cell(1 , priceruleroffset) = STR$(firstclickgraphprice)
                pricerulerdb.Cell(2 , priceruleroffset) = STR$(secondclickgraphprice)
                pricerulerdb.Cell(3 , priceruleroffset) = Format$("%12.0f", firstclickgraphtime)
                pricerulerdb.Cell(4 , priceruleroffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF pentagbtn.Flat = 1 THEN
                pentagoffset ++
                pentagdb.Cell(1 , pentagoffset) = STR$(firstclickgraphprice)
                pentagdb.Cell(2 , pentagoffset) = STR$(secondclickgraphprice)
                pentagdb.Cell(3 , pentagoffset) = Format$("%12.0f", firstclickgraphtime)
                pentagdb.Cell(4 , pentagoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF sq9fbtn.Flat = 1 THEN
                sq9foffset ++
                sq9fdb.Cell(1 , sq9foffset) = STR$(firstclickgraphprice)
                sq9fdb.Cell(2 , sq9foffset) = STR$(secondclickgraphprice)
                sq9fdb.Cell(3 , sq9foffset) = Format$("%12.0f", firstclickgraphtime)
                sq9fdb.Cell(4 , sq9foffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
	    IF sq144fbtn.Flat = 1 THEN
                sq144foffset ++
                sq144fdb.Cell(1 , sq144foffset) = STR$(firstclickgraphprice)
                sq144fdb.Cell(2 , sq144foffset) = STR$(secondclickgraphprice)
                sq144fdb.Cell(3 , sq144foffset) = Format$("%12.0f", firstclickgraphtime)
                sq144fdb.Cell(4 , sq144foffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF gridbtn.Flat = 1 THEN
                gridoffset ++
                griddb.Cell(1 , gridoffset) = STR$(firstclickgraphprice)
                griddb.Cell(2 , gridoffset) = STR$(secondclickgraphprice)
                griddb.Cell(3 , gridoffset) = Format$("%12.0f", firstclickgraphtime)
                griddb.Cell(4 , gridoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF speedresbtn.Flat = 1 THEN
                speedresoffset ++
                speedresdb.Cell(1 , speedresoffset) = STR$(firstclickgraphprice)
                speedresdb.Cell(2 , speedresoffset) = STR$(secondclickgraphprice)
                speedresdb.Cell(3 , speedresoffset) = Format$("%12.0f", firstclickgraphtime)
                speedresdb.Cell(4 , speedresoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF fiboarcsbtn.Flat = 1 THEN
                fiboarcsoffset ++
                fiboarcsdb.Cell(1 , fiboarcsoffset) = STR$(firstclickgraphprice)
                fiboarcsdb.Cell(2 , fiboarcsoffset) = STR$(secondclickgraphprice)
                fiboarcsdb.Cell(3 , fiboarcsoffset) = Format$("%12.0f", firstclickgraphtime)
                fiboarcsdb.Cell(4 , fiboarcsoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            IF speedresarcsbtn.Flat = 1 THEN
                speedresarcsoffset ++
                speedresarcsdb.Cell(1 , speedresarcsoffset) = STR$(firstclickgraphprice)
                speedresarcsdb.Cell(2 , speedresarcsoffset) = STR$(secondclickgraphprice)
                speedresarcsdb.Cell(3 , speedresarcsoffset) = Format$("%12.0f", firstclickgraphtime)
                speedresarcsdb.Cell(4 , speedresarcsoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
	    IF seedoflifebtn.Flat = 1 THEN
                seedoflifeoffset ++
                seedoflifedb.Cell(1 , seedoflifeoffset) = STR$(firstclickgraphprice)
                seedoflifedb.Cell(2 , seedoflifeoffset) = STR$(secondclickgraphprice)
                seedoflifedb.Cell(3 , seedoflifeoffset) = Format$("%12.0f", firstclickgraphtime)
                seedoflifedb.Cell(4 , seedoflifeoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
	    IF pricecyclesbtn.Flat = 1 THEN
                pricecyclesoffset ++
                pricecyclesdb.Cell(1 , pricecyclesoffset) = STR$(firstclickgraphprice)
                pricecyclesdb.Cell(2 , pricecyclesoffset) = STR$(secondclickgraphprice)
                pricecyclesdb.Cell(3 , pricecyclesoffset) = Format$("%12.0f", firstclickgraphtime)
                pricecyclesdb.Cell(4 , pricecyclesoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
	    IF timecyclesbtn.Flat = 1 THEN
                timecyclesoffset ++
                timecyclesdb.Cell(1 , timecyclesoffset) = STR$(firstclickgraphprice)
                timecyclesdb.Cell(2 , timecyclesoffset) = STR$(secondclickgraphprice)
                timecyclesdb.Cell(3 , timecyclesoffset) = Format$("%12.0f", firstclickgraphtime)
                timecyclesdb.Cell(4 , timecyclesoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
	    IF gannsquarebtn.Flat = 1 THEN
                gannsquareoffset ++
                gannsquaredb.Cell(1 , gannsquareoffset) = STR$(firstclickgraphprice)
                gannsquaredb.Cell(2 , gannsquareoffset) = STR$(secondclickgraphprice)
                gannsquaredb.Cell(3 , gannsquareoffset) = Format$("%12.0f", firstclickgraphtime)
                gannsquaredb.Cell(4 , gannsquareoffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
	    IF fibospiralbtn.Flat = 1 THEN
                fibospiraloffset ++
                fibospiraldb.Cell(1 , fibospiraloffset) = STR$(firstclickgraphprice)
                fibospiraldb.Cell(2 , fibospiraloffset) = STR$(secondclickgraphprice)
                fibospiraldb.Cell(3 , fibospiraloffset) = Format$("%12.0f", firstclickgraphtime)
                fibospiraldb.Cell(4 , fibospiraloffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
	    IF archimedspiralbtn.Flat = 1 THEN
                archimedspiraloffset ++
                archimedspiraldb.Cell(1 , archimedspiraloffset) = STR$(firstclickgraphprice)
                archimedspiraldb.Cell(2 , archimedspiraloffset) = STR$(secondclickgraphprice)
                archimedspiraldb.Cell(3 , archimedspiraloffset) = Format$("%12.0f", firstclickgraphtime)
                archimedspiraldb.Cell(4 , archimedspiraloffset) = Format$("%12.0f", secondclickgraphtime)
            END IF
            if fibofansymetryfrompointradio.checked=1 and symetryfrompoint=0 and fibofanbtn.Flat = 1 then
                symetryfrompoint=1                
            end if
            EXIT SUB
        END IF
        IF graphclick = 2 THEN
            xval=relativecordx
            graphcursorpos2            
            for i=0 to 1000
            if xval>=timechartpos(i,1) and xval<=timechartpos(i+1,1) then
            mypixelratio=(xval-timechartpos(i,1))/(timechartpos(i+1,1)-timechartpos(i,1))
            defint thirdclickgraphtime=round((timechartpos(i+1,0)-timechartpos(i,0))*mypixelratio)+timechartpos(i,0)
            exit for
            end if
            next i
            IF parabtn.Flat = 1 AND graphclick = 2 THEN
                paradb.Cell(3 , paraoffset) = STR$(graphpriceoncur)
                paradb.Cell(6 , paraoffset) = Format$("%12.0f", thirdclickgraphtime)
            END IF
            graphclick = 0
            graphclicktimer.Enabled = 0
            EXIT SUB
        END IF
    END IF

    IF cursorbtn.Flat = 1 THEN
        IF graphclick = 0 THEN
            graphcursorpos2
            DIM mousxval AS INTEGER , mousyval AS INTEGER
            graphbarnboncurstatic = graphbarnboncur
            mousxval = xvalgcp2
            mousyval = yvalgcp2
            clickedbarnb = graphbarnboncur - chartstart
            justrefreshchart
            'xvalgcp2=xval+frmmain.left+4+mouseexcentricityx+graph.left
            'yvalgcp2=yval+frmmain.top+43+mouseexcentricityy+graph.top
            Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top , "Bar #" + STR$(clickedbarnb + chartstart) , textcolor , &hffffff)
            Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top + 15 , "Date: " + Grid.Cell(rowgridoffset + 1 , clickedbarnb + chartstart) , textcolor , &hffffff)
            Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top + 30 , "Time: " + Grid.Cell(rowgridoffset + 2 , clickedbarnb + chartstart) , textcolor , &hffffff)
            Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top + 45 , "Open: " + Grid.Cell(rowgridoffset + 3 , clickedbarnb + chartstart) , textcolor , &hffffff)
            Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top + 60 , "High: " + Grid.Cell(rowgridoffset + 4 , clickedbarnb + chartstart) , textcolor , &hffffff)
            Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top + 75 , "Low: " + Grid.Cell(rowgridoffset + 5 , clickedbarnb + chartstart) , textcolor , &hffffff)
            Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top + 90 , "Close: " + Grid.Cell(rowgridoffset + 6 , clickedbarnb + chartstart) , textcolor , &hffffff)
            Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top + 105 , "Volume: " + Grid.Cell(rowgridoffset + 7 , clickedbarnb + chartstart) , textcolor , &hffffff)
            'defstr barstr=str$(chartbars(displayedfile)-(clickedbarnb + chartstart))
            'defstr cntbarseditstr=cntbarsedit.Text:cpptmpfuncreturn=varptr$(useindifunc(varptr(cntbarseditstr)))
            'cpptmpfuncreturn=varptr$(timecpp(varptr(barstr)))
            'Graph.buffer.TextOut(mousxval - frmMain.Left - 4 - mouseexcentricityx - Graph.Left , mousyval - frmMain.Top - 43 - mouseexcentricityy - Graph.Top + 120 , "timecpp: " + cpptmpfuncreturn , textcolor , &hffffff)
            Graph.savebuffertmp
            Graph.paintchart
            say "Bar #" + STR$(clickedbarnb + chartstart) + " ."+_
            " Date: " + Grid.Cell(rowgridoffset + 1 , clickedbarnb + chartstart) + " ."+_
            " Time: " + Grid.Cell(rowgridoffset + 2 , clickedbarnb + chartstart) + " ."+_
            " Open: " + Grid.Cell(rowgridoffset + 3 , clickedbarnb + chartstart) + " ."+_
            " High: " + Grid.Cell(rowgridoffset + 4 , clickedbarnb + chartstart) + " ."+_
            " Low: " + Grid.Cell(rowgridoffset + 5 , clickedbarnb + chartstart) + " ."+_
            " Close: " + Grid.Cell(rowgridoffset + 6 , clickedbarnb + chartstart) + " ."+_
            " Volume: " + Grid.Cell(rowgridoffset + 7 , clickedbarnb + chartstart) + " ."
        END IF
        IF graphclick = 1 THEN
            graphclick = 0
            moveobjcurtimer.Enabled = 0
            justrefreshchart
        END IF
    END IF


END SUB

SUB timerovergraphclick
    DetPos
END SUB

SUB timeroversepindiclick
    DetPos2
END SUB

SUB moveobjectclick(Sender AS QMENUITEM)

    IF graphclick = 0 THEN
        'graphcursorpos2
        objectcursoroperation = sender.Caption
        graphclick = 1
        'with graph
        '.bufcntreset
        '.savebuffertmp
        'end with

        'DIM XVAL AS integer, YVAL AS integer
        'GetCursorPos(NPOS)
        'XVAL=NPOS.xpos
        'YVAL=NPOS.ypos
        'xval=xval-frmmain.left-graph.left-5-mouseexcentricityx
        'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
        'firstclickgraph=1
        'firstclickgraphx=xval
        'firstclickgraphy=yval
        'firstclickgraphprice=graphpriceoncur
        'firstclickgraphtime=graphserialdateoncur
        'if textbtn.flat=1 then
        'enterdrawtxt
        'end if
        'if aimingbtn.flat=1 and sepindiclick=0 and showcanvas=1 then
        'sepindiclicked
        'end if
        IF objectcursoroperation = "Duplicate" THEN
            IF objectcursor.objtype = 1 THEN
                trendlinesoffset ++
            END IF
        END IF
        WITH Graph
            .bufcntreset
            .savebuffertmp
        END WITH
        moveobjcurtimer.Enabled = 1

        'EXIT SUB
    END IF

    'firstclickgraph=0


END SUB

SUB moveobjectcursor
    'graphcursorpos2
    DIM XVAL AS INTEGER , YVAL AS INTEGER
    defint i
    defdbl mytimeratio
    'GetCursorPos(NPOS)
    'XVAL=NPOS.xpos
    'YVAL=NPOS.ypos
    'xval=xval-frmmain.left-graph.left-4--mouseexcentricityx
    'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
    XVAL = mousemovegraphx
    YVAL = mousemovegraphy

    DIM xcur1px AS DOUBLE  'integer
    DIM xcur2px AS DOUBLE  'integer
    DIM ycur1px AS DOUBLE  'integer
    DIM ycur2px AS DOUBLE  'integer
    
    select case objectcursor.objtype
    case 1:
    ycur1 = VAL(trendlinesdb.Cell(1 , objectcursor.offset))
    ycur2 = VAL(trendlinesdb.Cell(2 , objectcursor.offset))
    xcur1 = VAL(trendlinesdb.Cell(3 , objectcursor.offset))
    xcur2 = VAL(trendlinesdb.Cell(4 , objectcursor.offset))
    case 2:
    ycur1 = VAL(sqr2db.Cell(1 , objectcursor.offset))
    ycur2 = VAL(sqr2db.Cell(2 , objectcursor.offset))
    xcur1 = VAL(sqr2db.Cell(3 , objectcursor.offset))
    xcur2 = VAL(sqr2db.Cell(4 , objectcursor.offset))
    case 3:
    ycur1 = VAL(tri2db.Cell(1 , objectcursor.offset))
    ycur2 = VAL(tri2db.Cell(2 , objectcursor.offset))
    xcur1 = VAL(tri2db.Cell(3 , objectcursor.offset))
    xcur2 = VAL(tri2db.Cell(4 , objectcursor.offset))
    end select
    
    ycur1px = (pricechartpos(1,0) - ycur1) / (pricechartpos(1,0)-pricechartpos(0,0)) * (pricechartpos(0,1)-pricechartpos(1,1)) + pricechartpos(1,1)
    ycur2px = (pricechartpos(1,0) - ycur2) / (pricechartpos(1,0)-pricechartpos(0,0)) * (pricechartpos(0,1)-pricechartpos(1,1)) + pricechartpos(1,1)
    'xcur1px = (xcur1 - graphserialdatebegin) / graphserialdatespace * graphhspace + graphhbegin
    'xcur2px = (xcur2 - graphserialdatebegin) / graphserialdatespace * graphhspace + graphhbegin  
  
    for i=0 to 1000
            if xcur1>=timechartpos(i,0) and xcur1<=timechartpos(i+1,0) then
            mytimeratio=((xcur1)-timechartpos(i,0))/(timechartpos(i+1,0)-timechartpos(i,0))
            xcur1px=timechartpos(i,1)+round((timechartpos(i+1,1)-timechartpos(i,1))*mytimeratio)
            exit for
            end if
    next i
    for i=0 to 1000
            if xcur2>=timechartpos(i,0) and xcur2<=timechartpos(i+1,0) then
            mytimeratio=((xcur2)-timechartpos(i,0))/(timechartpos(i+1,0)-timechartpos(i,0))
            xcur2px=timechartpos(i,1)+round((timechartpos(i+1,1)-timechartpos(i,1))*mytimeratio)
            exit for
            end if
    next i
    'print str$(xcur1px)
    'print str$(xcur1px)+" "+str$(xcur2px)
    WITH Graph

defdbl unixtimeratio
defint timepixelinterval
defstr myunixtimestr
defdbl pricepixelratio

        IF objectcursor.objtype = 1 THEN

            '.drawp(0,xcur1px+xval-xcur1px,ycur1px+yval-ycur1px,xcur2px+xval-xcur2px,ycur2px+yval-ycur2px,0,0)
            .drawp(0 , XVAL , YVAL , XVAL + xcur2px - xcur1px , YVAL + ycur2px - ycur1px , 0 , 0)

timepixelinterval=timechartpos(1,1)-timechartpos(0,1)
for i=0 to 1000
if xval>=timechartpos(i,1)-timepixelinterval/2 and xval<timechartpos(i,1)+timepixelinterval/2 then
unixtimeratio=timechartpos(i,0)
xcur1=unixtimeratio
    exit for
end if    
'print str$(xcur1)
next i
for i=0 to 1000
if (XVAL + xcur2px - xcur1px)>=timechartpos(i,1)-timepixelinterval/2 and (XVAL + xcur2px - xcur1px)<timechartpos(i,1)+timepixelinterval/2 then
unixtimeratio=timechartpos(i,0)
xcur2=unixtimeratio
    exit for
end if    
next i

            pricepixelratio=(pricechartpos(0,1)-yval)/(pricechartpos(0,1)-pricechartpos(1,1))
            ycur1=(pricechartpos(1,0)-pricechartpos(0,0))*pricepixelratio+pricechartpos(0,0)
            'print str$(ycur1)
            'graphpriceoncur=val(Format$("%12.5f", graphpriceoncur))
            pricepixelratio=(pricechartpos(0,1)-(YVAL + ycur2px - ycur1px))/(pricechartpos(0,1)-pricechartpos(1,1))
            ycur2=(pricechartpos(1,0)-pricechartpos(0,0))*pricepixelratio+pricechartpos(0,0)
            IF objectcursoroperation = "Move" THEN
                trendlinesdb.Cell(1 , objectcursor.offset) = STR$(ycur1)
                trendlinesdb.Cell(2 , objectcursor.offset) = STR$(ycur2)
                trendlinesdb.Cell(3 , objectcursor.offset) = STR$(xcur1)
                trendlinesdb.Cell(4 , objectcursor.offset) = STR$(xcur2)

            END IF

            IF objectcursoroperation = "Duplicate" THEN
                trendlinesdb.Cell(1 , trendlinesoffset) = STR$(ycur1)
                trendlinesdb.Cell(2 , trendlinesoffset) = STR$(ycur2)
                trendlinesdb.Cell(3 , trendlinesoffset) = STR$(xcur1)
                trendlinesdb.Cell(4 , trendlinesoffset) = STR$(xcur2)

            END IF

        END IF
        
        
IF objectcursor.objtype = 2 THEN

            '.drawp(0,xcur1px+xval-xcur1px,ycur1px+yval-ycur1px,xcur2px+xval-xcur2px,ycur2px+yval-ycur2px,0,0)
            
            .drawp(31 , xcur1px , ycur1px , XVAL , YVAL , 0 , 0)

timepixelinterval=timechartpos(1,1)-timechartpos(0,1)
for i=0 to 1000
if xval>=timechartpos(i,1)-timepixelinterval/2 and xval<timechartpos(i,1)+timepixelinterval/2 then
unixtimeratio=timechartpos(i,0)
xcur1=unixtimeratio
    exit for
end if    
'print str$(xcur1)
next i

            pricepixelratio=(pricechartpos(0,1)-yval)/(pricechartpos(0,1)-pricechartpos(1,1))
            ycur1=(pricechartpos(1,0)-pricechartpos(0,0))*pricepixelratio+pricechartpos(0,0)
            'print str$(ycur1)
            'graphpriceoncur=val(Format$("%12.5f", graphpriceoncur))

            IF objectcursoroperation = "Rotate" THEN
                sqr2db.Cell(2 , objectcursor.offset) = STR$(ycur1)
                sqr2db.Cell(4 , objectcursor.offset) = STR$(xcur1)

            END IF

'            IF objectcursoroperation = "Duplicate" THEN
'                trendlinesdb.Cell(1 , trendlinesoffset) = STR$(ycur1)
'                trendlinesdb.Cell(2 , trendlinesoffset) = STR$(ycur2)
'                trendlinesdb.Cell(3 , trendlinesoffset) = STR$(xcur1)
'                trendlinesdb.Cell(4 , trendlinesoffset) = STR$(xcur2)
'
'            END IF

        END IF  
        
IF objectcursor.objtype = 3 THEN

            '.drawp(0,xcur1px+xval-xcur1px,ycur1px+yval-ycur1px,xcur2px+xval-xcur2px,ycur2px+yval-ycur2px,0,0)
            
            .drawp(32 , xcur1px , ycur1px , XVAL , YVAL , 0 , 0)

timepixelinterval=timechartpos(1,1)-timechartpos(0,1)
for i=0 to 1000
if xval>=timechartpos(i,1)-timepixelinterval/2 and xval<timechartpos(i,1)+timepixelinterval/2 then
unixtimeratio=timechartpos(i,0)
xcur1=unixtimeratio
    exit for
end if    
'print str$(xcur1)
next i

            pricepixelratio=(pricechartpos(0,1)-yval)/(pricechartpos(0,1)-pricechartpos(1,1))
            ycur1=(pricechartpos(1,0)-pricechartpos(0,0))*pricepixelratio+pricechartpos(0,0)
            'print str$(ycur1)
            'graphpriceoncur=val(Format$("%12.5f", graphpriceoncur))

            IF objectcursoroperation = "Rotate" THEN
                tri2db.Cell(2 , objectcursor.offset) = STR$(ycur1)
                tri2db.Cell(4 , objectcursor.offset) = STR$(xcur1)

            END IF

'            IF objectcursoroperation = "Duplicate" THEN
'                trendlinesdb.Cell(1 , trendlinesoffset) = STR$(ycur1)
'                trendlinesdb.Cell(2 , trendlinesoffset) = STR$(ycur2)
'                trendlinesdb.Cell(3 , trendlinesoffset) = STR$(xcur1)
'                trendlinesdb.Cell(4 , trendlinesoffset) = STR$(xcur2)
'
'            END IF

        END IF              
        
        .savebuffertmp
        .paintchart
        'end with
    END WITH

END SUB


SUB DetPos
    DIM XVAL AS INTEGER , YVAL AS INTEGER
    'GetCursorPos(NPOS)
    'XVAL=NPOS.xpos
    'YVAL=NPOS.ypos
    'xval=xval-frmmain.left-graph.left-4--mouseexcentricityx
    'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
    'XVAL = mousemovegraphx
    'YVAL = mousemovegraphy
    xval=screen.mousex-mousediffx    
    yval=screen.mousey-mousediffy
    WITH Graph

        IF trendlinebtn.Flat = 1 THEN
            .drawp(0 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF fibofanbtn.Flat = 1 THEN
            .drawp(1 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF
        IF fiboretbtn.Flat = 1 THEN
            .drawp(2 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF parabtn.Flat = 1 AND graphclick = 1 THEN
            .drawp(0 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF parabtn.Flat = 1 AND graphclick = 2 THEN
            .drawp(3 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF
        IF pitchforkbtn.Flat = 1 AND graphclick = 1 THEN
            .drawp(0 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF        
        IF pitchforkbtn.Flat = 1 AND graphclick = 2 THEN
            .drawp(17 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF
        IF schiffpitchforkbtn.Flat = 1 AND graphclick = 1 THEN
            .drawp(0 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF        
        IF schiffpitchforkbtn.Flat = 1 AND graphclick = 2 THEN
            .drawp(53 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF
        IF priceextbtn.Flat = 1 AND graphclick = 1 THEN
            .drawp(0 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF priceextbtn.Flat = 1 AND graphclick = 2 THEN
            .drawp(18 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF

        IF timeextbtn.Flat = 1 AND graphclick = 1 THEN
            .drawp(0 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF timeextbtn.Flat = 1 AND graphclick = 2 THEN
            .drawp(21 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF

        IF hlinebtn.Flat = 1 THEN
            .drawp(4 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF vlinebtn.Flat = 1 THEN
            .drawp(5 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF sqrbtn.Flat = 1 THEN
            .drawp(6 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF tribtn.Flat = 1 THEN
            .drawp(7 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF circlebtn.Flat = 1 THEN
            .drawp(8 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF crossbtn.Flat = 1 THEN
            .drawp(9 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF invcirclebtn.Flat = 1 THEN
            .drawp(10 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF textbtn.Flat = 1 THEN
            Graph.buffer.TextOut(firstclickgraphx , firstclickgraphy , drawtxt , textcolor , &hffffff)
            textlabelsoffset ++
            textlabelsdb.Cell(1 , textlabelsoffset) = STR$(firstclickgraphprice)
            textlabelsdb.Cell(2 , textlabelsoffset) = Format$("%12.0f", firstclickgraphtime)
            textlabelsdb.Cell(3 , textlabelsoffset) = drawtxt
            textlabelsdb.Cell(4 , textlabelsoffset) = str$(textcolor)
            textlabelsdb.Cell(6 , textlabelsoffset) = str$(white)
            graphclick = 0
            graphclicktimer.Enabled = 0
        END IF
        IF vectortextbtn.Flat = 1 THEN
            'Graph.buffer.TextOut(firstclickgraphx , firstclickgraphy , drawvectortxt , textcolor , &hffffff)
            VPrintAng firstclickgraphx, firstclickgraphy, drawvectortxt, textcolor, val(drawvectorstretchx), val(drawvectorstretchy), val(drawvectorangle), 0
            '(xx as integer, yy as integer, text$ as string, clr as integer, xf as integer, yf as integer, angle as double, canvas as integer)
            vectortextoffset ++
            vectortextdb.Cell(1 , vectortextoffset) = STR$(firstclickgraphprice)
            vectortextdb.Cell(2 , vectortextoffset) = Format$("%12.0f", firstclickgraphtime)
            vectortextdb.Cell(3 , vectortextoffset) = drawvectortxt
            vectortextdb.Cell(4 , vectortextoffset) = str$(textcolor)
            vectortextdb.Cell(6 , vectortextoffset) = str$(white)
            vectortextdb.Cell(7 , vectortextoffset) = drawvectorstretchx
            vectortextdb.Cell(8 , vectortextoffset) = drawvectorstretchy
            vectortextdb.Cell(9 , vectortextoffset) = drawvectorangle
            graphclick = 0
            graphclicktimer.Enabled = 0
        END IF
        IF primebtn.Flat = 1 THEN
            'Graph.buffer.TextOut(firstclickgraphx , firstclickgraphy , "test" , textcolor , &hffffff)            
            graphclick = 0
            graphclicktimer.Enabled = 0
        END IF
        IF aimingbtn.Flat = 1 THEN
            .drawp(11 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF handdbtn.Flat = 1 THEN
            .drawp(12 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF (sinbtn.Flat = 1 and horizsinradio.checked=1) THEN
            .drawp(13 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF logbtn.Flat = 1 THEN
            .drawp(14 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF expbtn.Flat = 1 THEN
            .drawp(15 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF ellipsebtn.Flat = 1 THEN
            .drawp(16 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF sq9fbtn.Flat = 1 THEN
            .drawp(19 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF tsq9fbtn.Flat = 1 THEN
            .drawp(22 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF sq144fbtn.Flat = 1 THEN
            .drawp(20 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF tsq144fbtn.Flat = 1 THEN
            .drawp(23 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF pricecyclesbtn.Flat = 1 THEN
            .drawp(24 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF timecyclesbtn.Flat = 1 THEN
            .drawp(25 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF logspiralbtn.Flat = 1 THEN
            .drawp(26 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF pentagbtn.Flat = 1 THEN
            .drawp(27 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF orcyclesbtn.Flat = 1 AND graphclick = 1 THEN
            .drawp(0 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF orcyclesbtn.Flat = 1 AND graphclick = 2 THEN
            .drawp(28 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF
        if (sinbtn.flat=1 and sinfromtrendlineradio.checked=1) AND graphclick = 1 then
            .drawp(0 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        end if
        if (sinbtn.flat=1 and sinfromtrendlineradio.checked=1) AND graphclick = 2 then
            .drawp(30 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        end if
        IF polygbtn.Flat = 1 THEN
            .drawp(29 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF sqr2btn.Flat = 1 THEN
            .drawp(31 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF tri2btn.Flat = 1 THEN
            .drawp(32 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF conicbtn.Flat = 1 THEN
            .drawp(36 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF
        IF gridbtn.Flat = 1 THEN
            .drawp(37 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF speedresbtn.Flat = 1 THEN
            .drawp(38 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
        IF fiboarcsbtn.Flat = 1 THEN
            .drawp(39 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
	IF seedoflifebtn.Flat = 1 THEN
            .drawp(40 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
	IF pricecyclesbtn.Flat = 1 THEN
            .drawp(24 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
	IF timecyclesbtn.Flat = 1 THEN
            .drawp(25 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
	IF gannsquarebtn.Flat = 1 THEN
            .drawp(41 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
	IF fibospiralbtn.Flat = 1 THEN
            .drawp(42 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
	IF archimedspiralbtn.Flat = 1 THEN
            .drawp(43 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
    IF ellipse3btn.Flat = 1 THEN
            .drawp(44 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
    IF circlegiven3pointsbtn.Flat = 1 THEN
            .drawp(45 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF        
    IF fibotimezonesbtn.Flat = 1 THEN
            .drawp(46 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
    IF fibopricezonesbtn.Flat = 1 THEN
            .drawp(47 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
    IF fibocirclesbtn.Flat = 1 THEN
            .drawp(48 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
    IF timerulerbtn.Flat = 1 THEN
            .drawp(49 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
    IF pricerulerbtn.Flat = 1 THEN
            .drawp(50 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
    IF speedresarcsbtn.Flat = 1 THEN
            .drawp(52 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , 0 , 0)
        END IF
    IF gannfanbtn.Flat = 1 THEN
            .drawp(54 , firstclickgraphx , firstclickgraphy , XVAL , YVAL , secondclickgraphx , secondclickgraphy)
        END IF
        '.visible=0
        '.visible=1
        'with graph
        '.firstbufcntreset
        .savebuffertmp
        .paintchart
        'end with
    END WITH

END SUB

SUB DetPos2
    DIM XVAL AS INTEGER , YVAL AS INTEGER
    'GetCursorPos(NPOS)
    'XVAL=NPOS.xpos
    'YVAL=NPOS.ypos
    'xval=xval-frmmain.left-canvas.left-4-mouseexcentricityx
    'yval=yval-frmmain.top-canvas.top-43-mouseexcentricityy
    'XVAL = mousemovesepindix
    'YVAL = mousemovesepindiy
    xval=screen.mousex-mousediffsepindix    
    yval=screen.mousey-mousediffsepindiy

    WITH canvas

        IF trendlinebtn.Flat = 1 THEN
            .drawp(0 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF fibofanbtn.Flat = 1 THEN
            .drawp(1 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF fiboretbtn.Flat = 1 THEN
            .drawp(2 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF parabtn.Flat = 1 AND sepindiclick = 1 THEN
            .drawp(0 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF parabtn.Flat = 1 AND sepindiclick = 2 THEN
            .drawp(3 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF
        IF pitchforkbtn.Flat = 1 AND sepindiclick = 1 THEN
            .drawp(0 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF pitchforkbtn.Flat = 1 AND sepindiclick = 2 THEN
            .drawp(17 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF
        IF schiffpitchforkbtn.Flat = 1 AND sepindiclick = 1 THEN
            .drawp(0 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF schiffpitchforkbtn.Flat = 1 AND sepindiclick = 2 THEN
            .drawp(41 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF
        IF orcyclesbtn.Flat = 1 AND sepindiclick = 1 THEN
            .drawp(0 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF orcyclesbtn.Flat = 1 AND sepindiclick = 2 THEN
            .drawp(18 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF        
        IF priceextbtn.Flat = 1 AND sepindiclick = 1 THEN
            .drawp(0 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF priceextbtn.Flat = 1 AND sepindiclick = 2 THEN
            .drawp(19 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF    
	IF timeextbtn.Flat = 1 AND sepindiclick = 1 THEN
            .drawp(0 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF timeextbtn.Flat = 1 AND sepindiclick = 2 THEN
            .drawp(24 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF    
        IF hlinebtn.Flat = 1 THEN
            .drawp(4 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF vlinebtn.Flat = 1 THEN
            .drawp(5 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF sqrbtn.Flat = 1 THEN
            .drawp(6 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF tribtn.Flat = 1 THEN
            .drawp(7 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF circlebtn.Flat = 1 THEN
            .drawp(8 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF crossbtn.Flat = 1 THEN
            .drawp(9 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF invcirclebtn.Flat = 1 THEN
            .drawp(10 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF textbtn.Flat = 1 THEN
            canvas.BMP.TextOut(firstclicksepindix , firstclicksepindiy , drawtxt , textcolor , &hffffff)
            sepindiclick = 0
            sepindiclicktimer.Enabled = 0
        END IF
        IF vectortextbtn.Flat = 1 THEN
            'canvas.BMP.TextOut(firstclicksepindix , firstclicksepindiy , drawvectortxt , textcolor , &hffffff)
            VPrintAng firstclicksepindix, firstclicksepindiy, drawvectortxt, textcolor, 1.5, 2, 0, 1
            '(xx, yy, text$, clr, xf, yf, angle)
            sepindiclick = 0
            sepindiclicktimer.Enabled = 0
        END IF
        IF primebtn.Flat = 1 THEN
            'canvas.BMP.TextOut(firstclicksepindix , firstclicksepindiy , "test" , textcolor , &hffffff)
            sepindiclick = 0
            sepindiclicktimer.Enabled = 0
        END IF
        IF aimingbtn.Flat = 1 THEN
            .drawp(11 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF handdbtn.Flat = 1 THEN
            .drawp(12 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF sinbtn.Flat = 1 THEN
            .drawp(13 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF logbtn.Flat = 1 THEN
            .drawp(14 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF expbtn.Flat = 1 THEN
            .drawp(15 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF ellipsebtn.Flat = 1 THEN
            .drawp(16 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF gridbtn.Flat = 1 THEN
            .drawp(20 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF speedresbtn.Flat = 1 THEN
            .drawp(21 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF fiboarcsbtn.Flat = 1 THEN
            .drawp(22 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF seedoflifebtn.Flat = 1 THEN
            .drawp(23 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF timeextbtn.Flat = 1  AND sepindiclick = 2 THEN
            .drawp(24 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF
	IF sq9fbtn.Flat = 1 THEN
            .drawp(25 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF sq144fbtn.Flat = 1 THEN
            .drawp(26 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF pricecyclesbtn.Flat = 1 THEN
            .drawp(27 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF timecyclesbtn.Flat = 1 THEN
            .drawp(28 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
        IF logspiralbtn.Flat = 1 THEN
            .drawp(29 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF pentagbtn.Flat = 1 THEN
            .drawp(30 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF polygbtn.Flat = 1 THEN
            .drawp(31 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF sqr2btn.Flat = 1 THEN
            .drawp(32 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF tri2btn.Flat = 1 THEN
            .drawp(33 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
	IF conicbtn.Flat = 1 THEN
            .drawp(34 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF
    IF ellipse3btn.Flat = 1 THEN
            .drawp(35 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
    IF circlegiven3pointsbtn.Flat = 1 THEN
            .drawp(36 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , secondclicksepindix , secondclicksepindiy)
        END IF
    IF fibocirclesbtn.Flat = 1 THEN
            .drawp(37 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF  
    IF timerulerbtn.Flat = 1 THEN
            .drawp(38 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF  
    IF pricerulerbtn.Flat = 1 THEN
            .drawp(39 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
    IF speedresarcsbtn.Flat = 1 THEN
            .drawp(40 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF
    IF gannfanbtn.Flat = 1 THEN
            .drawp(42 , firstclicksepindix , firstclicksepindiy , XVAL , YVAL , 0 , 0)
        END IF

        '.visible=0
        '.visible=1
        .savebuffertmp
        .paint
    END WITH

END SUB

'Pixel by pixel credit scroller for Rapid-Q by William Yu


SUB resize
    aboutcanvas.Height = aboutform.ClientHeight
    aboutcanvas.Width = aboutform.ClientWidth
END SUB

DIM yposabout AS INTEGER
SUB paintabout(Sender AS QCANVAS)   
    DIM abmargin AS INTEGER
    abmargin = 3
    yposabout = 0
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "QChartist is a free charting software written in Basic and C++ language" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Contact email: julien.moog@laposte.net" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Website: http://www.qchartist.net" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Copyright 2010-2022 Julien Moog - All rights reserved" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Special thanks to:" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "William Yu for his RAPID-Q compiler and all its extends" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "John Kelly for his RapidQ2.inc and Windows.inc and rapidq.chm" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Inprise Corporation for the Borland C++ Compiler 5.5" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Jacques Phillipe for his excellent RapidQ Pre Compiler and rapidq.chm" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Paul Ludgate for his revised version of the RapidQ Compiler" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Michael J. Zito for his great QChart object" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Pasquale Battistelli for his Api Date and QCalendar" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Bruno Schafer for his rq-math.inc" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Stanescu Serban for his QInputBox and rapidq.chm" , lime , 0)    
    yposabout = yposabout + 30  
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Jens Altmann for his File Editor" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Andrew Shelkovenko for rapidq.chm" , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "D. Glodt for the rapidq.chm" , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "MetaQuotes Software Corp. for the accelerator indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "MetaQuotes Software Corp. for the ATR indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "MetaQuotes Software Corp. for the Bollinger Bands indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Shinigami for his ADR lines indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Luis Guilherme Damiani for the ATR Channels indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "David W. Thomas for the BB - HL indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Forex-TSD.com and IgorAD for the CandleAverage indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "NG3110 and Linuxser for the Center of Gravity indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "MetaQuotes Software Corp. and Nikolay Kositsin for the Envelope indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "MetaQuotes Software Corp. for the Force Index indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "MetaQuotes Software Corp. for the MFI indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "MetaQuotes Software Corp. for the RSI indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "njel for the smaFibo indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "TrendLaboratory Ltd. and igorad for the StepRSI indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Mark W. Helweg, David C. Stendahl and smallcaps90 for the" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "valuechart indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "S.B.T. for the Volatility Pivot indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "MetaQuotes Software Corp. for the Zigzag indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Myles Wilson Walker for his article on W.D. Gann methods" , lime , 0)    
    yposabout = yposabout + 30  
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "for using the planet longitudes" , lime , 0)    
    yposabout = yposabout + 30   
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Mladen for his dynamic balance point indicator" , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Brijon, NorthPro, Pipo, Walter, Charvo, Pacific_trip, Habeeb," , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Skyline & Hornet for the WaterLevel indicator" , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Earik Beann for his ideas" , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Scribd's team for the pdf documentations" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Traders world magazine for their articles" , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Yuriy Tokman for the spectrometer indicator" , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "William Delbert Gann for the astro indicators" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "T.S. Phillips for the astro indicators" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Diego Ratti for the astro indicators" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "and the ztrendine_slope_pi_ratio indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Igor Durkin for StepRSI and CoronaSwingPosition indicators" , lime , 0)    
    yposabout = yposabout + 30  
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Goichi Hosoda and MetaQuotes for the Ichimoku indicator" , lime , 0)    
    yposabout = yposabout + 30   
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "asystem2000 for Elliot_Wave_3_Level_ZZ_Semafor" , lime , 0)    
    yposabout = yposabout + 30 
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Finware.ru for the RBCI and RSTL indicators" , lime , 0)    
    yposabout = yposabout + 30  
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Mulyadi for the TSCD indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Glen Ring for the Square numbers indicator idea" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "mladen for the TMA+CG indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "David W. Thomas for the realMACD indicator" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Mostafa Belkhayate for his directives with" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "the COG, Elliott Waves indicators" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Dieter Koch and Dr. Alois Treindl for" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "the Swiss Ephemeris" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Thomas Henning Murrey for the Murrey Math indicator" , lime , 0)        
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "Patrick Mikula for his ideas with the Square of Nine" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.TextOut(abmargin , abouty - yposabout , "And many thanks to all thoses who helped me to build this project" , lime , 0)    
    yposabout = yposabout + 30
    aboutcanvas.Top = abouty / yposabout + 165
    DIM Istars AS INTEGER
    FOR Istars = 1 TO MaxStars
        IF NOT (_
            (Starsx(Istars) >= planetredbg.Left AND Starsx(Istars) <= planetredbg.Left + planetredbg.Width AND _
            Starsy(Istars) >= planetredbg.Top - 135 - abouty / 4 AND Starsy(Istars) <= planetredbg.Top - 135 - abouty / 4 + planetredbg.Height) _
            OR (Starsx(Istars) >= planetgreenbg.Left AND Starsx(Istars) <= planetgreenbg.Left + planetgreenbg.Width AND _
            Starsy(Istars) >= planetgreenbg.Top - 135 - abouty / 4 AND Starsy(Istars) <= planetgreenbg.Top - 135 - abouty / 4 + planetgreenbg.Height) _
            OR (Starsx(Istars) >= planetwhitebg.Left AND Starsx(Istars) <= planetwhitebg.Left + planetwhitebg.Width AND _
            Starsy(Istars) >= planetwhitebg.Top - 135 - abouty / 4 AND Starsy(Istars) <= planetwhitebg.Top - 135 - abouty / 4 + planetwhitebg.Height) _
            ) THEN
            aboutcanvas.Pset(Starsx(Istars) , Starsy(Istars) , white)
            aboutcanvas.Pset(Starsx(Istars) + 1 , Starsy(Istars) , white)
            aboutcanvas.Pset(Starsx(Istars) + 1 , Starsy(Istars) + 1 , white)
            aboutcanvas.Pset(Starsx(Istars) , Starsy(Istars) + 1 , white)
            aboutcanvas.Pset(Starsx(Istars) - 1 , Starsy(Istars) + 1 , white)
            aboutcanvas.Pset(Starsx(Istars) - 1 , Starsy(Istars) , white)
            aboutcanvas.Pset(Starsx(Istars) - 1 , Starsy(Istars) - 1 , white)
            aboutcanvas.Pset(Starsx(Istars) , Starsy(Istars) - 1 , white)
            aboutcanvas.Pset(Starsx(Istars) + 1 , Starsy(Istars) - 1 , white)
        END IF

        'aboutcanvas.fillrect(planetredbg.left,planetredbg.top-135-abouty/4,planetredbg.left+5,planetredbg.top-135+5+-abouty/4,lightblue)

    NEXT Istars


END SUB


SUB moveplanetred
    planetredbg.Top = planetredbg.Top + planetredbgspeed
    IF planetredbg.Top >= aboutform.Height THEN
        planetredbg.Top = - planetredbg.Height - RND(50)
        planetredbg.Left = RND(aboutform.Width + planetredbg.Width) - planetredbg.Width
        planetredbgspeed = RND(5) + 1
    END IF
END SUB

SUB moveplanetgreen
    planetgreenbg.Top = planetgreenbg.Top + planetgreenbgspeed
    IF planetgreenbg.Top >= aboutform.Height THEN
        planetgreenbg.Top = - planetgreenbg.Height - RND(50)
        planetgreenbg.Left = RND(aboutform.Width + planetgreenbg.Width) - planetgreenbg.Width
        planetgreenbgspeed = RND(5) + 1
    END IF
END SUB

SUB moveplanetwhite
    planetwhitebg.Top = planetwhitebg.Top + planetwhitebgspeed
    IF planetwhitebg.Top >= aboutform.Height THEN
        planetwhitebg.Top = - planetwhitebg.Height - RND(50)
        planetwhitebg.Left = RND(aboutform.Width + planetwhitebg.Width) - planetwhitebg.Width
        planetwhitebgspeed = RND(5) + 1
    END IF
END SUB


SUB timerover
    'aboutTimer.Interval = 35  'Can't go any lower!
    abouty = abouty + 1  'Pixel by pixel!
    'if abouty>aboutcanvas.height then
    IF abouty > yposabout+100 THEN
        abouty = - 20
        DIM Istars AS INTEGER
        FOR Istars = 1 TO MaxStars
            Starsy(Istars) = Starsy(Istars) + 50
        NEXT Istars
    END IF
    paintabout(aboutcanvas)
END SUB

SUB closeaboutform
    aboutTimer.Enabled = 0
    'aboutform.modalresult=1
    'aboutform.visible=0
    PLAYWAV "" , SND_ASYNC OR SND_LOOP
    planettimerred.Enabled = 0
    planettimergreen.Enabled = 0
    planettimerwhite.Enabled = 0
END SUB

SUB abfrmclose
    aboutTimer.Enabled = 0
    PLAYWAV "" , SND_ASYNC OR SND_LOOP
    planettimerred.Enabled = 0
    planettimergreen.Enabled = 0
    planettimerwhite.Enabled = 0
END SUB

SUB about()
    
    aboutTimer.Interval = 35
    
    InitStars

    abouty = - 20
    aboutform.Visible = 1
    aboutTimer.Enabled = 1
    planettimerred.Enabled = 1
    planettimergreen.Enabled = 1
    planettimerwhite.Enabled = 1
    PLAYWAV homepath + "\wav\Melody.wav" , SND_ASYNC OR SND_LOOP
END SUB


SUB quit()
    frmMain.close    
END SUB

SUB savebmp
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    Graph.SaveChart("")
END SUB

SUB printchart
    IF openedfilesnb = 0 THEN
        EXIT SUB
    END IF
    Graph.printchart(Printer.PrinterIndex , 1 , 40 , 1 , FALSE)
END SUB

SUB frmmainonmw(frmmainr AS INTEGER , frmmainx AS LONG , frmmainy AS LONG , frmmains AS INTEGER)
    IF openedfilesnb < 1 THEN
        EXIT SUB
    END IF
    IF frmmainr = 1 THEN
        Scrollchart.Position = Scrollchart.Position + 15
    END IF
    IF frmmainr = - 1 THEN
        Scrollchart.Position = Scrollchart.Position - 15
    END IF
    chartstart = Scrollchart.Position - numbars
    IF scrollchartpositionwait = 1 THEN
        IF scrollmodebtn.Flat = 0 THEN
            scrollmodebtn.Flat = 1
            scrollmodebtn.Color = &H88cc88
            scrollmode = 1
            Scrollchart.Enabled = 1
        END IF
        btnOnClick(drwBox)
    END IF

END SUB

SUB showtoolsclick
    toolsPanel.dock(1)
END SUB

SUB showtoolbarclick
    ToolbarBox.dock(1)
END SUB

SUB resizesplitmd
    resizesplittimer.Enabled = 1
END SUB

SUB resizesplithmd
    resizesplithtimer.Enabled = 1
END SUB

SUB resizesplitmu
    resizesplittimer.Enabled = 0
    sepindiheight = STR$(sepindiheight + canvas.Top - YVALs)
    showcanvasclick
END SUB

SUB resizesplithmu
    resizesplithtimer.Enabled = 0
    leftwidth = XVALs - 15
    'print str$(leftwidth)
    'showcanvasclick
    setup()
END SUB

SUB resizesplitcurpos

    GetCursorPos(NPOS)

    YVALs = NPOS.ypos
    'yvals=yvals-frmmain.top-graph.top-43-mouseexcentricityy
    YVALs = YVALs - frmMain.Top - 43 - mouseexcentricityy

    split.Top = YVALs

END SUB

SUB resizesplithcurpos

    GetCursorPos(NPOS)

    XVALs = NPOS.xpos
    'Xvals=Xval-frmmain.top-graph.top-43-mouseexcentricityy
    'xval=xval-frmmain.left-graph.left-4-mouseexcentricityx
    XVALs = XVALs - frmMain.Left - 4 - mouseexcentricityx

    splith.Left = XVALs
    'print str$(xvals)
END SUB

SUB writetolog(lastlogline AS STRING)
    DIM fileqtp AS QFILESTREAM
    IF FILEEXISTS(homepath + "\QChartist.log") = FALSE THEN
        fileqtp.open(homepath + "\QChartist.log" , fmCreate)
        fileqtp.close
    END IF
    fileqtp.open(homepath + "\QChartist.log" , 2)
    fileqtp.Position = fileqtp.Size
    fileqtp.WriteLine(lastlogline)
    fileqtp.close
END SUB

SUB writealive
    DIM fileqtp AS QFILESTREAM
    'if FileExists(homepath+"\alive.log") = FALSE THEN
    'fileqtp.open(homepath+"\alive.log",fmCreate)
    'fileqtp.close
    'end if
    fileqtp.open(homepath + "\alive.log" , fmCreate)
    'fileqtp.position=fileqtp.size
    fileqtp.WriteLine(STR$(timeGetTime))
    fileqtp.close

END SUB

SUB axistypecombosub
    axistypecomboitemindex = axistypecombo.ItemIndex
    justrefreshchart
    say "Axis type changed to: "+axistypecombo.Item(axistypecombo.ItemIndex)
END SUB

SUB xscaletrackbarsub
    'xscaletrackbarposition=exp(xscaletrackbar.position/50)-1
    'justrefreshchart
END SUB

SUB followmodeactivate
    IF followmodetimer.Enabled = 0 THEN
        followmodetimer.Enabled = 1
        EXIT SUB
    END IF
    IF followmodetimer.Enabled = 1 THEN
        followmodetimer.Enabled = 0
        EXIT SUB
    END IF
END SUB

DIM followmodepath AS STRING
followmodepath = importedfile(displayedfile)

SUB followmode

    tfmult.Text = "1"
    importfileauto(followmodepath)
    reimportfile()

    DIM getline$ AS STRING

    IF FILEEXISTS(homepath + "\reversetmp.log") = FALSE THEN

        PRINT " file not found "
        EXIT SUB
    END IF

    DIM file AS QFILESTREAM
    file.open(homepath + "\reversetmp.log" , 0)

    DEFINT j = 0
    DIM revdate AS STRING
    DIM revtime AS STRING


    DO

        j ++

        getline$ = file.ReadLine

        IF INSTR(getline$ , "Reverse") > 0 THEN
            revdate = MID$(MID$(getline$ , INSTR(getline$ , "From Date: ")) , 12 , INSTR(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , " ") - 1)
            revtime = MID$(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , INSTR(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , " ") + 1 , 5)
            findbarfromfile(revdate , revtime)
            reversetillendnorefresh
        END IF

    LOOP UNTIL file.eof
    file.close

    'file.open(homepath+"\reversetmp.log", 0)
    'dim revtfmu as string
    'revtfmu=""
    'do
    '
    ''j++
    '
    'getline$=file.readline
    '
    'if instr(getline$,"changed")>0 then
    'if revtfmu="" then
    'revtfmu=mid$(getline$,instr(getline$,"to")+3,3)
    'end if
    'end if
    '
    'loop until file.eof
    'file.close

    refreshgrids

    'tfmult.text=revtfmu
    'tfmultok_click

    EXIT SUB  'not fully functional yet

    SLEEP 5

    '-================================== Export algo ==========================================-
    DIM csvFile AS QFILESTREAM
    csvFile.open(homepath + "\reversetmp.csv" , 65535) '65535 = fmCreate
    DIM csvi AS INTEGER
    DIM datecsv AS STRING
    DIM timecsv AS STRING
    DIM opencsv AS STRING
    DIM highcsv AS STRING
    DIM lowcsv AS STRING
    DIM closecsv AS STRING
    DIM volumecsv AS STRING
    'dim inputcsvbars as qinputbox
    'dim csvbars as string
    'csvbars=inputcsvbars.input("How many bars to export?")
    SELECT CASE axistypecomboitemindex
        CASE 0 :
            FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                opencsv = Grid.Cell(rowgridoffset + 3 , csvi)
                highcsv = Grid.Cell(rowgridoffset + 4 , csvi)
                lowcsv = Grid.Cell(rowgridoffset + 5 , csvi)
                closecsv = Grid.Cell(rowgridoffset + 6 , csvi)
                volumecsv = Grid.Cell(rowgridoffset + 7 , csvi)
                csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
            NEXT csvi
        CASE 1 :
            FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                opencsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 3 , csvi))) , ffGeneral , 4 , 4)
                highcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 4 , csvi))) , ffGeneral , 4 , 4)
                lowcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 5 , csvi))) , ffGeneral , 4 , 4)
                closecsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 6 , csvi))) , ffGeneral , 4 , 4)
                volumecsv = ROUND(log10(VAL(Grid.Cell(rowgridoffset + 7 , csvi))))
                csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
            NEXT csvi
    END SELECT
    csvFile.close

    '-===================================== End of export algo ================================

END SUB

SUB autoreverse ' AlphaVantage with US Stocks and Forex scanner
'showmessage "-1"
dim symbolslistbox2 as qstringgrid
    symbolslistbox2.colcount=1
    symbolslistbox2.rowcount=100
defint incr=0
   
    symbolslistbox2.cell(1,incr)="AGK.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "ANTO.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "AV.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "AZN.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "BA.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "BLND.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "BATS.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "BP.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "ADM.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "CCL.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "CNA.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "CPI.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "EMG.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "GFS.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "GSK.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "HMSO.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "LGEN.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "HSBA.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "IMI.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "ITV.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "KGF.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "LLOY.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "MKS.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "MRW.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "NG.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "NXT.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "PFC.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "PRU.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "RB.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "RBS.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "RDSA.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "RR.LON"
    'incr++
    'symbolslistbox2.cell(1,incr)= "RRS.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "RSA.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "TLW.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "STAN.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "SGE.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "SHRS.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "SN.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "SRP.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "BDEV.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "AHT.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "INTU.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "SBRY.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "SSE.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "GNC.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "NEX.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "ATST.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "AAL.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "AUTO.LON"
    'incr++
    'symbolslistbox2.cell(1,incr)= "GENE.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "ICP.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "TALK.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "PTEC.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "JUP.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "HAS.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "EZJ.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "LSE.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "MGGT.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "TPK.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "WMH.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "VOD.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "UU.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "ULVR.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "WPP.LON"
    incr++
    symbolslistbox2.cell(1,incr)= "WTB.LON"
    
    
    ' 64 UK stocks incr 0 - 63
    ' incr=63
    
    incr++
    symbolslistbox2.cell(1,incr)= "AGN.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "ASML.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "DSM.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "FUR.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "HEIA.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "INGA.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "KPN.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "RDSA.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "WHA.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "WKL.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "AKZA.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "PHIA.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "RAND.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "SBMO.AMS"
    incr++
    symbolslistbox2.cell(1,incr)= "TOM2.AMS"
    
    ' 15 ams stocks incr 64 - 78
    ' incr=78
    
    incr++
    symbolslistbox2.cell(1,incr)= "PUB.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "RI.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "AF.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "OR.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "BNP.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "CAP.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "ACA.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "CS.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "EDF.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "EN.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "FP.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "BOL.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "EO.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "ICAD.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "ILD.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "ORA.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "RCO.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "UBI.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "FNAC.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "CDI.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "MC.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "GLE.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "AIR.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "RNO.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "BN.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "STM.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "SU.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "UG.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "ML.PAR"
    incr++
    symbolslistbox2.cell(1,incr)= "VK.PAR"
    
    ' 30 fr stocks incr 79 - 108
    ' incr=108
    
    incr++
    symbolslistbox2.cell(1,incr)= "DAI.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "RWE.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SDF.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "TKA.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "CBK.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "DPW.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "DTE.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "ALV.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "BAS.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "BAYN.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "BEI.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "ADS.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "AIXA.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "VOW3.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "VOW.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "BMW.DEX"
    'incr++
    'symbolslistbox2.cell(1,incr)= "CON.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "DBK.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "DB1.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SGL.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "DEZ.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "HNR1.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "HDD.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SOW.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "ARL.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "G1A.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "MOR.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "GBF.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "DLG.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "FRA.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "FPE.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "AIR.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "GIL.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "PAH3.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "MTX.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SZG.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "PFV.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "PSM.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "QIA.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SPR.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "ZIL2.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "BNR.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "FNTN.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "QSC.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "RHM.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "ZAL.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "RHK.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SZU.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SY1.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "TUI1.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "WDI.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "HOT.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "KCO.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "KRN.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "LXS.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "LEO.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "MAN.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "EOAN.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "FME.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "FRE.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "HEN3.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "HEI.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "IFX.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "LHA.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "LIN.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "MRK.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "MUV2.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "NDA.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "NDX1.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SAP.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SIE.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "SMHN.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "UTDI.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "UN01.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "WCH.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "VNA.DEX"
    incr++
    symbolslistbox2.cell(1,incr)= "BOSS.DEX" 
    
    ' 76 de stocks incr 109 - 184
    ' incr=184
       
    incr++
    symbolslistbox2.cell(1,incr)= "AXP"
    incr++
    symbolslistbox2.cell(1,incr)= "HPQ"
    incr++
    symbolslistbox2.cell(1,incr)= "NEM"
    incr++
    symbolslistbox2.cell(1,incr)= "NEM" '"GOOGC"
    incr++
    symbolslistbox2.cell(1,incr)= "BABA"
    incr++
    symbolslistbox2.cell(1,incr)= "AA"
    incr++
    symbolslistbox2.cell(1,incr)= "NLOK"
    incr++
    symbolslistbox2.cell(1,incr)= "TIF"
    incr++
    symbolslistbox2.cell(1,incr)= "TXN"
    incr++
    symbolslistbox2.cell(1,incr)= "UPS"
    incr++
    symbolslistbox2.cell(1,incr)= "USB"
    incr++
    symbolslistbox2.cell(1,incr)= "USB" 'UTX
    incr++
    symbolslistbox2.cell(1,incr)= "VLO"
    incr++
    symbolslistbox2.cell(1,incr)= "VRTX"
    incr++
    symbolslistbox2.cell(1,incr)= "VZ"
    incr++
    symbolslistbox2.cell(1,incr)= "WHR"
    incr++
    symbolslistbox2.cell(1,incr)= "WFC"
    incr++
    symbolslistbox2.cell(1,incr)= "WMT"
    incr++
    symbolslistbox2.cell(1,incr)= "WU"
    incr++
    symbolslistbox2.cell(1,incr)= "WYNN"
    incr++
    symbolslistbox2.cell(1,incr)= "XLNX"
    incr++
    symbolslistbox2.cell(1,incr)= "XOM"
    incr++
    symbolslistbox2.cell(1,incr)= "YUM"
    incr++
    symbolslistbox2.cell(1,incr)= "AAPL"
    incr++
    symbolslistbox2.cell(1,incr)= "AMZN"
    incr++
    symbolslistbox2.cell(1,incr)= "ADBE"
    incr++
    symbolslistbox2.cell(1,incr)= "AMAT"
    incr++
    symbolslistbox2.cell(1,incr)= "AKAM"
    incr++
    symbolslistbox2.cell(1,incr)= "AMGN"
    incr++
    symbolslistbox2.cell(1,incr)= "ANF"
    incr++
    symbolslistbox2.cell(1,incr)= "BA"
    incr++
    symbolslistbox2.cell(1,incr)= "BAC"
    incr++
    symbolslistbox2.cell(1,incr)= "BBBY"
    incr++
    symbolslistbox2.cell(1,incr)= "BIDU"
    incr++
    symbolslistbox2.cell(1,incr)= "BIIB"
    incr++
    symbolslistbox2.cell(1,incr)= "BK"
    incr++
    symbolslistbox2.cell(1,incr)= "BMY"
    incr++
    symbolslistbox2.cell(1,incr)= "CAT"
    incr++
    symbolslistbox2.cell(1,incr)= "KO"
    incr++
    symbolslistbox2.cell(1,incr)= "KO" '"CELG" invalid
    incr++
    symbolslistbox2.cell(1,incr)= "CMCSA"
    incr++
    symbolslistbox2.cell(1,incr)= "COP"
    incr++
    symbolslistbox2.cell(1,incr)= "COST"
    incr++
    symbolslistbox2.cell(1,incr)= "CSCO"
    incr++
    symbolslistbox2.cell(1,incr)= "CTSH"
    incr++
    symbolslistbox2.cell(1,incr)= "CVX"
    incr++
    symbolslistbox2.cell(1,incr)= "DIS"
    incr++
    symbolslistbox2.cell(1,incr)= "EBAY"
    incr++
    symbolslistbox2.cell(1,incr)= "FDX"
    incr++
    symbolslistbox2.cell(1,incr)= "F"
    incr++
    symbolslistbox2.cell(1,incr)= "EXPE"
    incr++
    symbolslistbox2.cell(1,incr)= "FSLR"
    incr++
    symbolslistbox2.cell(1,incr)= "GE"
    incr++
    symbolslistbox2.cell(1,incr)= "GILD"
    incr++
    symbolslistbox2.cell(1,incr)= "GOOG"
    incr++
    symbolslistbox2.cell(1,incr)= "GS"
    incr++
    symbolslistbox2.cell(1,incr)= "HAL"
    incr++
    symbolslistbox2.cell(1,incr)= "HD"
    incr++
    symbolslistbox2.cell(1,incr)= "HOG"
    incr++
    symbolslistbox2.cell(1,incr)= "IBM"
    incr++
    symbolslistbox2.cell(1,incr)= "INTC"
    incr++
    symbolslistbox2.cell(1,incr)= "INTU"
    incr++
    symbolslistbox2.cell(1,incr)= "JNJ"
    incr++
    symbolslistbox2.cell(1,incr)= "JPM"
    incr++
    symbolslistbox2.cell(1,incr)= "MA"
    incr++
    symbolslistbox2.cell(1,incr)= "MCD"
    incr++
    symbolslistbox2.cell(1,incr)= "MCO"
    incr++
    symbolslistbox2.cell(1,incr)= "MMM"
    incr++
    symbolslistbox2.cell(1,incr)= "MO"
    incr++
    symbolslistbox2.cell(1,incr)= "MRO"
    incr++
    symbolslistbox2.cell(1,incr)= "MS"
    incr++
    symbolslistbox2.cell(1,incr)= "MSI"
    incr++
    symbolslistbox2.cell(1,incr)= "MSFT"
    incr++
    symbolslistbox2.cell(1,incr)= "NDAQ"
    incr++
    symbolslistbox2.cell(1,incr)= "NFLX"
    incr++
    symbolslistbox2.cell(1,incr)= "NVDA"
    incr++
    symbolslistbox2.cell(1,incr)= "PEP"
    incr++
    symbolslistbox2.cell(1,incr)= "PFE"
    incr++
    symbolslistbox2.cell(1,incr)= "PG"
    incr++
    symbolslistbox2.cell(1,incr)= "PM"
    incr++
    symbolslistbox2.cell(1,incr)= "RACE"
    incr++
    symbolslistbox2.cell(1,incr)= "UA"
    incr++
    symbolslistbox2.cell(1,incr)= "CL"
    incr++
    symbolslistbox2.cell(1,incr)= "BLK"
    incr++
    symbolslistbox2.cell(1,incr)= "ICE"
    incr++
    symbolslistbox2.cell(1,incr)= "NKE"
    incr++
    symbolslistbox2.cell(1,incr)= "ATVI"
    incr++
    symbolslistbox2.cell(1,incr)= "AN"
    incr++
    symbolslistbox2.cell(1,incr)= "AZO"
    incr++
    symbolslistbox2.cell(1,incr)= "CHRW"
    incr++
    symbolslistbox2.cell(1,incr)= "PAYX"
    incr++
    symbolslistbox2.cell(1,incr)= "PAYX" '"AVP" invalid
    incr++
    symbolslistbox2.cell(1,incr)= "CME"
    incr++
    symbolslistbox2.cell(1,incr)= "CTAS"
    incr++
    symbolslistbox2.cell(1,incr)= "C"
    incr++
    symbolslistbox2.cell(1,incr)= "CTXS"
    incr++
    symbolslistbox2.cell(1,incr)= "CSX"
    incr++
    symbolslistbox2.cell(1,incr)= "DAL"
    incr++
    symbolslistbox2.cell(1,incr)= "XRAY"
    incr++
    symbolslistbox2.cell(1,incr)= "DISCA"
    incr++
    symbolslistbox2.cell(1,incr)= "DISH"
    incr++
    symbolslistbox2.cell(1,incr)= "EXPD"
    incr++
    symbolslistbox2.cell(1,incr)= "FAST"
    incr++
    symbolslistbox2.cell(1,incr)= "FITB"
    incr++
    symbolslistbox2.cell(1,incr)= "FISV"
    incr++
    symbolslistbox2.cell(1,incr)= "ISRG"
    incr++
    symbolslistbox2.cell(1,incr)= "KLAC"
    incr++
    symbolslistbox2.cell(1,incr)= "MAR"
    incr++
    symbolslistbox2.cell(1,incr)= "MAT"
    incr++
    symbolslistbox2.cell(1,incr)= "NTRS"
    incr++
    symbolslistbox2.cell(1,incr)= "PCAR"
    incr++
    symbolslistbox2.cell(1,incr)= "REGN"
    incr++
    symbolslistbox2.cell(1,incr)= "SIRI"
    incr++
    symbolslistbox2.cell(1,incr)= "ABT"
    incr++
    symbolslistbox2.cell(1,incr)= "AEP"
    incr++
    symbolslistbox2.cell(1,incr)= "AIG"
    incr++
    symbolslistbox2.cell(1,incr)= "APA"
    incr++
    symbolslistbox2.cell(1,incr)= "BXP"
    incr++
    symbolslistbox2.cell(1,incr)= "BSX"
    incr++
    symbolslistbox2.cell(1,incr)= "ORCL"
    incr++
    symbolslistbox2.cell(1,incr)= "CCL"
    incr++
    symbolslistbox2.cell(1,incr)= "CNP"
    incr++
    symbolslistbox2.cell(1,incr)= "CIEN"
    incr++
    symbolslistbox2.cell(1,incr)= "CI"
    incr++
    symbolslistbox2.cell(1,incr)= "KO"
    incr++
    symbolslistbox2.cell(1,incr)= "CVS"
    incr++
    symbolslistbox2.cell(1,incr)= "DB"
    incr++
    symbolslistbox2.cell(1,incr)= "DVN"
    incr++
    symbolslistbox2.cell(1,incr)= "DG"
    incr++
    symbolslistbox2.cell(1,incr)= "DTE"
    incr++
    symbolslistbox2.cell(1,incr)= "DUK"
    incr++
    symbolslistbox2.cell(1,incr)= "EMR"
    incr++
    symbolslistbox2.cell(1,incr)= "EXC"
    incr++
    symbolslistbox2.cell(1,incr)= "GD"
    incr++
    symbolslistbox2.cell(1,incr)= "GGAL"
    incr++
    symbolslistbox2.cell(1,incr)= "IP"
    incr++
    symbolslistbox2.cell(1,incr)= "XRX"
    incr++
    symbolslistbox2.cell(1,incr)= "LVS"
    incr++
    symbolslistbox2.cell(1,incr)= "MDT"
    incr++
    symbolslistbox2.cell(1,incr)= "NEE"
    incr++
    symbolslistbox2.cell(1,incr)= "OXY"
    incr++
    symbolslistbox2.cell(1,incr)= "DGX"
    incr++
    symbolslistbox2.cell(1,incr)= "ROK"
    incr++
    symbolslistbox2.cell(1,incr)= "SIG"
    incr++
    symbolslistbox2.cell(1,incr)= "SIG" 'STI
    incr++
    symbolslistbox2.cell(1,incr)= "STI" '"TSO" invalid
    incr++
    symbolslistbox2.cell(1,incr)= "RIG"
    incr++
    symbolslistbox2.cell(1,incr)= "DE"
    incr++
    symbolslistbox2.cell(1,incr)= "PYPL"
    incr++
    symbolslistbox2.cell(1,incr)= "UAL"
    incr++
    symbolslistbox2.cell(1,incr)= "TEF"
    incr++
    symbolslistbox2.cell(1,incr)= "SYY"
    incr++
    symbolslistbox2.cell(1,incr)= "TEVA"
    incr++
    symbolslistbox2.cell(1,incr)= "ULTA"
    incr++
    symbolslistbox2.cell(1,incr)= "UNP"
    incr++
    symbolslistbox2.cell(1,incr)= "UNH"
    incr++
    symbolslistbox2.cell(1,incr)= "X"
    incr++
    symbolslistbox2.cell(1,incr)= "VRSN"
    incr++
    symbolslistbox2.cell(1,incr)= "TSLA"
    incr++
    symbolslistbox2.cell(1,incr)= "V"
    incr++
    symbolslistbox2.cell(1,incr)= "PRU"
    incr++
    symbolslistbox2.cell(1,incr)= "QCOM"
    incr++
    symbolslistbox2.cell(1,incr)= "RL"
    incr++
    symbolslistbox2.cell(1,incr)= "ROST"
    incr++
    symbolslistbox2.cell(1,incr)= "SBUX"
    incr++
    symbolslistbox2.cell(1,incr)= "SLB"
    incr++
    symbolslistbox2.cell(1,incr)= "FB"
    incr++
    symbolslistbox2.cell(1,incr)= "STX"
    incr++
    symbolslistbox2.cell(1,incr)= "EA"
    incr++
    symbolslistbox2.cell(1,incr)= "MT"
    incr++
    symbolslistbox2.cell(1,incr)= "T"
    incr++
    symbolslistbox2.cell(1,incr)= "LMT"
    incr++
    symbolslistbox2.cell(1,incr)= "NUS"
    incr++
    symbolslistbox2.cell(1,incr)= "ZTO"
    incr++
    symbolslistbox2.cell(1,incr)= "FCAU"
    incr++
    symbolslistbox2.cell(1,incr)= "TRVG"
    incr++
    symbolslistbox2.cell(1,incr)= "AMD"
    incr++
    symbolslistbox2.cell(1,incr)= "AOBC"
    incr++
    symbolslistbox2.cell(1,incr)= "CMG"
    incr++
    symbolslistbox2.cell(1,incr)= "CMG" '"JAG" invalid
    incr++
    symbolslistbox2.cell(1,incr)= "NOK"
    incr++
    symbolslistbox2.cell(1,incr)= "BITA"
    incr++
    symbolslistbox2.cell(1,incr)= "SNAP"
    incr++
    symbolslistbox2.cell(1,incr)= "TRP"
    incr++
    symbolslistbox2.cell(1,incr)= "TWTR"
    incr++
    symbolslistbox2.cell(1,incr)= "CLDR"
    incr++
    symbolslistbox2.cell(1,incr)= "NVS"
    incr++
    symbolslistbox2.cell(1,incr)= "ALB"
    incr++
    symbolslistbox2.cell(1,incr)= "RYAAY"
    incr++
    symbolslistbox2.cell(1,incr)= "AVGO"
    incr++
    symbolslistbox2.cell(1,incr)= "MDLZ"
    incr++
    symbolslistbox2.cell(1,incr)= "MU"
    incr++
    symbolslistbox2.cell(1,incr)= "BRKB"
    incr++
    symbolslistbox2.cell(1,incr)= "KHC"
    incr++
    symbolslistbox2.cell(1,incr)= "PALL" 'palladium "KHC" '"DWDP" invalid
    incr++
    symbolslistbox2.cell(1,incr)= "TRV"
    incr++
    symbolslistbox2.cell(1,incr)= "TRV" 'RTN
    incr++
    symbolslistbox2.cell(1,incr)= "PCG"
    incr++
    symbolslistbox2.cell(1,incr)= "TPR"
    incr++
    symbolslistbox2.cell(1,incr)= "BB"
    incr++
    symbolslistbox2.cell(1,incr)= "GWPH"
    incr++
    symbolslistbox2.cell(1,incr)= "WBA"
    incr++
    symbolslistbox2.cell(1,incr)= "BKNG"
    incr++
    symbolslistbox2.cell(1,incr)= "CCEP"
    incr++
    symbolslistbox2.cell(1,incr)= "NTAP"
    incr++
    symbolslistbox2.cell(1,incr)= "GM"
    incr++
    symbolslistbox2.cell(1,incr)= "PPLT" 'platinum "GM" '"BEST" invalid
    incr++
    symbolslistbox2.cell(1,incr)= "ASAN"
    incr++
    symbolslistbox2.cell(1,incr)= "FROG"
    incr++
    symbolslistbox2.cell(1,incr)= "PLTR"
    incr++
    symbolslistbox2.cell(1,incr)= "SNOW"
    incr++
    symbolslistbox2.cell(1,incr)= "SUMO"
    incr++
    symbolslistbox2.cell(1,incr)= "U"
    incr++
    symbolslistbox2.cell(1,incr)= "VTRU"
    
    
    ' 214 USA stocks incr 185 - 398
    ' incr=398
    
    incr++
    symbolslistbox2.cell(1,incr)= "AMAS.MDR"
    incr++
    symbolslistbox2.cell(1,incr)= "IBE.MDR"
    incr++
    symbolslistbox2.cell(1,incr)= "GRF.MDR"
    incr++
    symbolslistbox2.cell(1,incr)= "REE.MDR"
    'incr++
    'symbolslistbox2.cell(1,incr)= "DIA.MDR"
    incr++
    symbolslistbox2.cell(1,incr)= "REP.MDR"
    incr++
    symbolslistbox2.cell(1,incr)= "BBVA.MDR"
    incr++
    symbolslistbox2.cell(1,incr)= "SAN.MDR"
    
    ' 7 Madrid stocks incr 399 - 405
    ' incr=405
    
    incr++
    symbolslistbox2.cell(1,incr)= "EEM"
    incr++
    symbolslistbox2.cell(1,incr)= "QQQ"
    incr++
    symbolslistbox2.cell(1,incr)= "EFA"
    incr++
    symbolslistbox2.cell(1,incr)= "IVV"
    incr++
    symbolslistbox2.cell(1,incr)= "EWT"
    incr++
    symbolslistbox2.cell(1,incr)= "IBB"
    incr++
    symbolslistbox2.cell(1,incr)= "SPY"
    incr++
    symbolslistbox2.cell(1,incr)= "EWY"
    incr++
    symbolslistbox2.cell(1,incr)= "FXI"
    incr++
    symbolslistbox2.cell(1,incr)= "GSG"
    incr++
    symbolslistbox2.cell(1,incr)= "IXC"
    incr++
    symbolslistbox2.cell(1,incr)= "IYR"
    
    ' 12 shares incr 406 - 417
    
    'incr=417
    
    incr++
    symbolslistbox2.cell(1,incr)= "NIB" 'COCOA
    incr++
    symbolslistbox2.cell(1,incr)= "JO" 'COFFEE
    incr++
    symbolslistbox2.cell(1,incr)= "UCO" 'OIL
    incr++
    symbolslistbox2.cell(1,incr)= "BAL" 'COTTON
    incr++
    symbolslistbox2.cell(1,incr)= "SCCO" 'COPPER "JJC" 'COPPER
    incr++
    symbolslistbox2.cell(1,incr)= "SLV" 'SILVER
    incr++
    symbolslistbox2.cell(1,incr)= "GAZ" 'NATURAL GAS
    incr++
    symbolslistbox2.cell(1,incr)= "BAL" 'COTTON
    incr++
    symbolslistbox2.cell(1,incr)= "SGG" 'SUGAR
    incr++
    symbolslistbox2.cell(1,incr)= "WEAT" 'WHEAT
    
    ' 10 commodities incr 418 - 427
    'incr=427
    
    incr++
    symbolslistbox2.cell(1,incr)= "DAX" 'VIX 'Volatility S&P 500 Indexes
    incr++
    symbolslistbox2.cell(1,incr)= "DAX" 
    incr++
    symbolslistbox2.cell(1,incr)= "FEZ" ' EURO STOXX 50 ETF
    incr++
    symbolslistbox2.cell(1,incr)= "FEZ" '"BTCUSD" invalid
    incr++
    symbolslistbox2.cell(1,incr)= "BCHUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "LTCUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "LTCUSD" '"ETHUSD" invalid
    
    ' 7 indexes incr 428 - 434
    'incr=434
    
    
    incr++
    symbolslistbox2.cell(1,incr)= "EURUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "USDCHF"
    incr++
    symbolslistbox2.cell(1,incr)= "USDJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "EURJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDNZD"
    incr++
    symbolslistbox2.cell(1,incr)= "CADJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "EURNZD"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDCAD"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPNZD"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDCHF"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPCAD"
    incr++
    symbolslistbox2.cell(1,incr)= "EURCHF"
    incr++
    symbolslistbox2.cell(1,incr)= "EURGBP"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDCHF"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "CADCHF"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPCHF"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPAUD"
    incr++
    symbolslistbox2.cell(1,incr)= "USDCAD"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDCAD"
    incr++
    symbolslistbox2.cell(1,incr)= "EURAUD"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "CHFJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "EURCAD"
    incr++
    symbolslistbox2.cell(1,incr)= "USDMXN"
    incr++
    symbolslistbox2.cell(1,incr)= "EURNOK"
    incr++
    symbolslistbox2.cell(1,incr)= "EURHUF"
    incr++
    symbolslistbox2.cell(1,incr)= "EURPLN"
    incr++
    symbolslistbox2.cell(1,incr)= "EURSEK"
    incr++
    symbolslistbox2.cell(1,incr)= "USDCNH"
    incr++
    symbolslistbox2.cell(1,incr)= "USDHUF"
    incr++
    symbolslistbox2.cell(1,incr)= "USDNOK"
    incr++
    symbolslistbox2.cell(1,incr)= "USDSGD"
    incr++
    symbolslistbox2.cell(1,incr)= "USDHKD"
    incr++
    symbolslistbox2.cell(1,incr)= "CHFZAR"
    incr++
    symbolslistbox2.cell(1,incr)= "EURTRY"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPPLN"
    incr++
    symbolslistbox2.cell(1,incr)= "EURZAR"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPZAR"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDHKD"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDSGD"
    incr++
    symbolslistbox2.cell(1,incr)= "TRYJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "USDSEK"
    incr++
    symbolslistbox2.cell(1,incr)= "USDTRY"
    incr++
    symbolslistbox2.cell(1,incr)= "USDZAR"
    incr++
    symbolslistbox2.cell(1,incr)= "ZARJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDHKD"
    incr++
    symbolslistbox2.cell(1,incr)= "CADHKD"
    incr++
    symbolslistbox2.cell(1,incr)= "CADSGD"
    incr++
    symbolslistbox2.cell(1,incr)= "CHFHKD"
    incr++
    symbolslistbox2.cell(1,incr)= "EURHKD"
    incr++
    symbolslistbox2.cell(1,incr)= "EURSGD"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPHKD"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPSGD"
    incr++
    symbolslistbox2.cell(1,incr)= "SGDHKD"
    incr++
    symbolslistbox2.cell(1,incr)= "HKDJPY"
    incr++
    symbolslistbox2.cell(1,incr)= "SGDCHF"
    incr++
    symbolslistbox2.cell(1,incr)= "SGDJPY"
    
    ' 62 Forex pairs 435 - 496
    ' incr=496
    

    signaltrigger = 0

    defint incr2=0
    ini.Section = "Settings"
    IF ini.get("lastsymbol" , "") <> "" THEN incr2 = val(ini.get("lastsymbol" , ""))
    WHILE signaltrigger = 0
    onerrorresumelabel :
    'barsdisplayed.Text = "222"

        IF ini.exist THEN
            ini.Section = "Settings"
            IF VAL(ini.get("automation" , "")) = 0 THEN
                signaltrigger = 1
                EXIT SUB
            END IF
        END IF

        writealive
        DIM i AS INTEGER
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
        useindischeckbox.Checked = 0   
        
        ini.Section = "Settings"
        if ini.get("scantimeframe" , "")="60" then dstimeframe.itemindex=4
        if ini.get("scantimeframe" , "")="1440" then dstimeframe.itemindex=6
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and incr2>184 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2<185 or incr2>417) THEN
        incr2=185
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2>417) THEN
        incr2=0 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<435 or incr2>496) THEN
        incr2=435 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF      
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<185 or incr2>496) THEN
        incr2=185 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF    
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2>184 and incr2<418) THEN
        if incr2>184 and incr2<418 then incr2=418
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF  
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<0 or incr2>496) THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF 
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF 
          
        
        if incr2<=434 then dssource.itemindex=3
        if incr2>434 then dssource.itemindex=4     
        
        defint incr2tmp=incr2         
        
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        IF dssymboledit.text="" then
        'signaltrigger = 1
        'goto wendend
        dssource.itemindex=3
        incr2=0
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        end if
        incr2++
        ini.Section = "Settings"
        ini.Write("lastsymbol" , str$(incr2))
        
        ' Check if symbol exists
        'alphavantagesearchsymboledit.text=dssymboledit.text
        'alphavantagesearchsymbolbuttonclicksub          
        'timerautomation.enabled=1        
        'while timerautomationready=0
        'doevents
        'wend
        'timerautomationready=0
        'timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN  
        
        while dssource.itemindex<3 and dssource.itemindex>4
            doevents
            if incr2tmp<=434 then dssource.itemindex=3
            if incr2tmp>434 then dssource.itemindex=4
        wend
                            
        dsokclick
        'else 
        'goto wendend
        'end if
        
        timerautomation.enabled=1        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN                      
        'dsokclick
        'else 
        'goto wendend
        'end if
        
        writealive
        
        DIM filestream AS QFILESTREAM
        'DEFSTR filestr = ""
        defint incr3=incr2-1
        if incr3<=434 then filestream.Open("c:\qchartist\csv\alpha_vantage\test2.txt" , 0)
        if incr3>434 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
        'filestr = ""
        'defstr filestreamlinecoun
        'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 THEN
        if filestream.size<1000 then
        PRINT "Invalid symbol or > 5 calls per minute and 500 calls per day"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        ''googlerealtimebusytimer.enabled=0
        'EXIT SUB
        filestream.Close
        goto onerrorresumelabel
        END IF
        
        'IF like(filestr , "*Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency.*") = 1 THEN
        'PRINT "Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency."
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        ''googlerealtimebusytimer.enabled=0
        ''EXIT SUB
        'filestream.Close
        'goto onerrorresumelabel
        'END IF 
                                  
        'DOEVENTS
        'WEND
        filestream.Close
        
        'reimportfile()

        'btnOnClick(drwBox)
        'exit sub
        while displayedfile<1
        doevents
        wend                

        'symbolslistbox2.itemindex=symbolslistbox2.itemindex+1
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "MA Chanels FiboEnv Mid") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        if charttf(displayedfile)<>1 and _
            charttf(displayedfile)<>5 and _
            charttf(displayedfile)<>15 and _
            charttf(displayedfile)<>30 and _
            charttf(displayedfile)<>60 and _
            charttf(displayedfile)<>240 and _
            charttf(displayedfile)<>1440 and _
            charttf(displayedfile)<>10080 and _
            charttf(displayedfile)<>43200 then
                attribtfcombo.itemindex=4
                attribtfeditItemChanged
                MA_Chanels_FiboEnv_Midautotf.checked=0
                MA_Chanels_FiboEnv_Midcurtfedit.text="60"
                SwamiRSI_v1curtfedit.text="60"
                SwamiRSI_v1autotf.checked=0
        end if
        btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
        '        EXIT FOR
        '    END IF
        'NEXT i
        'indicatorslist.ItemIndex = i        
        'btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
        '        EXIT FOR
        '    END IF
        '    NEXT i
        '    indicatorslist.ItemIndex = i        
        '    btnaddindi_click()
        
         
        
        useindischeckbox.Checked=1
        'showcanvasclick
        justrefreshchart
        writealive

        defstr zerostr="0"
        defstr bdslowerbufferstr="MA_Chanels_FiboEnv_Midbuffer7"
        defstr bdsupperbufferstr="MA_Chanels_FiboEnv_Midbuffer1"
        'defstr SpanA_Bufferstr="SpanA_Buffer"
        'defstr SpanB_Bufferstr="SpanB_Buffer"
            
        IF (high(0) >= val(varptr$(getbufferdata(varptr(bdsupperbufferstr),varptr(zerostr))))) or (low(0) <= val(varptr$(getbufferdata(varptr(bdslowerbufferstr),varptr(zerostr))))) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
        
            useindischeckbox.Checked=1
            showcanvasclick
            justrefreshchart
            'writealive
            
            defstr RSI3bufferstr="RSI3"
            defstr sumRSIbufferstr="sumRSI"
                        
             
            'IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) or (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Bufferstr="SpanA_Buffer"
            defstr SpanB_Bufferstr="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Bufferstr),varptr(zerostr))))>val(varptr$(getbufferdata(varptr(SpanB_Bufferstr),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Buffer2str="SpanA_Buffer"
            defstr SpanB_Buffer2str="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Buffer2str),varptr(zerostr))))<val(varptr$(getbufferdata(varptr(SpanB_Buffer2str),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            
        END IF
        
        

       'sleep 2
       useindischeckbox.Checked=0
       ' closedispchart_click()
       
       'logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile) + CHR$(10)
        writetolog(DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile))

        'canvas.Visible = 0
        'sepindivalminlab.Visible = 0
        'sepindivalmaxlab.Visible = 0
        'sepindivalminedit.Visible = 0
        'sepindivalmaxedit.Visible = 0
        'sepindivalok.Visible = 0
        'showcanvas = 0
        'setup()
        'mixgridcolcount(displayedfile) = 0
        'mixgridcolcount2(displayedfile) = 0
        'mixgridcolcount3(displayedfile) = 0
        'mixgridcolcount4(displayedfile) = 0
        'updatemixerlists
        'say "Chart closed"
        openedfilesnb --
 
        cpptmpfuncreturn=varptr$(openedfilesnbminusone())

        dispchartnb.DelItems = dispchartnb.ItemCount - 1

        dispchartnb.ItemIndex = displayedfile - 1

        chartstart = Scrollchart.Position - numbars
        'updatemixerlists

        Graph.Visible = FALSE

        split.Visible = 0

        splith.Visible = 0

        closedispchart.Visible = FALSE

        Scrollchart.Visible = 0

        pricescaleplusbtn.visible=0

        pricescaleminusbtn.visible=0

        addbarsbtn.visible=0

        shiftchartbtn.visible=0        
        'closedispcanvas.Visible = 0    
        closedispcanvas_click    

        tfmult.Text = "1"

        barsdisplayed.Text = "222"

        'disableallindis  

        displayedfile=0
        MA_Chanels_FiboEnv_Midautotf.checked=1
        SwamiRSI_v1autotf.checked=1
        
        
        timerautomation.enabled=1
        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        wendend:
       
    WEND

END SUB






SUB autoreverse6 ' Tiingo with Crypto scanner
'showmessage "-1"
dim symbolslistbox2 as qstringgrid
    symbolslistbox2.colcount=1
    symbolslistbox2.rowcount=100
defint incr=0          
    
    'incr++
    symbolslistbox2.cell(1,incr)= "BTCUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "btceur"
    incr++
    symbolslistbox2.cell(1,incr)= "btcgbp"
    incr++
    symbolslistbox2.cell(1,incr)= "btcjpy"
    incr++
    symbolslistbox2.cell(1,incr)= "btcaud"
    incr++
    'symbolslistbox2.cell(1,incr)= "btcnzd"
    'incr++
    symbolslistbox2.cell(1,incr)= "btccad"
    incr++
    symbolslistbox2.cell(1,incr)= "btcchf"
    incr++
    'symbolslistbox2.cell(1,incr)= "btceos"
    'incr++
    'symbolslistbox2.cell(1,incr)= "btcxlm"
    'incr++
    symbolslistbox2.cell(1,incr)= "ETHUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "ethbtc"
    incr++
    'symbolslistbox2.cell(1,incr)= "etheos"
    'incr++
    'symbolslistbox2.cell(1,incr)= "ethxlm"
    'incr++
    symbolslistbox2.cell(1,incr)= "etheur"
    incr++
    symbolslistbox2.cell(1,incr)= "ethgbp"
    incr++
    symbolslistbox2.cell(1,incr)= "ethjpy"
    incr++
    symbolslistbox2.cell(1,incr)= "ethaud"
    incr++
    'symbolslistbox2.cell(1,incr)= "ethnzd"
    'incr++
    symbolslistbox2.cell(1,incr)= "ethcad"
    incr++
    symbolslistbox2.cell(1,incr)= "ethchf"
    incr++
    symbolslistbox2.cell(1,incr)= "eosgbp"
    incr++
    symbolslistbox2.cell(1,incr)= "eosjpy"
    incr++
    symbolslistbox2.cell(1,incr)= "BCHUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "bcheur"
    incr++
    symbolslistbox2.cell(1,incr)= "bchgbp"
    incr++
    symbolslistbox2.cell(1,incr)= "bchaud"
    incr++
    'symbolslistbox2.cell(1,incr)= "bchnzd"
    'incr++
    'symbolslistbox2.cell(1,incr)= "bchcad"
    'incr++
    'symbolslistbox2.cell(1,incr)= "bchchf"
    'incr++
    symbolslistbox2.cell(1,incr)= "bchjpy"
    incr++
    'symbolslistbox2.cell(1,incr)= "bchltc"
    'incr++
    symbolslistbox2.cell(1,incr)= "XRPUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "xrpeur"
    incr++
    symbolslistbox2.cell(1,incr)= "xrpgbp"
    incr++
    symbolslistbox2.cell(1,incr)= "xrpjpy"
    incr++
    symbolslistbox2.cell(1,incr)= "xrpaud"
    incr++
    'symbolslistbox2.cell(1,incr)= "xrpnzd"
    'incr++
    symbolslistbox2.cell(1,incr)= "xrpcad"
    incr++
    'symbolslistbox2.cell(1,incr)= "xrpchf"
    'incr++
    symbolslistbox2.cell(1,incr)= "DASHUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "LTCUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "ltceur"
    incr++
    symbolslistbox2.cell(1,incr)= "ltcgbp"
    incr++
    symbolslistbox2.cell(1,incr)= "ltcaud"
    incr++
    'symbolslistbox2.cell(1,incr)= "ltcnzd"
    'incr++
    'symbolslistbox2.cell(1,incr)= "ltccad"
    'incr++
    'symbolslistbox2.cell(1,incr)= "ltcchf"
    'incr++
    symbolslistbox2.cell(1,incr)= "ltcjpy"
    incr++
    symbolslistbox2.cell(1,incr)= "ETCUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "etceur"
    incr++
    symbolslistbox2.cell(1,incr)= "etcgbp"
    incr++
    'symbolslistbox2.cell(1,incr)= "etcaud"
    'incr++
    'symbolslistbox2.cell(1,incr)= "etcnzd"
    'incr++
    'symbolslistbox2.cell(1,incr)= "etccad"
    'incr++
    'symbolslistbox2.cell(1,incr)= "etcchf"
    'incr++
    'symbolslistbox2.cell(1,incr)= "etcjpy"
    'incr++
    symbolslistbox2.cell(1,incr)= "ADAUSD"
    'incr++
    'symbolslistbox2.cell(1,incr)= "MIOTAUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "XLMUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "xlmeur"
    incr++
    symbolslistbox2.cell(1,incr)= "xlmgbp"
    incr++
    'symbolslistbox2.cell(1,incr)= "xlmjpy"
    'incr++
    symbolslistbox2.cell(1,incr)= "EOSUSD"
    'incr++
    'symbolslistbox2.cell(1,incr)= "NEOUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "TRXUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "ZECUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "zeceth"
    incr++
    'symbolslistbox2.cell(1,incr)= "zecltc"
    'incr++
    'symbolslistbox2.cell(1,incr)= "zecbch"
    'incr++
    'symbolslistbox2.cell(1,incr)= "zecdash"
    'incr++
    'symbolslistbox2.cell(1,incr)= "zecxrp"
    'incr++
    'symbolslistbox2.cell(1,incr)= "zecxlm"
    'incr++
    'symbolslistbox2.cell(1,incr)= "zecgbp"
    'incr++
    'symbolslistbox2.cell(1,incr)= "zecjpy"
    'incr++
    symbolslistbox2.cell(1,incr)= "zeceur"
    'incr++
    'symbolslistbox2.cell(1,incr)= "BNBUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "XTZUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "DOTUSD"
    incr++
    'symbolslistbox2.cell(1,incr)= "MRKUSD"
    'incr++
    symbolslistbox2.cell(1,incr)= "COMPUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "LINKUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "UNIUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "YFIUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "DOGEUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "AAVEUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "FILUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "ALGOUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "ATOMUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "MANAUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "APEUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "LRCUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "ENJUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "BATUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "BNTUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "MATICUSD"
    incr++
    'symbolslistbox2.cell(1,incr)= "FLRUSD"
    'incr++
    symbolslistbox2.cell(1,incr)= "GALAUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "CHZUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "HBARUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "DYDXUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "SOLUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "THETAUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "FTMUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "GRTUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "1INCHUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "CRVUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "ANKRUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "RENUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "SNXUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "STORJUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "CELOUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "SUSHIUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "QNTUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "BALUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "FETUSD"
    incr++
    'symbolslistbox2.cell(1,incr)= "SHIBXMUSD"
    'incr++
    symbolslistbox2.cell(1,incr)= "AXSUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "SANDUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "AVAXUSD"
    incr++
    symbolslistbox2.cell(1,incr)= "xrpeth"
    incr++
    'symbolslistbox2.cell(1,incr)= "xrpdash"
    'incr++
    symbolslistbox2.cell(1,incr)= "bchbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "bcheth"
    incr++
    symbolslistbox2.cell(1,incr)= "dashbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "dasheth"
    'incr++
    'symbolslistbox2.cell(1,incr)= "dasheos"
    'incr++
    'symbolslistbox2.cell(1,incr)= "xrpeos"
    'incr++
    'symbolslistbox2.cell(1,incr)= "xrpneo"
    incr++
    symbolslistbox2.cell(1,incr)= "ltcbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "ltceth"
    'incr++
    'symbolslistbox2.cell(1,incr)= "ltceos"
    incr++
    symbolslistbox2.cell(1,incr)= "etcbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "etceth"
    incr++
    symbolslistbox2.cell(1,incr)= "adabtc"
    incr++
    symbolslistbox2.cell(1,incr)= "adaeth"
    incr++
    symbolslistbox2.cell(1,incr)= "xlmbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "xlmeth"
    incr++
    symbolslistbox2.cell(1,incr)= "eosbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "eoseth"
    incr++
    'symbolslistbox2.cell(1,incr)= "eosxlm"
    'incr++
    symbolslistbox2.cell(1,incr)= "neobtc"
    incr++
    symbolslistbox2.cell(1,incr)= "neoeth"
    'incr++
    'symbolslistbox2.cell(1,incr)= "neoeos"
    incr++
    symbolslistbox2.cell(1,incr)= "trxbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "trxeth"
    incr++
    symbolslistbox2.cell(1,incr)= "trxxrp"
    incr++
    'symbolslistbox2.cell(1,incr)= "trxeos"
    'incr++
    symbolslistbox2.cell(1,incr)= "zecbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "zeceth"
    'incr++
    'symbolslistbox2.cell(1,incr)= "zeceos"
    incr++
    symbolslistbox2.cell(1,incr)= "bnbbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "bnbeth"
    incr++
    symbolslistbox2.cell(1,incr)= "xtzbtc"
    incr++
    symbolslistbox2.cell(1,incr)= "xtzeth"
    incr++
    symbolslistbox2.cell(1,incr)= "xtztrx"
    incr++
    symbolslistbox2.cell(1,incr)= "btcbnb"
    incr++
    symbolslistbox2.cell(1,incr)= "ethtrx"
    incr++
    symbolslistbox2.cell(1,incr)= "bchbnb"
    incr++
    symbolslistbox2.cell(1,incr)= "xrptrx"
    'incr++
    'symbolslistbox2.cell(1,incr)= "dashbnb"
    incr++
    symbolslistbox2.cell(1,incr)= "ltcbnb"
    'incr++
    'symbolslistbox2.cell(1,incr)= "etcbnb"
    incr++
    symbolslistbox2.cell(1,incr)= "adabnb"
    incr++
    symbolslistbox2.cell(1,incr)= "eosbnb"
    incr++
    symbolslistbox2.cell(1,incr)= "neobnb"
    incr++
    symbolslistbox2.cell(1,incr)= "neotrx"
    'incr++
    'symbolslistbox2.cell(1,incr)= "bnbtrx"
    incr++
    symbolslistbox2.cell(1,incr)= "xtztrx"
    incr++
    symbolslistbox2.cell(1,incr)= "dogeusd"
    'incr++
    'symbolslistbox2.cell(1,incr)= "goldbtc"
    
    ' added 2022-06-29
    incr++
    symbolslistbox2.cell(1,incr)= "oxtusd"
    incr++
    symbolslistbox2.cell(1,incr)= "sklusd"
    incr++
    symbolslistbox2.cell(1,incr)= "bandusd"
    
    defint cryptosincr=incr
    ' 69 Crypto pairs 0 - 68
    ' incr=68
    

    signaltrigger = 0

    defint incr2=0
    ini.Section = "Settings"
    IF ini.get("lastsymbol" , "") <> "" THEN incr2 = val(ini.get("lastsymbol" , ""))
    WHILE signaltrigger = 0
    onerrorresumelabel :
    'barsdisplayed.Text = "222"

        IF ini.exist THEN
            ini.Section = "Settings"
            IF VAL(ini.get("automation" , "")) = 0 THEN
                signaltrigger = 1
                EXIT SUB
            END IF
        END IF

        writealive
        DIM i AS INTEGER
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
        useindischeckbox.Checked = 0   
        
        ini.Section = "Settings"
        if ini.get("scantimeframe" , "")="60" then dstimeframe.itemindex=4
        if ini.get("scantimeframe" , "")="1440" then dstimeframe.itemindex=6
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 0 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and incr2>184 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 0 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2<185 or incr2>417) THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 0 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2>417) THEN
        incr2=0 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 0 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<435 or incr2>496) THEN
        incr2=0 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF      
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 0 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<185 or incr2>496) THEN
        incr2=0 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF    
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 0 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2>184 and incr2<418) THEN
        if incr2>184 and incr2<418 then incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF  
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 0 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<0 or incr2>496) THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF 
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 0 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF 
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_Crypto_Stocks" , "")) = 1 and VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and incr2>cryptosincr+1 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
          
        
        if incr2<=cryptosincr+1 then dssource.itemindex=6
        'if incr2>434 then dssource.itemindex=4     
        
        defint incr2tmp=incr2         
        
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        IF dssymboledit.text="" then
        'signaltrigger = 1
        'goto wendend
        dssource.itemindex=6
        incr2=0
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        end if
        incr2++
        ini.Section = "Settings"
        ini.Write("lastsymbol" , str$(incr2))
        
        ' Check if symbol exists
        'alphavantagesearchsymboledit.text=dssymboledit.text
        'alphavantagesearchsymbolbuttonclicksub          
        'timerautomation.enabled=1        
        'while timerautomationready=0
        'doevents
        'wend
        'timerautomationready=0
        'timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN  
        
        while dssource.itemindex<6 'and dssource.itemindex>4
            doevents
            if incr2tmp<=cryptosincr+1 then dssource.itemindex=6
            'if incr2tmp>434 then dssource.itemindex=4
        wend
                            
        dsokclick
        'else 
        'goto wendend
        'end if
        
        timerautomation.enabled=1        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN                      
        'dsokclick
        'else 
        'goto wendend
        'end if
        
        writealive
        
        DIM filestream AS QFILESTREAM
        'DEFSTR filestr = ""
        defint incr3=incr2-1
        if incr3<=cryptosincr+1 then filestream.Open("c:\qchartist\csv\Tiingo\t1.txt" , 0)
        'if incr3>434 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
        'filestr = ""
        'defstr filestreamlinecoun
        'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 THEN
        if filestream.size<1000 then
        PRINT "Invalid symbol or > 5 calls per minute and 500 calls per day"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        ''googlerealtimebusytimer.enabled=0
        'EXIT SUB
        filestream.Close
        goto onerrorresumelabel
        END IF
        
        'IF like(filestr , "*Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency.*") = 1 THEN
        'PRINT "Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency."
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        ''googlerealtimebusytimer.enabled=0
        ''EXIT SUB
        'filestream.Close
        'goto onerrorresumelabel
        'END IF 
                                  
        'DOEVENTS
        'WEND
        filestream.Close
        
        'reimportfile()

        'btnOnClick(drwBox)
        'exit sub
        while displayedfile<1
        doevents
        wend           
        
        ini.Section = "Settings"
        if ini.get("tradingsystem" , "")="System Sync" then goto systemsynctiingolabel
        if ini.get("tradingsystem" , "")="TD Sequential" then goto tdsequentialtiingolabel     

        tdsequentialtiingolabel:
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "TD_Sequential") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        if charttf(displayedfile)<>1 and _
            charttf(displayedfile)<>5 and _
            charttf(displayedfile)<>15 and _
            charttf(displayedfile)<>30 and _
            charttf(displayedfile)<>60 and _
            charttf(displayedfile)<>240 and _
            charttf(displayedfile)<>1440 and _
            charttf(displayedfile)<>10080 and _
            charttf(displayedfile)<>43200 then
                attribtfcombo.itemindex=4
                attribtfeditItemChanged
                MA_Chanels_FiboEnv_Midautotf.checked=0
                MA_Chanels_FiboEnv_Midcurtfedit.text="60"
                SwamiRSI_v1curtfedit.text="60"
                SwamiRSI_v1autotf.checked=0
        end if
        btnaddindi_click()
        
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "BB - HL cpp") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i        
        btnaddindi_click()
        
        useindischeckbox.Checked=1
        'showcanvasclick
        justrefreshchart
        writealive
        
        defstr zerostr="0"
        defstr bbhlbdslowerbufferstr="lowerbandbuffer"
        defstr bbhlbdsupperbufferstr="upperbandbuffer"
        defstr bbhlbdsmidbufferstr="mabuffer"
        defdbl valbbhlbdslowerbuffer,valbbhlbdsupperbuffer,valbbhlbdsmidbuffer
        defdbl valbbhlbdslowerbuffer2,valbbhlbdsupperbuffer2
        valbbhlbdslowerbuffer=val(varptr$(getbufferdata(varptr(bbhlbdslowerbufferstr),varptr(zerostr))))
        valbbhlbdsupperbuffer=val(varptr$(getbufferdata(varptr(bbhlbdsupperbufferstr),varptr(zerostr))))
        valbbhlbdsmidbuffer=val(varptr$(getbufferdata(varptr(bbhlbdsmidbufferstr),varptr(zerostr))))
        valbbhlbdsupperbuffer2=(valbbhlbdsupperbuffer-valbbhlbdsmidbuffer)*0.4+valbbhlbdsmidbuffer
        valbbhlbdslowerbuffer2=valbbhlbdsmidbuffer-(valbbhlbdsmidbuffer-valbbhlbdslowerbuffer)*0.4
        
        IF (( high(0) >= valbbhlbdsupperbuffer2 ) or ( low(0) <= valbbhlbdslowerbuffer2 )) AND (val(textlabelsdb.Cell(3 , val(TD_Sequentialbarsbackedit.text)))>=13) then
        'IF (val(varptr$(getbufferdata(varptr(SpanA_Buffer2str),varptr(zerostr))))<val(varptr$(getbufferdata(varptr(SpanB_Buffer2str),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
        END IF                               
        
        goto endscanlabeltiingo

        systemsynctiingolabel:
        'symbolslistbox2.itemindex=symbolslistbox2.itemindex+1
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "MA Chanels FiboEnv Mid") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        if charttf(displayedfile)<>1 and _
            charttf(displayedfile)<>5 and _
            charttf(displayedfile)<>15 and _
            charttf(displayedfile)<>30 and _
            charttf(displayedfile)<>60 and _
            charttf(displayedfile)<>240 and _
            charttf(displayedfile)<>1440 and _
            charttf(displayedfile)<>10080 and _
            charttf(displayedfile)<>43200 then
                attribtfcombo.itemindex=4
                attribtfeditItemChanged
                MA_Chanels_FiboEnv_Midautotf.checked=0
                MA_Chanels_FiboEnv_Midcurtfedit.text="60"
                SwamiRSI_v1curtfedit.text="60"
                SwamiRSI_v1autotf.checked=0
        end if
        btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
        '        EXIT FOR
        '    END IF
        'NEXT i
        'indicatorslist.ItemIndex = i        
        'btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
        '        EXIT FOR
        '    END IF
        '    NEXT i
        '    indicatorslist.ItemIndex = i        
        '    btnaddindi_click()
        
         
        
        useindischeckbox.Checked=1
        'showcanvasclick
        justrefreshchart
        writealive

        zerostr="0"
        defstr bdslowerbufferstr="MA_Chanels_FiboEnv_Midbuffer7"
        defstr bdsupperbufferstr="MA_Chanels_FiboEnv_Midbuffer1"
        'defstr SpanA_Bufferstr="SpanA_Buffer"
        'defstr SpanB_Bufferstr="SpanB_Buffer"
            
        IF (high(0) >= val(varptr$(getbufferdata(varptr(bdsupperbufferstr),varptr(zerostr))))) or (low(0) <= val(varptr$(getbufferdata(varptr(bdslowerbufferstr),varptr(zerostr))))) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
        
            useindischeckbox.Checked=1
            showcanvasclick
            justrefreshchart
            'writealive
            
            defstr RSI3bufferstr="RSI3"
            defstr sumRSIbufferstr="sumRSI"
                        
             
            'IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) or (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Bufferstr="SpanA_Buffer"
            defstr SpanB_Bufferstr="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Bufferstr),varptr(zerostr))))>val(varptr$(getbufferdata(varptr(SpanB_Bufferstr),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Buffer2str="SpanA_Buffer"
            defstr SpanB_Buffer2str="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Buffer2str),varptr(zerostr))))<val(varptr$(getbufferdata(varptr(SpanB_Buffer2str),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            
        END IF
        
        endscanlabeltiingo:

       'sleep 2
       useindischeckbox.Checked=0
       ' closedispchart_click()
       
       'logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile) + CHR$(10)
        writetolog(DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile))

        'canvas.Visible = 0
        'sepindivalminlab.Visible = 0
        'sepindivalmaxlab.Visible = 0
        'sepindivalminedit.Visible = 0
        'sepindivalmaxedit.Visible = 0
        'sepindivalok.Visible = 0
        'showcanvas = 0
        'setup()
        'mixgridcolcount(displayedfile) = 0
        'mixgridcolcount2(displayedfile) = 0
        'mixgridcolcount3(displayedfile) = 0
        'mixgridcolcount4(displayedfile) = 0
        'updatemixerlists
        'say "Chart closed"
        openedfilesnb --
 
        cpptmpfuncreturn=varptr$(openedfilesnbminusone())

        dispchartnb.DelItems = dispchartnb.ItemCount - 1

        dispchartnb.ItemIndex = displayedfile - 1

        chartstart = Scrollchart.Position - numbars
        'updatemixerlists

        Graph.Visible = FALSE

        split.Visible = 0

        splith.Visible = 0

        closedispchart.Visible = FALSE

        Scrollchart.Visible = 0

        pricescaleplusbtn.visible=0

        pricescaleminusbtn.visible=0

        addbarsbtn.visible=0

        shiftchartbtn.visible=0        
        'closedispcanvas.Visible = 0    
        closedispcanvas_click    

        tfmult.Text = "1"

        barsdisplayed.Text = "222"

        'disableallindis  

        displayedfile=0
        MA_Chanels_FiboEnv_Midautotf.checked=1
        SwamiRSI_v1autotf.checked=1
        
        
        timerautomation.enabled=1
        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        wendend:
       
    WEND

END SUB







SUB autoreverse3 ' Yahoo_Finance with JFD Broker stocks scanner
'showmessage "-1"
dim symbolslistbox2 as qstringgrid
    symbolslistbox2.colcount=1
    symbolslistbox2.rowcount=100
defint incr=0

    symbolslistbox2.cell(1,incr)="AGK.L"
    incr++
    symbolslistbox2.cell(1,incr)= "ANTO.L"
    incr++
    symbolslistbox2.cell(1,incr)= "AV.L"
    incr++
    symbolslistbox2.cell(1,incr)= "AZN.L"
    incr++
    symbolslistbox2.cell(1,incr)= "BA.L"
    incr++
    symbolslistbox2.cell(1,incr)= "BLND.L"
    incr++
    symbolslistbox2.cell(1,incr)= "BATS.L"
    incr++
    symbolslistbox2.cell(1,incr)= "BP.L"
    incr++
    symbolslistbox2.cell(1,incr)= "ADM.L"
    incr++
    symbolslistbox2.cell(1,incr)= "CCL.L"
    incr++
    symbolslistbox2.cell(1,incr)= "CNA.L"
    incr++
    symbolslistbox2.cell(1,incr)= "CPI.L"
    incr++
    symbolslistbox2.cell(1,incr)= "EMG.L"
    incr++
    symbolslistbox2.cell(1,incr)= "GFS.L"
    incr++
    symbolslistbox2.cell(1,incr)= "GSK.L"
    incr++
    symbolslistbox2.cell(1,incr)= "HMSO.L"
    incr++
    symbolslistbox2.cell(1,incr)= "LGEN.L"
    incr++
    symbolslistbox2.cell(1,incr)= "HSBA.L"
    incr++
    symbolslistbox2.cell(1,incr)= "IMI.L"
    incr++
    symbolslistbox2.cell(1,incr)= "ITV.L"
    incr++
    symbolslistbox2.cell(1,incr)= "KGF.L"
    incr++
    symbolslistbox2.cell(1,incr)= "LLOY.L"
    incr++
    symbolslistbox2.cell(1,incr)= "MKS.L"
    incr++
    symbolslistbox2.cell(1,incr)= "MRW.L"
    incr++
    symbolslistbox2.cell(1,incr)= "NG.L"
    incr++
    symbolslistbox2.cell(1,incr)= "NXT.L"
    incr++
    symbolslistbox2.cell(1,incr)= "PFC.L"
    incr++
    symbolslistbox2.cell(1,incr)= "PRU.L"
    incr++
    symbolslistbox2.cell(1,incr)= "RB.L"
    incr++
    symbolslistbox2.cell(1,incr)= "RBS.L"
    incr++
    symbolslistbox2.cell(1,incr)= "RDSA.L"
    incr++
    symbolslistbox2.cell(1,incr)= "RR.L"
    'incr++
    'symbolslistbox2.cell(1,incr)= "RRS.L"
    incr++
    symbolslistbox2.cell(1,incr)= "RSA.L"
    incr++
    symbolslistbox2.cell(1,incr)= "TLW.L"
    incr++
    symbolslistbox2.cell(1,incr)= "STAN.L"
    incr++
    symbolslistbox2.cell(1,incr)= "SGE.L"
    incr++
    symbolslistbox2.cell(1,incr)= "SHRS.L"
    incr++
    symbolslistbox2.cell(1,incr)= "SN.L"
    incr++
    symbolslistbox2.cell(1,incr)= "SRP.L"
    incr++
    symbolslistbox2.cell(1,incr)= "BDEV.L"
    incr++
    symbolslistbox2.cell(1,incr)= "AHT.L"
    incr++
    symbolslistbox2.cell(1,incr)= "INTU.L"
    incr++
    symbolslistbox2.cell(1,incr)= "SBRY.L"
    incr++
    symbolslistbox2.cell(1,incr)= "SSE.L"
    incr++
    symbolslistbox2.cell(1,incr)= "GNC.L"
    incr++
    symbolslistbox2.cell(1,incr)= "NEX.L"
    incr++
    symbolslistbox2.cell(1,incr)= "ATST.L"
    incr++
    symbolslistbox2.cell(1,incr)= "AAL.L"
    incr++
    symbolslistbox2.cell(1,incr)= "AUTO.L"
    'incr++
    'symbolslistbox2.cell(1,incr)= "GENE.L"
    incr++
    symbolslistbox2.cell(1,incr)= "ICP.L"
    incr++
    symbolslistbox2.cell(1,incr)= "TALK.L"
    incr++
    symbolslistbox2.cell(1,incr)= "PTEC.L"
    incr++
    symbolslistbox2.cell(1,incr)= "JUP.L"
    incr++
    symbolslistbox2.cell(1,incr)= "HAS.L"
    incr++
    symbolslistbox2.cell(1,incr)= "EZJ.L"
    incr++
    symbolslistbox2.cell(1,incr)= "LSE.L"
    incr++
    symbolslistbox2.cell(1,incr)= "MGGT.L"
    incr++
    symbolslistbox2.cell(1,incr)= "TPK.L"
    incr++
    symbolslistbox2.cell(1,incr)= "WMH.L"
    incr++
    symbolslistbox2.cell(1,incr)= "VOD.L"
    incr++
    symbolslistbox2.cell(1,incr)= "UU.L"
    incr++
    symbolslistbox2.cell(1,incr)= "ULVR.L"
    incr++
    symbolslistbox2.cell(1,incr)= "WPP.L"
    incr++
    symbolslistbox2.cell(1,incr)= "WTB.L"
    
    
    ' 64 UK stocks incr 0 - 63
    ' incr=63
    
    incr++
    symbolslistbox2.cell(1,incr)= "AGN.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "ASML.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "DSM.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "FUR.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "HEIA.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "INGA.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "KPN.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "RDSA.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "WHA.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "WKL.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "AKZA.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "PHIA.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "RAND.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "SBMO.AS"
    incr++
    symbolslistbox2.cell(1,incr)= "TOM2.AS"
    
    ' 15 ams stocks incr 64 - 78
    ' incr=78
    
    incr++
    symbolslistbox2.cell(1,incr)= "PUB.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "RI.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "AF.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "OR.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "BNP.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "CAP.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "ACA.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "CS.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "EDF.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "EN.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "FP.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "BOL.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "EO.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "ICAD.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "ILD.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "ORA.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "RCO.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "UBI.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "FNAC.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "CDI.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "MC.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "GLE.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "AIR.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "RNO.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "BN.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "STM.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "SU.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "UG.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "ML.PA"
    incr++
    symbolslistbox2.cell(1,incr)= "VK.PA"
    
    ' 30 fr stocks incr 79 - 108
    ' incr=108
    
    incr++
    symbolslistbox2.cell(1,incr)= "DAI.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "RWE.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SDF.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "TKA.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "CBK.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "DPW.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "DTE.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "ALV.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "BAS.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "BAYN.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "BEI.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "ADS.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "AIXA.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "VOW3.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "VOW.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "BMW.DE"
    'incr++
    'symbolslistbox2.cell(1,incr)= "CON.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "DBK.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "DB1.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SGL.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "DEZ.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "HNR1.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "HDD.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SOW.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "ARL.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "G1A.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "MOR.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "GBF.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "DLG.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "FRA.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "FPE.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "AIR.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "GIL.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "PAH3.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "MTX.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SZG.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "PFV.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "PSM.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "QIA.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SPR.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "ZIL2.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "BNR.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "FNTN.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "QSC.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "RHM.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "ZAL.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "RHK.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SZU.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SY1.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "TUI1.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "WDI.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "HOT.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "KCO.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "KRN.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "LXS.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "LEO.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "MAN.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "EOAN.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "FME.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "FRE.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "HEN3.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "HEI.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "IFX.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "LHA.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "LIN.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "MRK.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "MUV2.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "NDA.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "NDX1.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SAP.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SIE.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "SMHN.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "UTDI.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "UN01.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "WCH.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "VNA.DE"
    incr++
    symbolslistbox2.cell(1,incr)= "BOSS.DE" 
    
    ' 76 de stocks incr 109 - 184
    ' incr=184
   
    incr++    
    symbolslistbox2.cell(1,incr)= "AXP"
    incr++
    symbolslistbox2.cell(1,incr)= "HPQ"
    incr++
    symbolslistbox2.cell(1,incr)= "NEM"
    incr++
    'symbolslistbox2.cell(1,incr)= "NEM" '"GOOGC"
    'incr++
    symbolslistbox2.cell(1,incr)= "BABA"
    incr++
    symbolslistbox2.cell(1,incr)= "AA"
    incr++
    symbolslistbox2.cell(1,incr)= "NLOK"
    incr++
    symbolslistbox2.cell(1,incr)= "TIF"
    incr++
    symbolslistbox2.cell(1,incr)= "TXN"
    incr++
    symbolslistbox2.cell(1,incr)= "UPS"
    incr++
    symbolslistbox2.cell(1,incr)= "USB"
    incr++
    'symbolslistbox2.cell(1,incr)= "USB" '"UTX"
    'incr++
    symbolslistbox2.cell(1,incr)= "VLO"
    incr++
    symbolslistbox2.cell(1,incr)= "VRTX"
    incr++
    symbolslistbox2.cell(1,incr)= "VZ"
    incr++
    symbolslistbox2.cell(1,incr)= "WHR"
    incr++
    symbolslistbox2.cell(1,incr)= "WFC"
    incr++
    symbolslistbox2.cell(1,incr)= "WMT"
    incr++
    symbolslistbox2.cell(1,incr)= "WU"
    incr++
    symbolslistbox2.cell(1,incr)= "WYNN"
    incr++
    symbolslistbox2.cell(1,incr)= "XLNX"
    incr++
    symbolslistbox2.cell(1,incr)= "XOM"
    incr++
    symbolslistbox2.cell(1,incr)= "YUM"
    incr++
    symbolslistbox2.cell(1,incr)= "AAPL"
    incr++
    symbolslistbox2.cell(1,incr)= "AMZN"
    incr++
    symbolslistbox2.cell(1,incr)= "ADBE"
    incr++
    symbolslistbox2.cell(1,incr)= "AMAT"
    incr++
    symbolslistbox2.cell(1,incr)= "AKAM"
    incr++
    symbolslistbox2.cell(1,incr)= "AMGN"
    incr++
    symbolslistbox2.cell(1,incr)= "ANF"
    incr++
    symbolslistbox2.cell(1,incr)= "BA"
    incr++
    symbolslistbox2.cell(1,incr)= "BAC"
    incr++
    symbolslistbox2.cell(1,incr)= "BBBY"
    incr++
    symbolslistbox2.cell(1,incr)= "BIDU"
    incr++
    symbolslistbox2.cell(1,incr)= "BIIB"
    incr++
    symbolslistbox2.cell(1,incr)= "BK"
    incr++
    symbolslistbox2.cell(1,incr)= "BMY"
    incr++
    symbolslistbox2.cell(1,incr)= "CAT"
    incr++
    symbolslistbox2.cell(1,incr)= "KO"
    incr++
    'symbolslistbox2.cell(1,incr)= "KO" '"CELG" invalid
    'incr++
    symbolslistbox2.cell(1,incr)= "CMCSA"
    incr++
    symbolslistbox2.cell(1,incr)= "COP"
    incr++
    symbolslistbox2.cell(1,incr)= "COST"
    incr++
    symbolslistbox2.cell(1,incr)= "CSCO"
    incr++
    symbolslistbox2.cell(1,incr)= "CTSH"
    incr++
    symbolslistbox2.cell(1,incr)= "CVX"
    incr++
    symbolslistbox2.cell(1,incr)= "DIS"
    incr++
    symbolslistbox2.cell(1,incr)= "EBAY"
    incr++
    symbolslistbox2.cell(1,incr)= "FDX"
    incr++
    symbolslistbox2.cell(1,incr)= "F"
    incr++
    symbolslistbox2.cell(1,incr)= "EXPE"
    incr++
    symbolslistbox2.cell(1,incr)= "FSLR"
    incr++
    symbolslistbox2.cell(1,incr)= "GE"
    incr++
    symbolslistbox2.cell(1,incr)= "GILD"
    incr++
    symbolslistbox2.cell(1,incr)= "GOOG"
    incr++
    symbolslistbox2.cell(1,incr)= "GS"
    incr++
    'symbolslistbox2.cell(1,incr)= "GS" '"HAL"
    'incr++
    symbolslistbox2.cell(1,incr)= "HD"
    incr++
    symbolslistbox2.cell(1,incr)= "HOG"
    incr++
    symbolslistbox2.cell(1,incr)= "IBM"
    incr++
    symbolslistbox2.cell(1,incr)= "INTC"
    incr++
    symbolslistbox2.cell(1,incr)= "INTU"
    incr++
    symbolslistbox2.cell(1,incr)= "JNJ"
    incr++
    symbolslistbox2.cell(1,incr)= "JPM"
    incr++
    symbolslistbox2.cell(1,incr)= "MA"
    incr++
    symbolslistbox2.cell(1,incr)= "MCD"
    incr++
    symbolslistbox2.cell(1,incr)= "MCO"
    incr++
    symbolslistbox2.cell(1,incr)= "MMM"
    incr++
    symbolslistbox2.cell(1,incr)= "MO"
    incr++
    symbolslistbox2.cell(1,incr)= "MRO"
    incr++
    symbolslistbox2.cell(1,incr)= "MS"
    incr++
    symbolslistbox2.cell(1,incr)= "MSI"
    incr++
    symbolslistbox2.cell(1,incr)= "MSFT"
    incr++
    symbolslistbox2.cell(1,incr)= "NDAQ"
    incr++
    symbolslistbox2.cell(1,incr)= "NFLX"
    incr++
    symbolslistbox2.cell(1,incr)= "NVDA"
    incr++
    symbolslistbox2.cell(1,incr)= "PEP"
    incr++
    symbolslistbox2.cell(1,incr)= "PFE"
    incr++
    symbolslistbox2.cell(1,incr)= "PG"
    incr++
    symbolslistbox2.cell(1,incr)= "PM"
    incr++
    symbolslistbox2.cell(1,incr)= "RACE"
    incr++
    symbolslistbox2.cell(1,incr)= "UA"
    incr++
    symbolslistbox2.cell(1,incr)= "CL"
    incr++
    symbolslistbox2.cell(1,incr)= "BLK"
    incr++
    symbolslistbox2.cell(1,incr)= "ICE"
    incr++
    symbolslistbox2.cell(1,incr)= "NKE"
    incr++
    symbolslistbox2.cell(1,incr)= "ATVI"
    incr++
    symbolslistbox2.cell(1,incr)= "AN"
    incr++
    symbolslistbox2.cell(1,incr)= "AZO"
    incr++
    symbolslistbox2.cell(1,incr)= "CHRW"
    incr++
    symbolslistbox2.cell(1,incr)= "PAYX"
    incr++
    'symbolslistbox2.cell(1,incr)= "PAYX" '"AVP" invalid
    'incr++
    symbolslistbox2.cell(1,incr)= "CME"
    incr++
    symbolslistbox2.cell(1,incr)= "CTAS"
    incr++
    symbolslistbox2.cell(1,incr)= "C"
    incr++
    symbolslistbox2.cell(1,incr)= "CTXS"
    incr++
    symbolslistbox2.cell(1,incr)= "CSX"
    incr++
    symbolslistbox2.cell(1,incr)= "DAL"
    incr++
    symbolslistbox2.cell(1,incr)= "XRAY"
    incr++
    symbolslistbox2.cell(1,incr)= "DISCA"
    incr++
    symbolslistbox2.cell(1,incr)= "DISH"
    incr++
    'symbolslistbox2.cell(1,incr)= "DISH" '"EXPD"
    'incr++
    symbolslistbox2.cell(1,incr)= "FAST"
    incr++
    symbolslistbox2.cell(1,incr)= "FITB"
    incr++
    symbolslistbox2.cell(1,incr)= "FISV"
    incr++
    symbolslistbox2.cell(1,incr)= "ISRG"
    incr++
    symbolslistbox2.cell(1,incr)= "KLAC"
    incr++
    symbolslistbox2.cell(1,incr)= "MAR"
    incr++
    symbolslistbox2.cell(1,incr)= "MAT"
    incr++
    symbolslistbox2.cell(1,incr)= "NTRS"
    incr++
    symbolslistbox2.cell(1,incr)= "PCAR"
    incr++
    symbolslistbox2.cell(1,incr)= "REGN"
    incr++
    symbolslistbox2.cell(1,incr)= "SIRI"
    incr++
    symbolslistbox2.cell(1,incr)= "ABT"
    incr++
    symbolslistbox2.cell(1,incr)= "AEP"
    incr++
    symbolslistbox2.cell(1,incr)= "AIG"
    incr++
    symbolslistbox2.cell(1,incr)= "APA"
    incr++
    symbolslistbox2.cell(1,incr)= "BXP"
    incr++
    symbolslistbox2.cell(1,incr)= "BSX"
    incr++
    symbolslistbox2.cell(1,incr)= "ORCL"
    incr++
    symbolslistbox2.cell(1,incr)= "CCL"
    incr++
    symbolslistbox2.cell(1,incr)= "CNP"
    incr++
    symbolslistbox2.cell(1,incr)= "CIEN"
    incr++
    symbolslistbox2.cell(1,incr)= "CI"
    incr++
    symbolslistbox2.cell(1,incr)= "KO"
    incr++
    symbolslistbox2.cell(1,incr)= "CVS"
    incr++
    symbolslistbox2.cell(1,incr)= "DB"
    incr++
    symbolslistbox2.cell(1,incr)= "DVN"
    incr++
    symbolslistbox2.cell(1,incr)= "DG"
    incr++
    symbolslistbox2.cell(1,incr)= "DTE"
    incr++
    symbolslistbox2.cell(1,incr)= "DUK"
    incr++
    symbolslistbox2.cell(1,incr)= "EMR"
    incr++
    symbolslistbox2.cell(1,incr)= "EXC"
    incr++
    symbolslistbox2.cell(1,incr)= "GD"
    incr++
    symbolslistbox2.cell(1,incr)= "GGAL"
    incr++
    symbolslistbox2.cell(1,incr)= "IP"
    incr++
    symbolslistbox2.cell(1,incr)= "XRX"
    incr++
    symbolslistbox2.cell(1,incr)= "LVS"
    incr++
    symbolslistbox2.cell(1,incr)= "MDT"
    incr++
    symbolslistbox2.cell(1,incr)= "NEE"
    incr++
    symbolslistbox2.cell(1,incr)= "OXY"
    incr++
    symbolslistbox2.cell(1,incr)= "DGX"
    incr++
    symbolslistbox2.cell(1,incr)= "ROK"
    incr++
    symbolslistbox2.cell(1,incr)= "SIG"
    incr++
    'symbolslistbox2.cell(1,incr)= "SIG" '"STI"
    'incr++
    'symbolslistbox2.cell(1,incr)= "SIG" '"STI" '"TSO" invalid
    'incr++
    symbolslistbox2.cell(1,incr)= "RIG"
    incr++
    symbolslistbox2.cell(1,incr)= "DE"
    incr++
    symbolslistbox2.cell(1,incr)= "PYPL"
    incr++
    symbolslistbox2.cell(1,incr)= "UAL"
    incr++
    symbolslistbox2.cell(1,incr)= "TEF"
    incr++
    symbolslistbox2.cell(1,incr)= "SYY"
    incr++
    symbolslistbox2.cell(1,incr)= "TEVA"
    incr++
    symbolslistbox2.cell(1,incr)= "ULTA"
    incr++
    symbolslistbox2.cell(1,incr)= "UNP"
    incr++
    symbolslistbox2.cell(1,incr)= "UNH"
    incr++
    symbolslistbox2.cell(1,incr)= "X"
    incr++
    symbolslistbox2.cell(1,incr)= "VRSN"
    incr++
    symbolslistbox2.cell(1,incr)= "TSLA"
    incr++
    symbolslistbox2.cell(1,incr)= "V"
    incr++
    symbolslistbox2.cell(1,incr)= "PRU"
    incr++
    symbolslistbox2.cell(1,incr)= "QCOM"
    incr++
    symbolslistbox2.cell(1,incr)= "RL"
    incr++
    symbolslistbox2.cell(1,incr)= "ROST"
    incr++
    symbolslistbox2.cell(1,incr)= "SBUX"
    incr++
    symbolslistbox2.cell(1,incr)= "SLB"
    incr++
    symbolslistbox2.cell(1,incr)= "FB"
    incr++
    symbolslistbox2.cell(1,incr)= "STX"
    incr++
    symbolslistbox2.cell(1,incr)= "EA"
    incr++
    symbolslistbox2.cell(1,incr)= "MT"
    incr++
    symbolslistbox2.cell(1,incr)= "T"
    incr++
    symbolslistbox2.cell(1,incr)= "LMT"
    incr++
    symbolslistbox2.cell(1,incr)= "NUS"
    incr++
    symbolslistbox2.cell(1,incr)= "ZTO"
    incr++
    symbolslistbox2.cell(1,incr)= "FCAU"
    incr++
    symbolslistbox2.cell(1,incr)= "TRVG"
    incr++
    symbolslistbox2.cell(1,incr)= "AMD"
    incr++
    symbolslistbox2.cell(1,incr)= "AOBC"
    incr++
    symbolslistbox2.cell(1,incr)= "CMG"
    incr++
    'symbolslistbox2.cell(1,incr)= "CMG" '"JAG" invalid
    'incr++
    symbolslistbox2.cell(1,incr)= "NOK"
    incr++
    symbolslistbox2.cell(1,incr)= "BITA"
    incr++
    symbolslistbox2.cell(1,incr)= "SNAP"
    incr++
    symbolslistbox2.cell(1,incr)= "TRP"
    incr++
    symbolslistbox2.cell(1,incr)= "TWTR"
    incr++
    symbolslistbox2.cell(1,incr)= "CLDR"
    incr++
    symbolslistbox2.cell(1,incr)= "NVS"
    incr++
    symbolslistbox2.cell(1,incr)= "ALB"
    incr++
    symbolslistbox2.cell(1,incr)= "RYAAY"
    incr++
    symbolslistbox2.cell(1,incr)= "AVGO"
    incr++
    'symbolslistbox2.cell(1,incr)= "AVGO" '"MDLZ"
    'incr++
    symbolslistbox2.cell(1,incr)= "MU"
    incr++
    symbolslistbox2.cell(1,incr)= "BRKB"
    incr++
    symbolslistbox2.cell(1,incr)= "KHC"
    incr++
    'symbolslistbox2.cell(1,incr)= "PALL" 'palladium "KHC" '"DWDP" invalid
    'incr++
    symbolslistbox2.cell(1,incr)= "TRV"
    incr++
    'symbolslistbox2.cell(1,incr)= "TRV" '"RTN"
    'incr++
    symbolslistbox2.cell(1,incr)= "PCG"
    incr++
    symbolslistbox2.cell(1,incr)= "TPR"
    incr++
    symbolslistbox2.cell(1,incr)= "BB"
    incr++
    symbolslistbox2.cell(1,incr)= "GWPH"
    incr++
    symbolslistbox2.cell(1,incr)= "WBA"
    incr++
    symbolslistbox2.cell(1,incr)= "BKNG"
    incr++
    symbolslistbox2.cell(1,incr)= "CCEP"
    incr++
    symbolslistbox2.cell(1,incr)= "NTAP"
    incr++
    symbolslistbox2.cell(1,incr)= "GM"
    'incr++
    'symbolslistbox2.cell(1,incr)= "PPLT" 'platinum "GM" '"BEST" invalid
    
    ' 194 USA stocks incr 185 - 378
    ' incr=377
          
    incr++
    symbolslistbox2.cell(1,incr)= "IBE.MC"
    'incr++
    'symbolslistbox2.cell(1,incr)= "IBE.MC"
    incr++
    symbolslistbox2.cell(1,incr)= "GRF.MC"
    incr++
    symbolslistbox2.cell(1,incr)= "REE.MC"
    'incr++
    'symbolslistbox2.cell(1,incr)= "DIA.MC"
    incr++
    symbolslistbox2.cell(1,incr)= "REP.MC"
    incr++
    symbolslistbox2.cell(1,incr)= "BBVA.MC"
    incr++
    symbolslistbox2.cell(1,incr)= "SAN.MC"
    
    ' 6 Madrid stocks incr 379 - 384
    ' incr=383
    
    incr++
    symbolslistbox2.cell(1,incr)= "EEM"
    incr++
    symbolslistbox2.cell(1,incr)= "QQQ"
    incr++
    symbolslistbox2.cell(1,incr)= "EFA"
    incr++
    symbolslistbox2.cell(1,incr)= "IVV"
    incr++
    symbolslistbox2.cell(1,incr)= "EWT"
    incr++
    symbolslistbox2.cell(1,incr)= "IBB"
    incr++
    symbolslistbox2.cell(1,incr)= "SPY"
    incr++
    symbolslistbox2.cell(1,incr)= "EWY"
    incr++
    symbolslistbox2.cell(1,incr)= "FXI"
    incr++
    symbolslistbox2.cell(1,incr)= "GSG"
    incr++
    symbolslistbox2.cell(1,incr)= "IXC"
    incr++
    symbolslistbox2.cell(1,incr)= "IYR"
    
    ' 12 shares incr 385 - 396
    
    'incr=395
    
    incr++
    symbolslistbox2.cell(1,incr)= "NIB" 'COCOA
    incr++
    symbolslistbox2.cell(1,incr)= "JO" 'COFFEE
    incr++
    symbolslistbox2.cell(1,incr)= "UCO" 'OIL
    incr++
    symbolslistbox2.cell(1,incr)= "BAL" 'COTTON
    incr++
    symbolslistbox2.cell(1,incr)= "SCCO" 'COPPER "JJC" 'COPPER
    incr++
    symbolslistbox2.cell(1,incr)= "SLV" 'SILVER
    incr++
    symbolslistbox2.cell(1,incr)= "GAZ" 'NATURAL GAS
    incr++
    symbolslistbox2.cell(1,incr)= "BAL" 'COTTON
    incr++
    symbolslistbox2.cell(1,incr)= "SGG" 'SUGAR
    incr++
    symbolslistbox2.cell(1,incr)= "WEAT" 'WHEAT
    
    ' 10 commodities incr 397 - 406
    'incr=405
    
    incr++
    symbolslistbox2.cell(1,incr)= "DAX" 'Volatility S&P 500 Indexes
    'incr++
    'symbolslistbox2.cell(1,incr)= "DAX" 
    incr++
    symbolslistbox2.cell(1,incr)= "FEZ" ' EURO STOXX 50 ETF
    'incr++
    'symbolslistbox2.cell(1,incr)= "FEZ" '"BTCUSD" invalid
    'incr++
    'symbolslistbox2.cell(1,incr)= "FEZ"
    'incr++
    'symbolslistbox2.cell(1,incr)= "FEZ"
    'incr++
    'symbolslistbox2.cell(1,incr)= "FEZ" '"ETHUSD" invalid
    
    ' 2 indexes incr 407 - 408
    'incr=407

    signaltrigger = 0

    defint incr2=0
    ini.Section = "Settings"
    IF ini.get("lastsymbolYF" , "") <> "" THEN incr2 = val(ini.get("lastsymbolYF" , ""))
    WHILE signaltrigger = 0
    onerrorresumelabel :
    'barsdisplayed.Text = "222"
   ' datetimesetyf ' set the correct time period in data source
        IF ini.exist THEN
            ini.Section = "Settings"
            IF VAL(ini.get("automation" , "")) = 0 THEN
                signaltrigger = 1
                EXIT SUB
            END IF
        END IF

        writealive
        DIM i AS INTEGER
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
        useindischeckbox.Checked = 0   
        
        ini.Section = "Settings"
        if ini.get("scantimeframe" , "")="60" then dstimeframe.itemindex=4
        if ini.get("scantimeframe" , "")="1440" then dstimeframe.itemindex=6
        
        'incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        'END IF  
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and incr2>184 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2<185 or incr2>408) THEN
        incr2=185
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2>408) THEN
        incr2=0 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF              
          
        
        if incr2<=408 then dssource.itemindex=0              
        
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        IF dssymboledit.text="" then
        'signaltrigger = 1
        'goto wendend
        dssource.itemindex=0
        incr2=0
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        end if
        incr2++
        ini.Section = "Settings"
        ini.Write("lastsymbolYF" , str$(incr2))
        datetimesetyf ' set the correct time period in data source
        ' Check if symbol exists
        'alphavantagesearchsymboledit.text=dssymboledit.text
        'alphavantagesearchsymbolbuttonclicksub          
        'timerautomation.enabled=1        
        'while timerautomationready=0
        'doevents
        'wend
        'timerautomationready=0
        'timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN                 
        
        while dssource.itemindex>0
            doevents
            dssource.itemindex=0
        wend
             
        dsokclick
        'else 
        'goto wendend
        'end if
        
        timerautomation.enabled=1        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN                      
        'dsokclick
        'else 
        'goto wendend
        'end if
        
        writealive
        
        'DIM filestream AS QFILESTREAM
        'DEFSTR filestr = ""
        defint incr3=incr2-1
        
        DIM filestream AS QFILESTREAM
        'DEFSTR filestr = ""    
        if incr3<=408 then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
        if filestream.size<1000 then
        PRINT "Error"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        'EXIT SUB
        filestream.Close
        goto onerrorresumelabel
        end if
        
        
        'if incr3<=408 then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
        ''if incr3>427 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
        'filestr = ""
        'defstr filestreamlinecoun
        'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
        '    PRINT "Error"
        '    if useindiCheckedtmp=1 then useindi.checked=1
        '    dsok.Enabled = 1
        '    ''googlerealtimebusytimer.enabled=0
        '    'EXIT SUB
        '    filestream.Close
        '    goto wendend
        'END IF
        
        'IF like(filestr , "*Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency.*") = 1 THEN
        'PRINT "Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency."
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        'END IF 
                                  
        'DOEVENTS
        'WEND
        filestream.Close
        
        'reimportfile()

        'btnOnClick(drwBox)
        'exit sub
        while displayedfile<1
        doevents
        wend                

        'symbolslistbox2.itemindex=symbolslistbox2.itemindex+1
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "MA Chanels FiboEnv Mid") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        if charttf(displayedfile)<>1 and _
            charttf(displayedfile)<>5 and _
            charttf(displayedfile)<>15 and _
            charttf(displayedfile)<>30 and _
            charttf(displayedfile)<>60 and _
            charttf(displayedfile)<>240 and _
            charttf(displayedfile)<>1440 and _
            charttf(displayedfile)<>10080 and _
            charttf(displayedfile)<>43200 then
                attribtfcombo.itemindex=4
                attribtfeditItemChanged
                MA_Chanels_FiboEnv_Midautotf.checked=0
                MA_Chanels_FiboEnv_Midcurtfedit.text="60"
                SwamiRSI_v1curtfedit.text="60"
                SwamiRSI_v1autotf.checked=0
        end if
        btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
        '        EXIT FOR
        '    END IF
        'NEXT i
        'indicatorslist.ItemIndex = i        
        'btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
        '        EXIT FOR
        '    END IF
        '    NEXT i
        '    indicatorslist.ItemIndex = i        
        '    btnaddindi_click()
        
         
        
        useindischeckbox.Checked=1
        'showcanvasclick
        justrefreshchart
        writealive

        defstr zerostr="0"
        defstr bdslowerbufferstr="MA_Chanels_FiboEnv_Midbuffer7"
        defstr bdsupperbufferstr="MA_Chanels_FiboEnv_Midbuffer1"
        'defstr SpanA_Bufferstr="SpanA_Buffer"
        'defstr SpanB_Bufferstr="SpanB_Buffer"
            
        IF (high(0) >= val(varptr$(getbufferdata(varptr(bdsupperbufferstr),varptr(zerostr))))) or (low(0) <= val(varptr$(getbufferdata(varptr(bdslowerbufferstr),varptr(zerostr))))) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
        
            useindischeckbox.Checked=1
            showcanvasclick
            justrefreshchart
            'writealive
            
            defstr RSI3bufferstr="RSI3"
            defstr sumRSIbufferstr="sumRSI"
                        
             
            'IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) or (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Bufferstr="SpanA_Buffer"
            defstr SpanB_Bufferstr="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Bufferstr),varptr(zerostr))))>val(varptr$(getbufferdata(varptr(SpanB_Bufferstr),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Buffer2str="SpanA_Buffer"
            defstr SpanB_Buffer2str="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Buffer2str),varptr(zerostr))))<val(varptr$(getbufferdata(varptr(SpanB_Buffer2str),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            
        END IF
        
        

       'sleep 2
       useindischeckbox.Checked=0
       ' closedispchart_click()
       
       'logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile) + CHR$(10)
        writetolog(DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile))

        'canvas.Visible = 0
        'sepindivalminlab.Visible = 0
        'sepindivalmaxlab.Visible = 0
        'sepindivalminedit.Visible = 0
        'sepindivalmaxedit.Visible = 0
        'sepindivalok.Visible = 0
        'showcanvas = 0
        'setup()
        'mixgridcolcount(displayedfile) = 0
        'mixgridcolcount2(displayedfile) = 0
        'mixgridcolcount3(displayedfile) = 0
        'mixgridcolcount4(displayedfile) = 0
        'updatemixerlists
        'say "Chart closed"
        openedfilesnb --
 
        cpptmpfuncreturn=varptr$(openedfilesnbminusone())

        dispchartnb.DelItems = dispchartnb.ItemCount - 1

        dispchartnb.ItemIndex = displayedfile - 1

        chartstart = Scrollchart.Position - numbars
        'updatemixerlists

        Graph.Visible = FALSE

        split.Visible = 0

        splith.Visible = 0

        closedispchart.Visible = FALSE

        Scrollchart.Visible = 0

        pricescaleplusbtn.visible=0

        pricescaleminusbtn.visible=0

        addbarsbtn.visible=0

        shiftchartbtn.visible=0        
        'closedispcanvas.Visible = 0    
        closedispcanvas_click    

        tfmult.Text = "1"

        barsdisplayed.Text = "222"

        'disableallindis  

        displayedfile=0
        MA_Chanels_FiboEnv_Midautotf.checked=1
        SwamiRSI_v1autotf.checked=1
        
        
        timerautomation.enabled=1
        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        wendend:
       
    WEND

END SUB



SUB autoreverse4 ' Yahoo_Finance with eToro stocks scanner
'showmessage "-1"
dim symbolslistbox2 as qstringgrid
    symbolslistbox2.colcount=1
    symbolslistbox2.rowcount=100
defint incr=0


'LONDON
symbolslistbox2.cell(1,incr)="3IN.L"
incr++
symbolslistbox2.cell(1,incr)="888.L"
'incr++
'symbolslistbox2.cell(1,incr)="AA.L"
incr++
symbolslistbox2.cell(1,incr)="AAL.L"
incr++
symbolslistbox2.cell(1,incr)="ABF.L"
incr++
symbolslistbox2.cell(1,incr)="ADM.L"
'incr++
'symbolslistbox2.cell(1,incr)="AGK.L"
incr++
symbolslistbox2.cell(1,incr)="AGR.L"
incr++
symbolslistbox2.cell(1,incr)="AHT.L"
incr++
symbolslistbox2.cell(1,incr)="AML.L"
incr++
symbolslistbox2.cell(1,incr)="ANTO.L"
incr++
symbolslistbox2.cell(1,incr)="ASC.L"
incr++
symbolslistbox2.cell(1,incr)="ASCL.L"
incr++
symbolslistbox2.cell(1,incr)="ASHM.L"
incr++
'symbolslistbox2.cell(1,incr)="ASHM.L" '"ATADL.RU"
'incr++
symbolslistbox2.cell(1,incr)="ATST.L"
incr++
symbolslistbox2.cell(1,incr)="AUTO.L"
incr++
symbolslistbox2.cell(1,incr)="AV.L"
incr++
symbolslistbox2.cell(1,incr)="AVST.L"
incr++
symbolslistbox2.cell(1,incr)="AVV.L"
incr++
symbolslistbox2.cell(1,incr)="AZN.L"
incr++
symbolslistbox2.cell(1,incr)="BAB.L"
incr++
symbolslistbox2.cell(1,incr)="BAG.L"
incr++
symbolslistbox2.cell(1,incr)="BAKK.L"
incr++
symbolslistbox2.cell(1,incr)="BARC.L"
incr++
symbolslistbox2.cell(1,incr)="BATS.L"
incr++
symbolslistbox2.cell(1,incr)="BBOX.L"
incr++
symbolslistbox2.cell(1,incr)="BBY.L"
incr++
symbolslistbox2.cell(1,incr)="BCPT.L"
incr++
symbolslistbox2.cell(1,incr)="BDEV.L"
incr++
symbolslistbox2.cell(1,incr)="BEZ.L"
incr++
symbolslistbox2.cell(1,incr)="BGEO.L"
incr++
symbolslistbox2.cell(1,incr)="BHP.L"
incr++
symbolslistbox2.cell(1,incr)="BKG.L"
incr++
symbolslistbox2.cell(1,incr)="BLND.L"
incr++
symbolslistbox2.cell(1,incr)="BME.L"
incr++
symbolslistbox2.cell(1,incr)="BNZL.L"
incr++
symbolslistbox2.cell(1,incr)="BOY.L"
incr++
symbolslistbox2.cell(1,incr)="BP.L"
incr++
symbolslistbox2.cell(1,incr)="BRBY.L"
incr++
symbolslistbox2.cell(1,incr)="BRW.L"
incr++
'symbolslistbox2.cell(1,incr)="BRW.L" 'BT.L invalid
'incr++
symbolslistbox2.cell(1,incr)="BVIC.L"
incr++
symbolslistbox2.cell(1,incr)="BWNG.L"
incr++
symbolslistbox2.cell(1,incr)="BWY.L"
incr++
symbolslistbox2.cell(1,incr)="BYG.L"
incr++
symbolslistbox2.cell(1,incr)="CAPC.L"
incr++
symbolslistbox2.cell(1,incr)="CARD.L"
incr++
symbolslistbox2.cell(1,incr)="CBG.L"
incr++
symbolslistbox2.cell(1,incr)="CCC.L"
incr++
symbolslistbox2.cell(1,incr)="CCH.L"
incr++
symbolslistbox2.cell(1,incr)="CCL.L"
incr++
symbolslistbox2.cell(1,incr)="CEY.L"
incr++
symbolslistbox2.cell(1,incr)="CINE.L"
incr++
symbolslistbox2.cell(1,incr)="CKN.L"
incr++
symbolslistbox2.cell(1,incr)="CMCX.L"
incr++
symbolslistbox2.cell(1,incr)="CNA.L"
incr++
symbolslistbox2.cell(1,incr)="CNE.L"
incr++
symbolslistbox2.cell(1,incr)="COA.L"
incr++
symbolslistbox2.cell(1,incr)="CPG.L"
incr++
symbolslistbox2.cell(1,incr)="CPI.L"
incr++
symbolslistbox2.cell(1,incr)="CRDA.L"
incr++
symbolslistbox2.cell(1,incr)="CRST.L"
incr++
symbolslistbox2.cell(1,incr)="CSP.L"
incr++
symbolslistbox2.cell(1,incr)="CTEC.L"
incr++
symbolslistbox2.cell(1,incr)="CTY.L"
incr++
symbolslistbox2.cell(1,incr)="CWK.L"
'incr++
'symbolslistbox2.cell(1,incr)="DC.L"
incr++
symbolslistbox2.cell(1,incr)="DCC.L"
incr++
symbolslistbox2.cell(1,incr)="DGE.L"
incr++
symbolslistbox2.cell(1,incr)="DGN.L"
incr++
symbolslistbox2.cell(1,incr)="DLG.L"
incr++
symbolslistbox2.cell(1,incr)="DLN.L"
incr++
'symbolslistbox2.cell(1,incr)="DMGT.L"
'incr++
symbolslistbox2.cell(1,incr)="DNLM.L"
incr++
symbolslistbox2.cell(1,incr)="DOM.L"
incr++
symbolslistbox2.cell(1,incr)="DPH.L"
incr++
symbolslistbox2.cell(1,incr)="DPLM.L"
incr++
symbolslistbox2.cell(1,incr)="DRX.L"
incr++
symbolslistbox2.cell(1,incr)="DTY.L"
incr++
symbolslistbox2.cell(1,incr)="ECM.L"
incr++
symbolslistbox2.cell(1,incr)="ELM.L"
incr++
symbolslistbox2.cell(1,incr)="EMG.L"
incr++
'symbolslistbox2.cell(1,incr)="EQN.L"
'incr++
symbolslistbox2.cell(1,incr)="ERM.L"
incr++
symbolslistbox2.cell(1,incr)="ESNT.L"
incr++
symbolslistbox2.cell(1,incr)="EVR.L"
incr++
symbolslistbox2.cell(1,incr)="EXPN.L"
incr++
symbolslistbox2.cell(1,incr)="EZJ.L"
incr++
symbolslistbox2.cell(1,incr)="FCIT.L"
incr++
symbolslistbox2.cell(1,incr)="FDM.L"
incr++
symbolslistbox2.cell(1,incr)="FERG.L"
incr++
symbolslistbox2.cell(1,incr)="FEVR.L"
incr++
symbolslistbox2.cell(1,incr)="FGP.L"
incr++
symbolslistbox2.cell(1,incr)="FLTR.L"
incr++
symbolslistbox2.cell(1,incr)="FRAS.L"
incr++
symbolslistbox2.cell(1,incr)="FRES.L"
incr++
symbolslistbox2.cell(1,incr)="FSJ.L"
incr++
symbolslistbox2.cell(1,incr)="FXPO.L"
incr++
symbolslistbox2.cell(1,incr)="GAW.L"
incr++
symbolslistbox2.cell(1,incr)="GFRD.L"
'incr++
'symbolslistbox2.cell(1,incr)="GFS.L"
incr++
symbolslistbox2.cell(1,incr)="GFTU.L"
incr++
symbolslistbox2.cell(1,incr)="GLEN.L"
incr++
symbolslistbox2.cell(1,incr)="GLO.L"
incr++
symbolslistbox2.cell(1,incr)="GNC.L"
incr++
symbolslistbox2.cell(1,incr)="GNS.L"
incr++
symbolslistbox2.cell(1,incr)="GOG.L"
incr++
'symbolslistbox2.cell(1,incr)="GPOR.L"
'incr++
symbolslistbox2.cell(1,incr)="GRG.L"
incr++
symbolslistbox2.cell(1,incr)="GRI.L"
incr++
symbolslistbox2.cell(1,incr)="GSK.L"
incr++
'symbolslistbox2.cell(1,incr)="GSS.L"
'incr++
'symbolslistbox2.cell(1,incr)="GVC.L"
'incr++
symbolslistbox2.cell(1,incr)="HAS.L"
incr++
symbolslistbox2.cell(1,incr)="HFD.L"
incr++
symbolslistbox2.cell(1,incr)="HICL.L"
incr++
symbolslistbox2.cell(1,incr)="HIK.L"
incr++
symbolslistbox2.cell(1,incr)="HILS.L"
incr++
symbolslistbox2.cell(1,incr)="HL.L"
incr++
symbolslistbox2.cell(1,incr)="HLMA.L"
incr++
symbolslistbox2.cell(1,incr)="HMSO.L"
incr++
symbolslistbox2.cell(1,incr)="HOC.L"
incr++
symbolslistbox2.cell(1,incr)="HSBA.L"
'incr++
'symbolslistbox2.cell(1,incr)="HSTG.L"
incr++
symbolslistbox2.cell(1,incr)="HSV.L"
incr++
symbolslistbox2.cell(1,incr)="HSX.L"
incr++
symbolslistbox2.cell(1,incr)="HTG.L"
incr++
symbolslistbox2.cell(1,incr)="HVPE.L"
incr++
symbolslistbox2.cell(1,incr)="HWDN.L"
incr++
symbolslistbox2.cell(1,incr)="IAG.L"
incr++
symbolslistbox2.cell(1,incr)="IBST.L"
incr++
symbolslistbox2.cell(1,incr)="ICP.L"
incr++
symbolslistbox2.cell(1,incr)="IGG.L"
incr++
symbolslistbox2.cell(1,incr)="III"
incr++
symbolslistbox2.cell(1,incr)="IMB.L"
incr++
symbolslistbox2.cell(1,incr)="IMI.L"
incr++
symbolslistbox2.cell(1,incr)="INCH.L"
incr++
symbolslistbox2.cell(1,incr)="INDV.L"
incr++
symbolslistbox2.cell(1,incr)="INF.L"
incr++
symbolslistbox2.cell(1,incr)="INPP.L"
incr++
symbolslistbox2.cell(1,incr)="INVP.L"
incr++
symbolslistbox2.cell(1,incr)="IPO.L"
incr++
symbolslistbox2.cell(1,incr)="ITRK.L"
incr++
symbolslistbox2.cell(1,incr)="ITV.L"
incr++
symbolslistbox2.cell(1,incr)="IWG.L"
incr++
symbolslistbox2.cell(1,incr)="JD.L"
incr++
symbolslistbox2.cell(1,incr)="JDW.L"
incr++
'symbolslistbox2.cell(1,incr)="JEO.L"
'incr++
'symbolslistbox2.cell(1,incr)="JLG.L"
'incr++
symbolslistbox2.cell(1,incr)="JMAT.L"
incr++
symbolslistbox2.cell(1,incr)="JUP.L"
incr++
symbolslistbox2.cell(1,incr)="JUST.L"
'incr++
'symbolslistbox2.cell(1,incr)="KAZ.L"
incr++
symbolslistbox2.cell(1,incr)="KGF.L"
incr++
symbolslistbox2.cell(1,incr)="KIE.L"
incr++
symbolslistbox2.cell(1,incr)="LAND.L"
incr++
symbolslistbox2.cell(1,incr)="LGEN.L"
incr++
'symbolslistbox2.cell(1,incr)="LGEN.L" '"LKODL.RU"
'incr++
symbolslistbox2.cell(1,incr)="LLOY.L"
incr++
symbolslistbox2.cell(1,incr)="LMP.L"
incr++
symbolslistbox2.cell(1,incr)="LRE.L"
'incr++
'symbolslistbox2.cell(1,incr)="LSE.L"
incr++
symbolslistbox2.cell(1,incr)="MAB.L"
incr++
symbolslistbox2.cell(1,incr)="MARS.L"
incr++
symbolslistbox2.cell(1,incr)="MCRO.L"
'incr++
'symbolslistbox2.cell(1,incr)="MCS.L"
incr++
symbolslistbox2.cell(1,incr)="MDC.L"
incr++
symbolslistbox2.cell(1,incr)="MGAM.L"
incr++
symbolslistbox2.cell(1,incr)="MGGT.L"
incr++
'symbolslistbox2.cell(1,incr)="MGGT.L" '"MGNTL.RU"
'incr++
symbolslistbox2.cell(1,incr)="MKS.L"
incr++
symbolslistbox2.cell(1,incr)="MNDI.L"
incr++
symbolslistbox2.cell(1,incr)="MNKS.L"
incr++
'symbolslistbox2.cell(1,incr)="MNKS.L" '"MNODL.RU"
'incr++
symbolslistbox2.cell(1,incr)="MONY.L"
incr++
symbolslistbox2.cell(1,incr)="MRC.L"
incr++
symbolslistbox2.cell(1,incr)="MRO.L"
incr++
'symbolslistbox2.cell(1,incr)="MRW.L"
'incr++
symbolslistbox2.cell(1,incr)="MSLH.L"
incr++
symbolslistbox2.cell(1,incr)="MTO.L"
incr++
symbolslistbox2.cell(1,incr)="MTRO.L"
incr++
symbolslistbox2.cell(1,incr)="NEX.L"
incr++
symbolslistbox2.cell(1,incr)="NG.L"
incr++
'symbolslistbox2.cell(1,incr)="NG.L" 'NMC.L invalid
'incr++
symbolslistbox2.cell(1,incr)="NOG.L"
incr++
symbolslistbox2.cell(1,incr)="NRR.L"
incr++
'symbolslistbox2.cell(1,incr)="NRR.L" '"NVTKL.RU"
'incr++
symbolslistbox2.cell(1,incr)="NXT.L"
incr++
symbolslistbox2.cell(1,incr)="OCDO.L"
incr++
'symbolslistbox2.cell(1,incr)="OCDO.L" '"OGZDL.RU"
'incr++
symbolslistbox2.cell(1,incr)="OSB.L"
incr++
symbolslistbox2.cell(1,incr)="OTB.L"
incr++
symbolslistbox2.cell(1,incr)="PAG.L"
incr++
symbolslistbox2.cell(1,incr)="PAGE.L"
incr++
symbolslistbox2.cell(1,incr)="PAY.L"
incr++
symbolslistbox2.cell(1,incr)="PDL.L"
incr++
symbolslistbox2.cell(1,incr)="PETS.L"
incr++
symbolslistbox2.cell(1,incr)="PFC.L"
incr++
symbolslistbox2.cell(1,incr)="PFG.L"
incr++
symbolslistbox2.cell(1,incr)="PHNX.L"
incr++
symbolslistbox2.cell(1,incr)="PHP.L"
incr++
symbolslistbox2.cell(1,incr)="PIN.L"
'incr++
'symbolslistbox2.cell(1,incr)="PLI.L"
'incr++
'symbolslistbox2.cell(1,incr)="PLP.L"
incr++
symbolslistbox2.cell(1,incr)="PLUS"
incr++
symbolslistbox2.cell(1,incr)="PNN.L"
incr++
symbolslistbox2.cell(1,incr)="POLY.L"
incr++
symbolslistbox2.cell(1,incr)="PRU.L"
incr++
symbolslistbox2.cell(1,incr)="PSH.L"
incr++
symbolslistbox2.cell(1,incr)="PSN.L"
incr++
symbolslistbox2.cell(1,incr)="PSON.L"
incr++
symbolslistbox2.cell(1,incr)="PTEC.L"
incr++
symbolslistbox2.cell(1,incr)="PZC.L"
incr++
symbolslistbox2.cell(1,incr)="QLT.L"
incr++
symbolslistbox2.cell(1,incr)="QQ.L"
incr++
symbolslistbox2.cell(1,incr)="RAT.L"
'incr++
'symbolslistbox2.cell(1,incr)="RB.L"
'incr++
'symbolslistbox2.cell(1,incr)="RBS.L"
incr++
symbolslistbox2.cell(1,incr)="RCP.L"
'incr++
'symbolslistbox2.cell(1,incr)="RDI.L"
incr++
'symbolslistbox2.cell(1,incr)="RDSB.L"
'incr++
symbolslistbox2.cell(1,incr)="RDW.L"
incr++
symbolslistbox2.cell(1,incr)="REDD.L"
incr++
symbolslistbox2.cell(1,incr)="REL.L"
incr++
symbolslistbox2.cell(1,incr)="RHIM.L"
incr++
symbolslistbox2.cell(1,incr)="RIO.L"
incr++
symbolslistbox2.cell(1,incr)="RMG.L"
incr++
symbolslistbox2.cell(1,incr)="RMV.L"
incr++
symbolslistbox2.cell(1,incr)="RNK.L"
incr++
symbolslistbox2.cell(1,incr)="ROR.L"
incr++
'symbolslistbox2.cell(1,incr)="ROR.L" '"ROSNL.RU"
'incr++
symbolslistbox2.cell(1,incr)="RR.L"
'incr++
'symbolslistbox2.cell(1,incr)="RSA.L"
incr++
symbolslistbox2.cell(1,incr)="RSW.L"
incr++
symbolslistbox2.cell(1,incr)="RTN.L"
incr++
symbolslistbox2.cell(1,incr)="RTO.L"
incr++
symbolslistbox2.cell(1,incr)="RWI.L"
incr++
'symbolslistbox2.cell(1,incr)="RWI.L" '"RYANAIR"
'incr++
symbolslistbox2.cell(1,incr)="SAFE.L"
incr++
symbolslistbox2.cell(1,incr)="SAGA.L"
incr++
'symbolslistbox2.cell(1,incr)="SAGA.L" '"SBERL.RU"
'incr++
symbolslistbox2.cell(1,incr)="SBRY.L"
incr++
symbolslistbox2.cell(1,incr)="SCT.L"
incr++
symbolslistbox2.cell(1,incr)="SDP.L"
incr++
symbolslistbox2.cell(1,incr)="SDR.L"
incr++
symbolslistbox2.cell(1,incr)="SDRY.L"
incr++
symbolslistbox2.cell(1,incr)="SEQI.L"
incr++
symbolslistbox2.cell(1,incr)="SGC.L"
incr++
'symbolslistbox2.cell(1,incr)="SGC.L" '"SGGDL.RU"
'incr++
symbolslistbox2.cell(1,incr)="SGRO.L"
incr++
symbolslistbox2.cell(1,incr)="SHB.L"
incr++
symbolslistbox2.cell(1,incr)="SHI.L"
'incr++
'symbolslistbox2.cell(1,incr)="SIG.L"
incr++
symbolslistbox2.cell(1,incr)="SKG.L"
'incr++
'symbolslistbox2.cell(1,incr)="SLA.L"
incr++
symbolslistbox2.cell(1,incr)="SMDS.L"
incr++
symbolslistbox2.cell(1,incr)="SMIN.L"
'incr++
'symbolslistbox2.cell(1,incr)="SMP.L"
incr++
'symbolslistbox2.cell(1,incr)="SMP.L" 'SMSN.L insuffisent bars
'incr++
symbolslistbox2.cell(1,incr)="SMT.L"
incr++
symbolslistbox2.cell(1,incr)="SMWH.L"
incr++
symbolslistbox2.cell(1,incr)="SN.L"
incr++
symbolslistbox2.cell(1,incr)="SNN.L"
incr++
symbolslistbox2.cell(1,incr)="SNR.L"
incr++
symbolslistbox2.cell(1,incr)="SPI.L"
incr++
symbolslistbox2.cell(1,incr)="SPX.L"
incr++
symbolslistbox2.cell(1,incr)="SRP.L"
incr++
symbolslistbox2.cell(1,incr)="SSE.L"
incr++
symbolslistbox2.cell(1,incr)="SSPG.L"
incr++
symbolslistbox2.cell(1,incr)="STAN.L"
incr++
symbolslistbox2.cell(1,incr)="STJ.L"
'incr++
'symbolslistbox2.cell(1,incr)="STOB.L"
incr++
symbolslistbox2.cell(1,incr)="SVS.L"
incr++
'symbolslistbox2.cell(1,incr)="SVS.L" '"SVSTL.RU"
'incr++
symbolslistbox2.cell(1,incr)="SVT.L"
incr++
symbolslistbox2.cell(1,incr)="SXS.L"
incr++
symbolslistbox2.cell(1,incr)="SYNT.L"
'incr++
'symbolslistbox2.cell(1,incr)="TALK.L"
incr++
symbolslistbox2.cell(1,incr)="TATE.L"
incr++
symbolslistbox2.cell(1,incr)="TBCG.L"
incr++
symbolslistbox2.cell(1,incr)="TCAP.L"
incr++
symbolslistbox2.cell(1,incr)="TED.L"
incr++
symbolslistbox2.cell(1,incr)="TEM.L"
incr++
symbolslistbox2.cell(1,incr)="TEP.L"
incr++
symbolslistbox2.cell(1,incr)="TIFS.L"
incr++
symbolslistbox2.cell(1,incr)="TLW.L"
incr++
symbolslistbox2.cell(1,incr)="TMPL.L"
incr++
symbolslistbox2.cell(1,incr)="TPK.L"
incr++
symbolslistbox2.cell(1,incr)="TRIG.L"
incr++
symbolslistbox2.cell(1,incr)="TRN.L"
incr++
symbolslistbox2.cell(1,incr)="TSCO.L"
incr++
symbolslistbox2.cell(1,incr)="TUI.L"
incr++
symbolslistbox2.cell(1,incr)="TW.L"
'incr++
'symbolslistbox2.cell(1,incr)="UDG.L"
incr++
symbolslistbox2.cell(1,incr)="UKCM.L"
incr++
symbolslistbox2.cell(1,incr)="ULE.L"
incr++
symbolslistbox2.cell(1,incr)="ULVR.L"
incr++
symbolslistbox2.cell(1,incr)="UTG.L"
incr++
symbolslistbox2.cell(1,incr)="UU.L"
incr++
symbolslistbox2.cell(1,incr)="VCT.L"
incr++
'symbolslistbox2.cell(1,incr)="VEC.L"
'incr++
symbolslistbox2.cell(1,incr)="VMUK.L"
incr++
symbolslistbox2.cell(1,incr)="VOF.L"
incr++
symbolslistbox2.cell(1,incr)="VSVS.L"
incr++
symbolslistbox2.cell(1,incr)="VTY.L"
incr++
symbolslistbox2.cell(1,incr)="WEIR.L"
incr++
symbolslistbox2.cell(1,incr)="WG.L"
incr++
symbolslistbox2.cell(1,incr)="WIZZ.L"
incr++
symbolslistbox2.cell(1,incr)="WKP.L"
'incr++
'symbolslistbox2.cell(1,incr)="WMH.L"
incr++
symbolslistbox2.cell(1,incr)="WPP.L"
incr++
symbolslistbox2.cell(1,incr)="WTB.L"
incr++
symbolslistbox2.cell(1,incr)="BIRG.L"

defint ukstocksincr=incr
'showmessage str$(incr)+" UK stocks increment"
    
    ' 299 UK stocks incr 0 - 298
    ' incr=298
    
    incr++
    
'AMSTERDAM
symbolslistbox2.cell(1,incr)="AALB.AS"
incr++
symbolslistbox2.cell(1,incr)="ABN.AS"
incr++
symbolslistbox2.cell(1,incr)="AD.AS"
incr++
symbolslistbox2.cell(1,incr)="ADYEN.AS"
incr++
symbolslistbox2.cell(1,incr)="AGN.AS"
incr++
symbolslistbox2.cell(1,incr)="AKZA.AS"
incr++
symbolslistbox2.cell(1,incr)="AMG.AS"
incr++
symbolslistbox2.cell(1,incr)="ARCAD.AS"
incr++
'symbolslistbox2.cell(1,incr)="ARCAD.AS" ' ASMI.AS wrong data
'incr++
symbolslistbox2.cell(1,incr)="ASML.AS"
incr++
symbolslistbox2.cell(1,incr)="ASRNL.AS"
'incr++
'symbolslistbox2.cell(1,incr)="ATC.AS"
incr++
symbolslistbox2.cell(1,incr)="BESI.AS"
incr++
symbolslistbox2.cell(1,incr)="BOKA.AS"
incr++
symbolslistbox2.cell(1,incr)="DSM.AS"
incr++
symbolslistbox2.cell(1,incr)="FLOW.AS"
incr++
symbolslistbox2.cell(1,incr)="GLPG.AS"
incr++
'symbolslistbox2.cell(1,incr)="GVNV.AS"
'incr++
symbolslistbox2.cell(1,incr)="HEIA.AS"
incr++
symbolslistbox2.cell(1,incr)="HEIO.AS"
incr++
symbolslistbox2.cell(1,incr)="IMCD.AS"
incr++
symbolslistbox2.cell(1,incr)="INGA.AS"
incr++
symbolslistbox2.cell(1,incr)="INTER.AS"
incr++
symbolslistbox2.cell(1,incr)="KPN.AS"
incr++
symbolslistbox2.cell(1,incr)="LIGHT.AS"
incr++
symbolslistbox2.cell(1,incr)="NN.AS"
incr++
symbolslistbox2.cell(1,incr)="OCI.AS"
incr++
symbolslistbox2.cell(1,incr)="PHIA.AS"
incr++
symbolslistbox2.cell(1,incr)="PNL.AS"
incr++
symbolslistbox2.cell(1,incr)="RAND.AS"
incr++
symbolslistbox2.cell(1,incr)="SBMO.AS"
incr++
symbolslistbox2.cell(1,incr)="TKWY.AS"
incr++
symbolslistbox2.cell(1,incr)="TOM2.AS"
incr++
symbolslistbox2.cell(1,incr)="TWEKA.AS"
incr++
'symbolslistbox2.cell(1,incr)="TWEKA.AS" ' VOPA.AS wrong data
'incr++
symbolslistbox2.cell(1,incr)="WHA.AS"
incr++
symbolslistbox2.cell(1,incr)="WKL.AS"

defint Amsterdamstocksincr=incr
'showmessage str$(incr)+" Amsterdam stocks increment"
    
    ' 35 Amsterdam stocks incr 299 - 333
    ' incr=333
    incr++
    'PARIS
symbolslistbox2.cell(1,incr)="AC.PA"
incr++
symbolslistbox2.cell(1,incr)="ACA.PA"
incr++
symbolslistbox2.cell(1,incr)="ADP.PA"
incr++
symbolslistbox2.cell(1,incr)="AF.PA"
incr++
symbolslistbox2.cell(1,incr)="AI.PA"
incr++
symbolslistbox2.cell(1,incr)="AIR.PA"
incr++
symbolslistbox2.cell(1,incr)="AKA.PA"
incr++
symbolslistbox2.cell(1,incr)="AKE.PA"
incr++
symbolslistbox2.cell(1,incr)="ALO.PA"
incr++
symbolslistbox2.cell(1,incr)="AM.PA"
incr++
symbolslistbox2.cell(1,incr)="AMUN.PA"
incr++
symbolslistbox2.cell(1,incr)="ATE.PA"
incr++
symbolslistbox2.cell(1,incr)="ATO.PA"
incr++
symbolslistbox2.cell(1,incr)="BB.PA"
incr++
symbolslistbox2.cell(1,incr)="BIM.PA"
incr++
symbolslistbox2.cell(1,incr)="BN.PA"
incr++
symbolslistbox2.cell(1,incr)="BNP.PA"
incr++
symbolslistbox2.cell(1,incr)="BOL.PA"
incr++
symbolslistbox2.cell(1,incr)="BVI.PA"
incr++
symbolslistbox2.cell(1,incr)="CA.PA"
incr++
symbolslistbox2.cell(1,incr)="CAP.PA"
incr++
symbolslistbox2.cell(1,incr)="CDI.PA"
incr++
symbolslistbox2.cell(1,incr)="CNP.PA"
incr++
symbolslistbox2.cell(1,incr)="CO.PA"
incr++
symbolslistbox2.cell(1,incr)="COV.PA"
incr++
symbolslistbox2.cell(1,incr)="CS.PA"
incr++
symbolslistbox2.cell(1,incr)="DBV.PA"
incr++
symbolslistbox2.cell(1,incr)="DEC.PA"
incr++
symbolslistbox2.cell(1,incr)="DG.PA"
incr++
symbolslistbox2.cell(1,incr)="DIM.PA"
incr++
symbolslistbox2.cell(1,incr)="DSY.PA"
incr++
symbolslistbox2.cell(1,incr)="EDEN.PA"
incr++
symbolslistbox2.cell(1,incr)="EDF.PA"
incr++
symbolslistbox2.cell(1,incr)="EL.PA"
incr++
symbolslistbox2.cell(1,incr)="ELIOR.PA"
incr++
symbolslistbox2.cell(1,incr)="ELIS.PA"
incr++
symbolslistbox2.cell(1,incr)="EN.PA"
incr++
symbolslistbox2.cell(1,incr)="ENGI.PA"
incr++
symbolslistbox2.cell(1,incr)="ENX.PA"
incr++
symbolslistbox2.cell(1,incr)="EO.PA"
incr++
symbolslistbox2.cell(1,incr)="ERF.PA"
incr++
symbolslistbox2.cell(1,incr)="ETL.PA"
incr++
symbolslistbox2.cell(1,incr)="FDJ.PA"
incr++
symbolslistbox2.cell(1,incr)="FGR.PA"
incr++
symbolslistbox2.cell(1,incr)="FNAC.PA"
'incr++
'symbolslistbox2.cell(1,incr)="FP.PA"
incr++
symbolslistbox2.cell(1,incr)="FR.PA"
incr++
'symbolslistbox2.cell(1,incr)="FTI.PA"
'incr++
symbolslistbox2.cell(1,incr)="GET.PA"
incr++
symbolslistbox2.cell(1,incr)="GFC.PA"
incr++
symbolslistbox2.cell(1,incr)="GLE.PA"
incr++
symbolslistbox2.cell(1,incr)="GNFT.PA"
incr++
symbolslistbox2.cell(1,incr)="HO.PA"
incr++
symbolslistbox2.cell(1,incr)="ICAD.PA"
incr++
'symbolslistbox2.cell(1,incr)="ILD.PA"
'incr++
'symbolslistbox2.cell(1,incr)="ING.PA"
'incr++
symbolslistbox2.cell(1,incr)="IPN.PA"
incr++
symbolslistbox2.cell(1,incr)="KER.PA"
'incr++
'symbolslistbox2.cell(1,incr)="KN.PA"
incr++
symbolslistbox2.cell(1,incr)="LI.PA"
incr++
symbolslistbox2.cell(1,incr)="LR.PA"
incr++
symbolslistbox2.cell(1,incr)="MC.PA"
incr++
symbolslistbox2.cell(1,incr)="MF.PA"
incr++
symbolslistbox2.cell(1,incr)="ML.PA"
incr++
symbolslistbox2.cell(1,incr)="MMB.PA"
incr++
symbolslistbox2.cell(1,incr)="MMT.PA"
incr++
symbolslistbox2.cell(1,incr)="NK.PA"
incr++
symbolslistbox2.cell(1,incr)="NXI.PA"
incr++
symbolslistbox2.cell(1,incr)="OR.PA"
incr++
symbolslistbox2.cell(1,incr)="ORA.PA"
incr++
symbolslistbox2.cell(1,incr)="ORP.PA"
incr++
symbolslistbox2.cell(1,incr)="PARRO.PA"
incr++
symbolslistbox2.cell(1,incr)="POM.PA"
incr++
symbolslistbox2.cell(1,incr)="PUB.PA"
incr++
symbolslistbox2.cell(1,incr)="RCO.PA"
incr++
symbolslistbox2.cell(1,incr)="RF.PA"
incr++
symbolslistbox2.cell(1,incr)="RI.PA"
incr++
symbolslistbox2.cell(1,incr)="RMS.PA"
incr++
symbolslistbox2.cell(1,incr)="RNO.PA"
incr++
symbolslistbox2.cell(1,incr)="RUI.PA"
incr++
symbolslistbox2.cell(1,incr)="RXL.PA"
incr++
symbolslistbox2.cell(1,incr)="SAF.PA"
incr++
symbolslistbox2.cell(1,incr)="SAN.PA"
incr++
symbolslistbox2.cell(1,incr)="SCR.PA"
incr++
symbolslistbox2.cell(1,incr)="SESG.PA"
incr++
'symbolslistbox2.cell(1,incr)="SEV.PA"
'incr++
symbolslistbox2.cell(1,incr)="SGO.PA"
incr++
symbolslistbox2.cell(1,incr)="SK.PA"
incr++
'symbolslistbox2.cell(1,incr)="SK.PA" '"SOLB.PA"
'incr++
symbolslistbox2.cell(1,incr)="SOP.PA"
incr++
symbolslistbox2.cell(1,incr)="SPIE.PA"
incr++
symbolslistbox2.cell(1,incr)="STM.PA"
incr++
symbolslistbox2.cell(1,incr)="SU.PA"
incr++
symbolslistbox2.cell(1,incr)="SW.PA"
incr++
symbolslistbox2.cell(1,incr)="TCH.PA"
incr++
symbolslistbox2.cell(1,incr)="TEP.PA"
incr++
symbolslistbox2.cell(1,incr)="TFI.PA"
incr++
symbolslistbox2.cell(1,incr)="TKTT.PA"
incr++
symbolslistbox2.cell(1,incr)="TRI.PA"
incr++
symbolslistbox2.cell(1,incr)="UBI.PA"
'incr++
'symbolslistbox2.cell(1,incr)="UG.PA"
incr++
symbolslistbox2.cell(1,incr)="VIE.PA"
incr++
symbolslistbox2.cell(1,incr)="VIV.PA"
incr++
symbolslistbox2.cell(1,incr)="VK.PA"
incr++
symbolslistbox2.cell(1,incr)="WLN.PA"
    
defint parisstocksincr=incr
'showmessage str$(incr)+" Paris stocks increment"
    ' 104 fr stocks incr 334 - 437
    ' incr=437
    
    incr++
    
    'FRANKFURT
symbolslistbox2.cell(1,incr)="1COV.DE"
incr++
symbolslistbox2.cell(1,incr)="ADJ.DE"
incr++
symbolslistbox2.cell(1,incr)="ADS.DE"
incr++
symbolslistbox2.cell(1,incr)="AFX.DE"
incr++
symbolslistbox2.cell(1,incr)="AIXA.DE"
incr++
symbolslistbox2.cell(1,incr)="ALV.DE"
incr++
symbolslistbox2.cell(1,incr)="AOX.DE"
incr++
symbolslistbox2.cell(1,incr)="ARL.DE"
incr++
symbolslistbox2.cell(1,incr)="AT1.DE"
incr++
symbolslistbox2.cell(1,incr)="B4B.DE"
incr++
symbolslistbox2.cell(1,incr)="BAS.DE"
incr++
symbolslistbox2.cell(1,incr)="BAYN.DE"
incr++
symbolslistbox2.cell(1,incr)="BC8.DE"
incr++
symbolslistbox2.cell(1,incr)="BEI.DE"
incr++
symbolslistbox2.cell(1,incr)="BMW.DE"
incr++
symbolslistbox2.cell(1,incr)="BNR.DE"
incr++
symbolslistbox2.cell(1,incr)="BOSS.DE"
incr++
symbolslistbox2.cell(1,incr)="CBK.DE"
incr++
symbolslistbox2.cell(1,incr)="CEC.DE"
'incr++
'symbolslistbox2.cell(1,incr)="CON.DE"
incr++
symbolslistbox2.cell(1,incr)="COP.DE"
incr++
'symbolslistbox2.cell(1,incr)="DAI.DE"
'incr++
symbolslistbox2.cell(1,incr)="DB1.DE"
incr++
symbolslistbox2.cell(1,incr)="DEQ.DE"
incr++
symbolslistbox2.cell(1,incr)="DHER.DE"
'incr++
'symbolslistbox2.cell(1,incr)="DLG.DE"
incr++
symbolslistbox2.cell(1,incr)="DPW.DE"
'incr++
'symbolslistbox2.cell(1,incr)="DRI.DE"
incr++
symbolslistbox2.cell(1,incr)="DTE.DE"
incr++
symbolslistbox2.cell(1,incr)="DUE.DE"
incr++
symbolslistbox2.cell(1,incr)="DWNI.DE"
incr++
symbolslistbox2.cell(1,incr)="DWS.DE"
incr++
symbolslistbox2.cell(1,incr)="EOAN.DE"
incr++
symbolslistbox2.cell(1,incr)="EVD.DE"
incr++
symbolslistbox2.cell(1,incr)="EVK.DE"
incr++
symbolslistbox2.cell(1,incr)="EVT.DE"
incr++
symbolslistbox2.cell(1,incr)="FIE.DE"
incr++
symbolslistbox2.cell(1,incr)="FME.DE"
incr++
symbolslistbox2.cell(1,incr)="FNTN.DE"
incr++
symbolslistbox2.cell(1,incr)="FRA.DE"
incr++
symbolslistbox2.cell(1,incr)="FRE.DE"
incr++
symbolslistbox2.cell(1,incr)="G1A.DE"
incr++
symbolslistbox2.cell(1,incr)="G24.DE"
incr++
symbolslistbox2.cell(1,incr)="GBF.DE"
incr++
symbolslistbox2.cell(1,incr)="GLJ.DE"
incr++
symbolslistbox2.cell(1,incr)="GXI.DE"
incr++
symbolslistbox2.cell(1,incr)="GYC.DE"
incr++
symbolslistbox2.cell(1,incr)="HDD.DE"
incr++
symbolslistbox2.cell(1,incr)="HEI.DE"
incr++
symbolslistbox2.cell(1,incr)="HEN3.DE"
incr++
symbolslistbox2.cell(1,incr)="HLAG.DE"
incr++
symbolslistbox2.cell(1,incr)="HLE.DE"
incr++
symbolslistbox2.cell(1,incr)="HNR1.DE"
incr++
symbolslistbox2.cell(1,incr)="HOT.DE"
incr++
symbolslistbox2.cell(1,incr)="IFX.DE"
incr++
symbolslistbox2.cell(1,incr)="JEN.DE"
incr++
symbolslistbox2.cell(1,incr)="JUN3.DE"
incr++
symbolslistbox2.cell(1,incr)="KBX.DE"
incr++
symbolslistbox2.cell(1,incr)="KGX.DE"
incr++
symbolslistbox2.cell(1,incr)="KRN.DE"
incr++
symbolslistbox2.cell(1,incr)="LEG.DE"
incr++
symbolslistbox2.cell(1,incr)="LEO.DE"
incr++
symbolslistbox2.cell(1,incr)="LHA.DE"
incr++
symbolslistbox2.cell(1,incr)="LXS.DE"
incr++
symbolslistbox2.cell(1,incr)="MOR.DE"
incr++
symbolslistbox2.cell(1,incr)="MTX.DE"
incr++
symbolslistbox2.cell(1,incr)="MUV2.DE"
incr++
symbolslistbox2.cell(1,incr)="NDA.DE"
incr++
symbolslistbox2.cell(1,incr)="NDX1.DE"
incr++
symbolslistbox2.cell(1,incr)="NEM.DE"
incr++
symbolslistbox2.cell(1,incr)="O2D.DE"
'incr++
'symbolslistbox2.cell(1,incr)="OSR.DE"
incr++
symbolslistbox2.cell(1,incr)="PAH3.DE"
incr++
symbolslistbox2.cell(1,incr)="PAT.DE"
incr++
symbolslistbox2.cell(1,incr)="PSM.DE"
incr++
symbolslistbox2.cell(1,incr)="PUM.DE"
incr++
'symbolslistbox2.cell(1,incr)="PUM.DE" 'QGEN.DE wrong data
'incr++
symbolslistbox2.cell(1,incr)="RAA.DE"
incr++
symbolslistbox2.cell(1,incr)="RHM.DE"
'incr++
'symbolslistbox2.cell(1,incr)="RKET.DE"
incr++
symbolslistbox2.cell(1,incr)="RRTL.DE"
incr++
symbolslistbox2.cell(1,incr)="RWE.DE"
incr++
symbolslistbox2.cell(1,incr)="S92.DE"
incr++
symbolslistbox2.cell(1,incr)="SAP.DE"
incr++
symbolslistbox2.cell(1,incr)="SAX.DE"
incr++
symbolslistbox2.cell(1,incr)="SDF.DE"
incr++
symbolslistbox2.cell(1,incr)="SGL.DE"
incr++
symbolslistbox2.cell(1,incr)="SHA.DE"
incr++
symbolslistbox2.cell(1,incr)="SHL.DE"
incr++
symbolslistbox2.cell(1,incr)="SIE.DE"
incr++
symbolslistbox2.cell(1,incr)="SIX2.DE"
incr++
symbolslistbox2.cell(1,incr)="SOW.DE"
incr++
symbolslistbox2.cell(1,incr)="SRT.DE"
incr++
symbolslistbox2.cell(1,incr)="SY1.DE"
incr++
symbolslistbox2.cell(1,incr)="SZG.DE"
incr++
symbolslistbox2.cell(1,incr)="SZU.DE"
incr++
symbolslistbox2.cell(1,incr)="TEG.DE"
incr++
symbolslistbox2.cell(1,incr)="TKA.DE"
incr++
'symbolslistbox2.cell(1,incr)="TLG.DE"
'incr++
symbolslistbox2.cell(1,incr)="TLX.DE"
incr++
symbolslistbox2.cell(1,incr)="TMV.DE"
incr++
symbolslistbox2.cell(1,incr)="UN01.DE"
incr++
symbolslistbox2.cell(1,incr)="UTDI.DE"
incr++
symbolslistbox2.cell(1,incr)="VNA.DE"
incr++
'symbolslistbox2.cell(1,incr)="VNA.DE" '"VOE.DE" invalid
'incr++
symbolslistbox2.cell(1,incr)="VOW3.DE"
incr++
symbolslistbox2.cell(1,incr)="WAF.DE"
incr++
symbolslistbox2.cell(1,incr)="WCH.DE"
'incr++
'symbolslistbox2.cell(1,incr)="WDI.DE"
incr++
symbolslistbox2.cell(1,incr)="ZAL.DE"
incr++
symbolslistbox2.cell(1,incr)="ZIL2.DE"
incr++
symbolslistbox2.cell(1,incr)="var1.de" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="hfg.de" ' added 22/05/2021

defint frankfurtstocksincr=incr
    'showmessage str$(incr)+" Frankfurt stocks increment"
    ' 111 DE stocks incr 438 - 548
    ' incr=548    
    
incr++   

'MADRID 

symbolslistbox2.cell(1,incr)="ACS.MC":incr++
symbolslistbox2.cell(1,incr)="ACX.MC":incr++
symbolslistbox2.cell(1,incr)="AENA.MC":incr++
symbolslistbox2.cell(1,incr)="ALM.MC":incr++
symbolslistbox2.cell(1,incr)="AMS.MC":incr++
symbolslistbox2.cell(1,incr)="ANA.MC":incr++
symbolslistbox2.cell(1,incr)="APPS.MC":incr++
symbolslistbox2.cell(1,incr)="BBVA.MC":incr++
'symbolslistbox2.cell(1,incr)="BKIA.MC":incr++
symbolslistbox2.cell(1,incr)="BKT.MC":incr++
'symbolslistbox2.cell(1,incr)="BME.MC":incr++
symbolslistbox2.cell(1,incr)="CABK.MC":incr++
symbolslistbox2.cell(1,incr)="CLNX.MC":incr++
symbolslistbox2.cell(1,incr)="COL.MC":incr++
symbolslistbox2.cell(1,incr)="DIA.MC":incr++
symbolslistbox2.cell(1,incr)="ELE.MC":incr++
symbolslistbox2.cell(1,incr)="ENC.MC":incr++
symbolslistbox2.cell(1,incr)="ENG.MC":incr++
symbolslistbox2.cell(1,incr)="FCC.MC":incr++
symbolslistbox2.cell(1,incr)="FER.MC":incr++
symbolslistbox2.cell(1,incr)="GEST.MC":incr++
symbolslistbox2.cell(1,incr)="GRF.MC":incr++
symbolslistbox2.cell(1,incr)="IBE.MC":incr++
symbolslistbox2.cell(1,incr)="IDR.MC":incr++
symbolslistbox2.cell(1,incr)="ITX.MC":incr++
symbolslistbox2.cell(1,incr)="LOG.MC":incr++
symbolslistbox2.cell(1,incr)="MAP.MC":incr++
'symbolslistbox2.cell(1,incr)="MAS.MC":incr++
symbolslistbox2.cell(1,incr)="MEL.MC":incr++
symbolslistbox2.cell(1,incr)="MRL.MC":incr++
symbolslistbox2.cell(1,incr)="MTS.MC":incr++
symbolslistbox2.cell(1,incr)="NTGY.MC":incr++
'symbolslistbox2.cell(1,incr)="OHL.MC":incr++
symbolslistbox2.cell(1,incr)="PHM.MC":incr++
symbolslistbox2.cell(1,incr)="PSG.MC":incr++
symbolslistbox2.cell(1,incr)="REE.MC":incr++
symbolslistbox2.cell(1,incr)="REP.MC":incr++
symbolslistbox2.cell(1,incr)="SAB.MC":incr++
symbolslistbox2.cell(1,incr)="SCYR.MC":incr++
symbolslistbox2.cell(1,incr)="SGRE.MC":incr++
'symbolslistbox2.cell(1,incr)="SGRE.MC":incr++ '"TLS.MC" invalid
symbolslistbox2.cell(1,incr)="TRE.MC":incr++
symbolslistbox2.cell(1,incr)="UNI.MC":incr++
symbolslistbox2.cell(1,incr)="VIS.MC"

defint madridstocksincr=incr
'showmessage str$(incr)+" Madrid stocks increment"
' 44 MADRID stocks incr 549 - 592
    ' incr=592 
    
    incr++ 
    
    
'BRUSSELS    

symbolslistbox2.cell(1,incr)="ABI.BR":incr++
symbolslistbox2.cell(1,incr)="ACKB.BR":incr++
symbolslistbox2.cell(1,incr)="AGS.BR":incr++
symbolslistbox2.cell(1,incr)="ARGX.BR":incr++
symbolslistbox2.cell(1,incr)="COLR.BR":incr++
symbolslistbox2.cell(1,incr)="GBLB.BR":incr++
symbolslistbox2.cell(1,incr)="KBC.BR":incr++
symbolslistbox2.cell(1,incr)="PROX.BR":incr++
symbolslistbox2.cell(1,incr)="SOF.BR":incr++
symbolslistbox2.cell(1,incr)="TNET.BR":incr++
symbolslistbox2.cell(1,incr)="UCB.BR":incr++
symbolslistbox2.cell(1,incr)="WDP.BR"

defint brusselsstocksincr=incr
'showmessage str$(incr)+" Brussels stocks increment"
' 12 BRUSSELS stocks incr 593 - 604
    ' incr=604
    
    incr++
    
    
'MILAN     

symbolslistbox2.cell(1,incr)="A2A.MI":incr++
symbolslistbox2.cell(1,incr)="AGL.MI":incr++
symbolslistbox2.cell(1,incr)="AMP.MI":incr++
symbolslistbox2.cell(1,incr)="ATL.MI":incr++
symbolslistbox2.cell(1,incr)="AZM.MI":incr++
symbolslistbox2.cell(1,incr)="BAMI.MI":incr++
symbolslistbox2.cell(1,incr)="BGN.MI":incr++
symbolslistbox2.cell(1,incr)="BPE.MI":incr++
symbolslistbox2.cell(1,incr)="BRE.MI":incr++
symbolslistbox2.cell(1,incr)="BZU.MI":incr++
symbolslistbox2.cell(1,incr)="CNHI.MI":incr++
symbolslistbox2.cell(1,incr)="CPR.MI":incr++
symbolslistbox2.cell(1,incr)="DIA.MI":incr++
symbolslistbox2.cell(1,incr)="ENEL.MI":incr++
symbolslistbox2.cell(1,incr)="ENI.MI":incr++
symbolslistbox2.cell(1,incr)="EXO.MI":incr++
symbolslistbox2.cell(1,incr)="FBK.MI":incr++
'symbolslistbox2.cell(1,incr)="FCA.MI":incr++
'symbolslistbox2.cell(1,incr)="FCA.MI":incr++ ' GASI.MI wrong data
symbolslistbox2.cell(1,incr)="HER.MI":incr++
symbolslistbox2.cell(1,incr)="IG.MI":incr++
symbolslistbox2.cell(1,incr)="IP.MI":incr++
symbolslistbox2.cell(1,incr)="IRE.MI":incr++
symbolslistbox2.cell(1,incr)="ISP.MI":incr++
symbolslistbox2.cell(1,incr)="JUVE.MI":incr++
symbolslistbox2.cell(1,incr)="LDO.MI":incr++
'symbolslistbox2.cell(1,incr)="LDO.MI":incr++ 'MDBI.MI wrong data
symbolslistbox2.cell(1,incr)="MONC.MI":incr++
'symbolslistbox2.cell(1,incr)="MS.MI":incr++
symbolslistbox2.cell(1,incr)="PIRC.MI":incr++
symbolslistbox2.cell(1,incr)="PRY.MI":incr++
symbolslistbox2.cell(1,incr)="PST.MI":incr++
symbolslistbox2.cell(1,incr)="REC.MI":incr++
symbolslistbox2.cell(1,incr)="SFER.MI":incr++
symbolslistbox2.cell(1,incr)="SRG.MI":incr++
symbolslistbox2.cell(1,incr)="STM.MI":incr++
symbolslistbox2.cell(1,incr)="TEN.MI":incr++
'symbolslistbox2.cell(1,incr)="TEN.MI":incr++ 'TLIT.MI wrong data
symbolslistbox2.cell(1,incr)="TOD.MI":incr++
symbolslistbox2.cell(1,incr)="TRN.MI":incr++
'symbolslistbox2.cell(1,incr)="UBI.MI":incr++
symbolslistbox2.cell(1,incr)="UCG.MI":incr++
symbolslistbox2.cell(1,incr)="UNI.MI":incr++
symbolslistbox2.cell(1,incr)="US.MI"

defint milanstocksincr=incr
'showmessage str$(incr)+" Milan stocks increment"
' 41 MILAN stocks incr 605 - 645
    ' incr=642 
    
    incr++
    
'ZURICH     

symbolslistbox2.cell(1,incr)="ABBN.SW":incr++
symbolslistbox2.cell(1,incr)="ADEN.SW":incr++
symbolslistbox2.cell(1,incr)="ALC.SW":incr++
symbolslistbox2.cell(1,incr)="AMS.SW":incr++
symbolslistbox2.cell(1,incr)="BAER.SW":incr++
symbolslistbox2.cell(1,incr)="BALN.SW":incr++
symbolslistbox2.cell(1,incr)="BARN.SW":incr++
symbolslistbox2.cell(1,incr)="BUCN.SW":incr++
symbolslistbox2.cell(1,incr)="CFR.SW":incr++
symbolslistbox2.cell(1,incr)="CLN.SW":incr++
symbolslistbox2.cell(1,incr)="CMBN.SW":incr++
symbolslistbox2.cell(1,incr)="CSGN.SW":incr++
symbolslistbox2.cell(1,incr)="DAE.SW":incr++
symbolslistbox2.cell(1,incr)="DKSH.SW":incr++
symbolslistbox2.cell(1,incr)="DUFN.SW":incr++
symbolslistbox2.cell(1,incr)="EMSN.SW":incr++
symbolslistbox2.cell(1,incr)="FHZN.SW":incr++
symbolslistbox2.cell(1,incr)="GALE.SW":incr++
symbolslistbox2.cell(1,incr)="GEBN.SW":incr++
symbolslistbox2.cell(1,incr)="GIVN.SW":incr++
symbolslistbox2.cell(1,incr)="HELN.SW":incr++
symbolslistbox2.cell(1,incr)="KNIN.SW":incr++
symbolslistbox2.cell(1,incr)="LAND.SW":incr++
'symbolslistbox2.cell(1,incr)="LHN.SW":incr++
symbolslistbox2.cell(1,incr)="LOGN.SW":incr++
symbolslistbox2.cell(1,incr)="LONN.SW":incr++
symbolslistbox2.cell(1,incr)="NESN.SW":incr++
'symbolslistbox2.cell(1,incr)="NESN.SW":incr++ 'OBERL.SW invalid
'symbolslistbox2.cell(1,incr)="PARG.SW":incr++
symbolslistbox2.cell(1,incr)="PGHN.SW":incr++
symbolslistbox2.cell(1,incr)="PSPN.SW":incr++
symbolslistbox2.cell(1,incr)="ROG.SW":incr++
symbolslistbox2.cell(1,incr)="SCHP.SW":incr++
symbolslistbox2.cell(1,incr)="SCMN.SW":incr++
symbolslistbox2.cell(1,incr)="SGSN.SW":incr++
symbolslistbox2.cell(1,incr)="SIKA.SW":incr++
symbolslistbox2.cell(1,incr)="SLHN.SW":incr++
symbolslistbox2.cell(1,incr)="SOON.SW":incr++
symbolslistbox2.cell(1,incr)="SPSN.SW":incr++
symbolslistbox2.cell(1,incr)="SRAIL.SW":incr++
'symbolslistbox2.cell(1,incr)="SRCG.SW":incr++
symbolslistbox2.cell(1,incr)="SREN.SW":incr++
symbolslistbox2.cell(1,incr)="STMN.SW":incr++
symbolslistbox2.cell(1,incr)="TECN.SW":incr++
symbolslistbox2.cell(1,incr)="TEMN.SW":incr++
symbolslistbox2.cell(1,incr)="UBSG.SW":incr++
symbolslistbox2.cell(1,incr)="UBXN.SW":incr++
symbolslistbox2.cell(1,incr)="UHR.SW":incr++
symbolslistbox2.cell(1,incr)="VACN.SW":incr++
symbolslistbox2.cell(1,incr)="VIFN.SW":incr++
symbolslistbox2.cell(1,incr)="ZURN.SW"

defint zurichstocksincr=incr
'showmessage str$(incr)+" Zurich stocks increment"
' 50 ZURICH stocks incr 643 - 692
    ' incr=692 
    
    incr++
    
'OSLO    

'symbolslistbox2.cell(1,incr)="AKERBP.OL":incr++
symbolslistbox2.cell(1,incr)="AKSO.OL":incr++
symbolslistbox2.cell(1,incr)="BWLPG.OL":incr++
symbolslistbox2.cell(1,incr)="DNB.OL":incr++
symbolslistbox2.cell(1,incr)="DNO.OL":incr++
symbolslistbox2.cell(1,incr)="EQNR.OL":incr++
symbolslistbox2.cell(1,incr)="GJF.OL":incr++
symbolslistbox2.cell(1,incr)="GOGL.OL":incr++
symbolslistbox2.cell(1,incr)="MOWI.OL":incr++
symbolslistbox2.cell(1,incr)="NAS.OL":incr++
symbolslistbox2.cell(1,incr)="NEL.OL":incr++
symbolslistbox2.cell(1,incr)="NHY.OL":incr++
symbolslistbox2.cell(1,incr)="ORK.OL":incr++
symbolslistbox2.cell(1,incr)="PGS.OL":incr++
symbolslistbox2.cell(1,incr)="PRS.OL":incr++
symbolslistbox2.cell(1,incr)="SALM.OL":incr++
symbolslistbox2.cell(1,incr)="SCHA.OL":incr++
symbolslistbox2.cell(1,incr)="STB.OL":incr++
symbolslistbox2.cell(1,incr)="SUBC.OL":incr++
symbolslistbox2.cell(1,incr)="TEL.OL":incr++
symbolslistbox2.cell(1,incr)="TGS.OL":incr++
symbolslistbox2.cell(1,incr)="TOM.OL":incr++
symbolslistbox2.cell(1,incr)="YAR.OL"

defint oslostocksincr=incr
'showmessage str$(incr)+" Oslo stocks increment"
' 23 OSLO stocks incr 693 - 715
    ' incr=715 
    
    incr++
    
'STOCKHOLM

symbolslistbox2.cell(1,incr)="AAK.ST":incr++
symbolslistbox2.cell(1,incr)="ALFA.ST":incr++
symbolslistbox2.cell(1,incr)="ASSA-B.ST":incr++
symbolslistbox2.cell(1,incr)="ATCO-A.ST":incr++
'symbolslistbox2.cell(1,incr)="ATCO-A.ST":incr++ 'BALDB.ST invalid
symbolslistbox2.cell(1,incr)="BOL.ST":incr++
symbolslistbox2.cell(1,incr)="CAST.ST":incr++
symbolslistbox2.cell(1,incr)="DOM.ST":incr++
'symbolslistbox2.cell(1,incr)="DOM.ST":incr++ 'EKTAB.ST invalid
'symbolslistbox2.cell(1,incr)="DOM.ST":incr++ 'EPIA.ST invalid
symbolslistbox2.cell(1,incr)="ERIC-A.ST":incr++
'symbolslistbox2.cell(1,incr)="ERIC-A.ST":incr++ 'ESSITYB.ST invalid
symbolslistbox2.cell(1,incr)="FABG.ST":incr++
'symbolslistbox2.cell(1,incr)="FABG.ST":incr++ 'GETIB.ST invalid
symbolslistbox2.cell(1,incr)="HEXA-B.ST":incr++
symbolslistbox2.cell(1,incr)="HM-B.ST":incr++
'symbolslistbox2.cell(1,incr)="HM-B.ST":incr++ 'HPOLB.ST invalid
'symbolslistbox2.cell(1,incr)="HM-B.ST":incr++ 'HUSQB.ST invalid
'symbolslistbox2.cell(1,incr)="ICA.ST":incr++
symbolslistbox2.cell(1,incr)="INDU-A.ST":incr++
symbolslistbox2.cell(1,incr)="INVE-A.ST":incr++
'symbolslistbox2.cell(1,incr)="INVE-A.ST":incr++ ' INVEB.ST invalid
'symbolslistbox2.cell(1,incr)="INVE-A.ST":incr++ 'KINDSDB.ST invalid ' INVEB.ST invalid
symbolslistbox2.cell(1,incr)="LOOMIS.ST":incr++
symbolslistbox2.cell(1,incr)="LUND-B.ST":incr++
'symbolslistbox2.cell(1,incr)="LUND-B.ST":incr++ 'LUPE.ST invalid
'symbolslistbox2.cell(1,incr)="LUND-B.ST":incr++ 'NDA_SE.ST invalid
'symbolslistbox2.cell(1,incr)="LUND-B.ST":incr++ 'NIBEB.ST invalid
'symbolslistbox2.cell(1,incr)="LUND-B.ST":incr++ 'SAABB.ST invalid
symbolslistbox2.cell(1,incr)="SAND.ST":incr++
symbolslistbox2.cell(1,incr)="SEB-A.ST":incr++
symbolslistbox2.cell(1,incr)="SECU-B.ST":incr++
symbolslistbox2.cell(1,incr)="SHB-A.ST":incr++
symbolslistbox2.cell(1,incr)="SKA-B.ST":incr++
symbolslistbox2.cell(1,incr)="SKF-A.ST":incr++
symbolslistbox2.cell(1,incr)="SOBI.ST":incr++
symbolslistbox2.cell(1,incr)="SWED-A.ST":incr++
symbolslistbox2.cell(1,incr)="SWMA.ST":incr++
'symbolslistbox2.cell(1,incr)="SWMA.ST":incr++ 'TEL2B.ST invalid
symbolslistbox2.cell(1,incr)="TELIA.ST":incr++
symbolslistbox2.cell(1,incr)="TREL-B.ST":incr++
symbolslistbox2.cell(1,incr)="VOLV-A.ST"
    
defint stockholmstocksincr=incr
   'showmessage str$(incr)+" Stockholm stocks increment" 
' 28 STOCKHOLM stocks incr 716 - 743
    ' incr=743 
    
    incr++    
    
'COPENHAGEN 

'symbolslistbox2.cell(1,incr)="":incr++ 'AMBUB.CO
'symbolslistbox2.cell(1,incr)="":incr++ 'CHR.CO
'symbolslistbox2.cell(1,incr)="":incr++ 'COLO-B.CO
'symbolslistbox2.cell(1,incr)="":incr++ 'DANSKE.CO
'symbolslistbox2.cell(1,incr)="":incr++ 'DEMANT.CO
'symbolslistbox2.cell(1,incr)="":incr++ 'DSV.COFLS.CO DEMANT.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'GMAB.CO DEMANT.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'GN.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'ISS.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'JYSK.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'LUN.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'MAERBC.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'NOVO-B.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'NZYM-B.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'ORSTED.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'PNDORA.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'RBREW.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'ROCKB.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'SIM.CO invalid
'symbolslistbox2.cell(1,incr)="":incr++ 'TRYG.CO invalid
'symbolslistbox2.cell(1,incr)="" 'VWS.CO invalid
'incr=incr+20    
 
defint copenhagenstocksincr=incr   
'showmessage str$(incr)+" Copenhagen stocks increment"
    ' 21 COPENHAGEN stocks incr 775 - 795
    ' incr=795 
    
    'incr++  
    
    
'HELSINKI 

symbolslistbox2.cell(1,incr)="CGCBV.HE":incr++
symbolslistbox2.cell(1,incr)="ELISA.HE":incr++
symbolslistbox2.cell(1,incr)="FORTUM.HE":incr++
symbolslistbox2.cell(1,incr)="HUH1V.HE":incr++
symbolslistbox2.cell(1,incr)="KCR.HE":incr++
symbolslistbox2.cell(1,incr)="KESKOB.HE":incr++
symbolslistbox2.cell(1,incr)="KNEBV.HE":incr++
symbolslistbox2.cell(1,incr)="METSB.HE":incr++
symbolslistbox2.cell(1,incr)="MOCORP.HE":incr++
'symbolslistbox2.cell(1,incr)="NELES.HE":incr++
symbolslistbox2.cell(1,incr)="NESTE.HE":incr++
symbolslistbox2.cell(1,incr)="NOKIA.HE":incr++
symbolslistbox2.cell(1,incr)="ORNBV.HE":incr++
symbolslistbox2.cell(1,incr)="OUT1V.HE":incr++
symbolslistbox2.cell(1,incr)="SAMPO.HE":incr++
symbolslistbox2.cell(1,incr)="SSABAH.HE":incr++
symbolslistbox2.cell(1,incr)="TYRES.HE":incr++
symbolslistbox2.cell(1,incr)="UPM.HE":incr++
symbolslistbox2.cell(1,incr)="VALMT.HE":incr++
symbolslistbox2.cell(1,incr)="WRT1V.HE"
    
defint helsinkistocksincr=incr
    'showmessage str$(incr)+" Helsinki stocks increment"
    ' 20 HELSINKI stocks incr 744 - 763
    ' incr=763 
    
    incr++    
    
' LISBON  

symbolslistbox2.cell(1,incr)="BCP.LS":incr++
symbolslistbox2.cell(1,incr)="EDP.LS":incr++
symbolslistbox2.cell(1,incr)="JMT.LS"

defint lisbonstocksincr=incr
'showmessage str$(incr)+" Lisbon stocks increment"
' 3 LISBON stocks incr 764 - 766
    ' incr=768
    
    incr++ 
    
' HONG KONG  

symbolslistbox2.cell(1,incr)="0857.HK":incr++
symbolslistbox2.cell(1,incr)="0386.HK":incr++
symbolslistbox2.cell(1,incr)="3993.HK":incr++
symbolslistbox2.cell(1,incr)="0883.HK":incr++
symbolslistbox2.cell(1,incr)="0968.HK":incr++
symbolslistbox2.cell(1,incr)="1088.HK":incr++
symbolslistbox2.cell(1,incr)="1171.HK":incr++
symbolslistbox2.cell(1,incr)="1898.HK":incr++
symbolslistbox2.cell(1,incr)="2883.HK":incr++
symbolslistbox2.cell(1,incr)="3800.HK":incr++
symbolslistbox2.cell(1,incr)="0027.HK":incr++
symbolslistbox2.cell(1,incr)="0175.HK":incr++
symbolslistbox2.cell(1,incr)="0322.HK":incr++
symbolslistbox2.cell(1,incr)="0880.HK":incr++
symbolslistbox2.cell(1,incr)="1055.HK":incr++
symbolslistbox2.cell(1,incr)="1093.HK":incr++
'symbolslistbox2.cell(1,incr)="1114.HK":incr++
symbolslistbox2.cell(1,incr)="1128.HK":incr++
symbolslistbox2.cell(1,incr)="1177.HK":incr++
symbolslistbox2.cell(1,incr)="1211.HK":incr++
symbolslistbox2.cell(1,incr)="1928.HK":incr++
symbolslistbox2.cell(1,incr)="2020.HK":incr++
symbolslistbox2.cell(1,incr)="2196.HK":incr++
symbolslistbox2.cell(1,incr)="2269.HK":incr++
symbolslistbox2.cell(1,incr)="2313.HK":incr++
symbolslistbox2.cell(1,incr)="2319.HK":incr++
symbolslistbox2.cell(1,incr)="0489.HK":incr++
symbolslistbox2.cell(1,incr)="6862.HK":incr++
symbolslistbox2.cell(1,incr)="0753.HK":incr++
symbolslistbox2.cell(1,incr)="0941.HK":incr++
symbolslistbox2.cell(1,incr)="1585.HK":incr++
symbolslistbox2.cell(1,incr)="1833.HK":incr++
symbolslistbox2.cell(1,incr)="1958.HK":incr++
symbolslistbox2.cell(1,incr)="2238.HK":incr++
symbolslistbox2.cell(1,incr)="2331.HK":incr++
symbolslistbox2.cell(1,incr)="2333.HK":incr++
symbolslistbox2.cell(1,incr)="2338.HK":incr++
symbolslistbox2.cell(1,incr)="0288.HK":incr++
symbolslistbox2.cell(1,incr)="6055.HK":incr++
symbolslistbox2.cell(1,incr)="0011.HK":incr++
symbolslistbox2.cell(1,incr)="0016.HK":incr++
symbolslistbox2.cell(1,incr)="0017.HK":incr++
symbolslistbox2.cell(1,incr)="0388.HK":incr++
symbolslistbox2.cell(1,incr)="0966.HK":incr++
symbolslistbox2.cell(1,incr)="1113.HK":incr++
symbolslistbox2.cell(1,incr)="1336.HK":incr++
symbolslistbox2.cell(1,incr)="2388.HK":incr++
symbolslistbox2.cell(1,incr)="3333.HK":incr++
symbolslistbox2.cell(1,incr)="3908.HK":incr++
symbolslistbox2.cell(1,incr)="6060.HK":incr++
symbolslistbox2.cell(1,incr)="0656.HK":incr++
symbolslistbox2.cell(1,incr)="6837.HK":incr++
symbolslistbox2.cell(1,incr)="0688.HK":incr++
symbolslistbox2.cell(1,incr)="6881.HK":incr++
symbolslistbox2.cell(1,incr)="6886.HK":incr++
symbolslistbox2.cell(1,incr)="0939.HK":incr++
symbolslistbox2.cell(1,incr)="0998.HK":incr++
symbolslistbox2.cell(1,incr)="1109.HK":incr++
symbolslistbox2.cell(1,incr)="1288.HK":incr++
symbolslistbox2.cell(1,incr)="1299.HK":incr++
symbolslistbox2.cell(1,incr)="1339.HK":incr++
symbolslistbox2.cell(1,incr)="1359.HK":incr++
symbolslistbox2.cell(1,incr)="1398.HK":incr++
symbolslistbox2.cell(1,incr)="1628.HK":incr++
symbolslistbox2.cell(1,incr)="1966.HK":incr++
symbolslistbox2.cell(1,incr)="1988.HK":incr++
symbolslistbox2.cell(1,incr)="2007.HK":incr++
symbolslistbox2.cell(1,incr)="2318.HK":incr++
symbolslistbox2.cell(1,incr)="2328.HK":incr++
symbolslistbox2.cell(1,incr)="2601.HK":incr++
symbolslistbox2.cell(1,incr)="2628.HK":incr++
symbolslistbox2.cell(1,incr)="3328.HK":incr++
symbolslistbox2.cell(1,incr)="3968.HK":incr++
symbolslistbox2.cell(1,incr)="3988.HK":incr++
symbolslistbox2.cell(1,incr)="6030.HK":incr++
symbolslistbox2.cell(1,incr)="0066.HK":incr++
symbolslistbox2.cell(1,incr)="0285.HK":incr++
symbolslistbox2.cell(1,incr)="0788.HK":incr++
symbolslistbox2.cell(1,incr)="2018.HK":incr++
symbolslistbox2.cell(1,incr)="2382.HK":incr++
symbolslistbox2.cell(1,incr)="0390.HK":incr++
symbolslistbox2.cell(1,incr)="0914.HK":incr++
symbolslistbox2.cell(1,incr)="1186.HK":incr++
symbolslistbox2.cell(1,incr)="1618.HK":incr++
symbolslistbox2.cell(1,incr)="1800.HK":incr++
symbolslistbox2.cell(1,incr)="3323.HK":incr++
symbolslistbox2.cell(1,incr)="0001.HK":incr++
symbolslistbox2.cell(1,incr)="0019.HK":incr++
symbolslistbox2.cell(1,incr)="0763.HK":incr++
symbolslistbox2.cell(1,incr)="3690.HK":incr++
symbolslistbox2.cell(1,incr)="0700.HK":incr++
symbolslistbox2.cell(1,incr)="0728.HK":incr++
symbolslistbox2.cell(1,incr)="0762.HK":incr++
symbolslistbox2.cell(1,incr)="9988.HK":incr++
symbolslistbox2.cell(1,incr)="0241.HK":incr++
symbolslistbox2.cell(1,incr)="0268.HK":incr++
symbolslistbox2.cell(1,incr)="0981.HK":incr++
symbolslistbox2.cell(1,incr)="0992.HK":incr++
symbolslistbox2.cell(1,incr)="3888.HK":incr++
symbolslistbox2.cell(1,incr)="0002.HK":incr++
symbolslistbox2.cell(1,incr)="0006.HK":incr++
symbolslistbox2.cell(1,incr)="0135.HK":incr++
symbolslistbox2.cell(1,incr)="0257.HK":incr++
symbolslistbox2.cell(1,incr)="0384.HK":incr++
symbolslistbox2.cell(1,incr)="2386.HK":incr++
symbolslistbox2.cell(1,incr)="2688.HK":incr++
symbolslistbox2.cell(1,incr)="0902.HK":incr++
symbolslistbox2.cell(1,incr)="0916.HK":incr++
symbolslistbox2.cell(1,incr)="1816.HK"

' Added 77 new Sydney Australia ASX stocks here
incr++

symbolslistbox2.cell(1,incr)="whc.ax":incr++
symbolslistbox2.cell(1,incr)="qan.ax":incr++
symbolslistbox2.cell(1,incr)="ake.ax":incr++
symbolslistbox2.cell(1,incr)="pls.ax":incr++
symbolslistbox2.cell(1,incr)="cxo.ax":incr++
symbolslistbox2.cell(1,incr)="lyc.ax":incr++
symbolslistbox2.cell(1,incr)="bhp.ax":incr++
symbolslistbox2.cell(1,incr)="fmg.ax":incr++
symbolslistbox2.cell(1,incr)="wds.ax":incr++
symbolslistbox2.cell(1,incr)="wow.ax":incr++
symbolslistbox2.cell(1,incr)="evn.ax":incr++
symbolslistbox2.cell(1,incr)="mqg.ax":incr++
symbolslistbox2.cell(1,incr)="sto.ax":incr++
symbolslistbox2.cell(1,incr)="col.ax":incr++
symbolslistbox2.cell(1,incr)="igo.ax":incr++
symbolslistbox2.cell(1,incr)="s32.ax":incr++
symbolslistbox2.cell(1,incr)="ozl.ax":incr++
symbolslistbox2.cell(1,incr)="rio.ax":incr++
symbolslistbox2.cell(1,incr)="anz.ax":incr++
symbolslistbox2.cell(1,incr)="org.ax":incr++
symbolslistbox2.cell(1,incr)="nvx.ax":incr++
symbolslistbox2.cell(1,incr)="min.ax":incr++
symbolslistbox2.cell(1,incr)="vul.ax":incr++
symbolslistbox2.cell(1,incr)="tls.ax":incr++
symbolslistbox2.cell(1,incr)="wbc.ax":incr++
symbolslistbox2.cell(1,incr)="nab.ax":incr++
symbolslistbox2.cell(1,incr)="wes.ax":incr++
symbolslistbox2.cell(1,incr)="nst.ax":incr++
symbolslistbox2.cell(1,incr)="bsl.ax":incr++
symbolslistbox2.cell(1,incr)="csl.ax":incr++
symbolslistbox2.cell(1,incr)="ncm.ax":incr++
symbolslistbox2.cell(1,incr)="shl.ax":incr++
symbolslistbox2.cell(1,incr)="mpl.ax":incr++
symbolslistbox2.cell(1,incr)="gmg.ax":incr++
symbolslistbox2.cell(1,incr)="cpu.ax":incr++
symbolslistbox2.cell(1,incr)="scg.ax":incr++
symbolslistbox2.cell(1,incr)="qbe.ax":incr++
symbolslistbox2.cell(1,incr)="bxb.ax":incr++
symbolslistbox2.cell(1,incr)="sun.ax":incr++
symbolslistbox2.cell(1,incr)="all.ax":incr++
symbolslistbox2.cell(1,incr)="ltr.ax":incr++
symbolslistbox2.cell(1,incr)="chc.ax":incr++
symbolslistbox2.cell(1,incr)="iag.ax":incr++
symbolslistbox2.cell(1,incr)="ilu.ax":incr++
symbolslistbox2.cell(1,incr)="gpt.ax":incr++
symbolslistbox2.cell(1,incr)="sol.ax":incr++
symbolslistbox2.cell(1,incr)="mfg.ax":incr++
symbolslistbox2.cell(1,incr)="cba.ax":incr++
symbolslistbox2.cell(1,incr)="brn.ax":incr++
symbolslistbox2.cell(1,incr)="awc.ax"

defint hongkongstocksincr=incr
'showmessage str$(incr)+" Hong Kong stocks increment"
' 109 HONG KONG stocks incr 767 - 875
    ' incr=877
    
    incr++     
     
    
        'NASDAQ

symbolslistbox2.cell(1,incr)="AMH" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="ARR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="AVTR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="BAM" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="BDC" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="BKD" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="BRX" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="BW" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="BXMT" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="CAL" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="CARR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="CUZ" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="DBI" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="DEI" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="DS" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="ELF" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="EPR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="EPRT" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="EQC" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="FSK" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="FTAI" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="GEO" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="GNL" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="GTN" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="GVA" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="HIW" ' added 12/07/2021
'incr++
'symbolslistbox2.cell(1,incr)="HOME" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="HP" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="HPP" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="HR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="HRB" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="IMAX" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="INN" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="INVH" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="IRT" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="IVR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="JOE" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="KAR" ' added 12/07/2021
incr++
'symbolslistbox2.cell(1,incr)="KDMN" ' added 12/07/2021
'incr++
symbolslistbox2.cell(1,incr)="LPI" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="LRN" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="MAXR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="MDP" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="MGP" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="MPLX" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="NBR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="NNN" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="NSA" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="OFC" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="PBA" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="PD" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="PDM" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="PEAK" ' added 12/07/2021
'incr++
'symbolslistbox2.cell(1,incr)="PLT" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="PRTY" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="PUMP" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="RYN" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="SITC" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="SLCA" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="SRC" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="SRG" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="STWD" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="SUN" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="TROX" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="TUP" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="UAA" ' added 12/07/2021
incr++
'symbolslistbox2.cell(1,incr)="VER" ' added 12/07/2021
'incr++
symbolslistbox2.cell(1,incr)="VICI" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="WRE" ' added 12/07/2021
'incr++
'symbolslistbox2.cell(1,incr)="WRI" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="WTI" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="YEXT" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="MAG" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="GOVT" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="STLA" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="GRWG" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="LAZR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="MANH" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="SAIA" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="CCMP" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="VLDR" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="SF" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="FUTU" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="ARRY" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="CHPT" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="RAMP" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="MTSI" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="NNOX" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="RKT" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="AFRM" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="GLBE" ' added 12/07/2021
incr++
symbolslistbox2.cell(1,incr)="AAL"
incr++
symbolslistbox2.cell(1,incr)="AAPL"
'incr++
'symbolslistbox2.cell(1,incr)="AAXN"
incr++
symbolslistbox2.cell(1,incr)="ABCB"
incr++
symbolslistbox2.cell(1,incr)="ABMD"
incr++
symbolslistbox2.cell(1,incr)="ABNB"
incr++
symbolslistbox2.cell(1,incr)="ACAD"
incr++
symbolslistbox2.cell(1,incr)="aci" ' added 22/05/2021
'incr++
'symbolslistbox2.cell(1,incr)="ACIA"
incr++
symbolslistbox2.cell(1,incr)="ADBE"
incr++
symbolslistbox2.cell(1,incr)="ADI"
incr++
symbolslistbox2.cell(1,incr)="ADP"
incr++
symbolslistbox2.cell(1,incr)="ADSK"
incr++
symbolslistbox2.cell(1,incr)="AGNC"
incr++
symbolslistbox2.cell(1,incr)="AKAM"
incr++
symbolslistbox2.cell(1,incr)="ALGN"
incr++
symbolslistbox2.cell(1,incr)="ALRM"
'incr++
'symbolslistbox2.cell(1,incr)="ALXN"
incr++
symbolslistbox2.cell(1,incr)="AMAT"
incr++
symbolslistbox2.cell(1,incr)="AMBA"
incr++
symbolslistbox2.cell(1,incr)="AMD"
incr++
symbolslistbox2.cell(1,incr)="AMED"
incr++
symbolslistbox2.cell(1,incr)="AMGN"
'incr++
'symbolslistbox2.cell(1,incr)="AMTD"
incr++
symbolslistbox2.cell(1,incr)="AMZN"
incr++
symbolslistbox2.cell(1,incr)="ANDE"
incr++
symbolslistbox2.cell(1,incr)="ANSS"
incr++
symbolslistbox2.cell(1,incr)="ARWR"
incr++
symbolslistbox2.cell(1,incr)="ASAN"
incr++
symbolslistbox2.cell(1,incr)="ASML"
'incr++
'symbolslistbox2.cell(1,incr)="ASNA"
incr++
symbolslistbox2.cell(1,incr)="ATNX"
incr++
symbolslistbox2.cell(1,incr)="ATVI"
incr++
symbolslistbox2.cell(1,incr)="AVAV"
incr++
symbolslistbox2.cell(1,incr)="AVGO"
incr++
symbolslistbox2.cell(1,incr)="AVID"
incr++
symbolslistbox2.cell(1,incr)="AVT"
incr++
symbolslistbox2.cell(1,incr)="AXGN"
incr++
symbolslistbox2.cell(1,incr)="AZPN"
incr++
symbolslistbox2.cell(1,incr)="BBBY"
incr++
symbolslistbox2.cell(1,incr)="BEAT"
incr++
symbolslistbox2.cell(1,incr)="BHF"
incr++
symbolslistbox2.cell(1,incr)="BIDU"
incr++
symbolslistbox2.cell(1,incr)="BIIB"
incr++
symbolslistbox2.cell(1,incr)="BILI"
incr++
symbolslistbox2.cell(1,incr)="bill"
incr++
symbolslistbox2.cell(1,incr)="BKNG"
incr++
symbolslistbox2.cell(1,incr)="BLDP"
incr++
symbolslistbox2.cell(1,incr)="BLDR"
incr++
symbolslistbox2.cell(1,incr)="BLMN"
incr++
symbolslistbox2.cell(1,incr)="BLUE"
incr++
symbolslistbox2.cell(1,incr)="BMRN"
incr++
symbolslistbox2.cell(1,incr)="BPMC"
'incr++
'symbolslistbox2.cell(1,incr)="BPY"
incr++
symbolslistbox2.cell(1,incr)="BRKR"
incr++
symbolslistbox2.cell(1,incr)="BYND"
incr++
symbolslistbox2.cell(1,incr)="BZUN"
incr++
symbolslistbox2.cell(1,incr)="CACC"
incr++
symbolslistbox2.cell(1,incr)="CAMP"
incr++
symbolslistbox2.cell(1,incr)="CAR"
incr++
symbolslistbox2.cell(1,incr)="CARA"
incr++
symbolslistbox2.cell(1,incr)="CASY"
'incr++
'symbolslistbox2.cell(1,incr)="CBPO"
incr++
symbolslistbox2.cell(1,incr)="CBRL"
incr++
symbolslistbox2.cell(1,incr)="CDNS"
incr++
symbolslistbox2.cell(1,incr)="CDW"
incr++
symbolslistbox2.cell(1,incr)="CERN"
incr++
symbolslistbox2.cell(1,incr)="CEVA"
incr++
symbolslistbox2.cell(1,incr)="CHDN"
incr++
symbolslistbox2.cell(1,incr)="CHKP"
incr++
symbolslistbox2.cell(1,incr)="CHRS"
incr++
symbolslistbox2.cell(1,incr)="CHRW"
incr++
symbolslistbox2.cell(1,incr)="CHTR"
incr++
symbolslistbox2.cell(1,incr)="CINF"
incr++
symbolslistbox2.cell(1,incr)="CLLS"
incr++
symbolslistbox2.cell(1,incr)="CLMT"
incr++
symbolslistbox2.cell(1,incr)="CMCSA"
incr++
symbolslistbox2.cell(1,incr)="CME"
incr++
symbolslistbox2.cell(1,incr)="CNMD"
incr++
symbolslistbox2.cell(1,incr)="CODX"
incr++
symbolslistbox2.cell(1,incr)="COMM"
'incr++
'symbolslistbox2.cell(1,incr)="CORE"
incr++
symbolslistbox2.cell(1,incr)="COST"
incr++
symbolslistbox2.cell(1,incr)="COUP"
incr++
symbolslistbox2.cell(1,incr)="CPRT"
incr++
symbolslistbox2.cell(1,incr)="CRBP"
incr++
'symbolslistbox2.cell(1,incr)="CREE"
'incr++
symbolslistbox2.cell(1,incr)="CRON"
incr++
symbolslistbox2.cell(1,incr)="CROX"
incr++
symbolslistbox2.cell(1,incr)="crsr" 'added 2021-05-22
incr++
symbolslistbox2.cell(1,incr)="CRUS"
incr++
symbolslistbox2.cell(1,incr)="CRWD"
incr++
symbolslistbox2.cell(1,incr)="CSCO"
incr++
symbolslistbox2.cell(1,incr)="CSGP"
incr++
symbolslistbox2.cell(1,incr)="CSIQ"
incr++
'symbolslistbox2.cell(1,incr)="CSOD"
'incr++
symbolslistbox2.cell(1,incr)="CSX"
incr++
symbolslistbox2.cell(1,incr)="CTAS"
incr++
symbolslistbox2.cell(1,incr)="CTSH"
incr++
symbolslistbox2.cell(1,incr)="CTXS"
incr++
symbolslistbox2.cell(1,incr)="CYBR"
incr++
symbolslistbox2.cell(1,incr)="CZR"
incr++
symbolslistbox2.cell(1,incr)="DASH"
incr++
symbolslistbox2.cell(1,incr)="DBX"
incr++
symbolslistbox2.cell(1,incr)="DENN"
incr++
symbolslistbox2.cell(1,incr)="DISCA"
incr++
symbolslistbox2.cell(1,incr)="DISH"
incr++
symbolslistbox2.cell(1,incr)="DLTR"
'incr++
'symbolslistbox2.cell(1,incr)="DNKN"
incr++
symbolslistbox2.cell(1,incr)="DOCU"
incr++
symbolslistbox2.cell(1,incr)="dox" 'added 2021-05-22
incr++
symbolslistbox2.cell(1,incr)="dt" 'added 2021-05-22
incr++
symbolslistbox2.cell(1,incr)="DXCM"
incr++
symbolslistbox2.cell(1,incr)="EA"
incr++
symbolslistbox2.cell(1,incr)="EBAY"
incr++
symbolslistbox2.cell(1,incr)="EDIT"
incr++
symbolslistbox2.cell(1,incr)="EEFT"
incr++
symbolslistbox2.cell(1,incr)="EHTH"
incr++
symbolslistbox2.cell(1,incr)="ENPH"
incr++
symbolslistbox2.cell(1,incr)="EQIX"
'incr++
'symbolslistbox2.cell(1,incr)="ERI"
'incr++
'symbolslistbox2.cell(1,incr)="ETFC"
incr++
symbolslistbox2.cell(1,incr)="ETSY"
incr++
symbolslistbox2.cell(1,incr)="EVBG"
incr++
symbolslistbox2.cell(1,incr)="EXAS"
incr++
symbolslistbox2.cell(1,incr)="EXEL"
incr++
symbolslistbox2.cell(1,incr)="EXPD"
incr++
symbolslistbox2.cell(1,incr)="EXPE"
incr++
symbolslistbox2.cell(1,incr)="FANG"
incr++
symbolslistbox2.cell(1,incr)="FAST"
incr++
symbolslistbox2.cell(1,incr)="FB"
incr++
'symbolslistbox2.cell(1,incr)="FEYE"
'incr++
symbolslistbox2.cell(1,incr)="FFIV"
incr++
symbolslistbox2.cell(1,incr)="FISV"
incr++
symbolslistbox2.cell(1,incr)="FITB"
incr++
symbolslistbox2.cell(1,incr)="FIVE"
incr++
symbolslistbox2.cell(1,incr)="FLEX"
'incr++
'symbolslistbox2.cell(1,incr)="FLIR"
incr++
symbolslistbox2.cell(1,incr)="FLWS"
incr++
symbolslistbox2.cell(1,incr)="FOSL"
incr++
symbolslistbox2.cell(1,incr)="four" 'added 2021-05-22
incr++
symbolslistbox2.cell(1,incr)="FROG"
incr++
symbolslistbox2.cell(1,incr)="FRPT"
incr++
symbolslistbox2.cell(1,incr)="FSLR"
incr++
symbolslistbox2.cell(1,incr)="FTNT"
incr++
symbolslistbox2.cell(1,incr)="FWONA"
incr++
symbolslistbox2.cell(1,incr)="GH"
incr++
symbolslistbox2.cell(1,incr)="GILD"
incr++
symbolslistbox2.cell(1,incr)="GLPI"
incr++
symbolslistbox2.cell(1,incr)="GNTX"
incr++
symbolslistbox2.cell(1,incr)="GOOG"
incr++
symbolslistbox2.cell(1,incr)="GOSS"
incr++
symbolslistbox2.cell(1,incr)="GPRO"
incr++
symbolslistbox2.cell(1,incr)="GRMN"
incr++
symbolslistbox2.cell(1,incr)="GSAT"
incr++
symbolslistbox2.cell(1,incr)="GT"
'incr++
'symbolslistbox2.cell(1,incr)="GWPH"
incr++
symbolslistbox2.cell(1,incr)="HAIN"
incr++
symbolslistbox2.cell(1,incr)="HAS"
incr++
symbolslistbox2.cell(1,incr)="HBAN"
'incr++
'symbolslistbox2.cell(1,incr)="HDS"
incr++
symbolslistbox2.cell(1,incr)="HOLX"
incr++
symbolslistbox2.cell(1,incr)="HQY"
incr++
symbolslistbox2.cell(1,incr)="HSIC"
incr++
symbolslistbox2.cell(1,incr)="HTHT"
incr++
symbolslistbox2.cell(1,incr)="IAC"
incr++
symbolslistbox2.cell(1,incr)="IBKR"
incr++
symbolslistbox2.cell(1,incr)="ICPT"
incr++
symbolslistbox2.cell(1,incr)="IDCC"
incr++
symbolslistbox2.cell(1,incr)="IDXX"
incr++
symbolslistbox2.cell(1,incr)="IEP"
incr++
symbolslistbox2.cell(1,incr)="IIVI"
incr++
symbolslistbox2.cell(1,incr)="ILMN"
'incr++
'symbolslistbox2.cell(1,incr)="IMMU"
incr++
symbolslistbox2.cell(1,incr)="INCY"
incr++
'symbolslistbox2.cell(1,incr)="INFO"
'incr++
symbolslistbox2.cell(1,incr)="INGN"
incr++
symbolslistbox2.cell(1,incr)="INTC"
incr++
symbolslistbox2.cell(1,incr)="INTU"
incr++
symbolslistbox2.cell(1,incr)="IONS"
incr++
symbolslistbox2.cell(1,incr)="IPGP"
incr++
symbolslistbox2.cell(1,incr)="IRBT"
incr++
symbolslistbox2.cell(1,incr)="IRTC"
incr++
'symbolslistbox2.cell(1,incr)="ISBC"
'incr++
symbolslistbox2.cell(1,incr)="ISRG"
incr++
symbolslistbox2.cell(1,incr)="JACK"
incr++
symbolslistbox2.cell(1,incr)="JAZZ"
incr++
symbolslistbox2.cell(1,incr)="JBHT"
incr++
symbolslistbox2.cell(1,incr)="JBLU"
incr++
symbolslistbox2.cell(1,incr)="JD"
incr++
symbolslistbox2.cell(1,incr)="JFU"
incr++
symbolslistbox2.cell(1,incr)="JKHY"
incr++
symbolslistbox2.cell(1,incr)="JOBS"
incr++
symbolslistbox2.cell(1,incr)="JOUT"
incr++
'symbolslistbox2.cell(1,incr)="JOUT" '"JSNTST"
'incr++
symbolslistbox2.cell(1,incr)="kc" 'added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="KHC"
incr++
symbolslistbox2.cell(1,incr)="KLAC"
incr++
symbolslistbox2.cell(1,incr)="KTOS"
incr++
symbolslistbox2.cell(1,incr)="LAMR"
incr++
symbolslistbox2.cell(1,incr)="LBTYA"
incr++
symbolslistbox2.cell(1,incr)="LBTYK"
incr++
symbolslistbox2.cell(1,incr)="LILA"
incr++
symbolslistbox2.cell(1,incr)="LITE"
incr++
symbolslistbox2.cell(1,incr)="LKQ"
incr++
symbolslistbox2.cell(1,incr)="LNG"
'incr++
'symbolslistbox2.cell(1,incr)="LOGM"
incr++
symbolslistbox2.cell(1,incr)="LPSN"
incr++
symbolslistbox2.cell(1,incr)="LRCX"
incr++
symbolslistbox2.cell(1,incr)="LSXMA"
incr++
symbolslistbox2.cell(1,incr)="LULU"
incr++
symbolslistbox2.cell(1,incr)="LYFT"
incr++
symbolslistbox2.cell(1,incr)="MAR"
incr++
symbolslistbox2.cell(1,incr)="MASI"
incr++
symbolslistbox2.cell(1,incr)="MAT"
incr++
symbolslistbox2.cell(1,incr)="MCHP"
incr++
symbolslistbox2.cell(1,incr)="MDB"
incr++
symbolslistbox2.cell(1,incr)="MDLZ"
incr++
symbolslistbox2.cell(1,incr)="MELI"
incr++
symbolslistbox2.cell(1,incr)="mgni" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="midd" ' added 22/05/2021
'incr++
'symbolslistbox2.cell(1,incr)="MIK"
incr++
symbolslistbox2.cell(1,incr)="MKTX"
incr++
symbolslistbox2.cell(1,incr)="MMYT"
incr++
symbolslistbox2.cell(1,incr)="MNST"
incr++
symbolslistbox2.cell(1,incr)="MOMO"
incr++
symbolslistbox2.cell(1,incr)="MRCY"
incr++
symbolslistbox2.cell(1,incr)="MRNA"
incr++
symbolslistbox2.cell(1,incr)="MRTX"
incr++
symbolslistbox2.cell(1,incr)="MRVL"
incr++
symbolslistbox2.cell(1,incr)="MSFT"
incr++
symbolslistbox2.cell(1,incr)="MTCH"
incr++
symbolslistbox2.cell(1,incr)="MU"
'incr++
'symbolslistbox2.cell(1,incr)="MXIM"
'incr++
'symbolslistbox2.cell(1,incr)="MYL"
incr++
symbolslistbox2.cell(1,incr)="NATI"
incr++
symbolslistbox2.cell(1,incr)="NBIX"
incr++
symbolslistbox2.cell(1,incr)="NET"
incr++
symbolslistbox2.cell(1,incr)="NFLX"
incr++
symbolslistbox2.cell(1,incr)="NIU"
incr++
symbolslistbox2.cell(1,incr)="NLOK"
incr++
symbolslistbox2.cell(1,incr)="NTAP"
incr++
symbolslistbox2.cell(1,incr)="NTDOY"
incr++
symbolslistbox2.cell(1,incr)="NTES"
incr++
symbolslistbox2.cell(1,incr)="NTLA"
incr++
symbolslistbox2.cell(1,incr)="NTNX"
incr++
symbolslistbox2.cell(1,incr)="NTRA"
incr++
symbolslistbox2.cell(1,incr)="NTRS"
incr++
symbolslistbox2.cell(1,incr)="NUAN"
incr++
symbolslistbox2.cell(1,incr)="NUVA"
incr++
symbolslistbox2.cell(1,incr)="NVAX"
incr++
symbolslistbox2.cell(1,incr)="NVCR"
incr++
symbolslistbox2.cell(1,incr)="NVDA"
incr++
symbolslistbox2.cell(1,incr)="NWL"
incr++
symbolslistbox2.cell(1,incr)="NWSA"
incr++
symbolslistbox2.cell(1,incr)="NXPI"
incr++
symbolslistbox2.cell(1,incr)="ODFL"
incr++
symbolslistbox2.cell(1,incr)="ODP"
incr++
symbolslistbox2.cell(1,incr)="OKTA"
incr++
symbolslistbox2.cell(1,incr)="OLED"
incr++
symbolslistbox2.cell(1,incr)="OLLI"
incr++
symbolslistbox2.cell(1,incr)="ON"
'incr++
'symbolslistbox2.cell(1,incr)="ORBC"
incr++
symbolslistbox2.cell(1,incr)="ORLY"
incr++
symbolslistbox2.cell(1,incr)="OSTK"
incr++
symbolslistbox2.cell(1,incr)="PAYX"
incr++
symbolslistbox2.cell(1,incr)="PBYI"
incr++
symbolslistbox2.cell(1,incr)="PCAR"
incr++
symbolslistbox2.cell(1,incr)="PDCE"
incr++
symbolslistbox2.cell(1,incr)="PDCO"
incr++
symbolslistbox2.cell(1,incr)="PDD"
incr++
symbolslistbox2.cell(1,incr)="PENN"
incr++
symbolslistbox2.cell(1,incr)="PEP"
incr++
symbolslistbox2.cell(1,incr)="PFG"
'incr++
'symbolslistbox2.cell(1,incr)="PFPT"
incr++
symbolslistbox2.cell(1,incr)="PI"
incr++
symbolslistbox2.cell(1,incr)="PLAY"
incr++
symbolslistbox2.cell(1,incr)="PLTR"
incr++
symbolslistbox2.cell(1,incr)="PODD"
incr++
symbolslistbox2.cell(1,incr)="POOL"
incr++
symbolslistbox2.cell(1,incr)="POWI"
incr++
symbolslistbox2.cell(1,incr)="PPC"
'incr++
'symbolslistbox2.cell(1,incr)="PRAH"
'incr++
'symbolslistbox2.cell(1,incr)="PS"
incr++
symbolslistbox2.cell(1,incr)="PTC"
incr++
symbolslistbox2.cell(1,incr)="PTON"
incr++
symbolslistbox2.cell(1,incr)="PYPL"
incr++
symbolslistbox2.cell(1,incr)="PZZA"
incr++
symbolslistbox2.cell(1,incr)="QCOM"
incr++
symbolslistbox2.cell(1,incr)="QFIN"
incr++
symbolslistbox2.cell(1,incr)="QIWI"
incr++
symbolslistbox2.cell(1,incr)="QRTEA"
incr++
symbolslistbox2.cell(1,incr)="QRVO"
incr++
symbolslistbox2.cell(1,incr)="QTT"
incr++
symbolslistbox2.cell(1,incr)="REG"
incr++
symbolslistbox2.cell(1,incr)="REGN"
incr++
symbolslistbox2.cell(1,incr)="RETA"
incr++
symbolslistbox2.cell(1,incr)="RGEN"
incr++
symbolslistbox2.cell(1,incr)="ROKU"
incr++
symbolslistbox2.cell(1,incr)="ROST"
incr++
symbolslistbox2.cell(1,incr)="rpay" 'added 2021-05-22
incr++
symbolslistbox2.cell(1,incr)="RUN"
incr++
symbolslistbox2.cell(1,incr)="RYAAY"
incr++
symbolslistbox2.cell(1,incr)="SAFM"
incr++
symbolslistbox2.cell(1,incr)="SAGE"
incr++
symbolslistbox2.cell(1,incr)="SANM"
incr++
symbolslistbox2.cell(1,incr)="SBAC"
incr++
symbolslistbox2.cell(1,incr)="SBNY"
incr++
symbolslistbox2.cell(1,incr)="SBRA"
incr++
symbolslistbox2.cell(1,incr)="SBUX"
incr++
symbolslistbox2.cell(1,incr)="SEDG"
incr++
symbolslistbox2.cell(1,incr)="SEIC"
incr++
symbolslistbox2.cell(1,incr)="SFIX"
incr++
symbolslistbox2.cell(1,incr)="SFM"
incr++
symbolslistbox2.cell(1,incr)="SGEN"
incr++
symbolslistbox2.cell(1,incr)="SGMO"
incr++
symbolslistbox2.cell(1,incr)="SIRI"
incr++
symbolslistbox2.cell(1,incr)="SIVB"
incr++
symbolslistbox2.cell(1,incr)="SLAB"
incr++
symbolslistbox2.cell(1,incr)="SLGN"
incr++
symbolslistbox2.cell(1,incr)="SMTC"
incr++
symbolslistbox2.cell(1,incr)="SNEX"
incr++
symbolslistbox2.cell(1,incr)="SNOW"
incr++
symbolslistbox2.cell(1,incr)="SNPS"
incr++
symbolslistbox2.cell(1,incr)="SPLK"
incr++
symbolslistbox2.cell(1,incr)="SPTN"
incr++
symbolslistbox2.cell(1,incr)="SPWR"
incr++
symbolslistbox2.cell(1,incr)="SRCL"
incr++
symbolslistbox2.cell(1,incr)="SRPT"
incr++
symbolslistbox2.cell(1,incr)="SSNC"
incr++
symbolslistbox2.cell(1,incr)="STLD"
incr++
'symbolslistbox2.cell(1,incr)="STMP"
'incr++
symbolslistbox2.cell(1,incr)="STNE"
incr++
symbolslistbox2.cell(1,incr)="STX"
incr++
symbolslistbox2.cell(1,incr)="SUMO"
incr++
symbolslistbox2.cell(1,incr)="SWBI"
incr++
symbolslistbox2.cell(1,incr)="SWKS"
incr++
symbolslistbox2.cell(1,incr)="SYNA"
incr++
symbolslistbox2.cell(1,incr)="TA"
incr++
symbolslistbox2.cell(1,incr)="TACO"
incr++
symbolslistbox2.cell(1,incr)="TCOM"
incr++
symbolslistbox2.cell(1,incr)="TEAM"
incr++
symbolslistbox2.cell(1,incr)="TECH"
incr++
symbolslistbox2.cell(1,incr)="TLRY"
incr++
symbolslistbox2.cell(1,incr)="TMUS"
incr++
symbolslistbox2.cell(1,incr)="TNDM"
incr++
symbolslistbox2.cell(1,incr)="TREE"
incr++
symbolslistbox2.cell(1,incr)="TRIP"
incr++
symbolslistbox2.cell(1,incr)="TRMB"
incr++
symbolslistbox2.cell(1,incr)="TROW"
incr++
symbolslistbox2.cell(1,incr)="TSCO"
incr++
symbolslistbox2.cell(1,incr)="TSLA"
incr++
symbolslistbox2.cell(1,incr)="TTD"
incr++
symbolslistbox2.cell(1,incr)="TTWO"
incr++
symbolslistbox2.cell(1,incr)="TXN"
incr++
symbolslistbox2.cell(1,incr)="TXRH"
incr++
symbolslistbox2.cell(1,incr)="U"
incr++
symbolslistbox2.cell(1,incr)="UAL"
incr++
symbolslistbox2.cell(1,incr)="UEIC"
incr++
symbolslistbox2.cell(1,incr)="UI"
incr++
symbolslistbox2.cell(1,incr)="ULTA"
incr++
symbolslistbox2.cell(1,incr)="UNIT"
incr++
symbolslistbox2.cell(1,incr)="URBN"
incr++
symbolslistbox2.cell(1,incr)="VC"
incr++
symbolslistbox2.cell(1,incr)="VCYT"
incr++
symbolslistbox2.cell(1,incr)="VIAV"
incr++
symbolslistbox2.cell(1,incr)="VOD"
incr++
symbolslistbox2.cell(1,incr)="VRSK"
incr++
symbolslistbox2.cell(1,incr)="VRSN"
incr++
symbolslistbox2.cell(1,incr)="VRTX"
incr++
symbolslistbox2.cell(1,incr)="VTRU"
incr++
symbolslistbox2.cell(1,incr)="WB"
incr++
symbolslistbox2.cell(1,incr)="WBA"
incr++
symbolslistbox2.cell(1,incr)="WDAY"
incr++
symbolslistbox2.cell(1,incr)="WDC"
incr++
symbolslistbox2.cell(1,incr)="WEN"
incr++
symbolslistbox2.cell(1,incr)="WIX"
incr++
'symbolslistbox2.cell(1,incr)="WLTW"
'incr++
'symbolslistbox2.cell(1,incr)="WMGI"
'incr++
'symbolslistbox2.cell(1,incr)="WMGI" 'WTW invalid
'incr++
symbolslistbox2.cell(1,incr)="WYNN"
incr++
symbolslistbox2.cell(1,incr)="XEL"
incr++
'symbolslistbox2.cell(1,incr)="XLNX"
'incr++
symbolslistbox2.cell(1,incr)="XRAY"
incr++
symbolslistbox2.cell(1,incr)="YNDX"
incr++
symbolslistbox2.cell(1,incr)="Z"
incr++
symbolslistbox2.cell(1,incr)="ZBRA"
incr++
symbolslistbox2.cell(1,incr)="ZION"
incr++
symbolslistbox2.cell(1,incr)="ZM"
incr++
symbolslistbox2.cell(1,incr)="ZNGA"
incr++
symbolslistbox2.cell(1,incr)="ZS"
incr++
symbolslistbox2.cell(1,incr)="ZYNE"
incr++
symbolslistbox2.cell(1,incr)="arct" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="eh" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="bntx" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="ino" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="lscc" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="ter" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="upwk" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="vir" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="aem" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="aos" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="aqua" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="au" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="auy" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="be" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="fnv" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="gfi" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="hmy" ' added 22/05/2021
incr++
'symbolslistbox2.cell(1,incr)="kl" ' added 22/05/2021
'incr++
symbolslistbox2.cell(1,incr)="lthm" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="bto.to" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="arkg" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="arkq" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="tds" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="wpm" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="api" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="kgc" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="CRSP" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="fate" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="VRM" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="NOMD" ' added 22/05/2021
incr++
symbolslistbox2.cell(1,incr)="KOS" ' added 16/06/2021
'incr++
'symbolslistbox2.cell(1,incr)="KYLN" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="MGY" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="ESRT" ' added 16/06/2021
incr++
'symbolslistbox2.cell(1,incr)="RPAI" ' added 16/06/2021
'incr++
symbolslistbox2.cell(1,incr)="EC" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="MFA" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CIM" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="BDN" ' added 16/06/2021
incr++
'symbolslistbox2.cell(1,incr)="VEDL" ' added 16/06/2021
'incr++
symbolslistbox2.cell(1,incr)="MAC" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="DBD" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="RLJ" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="ZUO" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="IBN" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="SSL" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CCJ" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CWK" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="IGT" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="HTGC" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="EXK" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CRK" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CLF" ' added 16/06/2021
incr++
'symbolslistbox2.cell(1,incr)="CXP" ' added 16/06/2021
'incr++
symbolslistbox2.cell(1,incr)="STNG" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="SWCH" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="SBSW" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="DOC" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="UE" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="EQT" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="NS" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="WES" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="TGNA" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="PSTG" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="FSM" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="KIM" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="TECK" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="PK" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="EB" ' added 16/06/2021
'incr++
'symbolslistbox2.cell(1,incr)="CLNY" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="TWO" ' added 16/06/2021
incr++
'symbolslistbox2.cell(1,incr)="MDLA" ' added 16/06/2021
'incr++
symbolslistbox2.cell(1,incr)="CDE" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="HWM" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="ETRN" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="AR" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="DRH" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="BSX" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="PGRE" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="NYT" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="SKX" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="FUN" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="FR" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="PHR" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="AMRC" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="NUS" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="BIP" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="WWE" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="APO" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="HXL" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="TRNO" ' added 16/06/2021
'incr++
'symbolslistbox2.cell(1,incr)="QTS" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="KRC" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="ELS" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="BOOT" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="GMED" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="WH" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="ENV" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="OTIS" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="YETI" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="GO" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CPA" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="NOBL" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="BMI" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="DIN" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CM" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="HCAT" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="ITA" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="HHC" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="PCH" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CPT" ' added 16/06/2021
incr++
'symbolslistbox2.cell(1,incr)="COR" ' added 16/06/2021
'incr++
symbolslistbox2.cell(1,incr)="AXSM" ' added 16/06/2021
'incr++
'symbolslistbox2.cell(1,incr)="USCR" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="PRFT" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="FCN" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="PLCE" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="INMD" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="NARI" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="EGP" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="PSB" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="MSGS" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="LECO" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="WEX" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="MED" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="CDLX" ' added 16/06/2021
incr++
symbolslistbox2.cell(1,incr)="WING" ' added 16/06/2021

defint usanasdaqstocksincr=incr
'showmessage str$(incr)+" USA Nasdaq stocks increment"
    ' 599 USA stocks incr 876 - 1474
    ' incr=1486
          
    incr++
    
    'NYSE 
    
    symbolslistbox2.cell(1,incr)="A":incr++
symbolslistbox2.cell(1,incr)="AA":incr++
symbolslistbox2.cell(1,incr)="AAN":incr++
symbolslistbox2.cell(1,incr)="AAP":incr++
symbolslistbox2.cell(1,incr)="ABBV":incr++
symbolslistbox2.cell(1,incr)="ABC":incr++
symbolslistbox2.cell(1,incr)="ABEV":incr++
symbolslistbox2.cell(1,incr)="ABG":incr++
symbolslistbox2.cell(1,incr)="ABM":incr++
symbolslistbox2.cell(1,incr)="ABT":incr++
symbolslistbox2.cell(1,incr)="ACB":incr++
symbolslistbox2.cell(1,incr)="ACM":incr++
symbolslistbox2.cell(1,incr)="ACN":incr++
symbolslistbox2.cell(1,incr)="ADM":incr++
'symbolslistbox2.cell(1,incr)="ADS":incr++
symbolslistbox2.cell(1,incr)="ADT":incr++
symbolslistbox2.cell(1,incr)="AEE":incr++
symbolslistbox2.cell(1,incr)="AEO":incr++
symbolslistbox2.cell(1,incr)="AEP":incr++
symbolslistbox2.cell(1,incr)="AES":incr++
symbolslistbox2.cell(1,incr)="AFG":incr++
symbolslistbox2.cell(1,incr)="AFL":incr++
symbolslistbox2.cell(1,incr)="AGCO":incr++
symbolslistbox2.cell(1,incr)="AGRO":incr++
symbolslistbox2.cell(1,incr)="AIG":incr++
symbolslistbox2.cell(1,incr)="AIN":incr++
symbolslistbox2.cell(1,incr)="AIZ":incr++
symbolslistbox2.cell(1,incr)="AJG":incr++
symbolslistbox2.cell(1,incr)="ALB":incr++
symbolslistbox2.cell(1,incr)="ALK":incr++
symbolslistbox2.cell(1,incr)="ALL":incr++
symbolslistbox2.cell(1,incr)="ALLE":incr++
symbolslistbox2.cell(1,incr)="ALLY":incr++
symbolslistbox2.cell(1,incr)="AME":incr++
symbolslistbox2.cell(1,incr)="AMG":incr++
symbolslistbox2.cell(1,incr)="AMP":incr++
symbolslistbox2.cell(1,incr)="AMT":incr++
symbolslistbox2.cell(1,incr)="AMX":incr++
symbolslistbox2.cell(1,incr)="AN":incr++
symbolslistbox2.cell(1,incr)="ANET":incr++
symbolslistbox2.cell(1,incr)="ANF":incr++
symbolslistbox2.cell(1,incr)="ANTM":incr++
'symbolslistbox2.cell(1,incr)="ANTM":incr++ ' AO wrong data
symbolslistbox2.cell(1,incr)="APA":incr++
symbolslistbox2.cell(1,incr)="APD":incr++
symbolslistbox2.cell(1,incr)="APH":incr++
symbolslistbox2.cell(1,incr)="APRN":incr++
symbolslistbox2.cell(1,incr)="APTV":incr++
symbolslistbox2.cell(1,incr)="ARCH":incr++
symbolslistbox2.cell(1,incr)="ARE":incr++
symbolslistbox2.cell(1,incr)="ARGO":incr++
symbolslistbox2.cell(1,incr)="ARMK":incr++
symbolslistbox2.cell(1,incr)="ARW":incr++
symbolslistbox2.cell(1,incr)="ASH":incr++
symbolslistbox2.cell(1,incr)="ATGE":incr++
symbolslistbox2.cell(1,incr)="ATH":incr++
symbolslistbox2.cell(1,incr)="ATI":incr++
symbolslistbox2.cell(1,incr)="ATO":incr++
symbolslistbox2.cell(1,incr)="ATUS":incr++
symbolslistbox2.cell(1,incr)="AVB":incr++
symbolslistbox2.cell(1,incr)="AVY":incr++
symbolslistbox2.cell(1,incr)="AWK":incr++
symbolslistbox2.cell(1,incr)="AXP":incr++
symbolslistbox2.cell(1,incr)="AXTA":incr++
symbolslistbox2.cell(1,incr)="AYI":incr++
symbolslistbox2.cell(1,incr)="AYX":incr++
symbolslistbox2.cell(1,incr)="AZN":incr++
symbolslistbox2.cell(1,incr)="AZO":incr++
symbolslistbox2.cell(1,incr)="AZUL":incr++
symbolslistbox2.cell(1,incr)="BA":incr++
symbolslistbox2.cell(1,incr)="BABA":incr++
symbolslistbox2.cell(1,incr)="BAC":incr++
symbolslistbox2.cell(1,incr)="BAH":incr++
symbolslistbox2.cell(1,incr)="BAX":incr++
symbolslistbox2.cell(1,incr)="BB":incr++
symbolslistbox2.cell(1,incr)="BBD":incr++
symbolslistbox2.cell(1,incr)="BBY":incr++
symbolslistbox2.cell(1,incr)="BC":incr++
symbolslistbox2.cell(1,incr)="BCO":incr++
symbolslistbox2.cell(1,incr)="BDX":incr++
symbolslistbox2.cell(1,incr)="BEN":incr++
symbolslistbox2.cell(1,incr)="BERY":incr++
symbolslistbox2.cell(1,incr)="BFAM":incr++
symbolslistbox2.cell(1,incr)="BG":incr++
symbolslistbox2.cell(1,incr)="BHC":incr++
'symbolslistbox2.cell(1,incr)="BHC":incr++ 'BHGE invalid
symbolslistbox2.cell(1,incr)="BHP":incr++
symbolslistbox2.cell(1,incr)="BHVN":incr++
symbolslistbox2.cell(1,incr)="BIG":incr++
symbolslistbox2.cell(1,incr)="BIO":incr++
'symbolslistbox2.cell(1,incr)="BITA":incr++
symbolslistbox2.cell(1,incr)="BJ":incr++
symbolslistbox2.cell(1,incr)="BK":incr++
symbolslistbox2.cell(1,incr)="BLK":incr++
symbolslistbox2.cell(1,incr)="BLL":incr++
symbolslistbox2.cell(1,incr)="BMY":incr++
'symbolslistbox2.cell(1,incr)="BMY":incr++ 'BO too few data
symbolslistbox2.cell(1,incr)="BR":incr++
symbolslistbox2.cell(1,incr)="BRFS":incr++
symbolslistbox2.cell(1,incr)="BRFS":incr++
'symbolslistbox2.cell(1,incr)="BRK.B":incr++
symbolslistbox2.cell(1,incr)="BRO":incr++
symbolslistbox2.cell(1,incr)="BSAC":incr++
symbolslistbox2.cell(1,incr)="BTI":incr++
symbolslistbox2.cell(1,incr)="BUD":incr++
symbolslistbox2.cell(1,incr)="BURL":incr++
symbolslistbox2.cell(1,incr)="BWA":incr++
symbolslistbox2.cell(1,incr)="BX":incr++
symbolslistbox2.cell(1,incr)="BXP":incr++
'symbolslistbox2.cell(1,incr)="BXS":incr++
symbolslistbox2.cell(1,incr)="BYD":incr++
symbolslistbox2.cell(1,incr)="C":incr++
symbolslistbox2.cell(1,incr)="CADE":incr++
symbolslistbox2.cell(1,incr)="CAG":incr++
symbolslistbox2.cell(1,incr)="CAH":incr++
symbolslistbox2.cell(1,incr)="CAT":incr++
symbolslistbox2.cell(1,incr)="CB":incr++
symbolslistbox2.cell(1,incr)="CBRE":incr++
symbolslistbox2.cell(1,incr)="CC":incr++
symbolslistbox2.cell(1,incr)="CCEP":incr++
symbolslistbox2.cell(1,incr)="CCI":incr++
symbolslistbox2.cell(1,incr)="CCK":incr++
symbolslistbox2.cell(1,incr)="CCL":incr++
symbolslistbox2.cell(1,incr)="CCU":incr++
symbolslistbox2.cell(1,incr)="CE":incr++
symbolslistbox2.cell(1,incr)="CF":incr++
symbolslistbox2.cell(1,incr)="CFG":incr++
'symbolslistbox2.cell(1,incr)="CFX":incr++
symbolslistbox2.cell(1,incr)="CGC":incr++
symbolslistbox2.cell(1,incr)="CHD":incr++
symbolslistbox2.cell(1,incr)="CHE":incr++
symbolslistbox2.cell(1,incr)="CHGG":incr++
'symbolslistbox2.cell(1,incr)="CHL":incr++
symbolslistbox2.cell(1,incr)="CHWY":incr++
symbolslistbox2.cell(1,incr)="CI":incr++
symbolslistbox2.cell(1,incr)="CIEN":incr++
symbolslistbox2.cell(1,incr)="CIG":incr++
symbolslistbox2.cell(1,incr)="CIT":incr++
symbolslistbox2.cell(1,incr)="CL":incr++
symbolslistbox2.cell(1,incr)="CLDR":incr++
symbolslistbox2.cell(1,incr)="CLR":incr++
symbolslistbox2.cell(1,incr)="CLX":incr++
symbolslistbox2.cell(1,incr)="CMA":incr++
symbolslistbox2.cell(1,incr)="CMC":incr++
symbolslistbox2.cell(1,incr)="CMG":incr++
symbolslistbox2.cell(1,incr)="CMI":incr++
symbolslistbox2.cell(1,incr)="CMS":incr++
symbolslistbox2.cell(1,incr)="CNC":incr++
symbolslistbox2.cell(1,incr)="CNK":incr++
symbolslistbox2.cell(1,incr)="CNO":incr++
symbolslistbox2.cell(1,incr)="CNP":incr++
symbolslistbox2.cell(1,incr)="CNX":incr++
symbolslistbox2.cell(1,incr)="COF":incr++
'symbolslistbox2.cell(1,incr)="COG":incr++
symbolslistbox2.cell(1,incr)="COLD":incr++
symbolslistbox2.cell(1,incr)="COO":incr++
symbolslistbox2.cell(1,incr)="COP":incr++
symbolslistbox2.cell(1,incr)="COTY":incr++
symbolslistbox2.cell(1,incr)="CPB":incr++
symbolslistbox2.cell(1,incr)="CPE":incr++
symbolslistbox2.cell(1,incr)="CPRI":incr++
symbolslistbox2.cell(1,incr)="CRI":incr++
symbolslistbox2.cell(1,incr)="CRL":incr++
symbolslistbox2.cell(1,incr)="CRM":incr++
'symbolslistbox2.cell(1,incr)="CTL":incr++
symbolslistbox2.cell(1,incr)="CTLT":incr++
'symbolslistbox2.cell(1,incr)="CUB":incr++
symbolslistbox2.cell(1,incr)="CUBE":incr++
'symbolslistbox2.cell(1,incr)="CVA":incr++
'symbolslistbox2.cell(1,incr)="CVA":incr++
'symbolslistbox2.cell(1,incr)="CVI.N":incr++
symbolslistbox2.cell(1,incr)="CVNA":incr++
symbolslistbox2.cell(1,incr)="CVS":incr++
symbolslistbox2.cell(1,incr)="CVX":incr++
symbolslistbox2.cell(1,incr)="CX":incr++
'symbolslistbox2.cell(1,incr)="CXO":incr++
symbolslistbox2.cell(1,incr)="CYH":incr++
symbolslistbox2.cell(1,incr)="D":incr++
symbolslistbox2.cell(1,incr)="DAL":incr++
symbolslistbox2.cell(1,incr)="DAN":incr++
symbolslistbox2.cell(1,incr)="DAR":incr++
symbolslistbox2.cell(1,incr)="DB":incr++
symbolslistbox2.cell(1,incr)="DCI":incr++
symbolslistbox2.cell(1,incr)="DD":incr++
symbolslistbox2.cell(1,incr)="DDD":incr++
symbolslistbox2.cell(1,incr)="DDS":incr++
symbolslistbox2.cell(1,incr)="DE":incr++
symbolslistbox2.cell(1,incr)="DECK":incr++
symbolslistbox2.cell(1,incr)="DELL":incr++
symbolslistbox2.cell(1,incr)="DFS":incr++
symbolslistbox2.cell(1,incr)="DGX":incr++
symbolslistbox2.cell(1,incr)="DHI":incr++
symbolslistbox2.cell(1,incr)="DHR":incr++
symbolslistbox2.cell(1,incr)="DIS":incr++
symbolslistbox2.cell(1,incr)="DK":incr++
symbolslistbox2.cell(1,incr)="DKS":incr++
'symbolslistbox2.cell(1,incr)="DLPH":incr++
symbolslistbox2.cell(1,incr)="DLR":incr++
symbolslistbox2.cell(1,incr)="DNOW":incr++
symbolslistbox2.cell(1,incr)="DOV":incr++
symbolslistbox2.cell(1,incr)="DOYU":incr++
symbolslistbox2.cell(1,incr)="DPZ":incr++
symbolslistbox2.cell(1,incr)="DRE":incr++
symbolslistbox2.cell(1,incr)="DRI":incr++
symbolslistbox2.cell(1,incr)="DTE":incr++
symbolslistbox2.cell(1,incr)="DUK":incr++
symbolslistbox2.cell(1,incr)="DVA":incr++
symbolslistbox2.cell(1,incr)="DVN":incr++
symbolslistbox2.cell(1,incr)="DXC":incr++
symbolslistbox2.cell(1,incr)="EAT":incr++
symbolslistbox2.cell(1,incr)="ECL":incr++
symbolslistbox2.cell(1,incr)="ED":incr++
symbolslistbox2.cell(1,incr)="EDU":incr++
symbolslistbox2.cell(1,incr)="EFX":incr++
'symbolslistbox2.cell(1,incr)="EFX":incr++ 'EG too few data
symbolslistbox2.cell(1,incr)="EHC":incr++
symbolslistbox2.cell(1,incr)="EIX":incr++
symbolslistbox2.cell(1,incr)="EL":incr++
symbolslistbox2.cell(1,incr)="ELAN":incr++
symbolslistbox2.cell(1,incr)="EME":incr++
symbolslistbox2.cell(1,incr)="EMN":incr++
symbolslistbox2.cell(1,incr)="EMR":incr++
symbolslistbox2.cell(1,incr)="ENB":incr++
symbolslistbox2.cell(1,incr)="ENR":incr++
symbolslistbox2.cell(1,incr)="ENS":incr++
symbolslistbox2.cell(1,incr)="EOG":incr++
symbolslistbox2.cell(1,incr)="EPC":incr++
symbolslistbox2.cell(1,incr)="EPD":incr++
symbolslistbox2.cell(1,incr)="EQR":incr++
symbolslistbox2.cell(1,incr)="ES":incr++
symbolslistbox2.cell(1,incr)="ESNT":incr++
symbolslistbox2.cell(1,incr)="ESS":incr++
symbolslistbox2.cell(1,incr)="ET":incr++
symbolslistbox2.cell(1,incr)="ETN":incr++
symbolslistbox2.cell(1,incr)="ETR":incr++
'symbolslistbox2.cell(1,incr)="EV":incr++
symbolslistbox2.cell(1,incr)="EVA":incr++
symbolslistbox2.cell(1,incr)="EVRG":incr++
symbolslistbox2.cell(1,incr)="EW":incr++
symbolslistbox2.cell(1,incr)="EXC":incr++
symbolslistbox2.cell(1,incr)="EXR":incr++
symbolslistbox2.cell(1,incr)="F":incr++
symbolslistbox2.cell(1,incr)="FAF":incr++
symbolslistbox2.cell(1,incr)="FBHS":incr++
symbolslistbox2.cell(1,incr)="FBP":incr++
symbolslistbox2.cell(1,incr)="FCPT":incr++
symbolslistbox2.cell(1,incr)="FCX":incr++
symbolslistbox2.cell(1,incr)="FDS":incr++
symbolslistbox2.cell(1,incr)="FDX":incr++
symbolslistbox2.cell(1,incr)="FE":incr++
symbolslistbox2.cell(1,incr)="FIS":incr++
'symbolslistbox2.cell(1,incr)="FIT":incr++
symbolslistbox2.cell(1,incr)="FL":incr++
symbolslistbox2.cell(1,incr)="FLO":incr++
symbolslistbox2.cell(1,incr)="FLR":incr++
symbolslistbox2.cell(1,incr)="FLS":incr++
symbolslistbox2.cell(1,incr)="FLT":incr++
symbolslistbox2.cell(1,incr)="FMC":incr++
symbolslistbox2.cell(1,incr)="FNF":incr++
symbolslistbox2.cell(1,incr)="FRC":incr++
symbolslistbox2.cell(1,incr)="FRT":incr++
symbolslistbox2.cell(1,incr)="FSLY":incr++
symbolslistbox2.cell(1,incr)="FTCH":incr++
symbolslistbox2.cell(1,incr)="FTI":incr++
symbolslistbox2.cell(1,incr)="FTV":incr++
symbolslistbox2.cell(1,incr)="FVRR":incr++
'symbolslistbox2.cell(1,incr)="GCAP":incr++
symbolslistbox2.cell(1,incr)="GD":incr++
symbolslistbox2.cell(1,incr)="GDDY":incr++
symbolslistbox2.cell(1,incr)="GE":incr++
symbolslistbox2.cell(1,incr)="GEF":incr++
symbolslistbox2.cell(1,incr)="GGB":incr++
symbolslistbox2.cell(1,incr)="GHC":incr++
symbolslistbox2.cell(1,incr)="GIB":incr++
symbolslistbox2.cell(1,incr)="GIS":incr++
symbolslistbox2.cell(1,incr)="GKOS":incr++
symbolslistbox2.cell(1,incr)="GL":incr++
symbolslistbox2.cell(1,incr)="GLP":incr++
symbolslistbox2.cell(1,incr)="GLW":incr++
symbolslistbox2.cell(1,incr)="GM":incr++
symbolslistbox2.cell(1,incr)="GME":incr++
symbolslistbox2.cell(1,incr)="GNRC":incr++
symbolslistbox2.cell(1,incr)="GNW":incr++
symbolslistbox2.cell(1,incr)="GOL":incr++
symbolslistbox2.cell(1,incr)="GOL":incr++
'symbolslistbox2.cell(1,incr)="GOLD.BARRICK":incr++
symbolslistbox2.cell(1,incr)="GPC":incr++
symbolslistbox2.cell(1,incr)="GPI":incr++
symbolslistbox2.cell(1,incr)="GPK":incr++
symbolslistbox2.cell(1,incr)="GPN":incr++
symbolslistbox2.cell(1,incr)="GPS":incr++
'symbolslistbox2.cell(1,incr)="GRA":incr++
'symbolslistbox2.cell(1,incr)="GRUB":incr++
symbolslistbox2.cell(1,incr)="GS":incr++
symbolslistbox2.cell(1,incr)="GWRE":incr++
symbolslistbox2.cell(1,incr)="GWW":incr++
symbolslistbox2.cell(1,incr)="H":incr++
symbolslistbox2.cell(1,incr)="HAE":incr++
symbolslistbox2.cell(1,incr)="HAL":incr++
symbolslistbox2.cell(1,incr)="HBI":incr++
symbolslistbox2.cell(1,incr)="HCA":incr++
symbolslistbox2.cell(1,incr)="HD":incr++
symbolslistbox2.cell(1,incr)="HEI":incr++
symbolslistbox2.cell(1,incr)="HES":incr++
'symbolslistbox2.cell(1,incr)="HFC":incr++
symbolslistbox2.cell(1,incr)="HGV":incr++
symbolslistbox2.cell(1,incr)="HIG":incr++
symbolslistbox2.cell(1,incr)="HII":incr++
symbolslistbox2.cell(1,incr)="HLF":incr++
symbolslistbox2.cell(1,incr)="HLT":incr++
symbolslistbox2.cell(1,incr)="HMC":incr++
'symbolslistbox2.cell(1,incr)="HMI":incr++
symbolslistbox2.cell(1,incr)="HOG":incr++
symbolslistbox2.cell(1,incr)="HON":incr++
symbolslistbox2.cell(1,incr)="HPE":incr++
symbolslistbox2.cell(1,incr)="HPQ":incr++
'symbolslistbox2.cell(1,incr)="HRC":incr++
symbolslistbox2.cell(1,incr)="HRI":incr++
symbolslistbox2.cell(1,incr)="HRL":incr++
symbolslistbox2.cell(1,incr)="HSBC":incr++
symbolslistbox2.cell(1,incr)="HST":incr++
symbolslistbox2.cell(1,incr)="HSY":incr++
symbolslistbox2.cell(1,incr)="HTA":incr++
symbolslistbox2.cell(1,incr)="HTZ":incr++
symbolslistbox2.cell(1,incr)="HUBS":incr++
symbolslistbox2.cell(1,incr)="HUBB":incr++
symbolslistbox2.cell(1,incr)="HUM":incr++
symbolslistbox2.cell(1,incr)="HUN":incr++
symbolslistbox2.cell(1,incr)="IBM":incr++
symbolslistbox2.cell(1,incr)="IBP":incr++
symbolslistbox2.cell(1,incr)="IDA":incr++
symbolslistbox2.cell(1,incr)="IEX":incr++
symbolslistbox2.cell(1,incr)="IFF":incr++
symbolslistbox2.cell(1,incr)="IIPR":incr++
symbolslistbox2.cell(1,incr)="INFY":incr++
symbolslistbox2.cell(1,incr)="INGR":incr++
symbolslistbox2.cell(1,incr)="INSP":incr++
symbolslistbox2.cell(1,incr)="INT":incr++
symbolslistbox2.cell(1,incr)="IP":incr++
symbolslistbox2.cell(1,incr)="IPG":incr++
'symbolslistbox2.cell(1,incr)="IPHI":incr++
symbolslistbox2.cell(1,incr)="IQV":incr++
symbolslistbox2.cell(1,incr)="IRM":incr++
symbolslistbox2.cell(1,incr)="IT":incr++
symbolslistbox2.cell(1,incr)="ITUB":incr++
symbolslistbox2.cell(1,incr)="ITW":incr++
symbolslistbox2.cell(1,incr)="J":incr++
symbolslistbox2.cell(1,incr)="JBL":incr++
symbolslistbox2.cell(1,incr)="JBT":incr++
symbolslistbox2.cell(1,incr)="JCI":incr++
symbolslistbox2.cell(1,incr)="JEF":incr++
symbolslistbox2.cell(1,incr)="JLL":incr++
symbolslistbox2.cell(1,incr)="JMIA":incr++
symbolslistbox2.cell(1,incr)="JNJ":incr++
symbolslistbox2.cell(1,incr)="JNPR":incr++
symbolslistbox2.cell(1,incr)="JPM":incr++
symbolslistbox2.cell(1,incr)="JWN":incr++
symbolslistbox2.cell(1,incr)="K":incr++
symbolslistbox2.cell(1,incr)="KBH":incr++
symbolslistbox2.cell(1,incr)="KBR":incr++
symbolslistbox2.cell(1,incr)="KDP":incr++
symbolslistbox2.cell(1,incr)="KEY":incr++
symbolslistbox2.cell(1,incr)="KEYS":incr++
symbolslistbox2.cell(1,incr)="KKR":incr++
symbolslistbox2.cell(1,incr)="KMB":incr++
symbolslistbox2.cell(1,incr)="KMI":incr++
symbolslistbox2.cell(1,incr)="KMT":incr++
symbolslistbox2.cell(1,incr)="KMX":incr++
symbolslistbox2.cell(1,incr)="KNX":incr++
symbolslistbox2.cell(1,incr)="KO":incr++
symbolslistbox2.cell(1,incr)="KR":incr++
symbolslistbox2.cell(1,incr)="KRO":incr++
symbolslistbox2.cell(1,incr)="KSS":incr++
'symbolslistbox2.cell(1,incr)="KSU":incr++
symbolslistbox2.cell(1,incr)="L":incr++
symbolslistbox2.cell(1,incr)="LAD":incr++
symbolslistbox2.cell(1,incr)="LAZ":incr++
'symbolslistbox2.cell(1,incr)="LB":incr++
symbolslistbox2.cell(1,incr)="LDOS":incr++
symbolslistbox2.cell(1,incr)="LEA":incr++
symbolslistbox2.cell(1,incr)="LEG":incr++
symbolslistbox2.cell(1,incr)="LEN":incr++
symbolslistbox2.cell(1,incr)="LEVI":incr++
symbolslistbox2.cell(1,incr)="LH":incr++
symbolslistbox2.cell(1,incr)="LHX":incr++
symbolslistbox2.cell(1,incr)="LII":incr++
symbolslistbox2.cell(1,incr)="LIN":incr++
symbolslistbox2.cell(1,incr)="LLY":incr++
'symbolslistbox2.cell(1,incr)="LM":incr++
'symbolslistbox2.cell(1,incr)="LM":incr++ 'LMND too few data
symbolslistbox2.cell(1,incr)="LMT":incr++
symbolslistbox2.cell(1,incr)="LNC":incr++
symbolslistbox2.cell(1,incr)="LNT":incr++
symbolslistbox2.cell(1,incr)="LOW":incr++
symbolslistbox2.cell(1,incr)="LPX":incr++
symbolslistbox2.cell(1,incr)="LSI":incr++
symbolslistbox2.cell(1,incr)="LTC":incr++
symbolslistbox2.cell(1,incr)="LUV":incr++
symbolslistbox2.cell(1,incr)="LVS":incr++
symbolslistbox2.cell(1,incr)="LW":incr++
symbolslistbox2.cell(1,incr)="LYB":incr++
symbolslistbox2.cell(1,incr)="LYV":incr++
symbolslistbox2.cell(1,incr)="M":incr++
symbolslistbox2.cell(1,incr)="MA":incr++
symbolslistbox2.cell(1,incr)="MAA":incr++
symbolslistbox2.cell(1,incr)="MAIN":incr++
symbolslistbox2.cell(1,incr)="MAN":incr++
symbolslistbox2.cell(1,incr)="MANU":incr++
symbolslistbox2.cell(1,incr)="MAS":incr++
symbolslistbox2.cell(1,incr)="MCD":incr++
symbolslistbox2.cell(1,incr)="MCK":incr++
symbolslistbox2.cell(1,incr)="MCO":incr++
symbolslistbox2.cell(1,incr)="MD":incr++
symbolslistbox2.cell(1,incr)="MDC":incr++
symbolslistbox2.cell(1,incr)="MDT":incr++
symbolslistbox2.cell(1,incr)="MDU":incr++
symbolslistbox2.cell(1,incr)="MET":incr++
symbolslistbox2.cell(1,incr)="MGM":incr++
symbolslistbox2.cell(1,incr)="MHK":incr++
symbolslistbox2.cell(1,incr)="MKC":incr++
symbolslistbox2.cell(1,incr)="MKL":incr++
symbolslistbox2.cell(1,incr)="MLM":incr++
symbolslistbox2.cell(1,incr)="MMC":incr++
symbolslistbox2.cell(1,incr)="MMI":incr++
symbolslistbox2.cell(1,incr)="MMM":incr++
symbolslistbox2.cell(1,incr)="MO":incr++
symbolslistbox2.cell(1,incr)="MOH":incr++
symbolslistbox2.cell(1,incr)="MOS":incr++
symbolslistbox2.cell(1,incr)="MPC":incr++
symbolslistbox2.cell(1,incr)="MPW":incr++
symbolslistbox2.cell(1,incr)="MRK":incr++
symbolslistbox2.cell(1,incr)="MRO":incr++
symbolslistbox2.cell(1,incr)="MS":incr++
symbolslistbox2.cell(1,incr)="MSCI":incr++
symbolslistbox2.cell(1,incr)="MSI":incr++
symbolslistbox2.cell(1,incr)="MTB":incr++
symbolslistbox2.cell(1,incr)="MTD":incr++
symbolslistbox2.cell(1,incr)="MTDR":incr++
symbolslistbox2.cell(1,incr)="MTH":incr++
symbolslistbox2.cell(1,incr)="MTN":incr++
symbolslistbox2.cell(1,incr)="MTOR":incr++
symbolslistbox2.cell(1,incr)="MTW":incr++
symbolslistbox2.cell(1,incr)="MTZ":incr++
symbolslistbox2.cell(1,incr)="MUR":incr++
symbolslistbox2.cell(1,incr)="MUSA":incr++
symbolslistbox2.cell(1,incr)="MWA":incr++
symbolslistbox2.cell(1,incr)="MX":incr++
symbolslistbox2.cell(1,incr)="MXL":incr++
'symbolslistbox2.cell(1,incr)="NAV":incr++
'symbolslistbox2.cell(1,incr)="NBL":incr++
symbolslistbox2.cell(1,incr)="NCLH":incr++
symbolslistbox2.cell(1,incr)="NCR":incr++
symbolslistbox2.cell(1,incr)="NEE":incr++
symbolslistbox2.cell(1,incr)="NEM":incr++
symbolslistbox2.cell(1,incr)="NEP":incr++
symbolslistbox2.cell(1,incr)="NEWR":incr++
symbolslistbox2.cell(1,incr)="NI":incr++
symbolslistbox2.cell(1,incr)="NIO":incr++
symbolslistbox2.cell(1,incr)="NKE":incr++
symbolslistbox2.cell(1,incr)="NLSN":incr++
symbolslistbox2.cell(1,incr)="NLY":incr++
symbolslistbox2.cell(1,incr)="NOC":incr++
symbolslistbox2.cell(1,incr)="NOK":incr++
symbolslistbox2.cell(1,incr)="NOV":incr++
symbolslistbox2.cell(1,incr)="NOW":incr++
symbolslistbox2.cell(1,incr)="NPTN":incr++
symbolslistbox2.cell(1,incr)="NRG":incr++
symbolslistbox2.cell(1,incr)="NSC":incr++
symbolslistbox2.cell(1,incr)="NSP":incr++
symbolslistbox2.cell(1,incr)="NUE":incr++
symbolslistbox2.cell(1,incr)="NVR":incr++
symbolslistbox2.cell(1,incr)="NVRO":incr++
symbolslistbox2.cell(1,incr)="NVS":incr++
symbolslistbox2.cell(1,incr)="NVTA":incr++
symbolslistbox2.cell(1,incr)="O":incr++
symbolslistbox2.cell(1,incr)="OAS":incr++
symbolslistbox2.cell(1,incr)="OC":incr++
symbolslistbox2.cell(1,incr)="OHI":incr++
symbolslistbox2.cell(1,incr)="OI":incr++
symbolslistbox2.cell(1,incr)="OKE":incr++
symbolslistbox2.cell(1,incr)="OLN":incr++
symbolslistbox2.cell(1,incr)="OMC":incr++
symbolslistbox2.cell(1,incr)="OMI":incr++
symbolslistbox2.cell(1,incr)="ORA":incr++
symbolslistbox2.cell(1,incr)="ORCL":incr++
symbolslistbox2.cell(1,incr)="ORI":incr++
symbolslistbox2.cell(1,incr)="OSK":incr++
symbolslistbox2.cell(1,incr)="OUT":incr++
symbolslistbox2.cell(1,incr)="OVV":incr++
symbolslistbox2.cell(1,incr)="OXY":incr++
symbolslistbox2.cell(1,incr)="PAG":incr++
symbolslistbox2.cell(1,incr)="PAGP":incr++
symbolslistbox2.cell(1,incr)="PAGS":incr++
symbolslistbox2.cell(1,incr)="PAM":incr++
symbolslistbox2.cell(1,incr)="PANW":incr++
symbolslistbox2.cell(1,incr)="PAYC":incr++
symbolslistbox2.cell(1,incr)="PBF":incr++
symbolslistbox2.cell(1,incr)="PBR":incr++
'symbolslistbox2.cell(1,incr)="PBR":incr++
'symbolslistbox2.cell(1,incr)="PBR.A":incr++
symbolslistbox2.cell(1,incr)="PCG":incr++
'symbolslistbox2.cell(1,incr)="PE":incr++
symbolslistbox2.cell(1,incr)="PEB":incr++
symbolslistbox2.cell(1,incr)="PEG":incr++
symbolslistbox2.cell(1,incr)="PEN":incr++
symbolslistbox2.cell(1,incr)="PFE":incr++
symbolslistbox2.cell(1,incr)="PFGC":incr++
symbolslistbox2.cell(1,incr)="PG":incr++
symbolslistbox2.cell(1,incr)="PGR":incr++
symbolslistbox2.cell(1,incr)="PH":incr++
symbolslistbox2.cell(1,incr)="PHM":incr++
symbolslistbox2.cell(1,incr)="PII":incr++
symbolslistbox2.cell(1,incr)="PINS":incr++
symbolslistbox2.cell(1,incr)="PKG":incr++
symbolslistbox2.cell(1,incr)="PKI":incr++
symbolslistbox2.cell(1,incr)="PLD":incr++
symbolslistbox2.cell(1,incr)="PLNT":incr++
symbolslistbox2.cell(1,incr)="PM":incr++
symbolslistbox2.cell(1,incr)="PNC":incr++
symbolslistbox2.cell(1,incr)="PNR":incr++
symbolslistbox2.cell(1,incr)="POST":incr++
symbolslistbox2.cell(1,incr)="PPG":incr++
symbolslistbox2.cell(1,incr)="PPL":incr++
symbolslistbox2.cell(1,incr)="PRGO":incr++
symbolslistbox2.cell(1,incr)="PRU":incr++
symbolslistbox2.cell(1,incr)="PSA":incr++
symbolslistbox2.cell(1,incr)="PSX":incr++
symbolslistbox2.cell(1,incr)="PVH":incr++
symbolslistbox2.cell(1,incr)="PWR":incr++
symbolslistbox2.cell(1,incr)="PXD":incr++
symbolslistbox2.cell(1,incr)="QD":incr++
'symbolslistbox2.cell(1,incr)="QEP":incr++
symbolslistbox2.cell(1,incr)="QSR":incr++
symbolslistbox2.cell(1,incr)="QTWO":incr++
symbolslistbox2.cell(1,incr)="R":incr++
symbolslistbox2.cell(1,incr)="RACE":incr++
symbolslistbox2.cell(1,incr)="RAD":incr++
symbolslistbox2.cell(1,incr)="RCL":incr++
symbolslistbox2.cell(1,incr)="RDN":incr++
symbolslistbox2.cell(1,incr)="RDN":incr++
symbolslistbox2.cell(1,incr)="RDN":incr++
'symbolslistbox2.cell(1,incr)="RDS.A":incr++
'symbolslistbox2.cell(1,incr)="RDS.B":incr++
symbolslistbox2.cell(1,incr)="RE":incr++
symbolslistbox2.cell(1,incr)="RENN":incr++
symbolslistbox2.cell(1,incr)="REXR":incr++
symbolslistbox2.cell(1,incr)="RF":incr++
symbolslistbox2.cell(1,incr)="RFP":incr++
symbolslistbox2.cell(1,incr)="RGA":incr++
symbolslistbox2.cell(1,incr)="RH":incr++
symbolslistbox2.cell(1,incr)="RHI":incr++
symbolslistbox2.cell(1,incr)="RIG":incr++
symbolslistbox2.cell(1,incr)="RIO":incr++
symbolslistbox2.cell(1,incr)="RJF":incr++
symbolslistbox2.cell(1,incr)="RL":incr++
symbolslistbox2.cell(1,incr)="RLGY":incr++
symbolslistbox2.cell(1,incr)="RMAX":incr++
symbolslistbox2.cell(1,incr)="RMD":incr++
symbolslistbox2.cell(1,incr)="RNG":incr++
symbolslistbox2.cell(1,incr)="RNR":incr++
symbolslistbox2.cell(1,incr)="ROK":incr++
symbolslistbox2.cell(1,incr)="ROP":incr++
symbolslistbox2.cell(1,incr)="RPM":incr++
symbolslistbox2.cell(1,incr)="RRD":incr++
symbolslistbox2.cell(1,incr)="RS":incr++
symbolslistbox2.cell(1,incr)="RSG":incr++
'symbolslistbox2.cell(1,incr)="RST":incr++
symbolslistbox2.cell(1,incr)="RTX":incr++
symbolslistbox2.cell(1,incr)="SAH":incr++
symbolslistbox2.cell(1,incr)="SAIL":incr++
symbolslistbox2.cell(1,incr)="SAM":incr++
symbolslistbox2.cell(1,incr)="SAN":incr++
symbolslistbox2.cell(1,incr)="SAVE":incr++
symbolslistbox2.cell(1,incr)="SBH":incr++
symbolslistbox2.cell(1,incr)="SBS":incr++
symbolslistbox2.cell(1,incr)="SCCO":incr++
symbolslistbox2.cell(1,incr)="SCHW":incr++
symbolslistbox2.cell(1,incr)="SCI":incr++
symbolslistbox2.cell(1,incr)="SE":incr++
symbolslistbox2.cell(1,incr)="SEAS":incr++
symbolslistbox2.cell(1,incr)="SEE":incr++
'symbolslistbox2.cell(1,incr)="SERV":incr++
symbolslistbox2.cell(1,incr)="SHAK":incr++
symbolslistbox2.cell(1,incr)="SHOP":incr++
symbolslistbox2.cell(1,incr)="SHW":incr++
symbolslistbox2.cell(1,incr)="SIG":incr++
symbolslistbox2.cell(1,incr)="SIX":incr++
symbolslistbox2.cell(1,incr)="SJM":incr++
symbolslistbox2.cell(1,incr)="SKM":incr++
symbolslistbox2.cell(1,incr)="SKT":incr++
symbolslistbox2.cell(1,incr)="SLB":incr++
symbolslistbox2.cell(1,incr)="SM":incr++
symbolslistbox2.cell(1,incr)="SMAR":incr++
symbolslistbox2.cell(1,incr)="SMG":incr++
symbolslistbox2.cell(1,incr)="SNAP":incr++
'symbolslistbox2.cell(1,incr)="SNAP":incr++ 'S too few data
symbolslistbox2.cell(1,incr)="SNX":incr++
symbolslistbox2.cell(1,incr)="SO":incr++
symbolslistbox2.cell(1,incr)="SON":incr++
symbolslistbox2.cell(1,incr)="SPB":incr++
symbolslistbox2.cell(1,incr)="SPG":incr++
symbolslistbox2.cell(1,incr)="SPGI":incr++
symbolslistbox2.cell(1,incr)="SPOT":incr++
symbolslistbox2.cell(1,incr)="SPR":incr++
symbolslistbox2.cell(1,incr)="SQ":incr++
symbolslistbox2.cell(1,incr)="SRE":incr++
symbolslistbox2.cell(1,incr)="ST":incr++
symbolslistbox2.cell(1,incr)="STAG":incr++
symbolslistbox2.cell(1,incr)="STE":incr++
symbolslistbox2.cell(1,incr)="STOR":incr++
symbolslistbox2.cell(1,incr)="STT":incr++
symbolslistbox2.cell(1,incr)="STZ":incr++
symbolslistbox2.cell(1,incr)="SU":incr++
symbolslistbox2.cell(1,incr)="SUI":incr++
symbolslistbox2.cell(1,incr)="SUM":incr++
symbolslistbox2.cell(1,incr)="SUZ":incr++
symbolslistbox2.cell(1,incr)="SWK":incr++
symbolslistbox2.cell(1,incr)="SWN":incr++
symbolslistbox2.cell(1,incr)="SXT":incr++
symbolslistbox2.cell(1,incr)="SYF":incr++
symbolslistbox2.cell(1,incr)="SYK":incr++
symbolslistbox2.cell(1,incr)="SYY":incr++
symbolslistbox2.cell(1,incr)="T":incr++
symbolslistbox2.cell(1,incr)="TAL":incr++
symbolslistbox2.cell(1,incr)="TAP":incr++
symbolslistbox2.cell(1,incr)="TDG":incr++
symbolslistbox2.cell(1,incr)="TDOC":incr++
symbolslistbox2.cell(1,incr)="TEF":incr++
symbolslistbox2.cell(1,incr)="TEL":incr++
symbolslistbox2.cell(1,incr)="TEO":incr++
symbolslistbox2.cell(1,incr)="TEVA":incr++
symbolslistbox2.cell(1,incr)="TFC":incr++
symbolslistbox2.cell(1,incr)="TFX":incr++
symbolslistbox2.cell(1,incr)="TGT":incr++
symbolslistbox2.cell(1,incr)="THC":incr++
symbolslistbox2.cell(1,incr)="THG":incr++
symbolslistbox2.cell(1,incr)="THO":incr++
symbolslistbox2.cell(1,incr)="THS":incr++
'symbolslistbox2.cell(1,incr)="TIF":incr++
symbolslistbox2.cell(1,incr)="TJX":incr++
symbolslistbox2.cell(1,incr)="TM":incr++
symbolslistbox2.cell(1,incr)="TME":incr++
symbolslistbox2.cell(1,incr)="TMHC":incr++
symbolslistbox2.cell(1,incr)="TMO":incr++
symbolslistbox2.cell(1,incr)="TOL":incr++
symbolslistbox2.cell(1,incr)="TPC":incr++
symbolslistbox2.cell(1,incr)="TPH":incr++
symbolslistbox2.cell(1,incr)="TPR":incr++
symbolslistbox2.cell(1,incr)="TPX":incr++
symbolslistbox2.cell(1,incr)="TREX":incr++
symbolslistbox2.cell(1,incr)="TRGP":incr++
symbolslistbox2.cell(1,incr)="TRU":incr++
symbolslistbox2.cell(1,incr)="TRV":incr++
'symbolslistbox2.cell(1,incr)="TRXC":incr++
symbolslistbox2.cell(1,incr)="TSN":incr++
symbolslistbox2.cell(1,incr)="TT":incr++
symbolslistbox2.cell(1,incr)="TTM":incr++
symbolslistbox2.cell(1,incr)="TV":incr++
symbolslistbox2.cell(1,incr)="TWLO":incr++
symbolslistbox2.cell(1,incr)="TWTR":incr++
symbolslistbox2.cell(1,incr)="TX":incr++
symbolslistbox2.cell(1,incr)="TXT":incr++
symbolslistbox2.cell(1,incr)="UA":incr++
symbolslistbox2.cell(1,incr)="UBER":incr++
symbolslistbox2.cell(1,incr)="UDR":incr++
symbolslistbox2.cell(1,incr)="UGI":incr++
symbolslistbox2.cell(1,incr)="UHS":incr++
symbolslistbox2.cell(1,incr)="UNFI":incr++
symbolslistbox2.cell(1,incr)="UNH":incr++
symbolslistbox2.cell(1,incr)="UNM":incr++
symbolslistbox2.cell(1,incr)="UNP":incr++
symbolslistbox2.cell(1,incr)="UPS":incr++
symbolslistbox2.cell(1,incr)="URI":incr++
symbolslistbox2.cell(1,incr)="USB":incr++
symbolslistbox2.cell(1,incr)="USFD":incr++
symbolslistbox2.cell(1,incr)="V":incr++
symbolslistbox2.cell(1,incr)="VAC":incr++
'symbolslistbox2.cell(1,incr)="VAC":incr++ 'VA wrong data
'symbolslistbox2.cell(1,incr)="VAR":incr++
symbolslistbox2.cell(1,incr)="VEEV":incr++
symbolslistbox2.cell(1,incr)="VFC":incr++
'symbolslistbox2.cell(1,incr)="VIAC":incr++
symbolslistbox2.cell(1,incr)="VIPS":incr++
symbolslistbox2.cell(1,incr)="VLO":incr++
symbolslistbox2.cell(1,incr)="VMC":incr++
symbolslistbox2.cell(1,incr)="VMW":incr++
symbolslistbox2.cell(1,incr)="VNO":incr++
'symbolslistbox2.cell(1,incr)="VSLR":incr++
symbolslistbox2.cell(1,incr)="VST":incr++
symbolslistbox2.cell(1,incr)="VSTO":incr++
symbolslistbox2.cell(1,incr)="VTR":incr++
symbolslistbox2.cell(1,incr)="VZ":incr++
symbolslistbox2.cell(1,incr)="W":incr++
symbolslistbox2.cell(1,incr)="WAB":incr++
symbolslistbox2.cell(1,incr)="WAT":incr++
symbolslistbox2.cell(1,incr)="WBT":incr++
symbolslistbox2.cell(1,incr)="WCC":incr++
symbolslistbox2.cell(1,incr)="WEC":incr++
symbolslistbox2.cell(1,incr)="WELL":incr++
symbolslistbox2.cell(1,incr)="WFC":incr++
symbolslistbox2.cell(1,incr)="WGO":incr++
symbolslistbox2.cell(1,incr)="WHR":incr++
symbolslistbox2.cell(1,incr)="WLK":incr++
symbolslistbox2.cell(1,incr)="WLL":incr++
symbolslistbox2.cell(1,incr)="WM":incr++
symbolslistbox2.cell(1,incr)="WMB":incr++
symbolslistbox2.cell(1,incr)="WMT":incr++
'symbolslistbox2.cell(1,incr)="WORK":incr++
symbolslistbox2.cell(1,incr)="WPC":incr++
symbolslistbox2.cell(1,incr)="WRK":incr++
symbolslistbox2.cell(1,incr)="WSM":incr++
symbolslistbox2.cell(1,incr)="WSO":incr++
symbolslistbox2.cell(1,incr)="WST":incr++
symbolslistbox2.cell(1,incr)="WU":incr++
'symbolslistbox2.cell(1,incr)="WUBA":incr++
symbolslistbox2.cell(1,incr)="WY":incr++
'symbolslistbox2.cell(1,incr)="WYND":incr++
symbolslistbox2.cell(1,incr)="X":incr++
'symbolslistbox2.cell(1,incr)="XEC":incr++
symbolslistbox2.cell(1,incr)="XOM":incr++
symbolslistbox2.cell(1,incr)="XPO":incr++
symbolslistbox2.cell(1,incr)="XRX":incr++
symbolslistbox2.cell(1,incr)="XXII":incr++
symbolslistbox2.cell(1,incr)="XYL":incr++
symbolslistbox2.cell(1,incr)="Y":incr++
symbolslistbox2.cell(1,incr)="YELP":incr++
symbolslistbox2.cell(1,incr)="YUM":incr++
symbolslistbox2.cell(1,incr)="YUMC":incr++
symbolslistbox2.cell(1,incr)="ZBH":incr++
symbolslistbox2.cell(1,incr)="ZEN":incr++
symbolslistbox2.cell(1,incr)="ZTO":incr++
symbolslistbox2.cell(1,incr)="ZTS":incr++

' 06 June 2022
symbolslistbox2.cell(1,incr)="RELX":incr++
symbolslistbox2.cell(1,incr)="NGG":incr++
symbolslistbox2.cell(1,incr)="AOSL":incr++ 
symbolslistbox2.cell(1,incr)="STAA":incr++ 
symbolslistbox2.cell(1,incr)="MTG":incr++ 
symbolslistbox2.cell(1,incr)="RHP":incr++ 
symbolslistbox2.cell(1,incr)="VSCO":incr++ 
symbolslistbox2.cell(1,incr)="KNSL":incr++ 
symbolslistbox2.cell(1,incr)="DIOD":incr++ 
symbolslistbox2.cell(1,incr)="FOCS":incr++ 
symbolslistbox2.cell(1,incr)="MC":incr++ 
symbolslistbox2.cell(1,incr)="UNVR":incr++ 
symbolslistbox2.cell(1,incr)="CDK":incr++ 
symbolslistbox2.cell(1,incr)="TWST":incr++ 
symbolslistbox2.cell(1,incr)="MSM":incr++ 
symbolslistbox2.cell(1,incr)="BWXT":incr++ 
symbolslistbox2.cell(1,incr)="DTM":incr++ 
symbolslistbox2.cell(1,incr)="NEO":incr++ 
symbolslistbox2.cell(1,incr)="LIVN":incr++ 
symbolslistbox2.cell(1,incr)="CIVI":incr++ 
symbolslistbox2.cell(1,incr)="POR":incr++ 
symbolslistbox2.cell(1,incr)="CERT":incr++ 
symbolslistbox2.cell(1,incr)="ENSG":incr++ 
symbolslistbox2.cell(1,incr)="CHX":incr++ 
symbolslistbox2.cell(1,incr)="EXLS":incr++ 
symbolslistbox2.cell(1,incr)="YY":incr++ 
symbolslistbox2.cell(1,incr)="ASO":incr++ 
symbolslistbox2.cell(1,incr)="APLS":incr++ 
symbolslistbox2.cell(1,incr)="UMPQ":incr++ 
symbolslistbox2.cell(1,incr)="CWH":incr++ 
symbolslistbox2.cell(1,incr)="PNM":incr++ 
symbolslistbox2.cell(1,incr)="BKH":incr++ 
symbolslistbox2.cell(1,incr)="SSTK":incr++ 
symbolslistbox2.cell(1,incr)="SWX":incr++ 
symbolslistbox2.cell(1,incr)="ARVN":incr++ 
symbolslistbox2.cell(1,incr)="LOB":incr++ 
symbolslistbox2.cell(1,incr)="FRHC":incr++ 
symbolslistbox2.cell(1,incr)="EYE":incr++ 
symbolslistbox2.cell(1,incr)="ABCL":incr++ 
symbolslistbox2.cell(1,incr)="INDB":incr++ 
symbolslistbox2.cell(1,incr)="LHCG":incr++ 
symbolslistbox2.cell(1,incr)="TRTN":incr++ 
symbolslistbox2.cell(1,incr)="PSTH":incr++ 
symbolslistbox2.cell(1,incr)="FUL":incr++ 
symbolslistbox2.cell(1,incr)="FNB":incr++ 
symbolslistbox2.cell(1,incr)="COMP":incr++ 
symbolslistbox2.cell(1,incr)="LCII":incr++ 
symbolslistbox2.cell(1,incr)="SHOO":incr++ 
symbolslistbox2.cell(1,incr)="AI":incr++ 
symbolslistbox2.cell(1,incr)="PFSI":incr++ 
symbolslistbox2.cell(1,incr)="APAM":incr++ 
symbolslistbox2.cell(1,incr)="JAMF":incr++ 
symbolslistbox2.cell(1,incr)="OLO":incr++ 
symbolslistbox2.cell(1,incr)="BKU":incr++ 
symbolslistbox2.cell(1,incr)="KNBE":incr++ 
symbolslistbox2.cell(1,incr)="LC":incr++ 
symbolslistbox2.cell(1,incr)="AGO":incr++ 
symbolslistbox2.cell(1,incr)="ALKS":incr++ 
symbolslistbox2.cell(1,incr)="MATX":incr++ 
symbolslistbox2.cell(1,incr)="ETWO":incr++ 
symbolslistbox2.cell(1,incr)="TGTX":incr++ 
symbolslistbox2.cell(1,incr)="INSM":incr++ 
symbolslistbox2.cell(1,incr)="VSAT":incr++ 
symbolslistbox2.cell(1,incr)="LGIH":incr++ 
symbolslistbox2.cell(1,incr)="ASB":incr++ 
symbolslistbox2.cell(1,incr)="CRC":incr++ 
symbolslistbox2.cell(1,incr)="RLAY":incr++ 
symbolslistbox2.cell(1,incr)="EAF":incr++ 
symbolslistbox2.cell(1,incr)="KTB":incr++ 
symbolslistbox2.cell(1,incr)="TEX":incr++ 
symbolslistbox2.cell(1,incr)="VMEO":incr++ 
symbolslistbox2.cell(1,incr)="ARNC":incr++ 
symbolslistbox2.cell(1,incr)="SR":incr++ 
symbolslistbox2.cell(1,incr)="PTLO":incr++ 
symbolslistbox2.cell(1,incr)="WDFC":incr++ 
symbolslistbox2.cell(1,incr)="STEM":incr++ 
symbolslistbox2.cell(1,incr)="ONB":incr++ 
symbolslistbox2.cell(1,incr)="VRNT":incr++ 
symbolslistbox2.cell(1,incr)="HL":incr++ 
symbolslistbox2.cell(1,incr)="LPRO":incr++ 
symbolslistbox2.cell(1,incr)="WERN":incr++ 
symbolslistbox2.cell(1,incr)="RCII":incr++ 
symbolslistbox2.cell(1,incr)="TCBI":incr++ 
symbolslistbox2.cell(1,incr)="FTDR":incr++ 
symbolslistbox2.cell(1,incr)="LOPE":incr++ 
symbolslistbox2.cell(1,incr)="CRNC":incr++ 
symbolslistbox2.cell(1,incr)="NWE":incr++ 
symbolslistbox2.cell(1,incr)="WIRE":incr++ 
symbolslistbox2.cell(1,incr)="DY":incr++ 
symbolslistbox2.cell(1,incr)="CVLT":incr++ 
symbolslistbox2.cell(1,incr)="AHCO":incr++ 
symbolslistbox2.cell(1,incr)="GOEV":incr++ 
symbolslistbox2.cell(1,incr)="IOVA":incr++ 
symbolslistbox2.cell(1,incr)="BCC":incr++ 
symbolslistbox2.cell(1,incr)="PSFE":incr++ 
symbolslistbox2.cell(1,incr)="AXNX":incr++ 
symbolslistbox2.cell(1,incr)="ARCB":incr++ 
symbolslistbox2.cell(1,incr)="SJI":incr++ 
symbolslistbox2.cell(1,incr)="CCXI":incr++ 
symbolslistbox2.cell(1,incr)="COLB":incr++ 
symbolslistbox2.cell(1,incr)="FLGT":incr++ 
symbolslistbox2.cell(1,incr)="ALLO":incr++ 
symbolslistbox2.cell(1,incr)="FBC":incr++ 
symbolslistbox2.cell(1,incr)="AUPH":incr++ 
symbolslistbox2.cell(1,incr)="TWNK":incr++ 
symbolslistbox2.cell(1,incr)="BSIG":incr++ 
symbolslistbox2.cell(1,incr)="PCRX":incr++ 
symbolslistbox2.cell(1,incr)="MSGE":incr++ 
symbolslistbox2.cell(1,incr)="CDNA":incr++ 
symbolslistbox2.cell(1,incr)="SAVA":incr++ 
symbolslistbox2.cell(1,incr)="NTCT":incr++ 
symbolslistbox2.cell(1,incr)="PRCH":incr++ 
symbolslistbox2.cell(1,incr)="ACLS":incr++ 
symbolslistbox2.cell(1,incr)="SBLK":incr++ 
symbolslistbox2.cell(1,incr)="MDRX":incr++ 
symbolslistbox2.cell(1,incr)="DM":incr++ 
symbolslistbox2.cell(1,incr)="KN":incr++ 
symbolslistbox2.cell(1,incr)="HYZN":incr++ 
symbolslistbox2.cell(1,incr)="BGS":incr++ 
symbolslistbox2.cell(1,incr)="GBT":incr++ 
symbolslistbox2.cell(1,incr)="NSTG":incr++ 
symbolslistbox2.cell(1,incr)="CDMO":incr++ 
symbolslistbox2.cell(1,incr)="GENI":incr++ 
symbolslistbox2.cell(1,incr)="IRWD":incr++ 
symbolslistbox2.cell(1,incr)="SNBR":incr++ 
symbolslistbox2.cell(1,incr)="CMP":incr++ 
symbolslistbox2.cell(1,incr)="BAND":incr++ 
symbolslistbox2.cell(1,incr)="MHO":incr++ 
symbolslistbox2.cell(1,incr)="NOG":incr++ 
symbolslistbox2.cell(1,incr)="BFLY":incr++ 
symbolslistbox2.cell(1,incr)="DNMR":incr++ 
symbolslistbox2.cell(1,incr)="MTTR":incr++ 
'symbolslistbox2.cell(1,incr)="SIMSCI":incr++ ' Index
'symbolslistbox2.cell(1,incr)="NIFTY50":incr++ ' Index

' 25 April 2022
symbolslistbox2.cell(1,incr)="NDAQ":incr++ 
symbolslistbox2.cell(1,incr)="FOX":incr++ 
symbolslistbox2.cell(1,incr)="CBOE":incr++ 
symbolslistbox2.cell(1,incr)="MORN":incr++ 
symbolslistbox2.cell(1,incr)="GXO":incr++ 
symbolslistbox2.cell(1,incr)="EWBC":incr++ 
symbolslistbox2.cell(1,incr)="TPL":incr++ 
symbolslistbox2.cell(1,incr)="FCNCA":incr++ 
symbolslistbox2.cell(1,incr)="HLI":incr++ 
symbolslistbox2.cell(1,incr)="PNFP":incr++ 
symbolslistbox2.cell(1,incr)="SNV":incr++ 
symbolslistbox2.cell(1,incr)="OGE":incr++ 
symbolslistbox2.cell(1,incr)="OZK":incr++ 
symbolslistbox2.cell(1,incr)="VLY":incr++ 
symbolslistbox2.cell(1,incr)="NYCB":incr++ 
symbolslistbox2.cell(1,incr)="NFE":incr++ 
symbolslistbox2.cell(1,incr)="SSB":incr++ 
symbolslistbox2.cell(1,incr)="PACW":incr++ 
symbolslistbox2.cell(1,incr)="NFG":incr++ 
symbolslistbox2.cell(1,incr)="AWI":incr++ 
symbolslistbox2.cell(1,incr)="WBS":incr++ 
symbolslistbox2.cell(1,incr)="NVMI":incr++ 
symbolslistbox2.cell(1,incr)="ACIW":incr++ 
symbolslistbox2.cell(1,incr)="DOW":incr++ 
symbolslistbox2.cell(1,incr)="BF-B":incr++ 
symbolslistbox2.cell(1,incr)="TW":incr++ 
symbolslistbox2.cell(1,incr)="WAL":incr++ 
symbolslistbox2.cell(1,incr)="FHN":incr++ 
symbolslistbox2.cell(1,incr)="FLNC":incr++ 
symbolslistbox2.cell(1,incr)="CLH":incr++ 
symbolslistbox2.cell(1,incr)="WTFC":incr++ 
symbolslistbox2.cell(1,incr)="ELY":incr++ 
symbolslistbox2.cell(1,incr)="AL":incr++ 
symbolslistbox2.cell(1,incr)="KLIC":incr++ 

' 17 November 2021
symbolslistbox2.cell(1,incr)="HIPO":incr++ 
symbolslistbox2.cell(1,incr)="VIRT":incr++ 
symbolslistbox2.cell(1,incr)="OLPX":incr++ 
symbolslistbox2.cell(1,incr)="SRAD":incr++  
symbolslistbox2.cell(1,incr)="UPST":incr++ 
symbolslistbox2.cell(1,incr)="DUOL":incr++ 
symbolslistbox2.cell(1,incr)="E":incr++ 
symbolslistbox2.cell(1,incr)="BAP":incr++ 
symbolslistbox2.cell(1,incr)="ENIA":incr++ 
symbolslistbox2.cell(1,incr)="FMX":incr++ 
symbolslistbox2.cell(1,incr)="SID":incr++ 
symbolslistbox2.cell(1,incr)="NTCO":incr++ 
symbolslistbox2.cell(1,incr)="EBR":incr++ 
symbolslistbox2.cell(1,incr)="EVGO":incr++ 
symbolslistbox2.cell(1,incr)="GLOB":incr++ 
symbolslistbox2.cell(1,incr)="BPOP":incr++ 
symbolslistbox2.cell(1,incr)="SNY":incr++ 
symbolslistbox2.cell(1,incr)="ORAN":incr++ 
symbolslistbox2.cell(1,incr)="SAP":incr++ 
symbolslistbox2.cell(1,incr)="GSK":incr++ 
symbolslistbox2.cell(1,incr)="DEO":incr++ 
symbolslistbox2.cell(1,incr)="BSBR":incr++ 
symbolslistbox2.cell(1,incr)="CIB":incr++ 
symbolslistbox2.cell(1,incr)="GRPN":incr++ 
symbolslistbox2.cell(1,incr)="IDT":incr++ 
symbolslistbox2.cell(1,incr)="BSY":incr++ 
symbolslistbox2.cell(1,incr)="RYAN":incr++ 
symbolslistbox2.cell(1,incr)="LOVE":incr++ 
symbolslistbox2.cell(1,incr)="ARVL":incr++ 
symbolslistbox2.cell(1,incr)="ICLN":incr++ 
symbolslistbox2.cell(1,incr)="IGF":incr++ 
symbolslistbox2.cell(1,incr)="KRBN":incr++ 
symbolslistbox2.cell(1,incr)="PAVE":incr++ 
symbolslistbox2.cell(1,incr)="FIW":incr++ 
symbolslistbox2.cell(1,incr)="URA":incr++ 
symbolslistbox2.cell(1,incr)="UUP":incr++ 
symbolslistbox2.cell(1,incr)="IHS":incr++ 
symbolslistbox2.cell(1,incr)="TWKS":incr++ 
symbolslistbox2.cell(1,incr)="SWTX":incr++ 
symbolslistbox2.cell(1,incr)="LSPD":incr++ 
symbolslistbox2.cell(1,incr)="HUT":incr++ 
symbolslistbox2.cell(1,incr)="GTLB":incr++ 
symbolslistbox2.cell(1,incr)="AVDX":incr++ 
symbolslistbox2.cell(1,incr)="ENFN"

defint nysestocksincr=incr
'showmessage str$(incr)+" NYSE stocks increment"
 ' 718 NYSE incr 1384 - 2101    
    'incr=2204
    
 incr++
 
 ' ETFs
 
    symbolslistbox2.cell(1,incr)= "AAXJ"
    incr++
    symbolslistbox2.cell(1,incr)= "ACWI"
    incr++
    symbolslistbox2.cell(1,incr)= "AGG"
    incr++
    symbolslistbox2.cell(1,incr)= "AMLP"
    incr++
    symbolslistbox2.cell(1,incr)= "AOA"
    incr++
    symbolslistbox2.cell(1,incr)= "AOK"
    incr++
    symbolslistbox2.cell(1,incr)= "AOR"
    incr++
    symbolslistbox2.cell(1,incr)= "ASHR"
    incr++
    symbolslistbox2.cell(1,incr)= "BIL"
    incr++
    symbolslistbox2.cell(1,incr)= "BKLN"
    incr++
    symbolslistbox2.cell(1,incr)= "BND"
    incr++
    symbolslistbox2.cell(1,incr)= "BNDX"
    incr++
    symbolslistbox2.cell(1,incr)= "BOND"
    incr++
    symbolslistbox2.cell(1,incr)= "BSV"
    incr++
    symbolslistbox2.cell(1,incr)= "CORN"
    incr++
    symbolslistbox2.cell(1,incr)= "DBA"
    incr++
    symbolslistbox2.cell(1,incr)= "DGRO"
    incr++
    symbolslistbox2.cell(1,incr)= "DIA"
    incr++
    symbolslistbox2.cell(1,incr)= "EEM"
    incr++
    symbolslistbox2.cell(1,incr)= "EFA"
    incr++
    symbolslistbox2.cell(1,incr)= "EMB"
    incr++
    symbolslistbox2.cell(1,incr)= "EWG"
    incr++
    symbolslistbox2.cell(1,incr)= "EWH"
    incr++
    symbolslistbox2.cell(1,incr)= "EWJ"
    incr++
    symbolslistbox2.cell(1,incr)= "EWT"
    incr++
    symbolslistbox2.cell(1,incr)= "EWW"
    incr++
    symbolslistbox2.cell(1,incr)= "EWY"
    incr++
    symbolslistbox2.cell(1,incr)= "EWZ"
    incr++
    symbolslistbox2.cell(1,incr)= "EZU"
    incr++
    symbolslistbox2.cell(1,incr)= "FAZ"
    incr++
    symbolslistbox2.cell(1,incr)= "FEZ"
    incr++
    symbolslistbox2.cell(1,incr)= "FXI"
    incr++
    symbolslistbox2.cell(1,incr)= "GDX"
    incr++
    symbolslistbox2.cell(1,incr)= "GDXJ"
    incr++
    symbolslistbox2.cell(1,incr)= "GLD"
    incr++
    symbolslistbox2.cell(1,incr)= "HDV"
    'incr++
    'symbolslistbox2.cell(1,incr)= "HMMJ"
    incr++
    symbolslistbox2.cell(1,incr)= "HYG"
    incr++
    symbolslistbox2.cell(1,incr)= "IAGG"
    incr++
    symbolslistbox2.cell(1,incr)= "IAU"
    incr++
    symbolslistbox2.cell(1,incr)= "IBB"
    incr++
    symbolslistbox2.cell(1,incr)= "IDEV"
    incr++
    symbolslistbox2.cell(1,incr)= "IEF"
    incr++
    symbolslistbox2.cell(1,incr)= "IEFA"
    incr++
    symbolslistbox2.cell(1,incr)= "IEMG"
    incr++
    symbolslistbox2.cell(1,incr)= "QQQ"
    incr++
    symbolslistbox2.cell(1,incr)= "IVV"
    incr++
    symbolslistbox2.cell(1,incr)= "SPY"
    incr++
    symbolslistbox2.cell(1,incr)= "GSG"
    incr++
    symbolslistbox2.cell(1,incr)= "IXC"
    incr++
    symbolslistbox2.cell(1,incr)= "IYR"
    
defint etfsstocksincr=incr
    'showmessage str$(incr)+" ETFs stocks increment"
    ' 51 ETFs incr 2114 - 2164    
    'incr=2255

' incr++
    
' shares   
'    symbolslistbox2.cell(1,incr)= "EEM"
'    incr++
'    symbolslistbox2.cell(1,incr)= "QQQ"
'    incr++
'    symbolslistbox2.cell(1,incr)= "EFA"
'    incr++
'    symbolslistbox2.cell(1,incr)= "IVV"
'    incr++
'    symbolslistbox2.cell(1,incr)= "EWT"
'    incr++
'    symbolslistbox2.cell(1,incr)= "IBB"
'    incr++
'    symbolslistbox2.cell(1,incr)= "SPY"
'    incr++
'    symbolslistbox2.cell(1,incr)= "EWY"
'    incr++
'    symbolslistbox2.cell(1,incr)= "FXI"
'    incr++
'    symbolslistbox2.cell(1,incr)= "GSG"
'    incr++
'    symbolslistbox2.cell(1,incr)= "IXC"
'    incr++
'    symbolslistbox2.cell(1,incr)= "IYR"
    
    ' 12 shares incr 2005 - 2016    
    'incr=2107
    
    
    'commodities
    
    incr++
    symbolslistbox2.cell(1,incr)= "NIB" 'COCOA
    incr++
    symbolslistbox2.cell(1,incr)= "JO" 'COFFEE
    incr++
    symbolslistbox2.cell(1,incr)= "UCO" 'OIL
    incr++
    symbolslistbox2.cell(1,incr)= "BAL" 'COTTON
    incr++
    symbolslistbox2.cell(1,incr)= "SCCO" 'COPPER "JJC" 'COPPER
    incr++
    symbolslistbox2.cell(1,incr)= "SLV" 'SILVER
    incr++
    symbolslistbox2.cell(1,incr)= "GAZ" 'NATURAL GAS
    incr++
    symbolslistbox2.cell(1,incr)= "BAL" 'COTTON
    incr++
    symbolslistbox2.cell(1,incr)= "SGG" 'SUGAR
    incr++
    symbolslistbox2.cell(1,incr)= "WEAT" 'WHEAT
    
defint commoditiesstocksincr=incr
'showmessage str$(incr)+" commodities stocks increment"
    ' 10 commodities incr 2165 - 2174
    'incr=2265
    
    'indexes
    
    incr++
    symbolslistbox2.cell(1,incr)= "DAX" 'Volatility S&P 500 Indexes
    'incr++
    'symbolslistbox2.cell(1,incr)= "DAX" 
    incr++
    symbolslistbox2.cell(1,incr)= "FEZ" ' EURO STOXX 50 ETF
    incr++
    symbolslistbox2.cell(1,incr)= "EWS" ' iShares MSCI Singapore ETF
    incr++
    symbolslistbox2.cell(1,incr)= "^NSEI" ' NIFTY 50
    incr++
    symbolslistbox2.cell(1,incr)= "^AXAT" ' AUSTRALIAN 200
    'incr++
    'symbolslistbox2.cell(1,incr)= "FEZ" '"BTCUSD" invalid
    'incr++
    'symbolslistbox2.cell(1,incr)= "FEZ"
    'incr++
    'symbolslistbox2.cell(1,incr)= "FEZ"
    'incr++
    'symbolslistbox2.cell(1,incr)= "FEZ" '"ETHUSD" invalid
    
defint indexesstocksincr=incr
'showmessage str$(incr)+" indexes stocks increment"
    ' 2 indexes incr 2174 - 2175
    'incr=2267
    
    
    ' Forex
    
    incr++
    symbolslistbox2.cell(1,incr)= "EURUSD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDCHF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDUSD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPUSD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDNZD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "CADJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURNZD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDCAD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPNZD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDCHF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPCAD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURCHF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURGBP=X"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDCHF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "CADCHF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPCHF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPAUD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDCAD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDCAD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURAUD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "CHFJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDUSD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURCAD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDMXN=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURNOK=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURHUF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURPLN=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURSEK=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDCNH=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDHUF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDNOK=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDSGD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDHKD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "CHFZAR=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURTRY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPPLN=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURZAR=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPZAR=X"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDHKD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "NZDSGD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "TRYJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDSEK=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDTRY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "USDZAR=X"
    incr++
    symbolslistbox2.cell(1,incr)= "ZARJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "AUDHKD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "CADHKD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "CADSGD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "CHFHKD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURHKD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "EURSGD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPHKD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "GBPSGD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "SGDHKD=X"
    incr++
    symbolslistbox2.cell(1,incr)= "HKDJPY=X"
    incr++
    symbolslistbox2.cell(1,incr)= "SGDCHF=X"
    incr++
    symbolslistbox2.cell(1,incr)= "SGDJPY=X"
    
defint forexstocksincr=incr
'showmessage str$(incr)+" Forex stocks increment"
    ' 2 indexes incr 2174 - 2175
    'incr=2267
    

    signaltrigger = 0

    defint incr2=0
    ini.Section = "Settings"
    IF ini.get("lastsymbolYF" , "") <> "" THEN incr2 = val(ini.get("lastsymbolYF" , ""))
    WHILE signaltrigger = 0
    onerrorresumelabel :
    'barsdisplayed.Text = "222"
   ' datetimesetyf ' set the correct time period in data source
        IF ini.exist THEN
            ini.Section = "Settings"
            IF VAL(ini.get("automation" , "")) = 0 THEN
                signaltrigger = 1
                EXIT SUB
            END IF
        END IF

        writealive
        DIM i AS INTEGER
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
        useindischeckbox.Checked = 0   
        
        ini.Section = "Settings"
        if ini.get("scantimeframe" , "")="60" then dstimeframe.itemindex=4
        if ini.get("scantimeframe" , "")="1440" then dstimeframe.itemindex=6
        
        'incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        'END IF  
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and incr2>hongkongstocksincr THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2<hongkongstocksincr+1 or incr2>indexesstocksincr) THEN
        incr2=hongkongstocksincr+1
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2>indexesstocksincr) THEN
        incr2=0 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF     
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2>hongkongstocksincr and incr2<etfsstocksincr+1) THEN
        if incr2>hongkongstocksincr and incr2<etfsstocksincr+1 then incr2=etfsstocksincr+1
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<hongkongstocksincr+1 or incr2>forexstocksincr) THEN
        incr2=hongkongstocksincr+1
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<0 or incr2>forexstocksincr) THEN
        incr2=0 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 1 and (incr2<indexesstocksincr+1 or incr2>forexstocksincr ) THEN
        incr2=indexesstocksincr+1
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF            
          
        
        if incr2<=forexstocksincr then dssource.itemindex=0              
        
        'while dssource.itemindex>0
        '    doevents
        '    dssource.itemindex=0
        'wend
        
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        IF dssymboledit.text="" then
        'signaltrigger = 1
        'goto wendend        
        dssource.itemindex=0
        incr2=0
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        end if
        incr2++
        ini.Section = "Settings"
        ini.Write("lastsymbolYF" , str$(incr2))
        datetimesetyf ' set the correct time period in data source
        ' Check if symbol exists
        'alphavantagesearchsymboledit.text=dssymboledit.text
        'alphavantagesearchsymbolbuttonclicksub          
        'timerautomation.enabled=1        
        'while timerautomationready=0
        'doevents
        'wend
        'timerautomationready=0
        'timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN   
        while dssource.itemindex>0
            doevents
            dssource.itemindex=0
        wend                   
        dsokclick
        'else 
        'goto wendend
        'end if
        
        timerautomation.enabled=1        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN                      
        'dsokclick
        'else 
        'goto wendend
        'end if
        
        writealive
        
        DIM filestream AS QFILESTREAM
        'DEFSTR filestr = ""    
        defint incr3=incr2-1
        if incr3<=forexstocksincr then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
        if filestream.size<1000 then
        PRINT "Error"
	writetolog(DATE$ + " " + TIME$ + " " + "Error with " + dssymboledit.text)
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        'EXIT SUB
        filestream.Close
        goto onerrorresumelabel
        end if
        
        'DIM filestream AS QFILESTREAM
        'DEFSTR filestr = ""
        'defint incr3=incr2-1
        'if incr3<=1880 then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
        ''if incr3>427 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
        'filestr = ""
        'defstr filestreamlinecoun
        'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
        'PRINT "Error"
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'filestream.Close
        'goto onerrorresumelabel
        'END IF 
                                  
        'DOEVENTS
        'WEND
        filestream.Close
        
        'reimportfile()

        'btnOnClick(drwBox)
        'exit sub
        while displayedfile<1
        doevents
        wend     
        
        ini.Section = "Settings"
        if ini.get("tradingsystem" , "")="System Sync" then goto systemsyncyahoofinlabel
        if ini.get("tradingsystem" , "")="TD Sequential" then goto tdsequentialyahoofinlabel
        
        tdsequentialyahoofinlabel:
        
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "TD_Sequential") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        if charttf(displayedfile)<>1 and _
            charttf(displayedfile)<>5 and _
            charttf(displayedfile)<>15 and _
            charttf(displayedfile)<>30 and _
            charttf(displayedfile)<>60 and _
            charttf(displayedfile)<>240 and _
            charttf(displayedfile)<>1440 and _
            charttf(displayedfile)<>10080 and _
            charttf(displayedfile)<>43200 then
                attribtfcombo.itemindex=4
                attribtfeditItemChanged
                MA_Chanels_FiboEnv_Midautotf.checked=0
                MA_Chanels_FiboEnv_Midcurtfedit.text="60"
                SwamiRSI_v1curtfedit.text="60"
                SwamiRSI_v1autotf.checked=0
        end if
        btnaddindi_click()
        
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "BB - HL cpp") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i        
        btnaddindi_click()
        
        useindischeckbox.Checked=1
        'showcanvasclick
        justrefreshchart
        writealive
        
        defstr zerostr="0"
        defstr bbhlbdslowerbufferstr="lowerbandbuffer"
        defstr bbhlbdsupperbufferstr="upperbandbuffer"
        defstr bbhlbdsmidbufferstr="mabuffer"
        defdbl valbbhlbdslowerbuffer,valbbhlbdsupperbuffer,valbbhlbdsmidbuffer
        defdbl valbbhlbdslowerbuffer2,valbbhlbdsupperbuffer2
        valbbhlbdslowerbuffer=val(varptr$(getbufferdata(varptr(bbhlbdslowerbufferstr),varptr(zerostr))))
        valbbhlbdsupperbuffer=val(varptr$(getbufferdata(varptr(bbhlbdsupperbufferstr),varptr(zerostr))))
        valbbhlbdsmidbuffer=val(varptr$(getbufferdata(varptr(bbhlbdsmidbufferstr),varptr(zerostr))))
        valbbhlbdsupperbuffer2=(valbbhlbdsupperbuffer-valbbhlbdsmidbuffer)*0.4+valbbhlbdsmidbuffer
        valbbhlbdslowerbuffer2=valbbhlbdsmidbuffer-(valbbhlbdsmidbuffer-valbbhlbdslowerbuffer)*0.4
        
        IF (( high(0) >= valbbhlbdsupperbuffer2 ) or ( low(0) <= valbbhlbdslowerbuffer2 )) AND (val(textlabelsdb.Cell(3 , val(TD_Sequentialbarsbackedit.text)))>=13) then
        'IF (val(varptr$(getbufferdata(varptr(SpanA_Buffer2str),varptr(zerostr))))<val(varptr$(getbufferdata(varptr(SpanB_Buffer2str),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
        END IF                               
        
        goto endscanlabelyf
        
        systemsyncyahoofinlabel:           

        'symbolslistbox2.itemindex=symbolslistbox2.itemindex+1
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "MA Chanels FiboEnv Mid") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        if charttf(displayedfile)<>1 and _
            charttf(displayedfile)<>5 and _
            charttf(displayedfile)<>15 and _
            charttf(displayedfile)<>30 and _
            charttf(displayedfile)<>60 and _
            charttf(displayedfile)<>240 and _
            charttf(displayedfile)<>1440 and _
            charttf(displayedfile)<>10080 and _
            charttf(displayedfile)<>43200 then
                attribtfcombo.itemindex=4
                attribtfeditItemChanged
                MA_Chanels_FiboEnv_Midautotf.checked=0
                MA_Chanels_FiboEnv_Midcurtfedit.text="60"
                SwamiRSI_v1curtfedit.text="60"
                SwamiRSI_v1autotf.checked=0
        end if
        btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
        '        EXIT FOR
        '    END IF
        'NEXT i
        'indicatorslist.ItemIndex = i        
        'btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
        '        EXIT FOR
        '    END IF
        '    NEXT i
        '    indicatorslist.ItemIndex = i        
        '    btnaddindi_click()
        
         
        
        useindischeckbox.Checked=1
        'showcanvasclick
        justrefreshchart
        writealive

        zerostr="0"
        defstr bdslowerbufferstr="MA_Chanels_FiboEnv_Midbuffer7"
        defstr bdsupperbufferstr="MA_Chanels_FiboEnv_Midbuffer1"
        'defstr SpanA_Bufferstr="SpanA_Buffer"
        'defstr SpanB_Bufferstr="SpanB_Buffer"
            
        IF (high(0) >= val(varptr$(getbufferdata(varptr(bdsupperbufferstr),varptr(zerostr))))) or (low(0) <= val(varptr$(getbufferdata(varptr(bdslowerbufferstr),varptr(zerostr))))) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
        
            useindischeckbox.Checked=1
            showcanvasclick
            justrefreshchart
            'writealive
            
            defstr RSI3bufferstr="RSI3"
            defstr sumRSIbufferstr="sumRSI"
                        
             
            'IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) or (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Bufferstr="SpanA_Buffer"
            defstr SpanB_Bufferstr="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Bufferstr),varptr(zerostr))))>val(varptr$(getbufferdata(varptr(SpanB_Bufferstr),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Buffer2str="SpanA_Buffer"
            defstr SpanB_Buffer2str="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Buffer2str),varptr(zerostr))))<val(varptr$(getbufferdata(varptr(SpanB_Buffer2str),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            
        END IF
        
        endscanlabelyf:

       'sleep 2
       useindischeckbox.Checked=0
       ' closedispchart_click()
       
       'logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile) + CHR$(10)
        writetolog(DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile))

        'canvas.Visible = 0
        'sepindivalminlab.Visible = 0
        'sepindivalmaxlab.Visible = 0
        'sepindivalminedit.Visible = 0
        'sepindivalmaxedit.Visible = 0
        'sepindivalok.Visible = 0
        'showcanvas = 0
        'setup()
        'mixgridcolcount(displayedfile) = 0
        'mixgridcolcount2(displayedfile) = 0
        'mixgridcolcount3(displayedfile) = 0
        'mixgridcolcount4(displayedfile) = 0
        'updatemixerlists
        'say "Chart closed"
        openedfilesnb --
 
        cpptmpfuncreturn=varptr$(openedfilesnbminusone())

        dispchartnb.DelItems = dispchartnb.ItemCount - 1

        dispchartnb.ItemIndex = displayedfile - 1

        chartstart = Scrollchart.Position - numbars
        'updatemixerlists

        Graph.Visible = FALSE

        split.Visible = 0

        splith.Visible = 0

        closedispchart.Visible = FALSE

        Scrollchart.Visible = 0

        pricescaleplusbtn.visible=0

        pricescaleminusbtn.visible=0

        addbarsbtn.visible=0

        shiftchartbtn.visible=0        
        'closedispcanvas.Visible = 0    
        closedispcanvas_click    

        tfmult.Text = "1"

        barsdisplayed.Text = "222"

        'disableallindis  

        displayedfile=0
        MA_Chanels_FiboEnv_Midautotf.checked=1
        SwamiRSI_v1autotf.checked=1
        
        
        timerautomation.enabled=1
        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        wendend:
       
    WEND

END SUB


SUB autoreverse5 ' Yahoo_Finance with Boursorama stocks scanner
'showmessage "-1"
dim symbolslistbox2 as qstringgrid
    symbolslistbox2.colcount=1
    symbolslistbox2.rowcount=100
defint incr=0  
    
        'NASDAQ

symbolslistbox2.cell(1,incr)="A":incr++
symbolslistbox2.cell(1,incr)="AA":incr++
symbolslistbox2.cell(1,incr)="AAAU":incr++
'symbolslistbox2.cell(1,incr)="AABA":incr++
symbolslistbox2.cell(1,incr)="AAC":incr++
symbolslistbox2.cell(1,incr)="AADR":incr++
symbolslistbox2.cell(1,incr)="AAL":incr++
symbolslistbox2.cell(1,incr)="AAMC":incr++
symbolslistbox2.cell(1,incr)="AAME":incr++
symbolslistbox2.cell(1,incr)="AAN":incr++
symbolslistbox2.cell(1,incr)="AAOI":incr++
symbolslistbox2.cell(1,incr)="AAON":incr++
symbolslistbox2.cell(1,incr)="AAP":incr++
symbolslistbox2.cell(1,incr)="AAPL":incr++
symbolslistbox2.cell(1,incr)="AAT":incr++
symbolslistbox2.cell(1,incr)="AAU":incr++
symbolslistbox2.cell(1,incr)="AAWW":incr++
symbolslistbox2.cell(1,incr)="AAXJ":incr++
'symbolslistbox2.cell(1,incr)="AAXN":incr++
symbolslistbox2.cell(1,incr)="AB":incr++
symbolslistbox2.cell(1,incr)="ABB":incr++
symbolslistbox2.cell(1,incr)="ABBV":incr++
symbolslistbox2.cell(1,incr)="ABC":incr++
symbolslistbox2.cell(1,incr)="ABCB":incr++
'symbolslistbox2.cell(1,incr)="ABDC":incr++
symbolslistbox2.cell(1,incr)="ABEO":incr++
'symbolslistbox2.cell(1,incr)="ABEOW":incr++
symbolslistbox2.cell(1,incr)="ABEV":incr++
symbolslistbox2.cell(1,incr)="ABG":incr++
'symbolslistbox2.cell(1,incr)="ABIL":incr++
symbolslistbox2.cell(1,incr)="ABIO":incr++
symbolslistbox2.cell(1,incr)="ABM":incr++
symbolslistbox2.cell(1,incr)="ABMD":incr++
symbolslistbox2.cell(1,incr)="ABNB":incr++
symbolslistbox2.cell(1,incr)="ABR":incr++
'symbolslistbox2.cell(1,incr)="ABR$A":incr++
'symbolslistbox2.cell(1,incr)="ABR$B":incr++
'symbolslistbox2.cell(1,incr)="ABR$C":incr++
symbolslistbox2.cell(1,incr)="ABT":incr++
symbolslistbox2.cell(1,incr)="ABTX":incr++
symbolslistbox2.cell(1,incr)="ABUS":incr++
symbolslistbox2.cell(1,incr)="AC":incr++
symbolslistbox2.cell(1,incr)="ACA":incr++
symbolslistbox2.cell(1,incr)="ACAD":incr++
'symbolslistbox2.cell(1,incr)="ACAM":incr++
'symbolslistbox2.cell(1,incr)="ACAMU":incr++
'symbolslistbox2.cell(1,incr)="ACAMW":incr++
symbolslistbox2.cell(1,incr)="ACB":incr++
'symbolslistbox2.cell(1,incr)="ACBI":incr++
symbolslistbox2.cell(1,incr)="ACC":incr++
symbolslistbox2.cell(1,incr)="ACCO":incr++
symbolslistbox2.cell(1,incr)="ACER":incr++
symbolslistbox2.cell(1,incr)="ACES":incr++
symbolslistbox2.cell(1,incr)="ACGL":incr++
symbolslistbox2.cell(1,incr)="ACGLO":incr++
'symbolslistbox2.cell(1,incr)="ACGLP":incr++
symbolslistbox2.cell(1,incr)="ACH":incr++
symbolslistbox2.cell(1,incr)="ACHC":incr++
symbolslistbox2.cell(1,incr)="ACHN":incr++
symbolslistbox2.cell(1,incr)="ACHV":incr++
'symbolslistbox2.cell(1,incr)="ACIA":incr++
symbolslistbox2.cell(1,incr)="ACIO":incr++
symbolslistbox2.cell(1,incr)="ACIU":incr++
symbolslistbox2.cell(1,incr)="ACIW":incr++
symbolslistbox2.cell(1,incr)="ACLS":incr++
symbolslistbox2.cell(1,incr)="ACM":incr++
symbolslistbox2.cell(1,incr)="ACMR":incr++
symbolslistbox2.cell(1,incr)="ACN":incr++
symbolslistbox2.cell(1,incr)="ACNB":incr++
symbolslistbox2.cell(1,incr)="ACOR":incr++
symbolslistbox2.cell(1,incr)="ACP":incr++
symbolslistbox2.cell(1,incr)="ACRE":incr++
symbolslistbox2.cell(1,incr)="ACRS":incr++
symbolslistbox2.cell(1,incr)="ACRX":incr++
'symbolslistbox2.cell(1,incr)="ACSG":incr++
symbolslistbox2.cell(1,incr)="ACSI":incr++
symbolslistbox2.cell(1,incr)="ACST":incr++
symbolslistbox2.cell(1,incr)="ACT":incr++
symbolslistbox2.cell(1,incr)="ACTG":incr++
'symbolslistbox2.cell(1,incr)="ACTT":incr++
'symbolslistbox2.cell(1,incr)="ACTTU":incr++
'symbolslistbox2.cell(1,incr)="ACTTW":incr++
symbolslistbox2.cell(1,incr)="ACU":incr++
symbolslistbox2.cell(1,incr)="ACV":incr++
symbolslistbox2.cell(1,incr)="ACWF":incr++
symbolslistbox2.cell(1,incr)="ACWI":incr++
symbolslistbox2.cell(1,incr)="ACWV":incr++
symbolslistbox2.cell(1,incr)="ACWX":incr++
'symbolslistbox2.cell(1,incr)="ACY":incr++
symbolslistbox2.cell(1,incr)="ADAP":incr++
symbolslistbox2.cell(1,incr)="ADBE":incr++
symbolslistbox2.cell(1,incr)="ADC":incr++
symbolslistbox2.cell(1,incr)="ADES":incr++
symbolslistbox2.cell(1,incr)="ADI":incr++
symbolslistbox2.cell(1,incr)="ADIL":incr++
'symbolslistbox2.cell(1,incr)="ADILW":incr++
symbolslistbox2.cell(1,incr)="ADM":incr++
symbolslistbox2.cell(1,incr)="ADMA":incr++
symbolslistbox2.cell(1,incr)="ADMP":incr++
'symbolslistbox2.cell(1,incr)="ADMS":incr++
symbolslistbox2.cell(1,incr)="ADNT":incr++
symbolslistbox2.cell(1,incr)="ADP":incr++
symbolslistbox2.cell(1,incr)="ADPT":incr++
symbolslistbox2.cell(1,incr)="ADRA":incr++
'symbolslistbox2.cell(1,incr)="ADRD":incr++
symbolslistbox2.cell(1,incr)="ADRE":incr++
'symbolslistbox2.cell(1,incr)="ADRO":incr++
'symbolslistbox2.cell(1,incr)="ADRU":incr++
'symbolslistbox2.cell(1,incr)="ADS":incr++
symbolslistbox2.cell(1,incr)="ADSK":incr++
'symbolslistbox2.cell(1,incr)="ADSW":incr++
symbolslistbox2.cell(1,incr)="ADT":incr++
symbolslistbox2.cell(1,incr)="ADTN":incr++
symbolslistbox2.cell(1,incr)="ADUS":incr++
symbolslistbox2.cell(1,incr)="ADVM":incr++
symbolslistbox2.cell(1,incr)="ADX":incr++
symbolslistbox2.cell(1,incr)="ADXS":incr++
symbolslistbox2.cell(1,incr)="AE":incr++
'symbolslistbox2.cell(1,incr)="AEB":incr++
symbolslistbox2.cell(1,incr)="AEE":incr++
symbolslistbox2.cell(1,incr)="AEF":incr++
symbolslistbox2.cell(1,incr)="AEG":incr++
'symbolslistbox2.cell(1,incr)="AEGN":incr++
'symbolslistbox2.cell(1,incr)="AEH":incr++
symbolslistbox2.cell(1,incr)="AEHR":incr++
symbolslistbox2.cell(1,incr)="AEIS":incr++
symbolslistbox2.cell(1,incr)="AEL":incr++
symbolslistbox2.cell(1,incr)="AEM":incr++
symbolslistbox2.cell(1,incr)="AEMD":incr++
symbolslistbox2.cell(1,incr)="AEO":incr++
symbolslistbox2.cell(1,incr)="AEP":incr++
'symbolslistbox2.cell(1,incr)="AEP$B":incr++
symbolslistbox2.cell(1,incr)="AER":incr++
symbolslistbox2.cell(1,incr)="AERI":incr++
symbolslistbox2.cell(1,incr)="AES":incr++
symbolslistbox2.cell(1,incr)="AESE":incr++
symbolslistbox2.cell(1,incr)="AEY":incr++
symbolslistbox2.cell(1,incr)="AEYE":incr++
symbolslistbox2.cell(1,incr)="AEZS":incr++
symbolslistbox2.cell(1,incr)="AFB":incr++
'symbolslistbox2.cell(1,incr)="AFC":incr++
symbolslistbox2.cell(1,incr)="AFG":incr++
symbolslistbox2.cell(1,incr)="AFGB":incr++
symbolslistbox2.cell(1,incr)="AFGE":incr++
'symbolslistbox2.cell(1,incr)="AFGH":incr++
'symbolslistbox2.cell(1,incr)="AFH":incr++
'symbolslistbox2.cell(1,incr)="AFHBL":incr++
symbolslistbox2.cell(1,incr)="AFI":incr++
symbolslistbox2.cell(1,incr)="AFIF":incr++
'symbolslistbox2.cell(1,incr)="AFIN":incr++
'symbolslistbox2.cell(1,incr)="AFINP":incr++
symbolslistbox2.cell(1,incr)="AFK":incr++
symbolslistbox2.cell(1,incr)="AFL":incr++
symbolslistbox2.cell(1,incr)="AFMD":incr++
symbolslistbox2.cell(1,incr)="AFT":incr++
symbolslistbox2.cell(1,incr)="AFTY":incr++
symbolslistbox2.cell(1,incr)="AFYA":incr++
symbolslistbox2.cell(1,incr)="AG":incr++
symbolslistbox2.cell(1,incr)="AGBA":incr++
symbolslistbox2.cell(1,incr)="AGBAR":incr++
'symbolslistbox2.cell(1,incr)="AGBAU":incr++
'symbolslistbox2.cell(1,incr)="AGBAW":incr++
symbolslistbox2.cell(1,incr)="AGCO":incr++
symbolslistbox2.cell(1,incr)="AGD":incr++
symbolslistbox2.cell(1,incr)="AGE":incr++
symbolslistbox2.cell(1,incr)="AGEN":incr++
symbolslistbox2.cell(1,incr)="AGFS":incr++
'symbolslistbox2.cell(1,incr)="AGFSW":incr++
symbolslistbox2.cell(1,incr)="AGG":incr++
'symbolslistbox2.cell(1,incr)="AGGE":incr++
'symbolslistbox2.cell(1,incr)="AGGP":incr++
symbolslistbox2.cell(1,incr)="AGGY":incr++
symbolslistbox2.cell(1,incr)="AGI":incr++
symbolslistbox2.cell(1,incr)="AGIO":incr++
symbolslistbox2.cell(1,incr)="AGLE":incr++
symbolslistbox2.cell(1,incr)="AGM":incr++
'symbolslistbox2.cell(1,incr)="AGM$A":incr++
'symbolslistbox2.cell(1,incr)="AGM$C":incr++
'symbolslistbox2.cell(1,incr)="AGM$D":incr++
'symbolslistbox2.cell(1,incr)="AGM.A":incr++
symbolslistbox2.cell(1,incr)="AGMH":incr++
'symbolslistbox2.cell(1,incr)="AGN":incr++
symbolslistbox2.cell(1,incr)="AGNC":incr++
'symbolslistbox2.cell(1,incr)="AGNCB":incr++
symbolslistbox2.cell(1,incr)="AGNCM":incr++
symbolslistbox2.cell(1,incr)="AGNCN":incr++
'symbolslistbox2.cell(1,incr)="AGND":incr++
symbolslistbox2.cell(1,incr)="AGO":incr++
'symbolslistbox2.cell(1,incr)="AGO$B":incr++
'symbolslistbox2.cell(1,incr)="AGO$E":incr++
'symbolslistbox2.cell(1,incr)="AGO$F":incr++
symbolslistbox2.cell(1,incr)="AGQ":incr++
symbolslistbox2.cell(1,incr)="AGR":incr++
symbolslistbox2.cell(1,incr)="AGRO":incr++
symbolslistbox2.cell(1,incr)="AGRX":incr++
symbolslistbox2.cell(1,incr)="AGS":incr++
symbolslistbox2.cell(1,incr)="AGT":incr++
symbolslistbox2.cell(1,incr)="AGTC":incr++
symbolslistbox2.cell(1,incr)="AGX":incr++
symbolslistbox2.cell(1,incr)="AGYS":incr++
symbolslistbox2.cell(1,incr)="AGZ":incr++
symbolslistbox2.cell(1,incr)="AGZD":incr++
'symbolslistbox2.cell(1,incr)="AHC":incr++
symbolslistbox2.cell(1,incr)="AHH":incr++
'symbolslistbox2.cell(1,incr)="AHH$A":incr++
'symbolslistbox2.cell(1,incr)="AHL$C":incr++
'symbolslistbox2.cell(1,incr)="AHL$D":incr++
'symbolslistbox2.cell(1,incr)="AHL$E":incr++
symbolslistbox2.cell(1,incr)="AHPI":incr++
symbolslistbox2.cell(1,incr)="AHT":incr++
'symbolslistbox2.cell(1,incr)="AHT$D":incr++
'symbolslistbox2.cell(1,incr)="AHT$F":incr++
'symbolslistbox2.cell(1,incr)="AHT$G":incr++
'symbolslistbox2.cell(1,incr)="AHT$H":incr++
'symbolslistbox2.cell(1,incr)="AHT$I":incr++
symbolslistbox2.cell(1,incr)="AI":incr++
'symbolslistbox2.cell(1,incr)="AI$B":incr++
'symbolslistbox2.cell(1,incr)="AI$C":incr++
symbolslistbox2.cell(1,incr)="AIA":incr++
'symbolslistbox2.cell(1,incr)="AIC":incr++
symbolslistbox2.cell(1,incr)="AIEQ":incr++
symbolslistbox2.cell(1,incr)="AIF":incr++
symbolslistbox2.cell(1,incr)="AIG":incr++
'symbolslistbox2.cell(1,incr)="AIG$A":incr++
'symbolslistbox2.cell(1,incr)="AIG.W":incr++
symbolslistbox2.cell(1,incr)="AIHS":incr++
symbolslistbox2.cell(1,incr)="AIIQ":incr++
symbolslistbox2.cell(1,incr)="AIM":incr++
symbolslistbox2.cell(1,incr)="AIMC":incr++
'symbolslistbox2.cell(1,incr)="AIMT":incr++
symbolslistbox2.cell(1,incr)="AIN":incr++
symbolslistbox2.cell(1,incr)="AINC":incr++
symbolslistbox2.cell(1,incr)="AINV":incr++
symbolslistbox2.cell(1,incr)="AIQ":incr++
symbolslistbox2.cell(1,incr)="AIR":incr++
symbolslistbox2.cell(1,incr)="AIRG":incr++
symbolslistbox2.cell(1,incr)="AIRI":incr++
symbolslistbox2.cell(1,incr)="AIRR":incr++
symbolslistbox2.cell(1,incr)="AIRT":incr++
'symbolslistbox2.cell(1,incr)="AIRTP":incr++
'symbolslistbox2.cell(1,incr)="AIRTW":incr++
symbolslistbox2.cell(1,incr)="AIT":incr++
symbolslistbox2.cell(1,incr)="AIV":incr++
'symbolslistbox2.cell(1,incr)="AIW":incr++
symbolslistbox2.cell(1,incr)="AIZ":incr++
'symbolslistbox2.cell(1,incr)="AIZP":incr++
symbolslistbox2.cell(1,incr)="AJG":incr++
symbolslistbox2.cell(1,incr)="AJRD":incr++
symbolslistbox2.cell(1,incr)="AJX":incr++
symbolslistbox2.cell(1,incr)="AJXA":incr++
symbolslistbox2.cell(1,incr)="AKAM":incr++
symbolslistbox2.cell(1,incr)="AKBA":incr++
'symbolslistbox2.cell(1,incr)="AKCA":incr++
'symbolslistbox2.cell(1,incr)="AKER":incr++
'symbolslistbox2.cell(1,incr)="AKG":incr++
'symbolslistbox2.cell(1,incr)="AKO.A":incr++
'symbolslistbox2.cell(1,incr)="AKO.B":incr++
symbolslistbox2.cell(1,incr)="AKR":incr++
symbolslistbox2.cell(1,incr)="AKRO":incr++
'symbolslistbox2.cell(1,incr)="AKRX":incr++
'symbolslistbox2.cell(1,incr)="AKS":incr++
symbolslistbox2.cell(1,incr)="AKTS":incr++
symbolslistbox2.cell(1,incr)="AKTX":incr++
symbolslistbox2.cell(1,incr)="AL":incr++
'symbolslistbox2.cell(1,incr)="AL$A":incr++
symbolslistbox2.cell(1,incr)="ALAC":incr++
symbolslistbox2.cell(1,incr)="ALACR":incr++
'symbolslistbox2.cell(1,incr)="ALACU":incr++
'symbolslistbox2.cell(1,incr)="ALACW":incr++
symbolslistbox2.cell(1,incr)="ALB":incr++
symbolslistbox2.cell(1,incr)="ALBO":incr++
symbolslistbox2.cell(1,incr)="ALC":incr++
symbolslistbox2.cell(1,incr)="ALCO":incr++
'symbolslistbox2.cell(1,incr)="ALDR":incr++
symbolslistbox2.cell(1,incr)="ALDX":incr++
symbolslistbox2.cell(1,incr)="ALE":incr++
symbolslistbox2.cell(1,incr)="ALEC":incr++
symbolslistbox2.cell(1,incr)="ALEX":incr++
symbolslistbox2.cell(1,incr)="ALFA":incr++
symbolslistbox2.cell(1,incr)="ALG":incr++
symbolslistbox2.cell(1,incr)="ALGN":incr++
'symbolslistbox2.cell(1,incr)="ALGR":incr++
'symbolslistbox2.cell(1,incr)="ALGRR":incr++
'symbolslistbox2.cell(1,incr)="ALGRU":incr++
'symbolslistbox2.cell(1,incr)="ALGRW":incr++
symbolslistbox2.cell(1,incr)="ALGT":incr++
symbolslistbox2.cell(1,incr)="ALIM":incr++
symbolslistbox2.cell(1,incr)="ALJJ":incr++
symbolslistbox2.cell(1,incr)="ALK":incr++
symbolslistbox2.cell(1,incr)="ALKS":incr++
symbolslistbox2.cell(1,incr)="ALL":incr++
'symbolslistbox2.cell(1,incr)="ALL$A":incr++
'symbolslistbox2.cell(1,incr)="ALL$B":incr++
'symbolslistbox2.cell(1,incr)="ALL$D":incr++
'symbolslistbox2.cell(1,incr)="ALL$E":incr++
'symbolslistbox2.cell(1,incr)="ALL$F":incr++
'symbolslistbox2.cell(1,incr)="ALL$G":incr++
'symbolslistbox2.cell(1,incr)="ALL$H":incr++
symbolslistbox2.cell(1,incr)="ALLE":incr++
symbolslistbox2.cell(1,incr)="ALLK":incr++
symbolslistbox2.cell(1,incr)="ALLO":incr++
symbolslistbox2.cell(1,incr)="ALLT":incr++
symbolslistbox2.cell(1,incr)="ALLY":incr++
'symbolslistbox2.cell(1,incr)="ALLY$A":incr++
symbolslistbox2.cell(1,incr)="ALNA":incr++
symbolslistbox2.cell(1,incr)="ALNY":incr++
'symbolslistbox2.cell(1,incr)="ALO":incr++
symbolslistbox2.cell(1,incr)="ALOT":incr++
'symbolslistbox2.cell(1,incr)="ALP$Q":incr++
symbolslistbox2.cell(1,incr)="ALPN":incr++
symbolslistbox2.cell(1,incr)="ALRM":incr++
symbolslistbox2.cell(1,incr)="ALRN":incr++
symbolslistbox2.cell(1,incr)="ALRS":incr++
'symbolslistbox2.cell(1,incr)="ALSK":incr++
symbolslistbox2.cell(1,incr)="ALSN":incr++
symbolslistbox2.cell(1,incr)="ALT":incr++
'symbolslistbox2.cell(1,incr)="ALTM":incr++
symbolslistbox2.cell(1,incr)="ALTR":incr++
symbolslistbox2.cell(1,incr)="ALTS":incr++
symbolslistbox2.cell(1,incr)="ALTY":incr++
symbolslistbox2.cell(1,incr)="ALV":incr++
symbolslistbox2.cell(1,incr)="ALX":incr++
'symbolslistbox2.cell(1,incr)="ALXN":incr++
symbolslistbox2.cell(1,incr)="ALYA":incr++
symbolslistbox2.cell(1,incr)="AM":incr++
'symbolslistbox2.cell(1,incr)="AMAG":incr++
symbolslistbox2.cell(1,incr)="AMAL":incr++
symbolslistbox2.cell(1,incr)="AMAT":incr++
symbolslistbox2.cell(1,incr)="AMBA":incr++
symbolslistbox2.cell(1,incr)="AMBC":incr++
'symbolslistbox2.cell(1,incr)="AMBCW":incr++
symbolslistbox2.cell(1,incr)="AMBO":incr++
symbolslistbox2.cell(1,incr)="AMC":incr++
'symbolslistbox2.cell(1,incr)="AMCA":incr++
symbolslistbox2.cell(1,incr)="AMCI":incr++
symbolslistbox2.cell(1,incr)="AMCIU":incr++
'symbolslistbox2.cell(1,incr)="AMCIW":incr++
symbolslistbox2.cell(1,incr)="AMCR":incr++
symbolslistbox2.cell(1,incr)="AMCX":incr++
symbolslistbox2.cell(1,incr)="AMD":incr++
symbolslistbox2.cell(1,incr)="AME":incr++
symbolslistbox2.cell(1,incr)="AMED":incr++
symbolslistbox2.cell(1,incr)="AMEH":incr++
symbolslistbox2.cell(1,incr)="AMG":incr++
symbolslistbox2.cell(1,incr)="AMGN":incr++
symbolslistbox2.cell(1,incr)="AMH":incr++
'symbolslistbox2.cell(1,incr)="AMH$D":incr++
'symbolslistbox2.cell(1,incr)="AMH$E":incr++
'symbolslistbox2.cell(1,incr)="AMH$F":incr++
'symbolslistbox2.cell(1,incr)="AMH$G":incr++
'symbolslistbox2.cell(1,incr)="AMH$H":incr++
symbolslistbox2.cell(1,incr)="AMJ":incr++
'symbolslistbox2.cell(1,incr)="AMJL":incr++
symbolslistbox2.cell(1,incr)="AMK":incr++
symbolslistbox2.cell(1,incr)="AMKR":incr++
symbolslistbox2.cell(1,incr)="AMLP":incr++
symbolslistbox2.cell(1,incr)="AMN":incr++
symbolslistbox2.cell(1,incr)="AMNB":incr++
symbolslistbox2.cell(1,incr)="AMOM":incr++
symbolslistbox2.cell(1,incr)="AMOT":incr++
symbolslistbox2.cell(1,incr)="AMOV":incr++
symbolslistbox2.cell(1,incr)="AMP":incr++
symbolslistbox2.cell(1,incr)="AMPE":incr++
symbolslistbox2.cell(1,incr)="AMPH":incr++
symbolslistbox2.cell(1,incr)="AMPY":incr++
'symbolslistbox2.cell(1,incr)="AMRB":incr++
symbolslistbox2.cell(1,incr)="AMRC":incr++
'symbolslistbox2.cell(1,incr)="AMRH":incr++
'symbolslistbox2.cell(1,incr)="AMRHW":incr++
symbolslistbox2.cell(1,incr)="AMRK":incr++
symbolslistbox2.cell(1,incr)="AMRN":incr++
symbolslistbox2.cell(1,incr)="AMRS":incr++
symbolslistbox2.cell(1,incr)="AMRX":incr++
symbolslistbox2.cell(1,incr)="AMS":incr++
symbolslistbox2.cell(1,incr)="AMSC":incr++
symbolslistbox2.cell(1,incr)="AMSF":incr++
symbolslistbox2.cell(1,incr)="AMSWA":incr++
symbolslistbox2.cell(1,incr)="AMT":incr++
symbolslistbox2.cell(1,incr)="AMTB":incr++
'symbolslistbox2.cell(1,incr)="AMTBB":incr++
symbolslistbox2.cell(1,incr)="AMTD":incr++
symbolslistbox2.cell(1,incr)="AMTX":incr++
'symbolslistbox2.cell(1,incr)="AMU":incr++
symbolslistbox2.cell(1,incr)="AMUB":incr++
symbolslistbox2.cell(1,incr)="AMWD":incr++
symbolslistbox2.cell(1,incr)="AMX":incr++
symbolslistbox2.cell(1,incr)="AMZA":incr++
symbolslistbox2.cell(1,incr)="AMZN":incr++
symbolslistbox2.cell(1,incr)="AN":incr++
symbolslistbox2.cell(1,incr)="ANAB":incr++
symbolslistbox2.cell(1,incr)="ANAT":incr++
'symbolslistbox2.cell(1,incr)="ANCN":incr++
'symbolslistbox2.cell(1,incr)="ANDA":incr++
'symbolslistbox2.cell(1,incr)="ANDAR":incr++
'symbolslistbox2.cell(1,incr)="ANDAU":incr++
'symbolslistbox2.cell(1,incr)="ANDAW":incr++
symbolslistbox2.cell(1,incr)="ANDE":incr++
symbolslistbox2.cell(1,incr)="ANET":incr++
symbolslistbox2.cell(1,incr)="ANF":incr++
'symbolslistbox2.cell(1,incr)="ANFI":incr++
symbolslistbox2.cell(1,incr)="ANGI":incr++
symbolslistbox2.cell(1,incr)="ANGL":incr++
symbolslistbox2.cell(1,incr)="ANGO":incr++
'symbolslistbox2.cell(1,incr)="ANH":incr++
'symbolslistbox2.cell(1,incr)="ANH$A":incr++
'symbolslistbox2.cell(1,incr)="ANH$B":incr++
'symbolslistbox2.cell(1,incr)="ANH$C":incr++
symbolslistbox2.cell(1,incr)="ANIK":incr++
symbolslistbox2.cell(1,incr)="ANIP":incr++
symbolslistbox2.cell(1,incr)="ANIX":incr++
symbolslistbox2.cell(1,incr)="ANSS":incr++
symbolslistbox2.cell(1,incr)="ANTE":incr++
symbolslistbox2.cell(1,incr)="ANTM":incr++
symbolslistbox2.cell(1,incr)="ANY":incr++
symbolslistbox2.cell(1,incr)="AOA":incr++
'symbolslistbox2.cell(1,incr)="AOBC":incr++
symbolslistbox2.cell(1,incr)="AOD":incr++
'symbolslistbox2.cell(1,incr)="AOIL":incr++
symbolslistbox2.cell(1,incr)="AOK":incr++
symbolslistbox2.cell(1,incr)="AOM":incr++
symbolslistbox2.cell(1,incr)="AON":incr++
symbolslistbox2.cell(1,incr)="AOR":incr++
symbolslistbox2.cell(1,incr)="AOS":incr++
symbolslistbox2.cell(1,incr)="AOSL":incr++
symbolslistbox2.cell(1,incr)="AP":incr++
symbolslistbox2.cell(1,incr)="APA":incr++
symbolslistbox2.cell(1,incr)="APAM":incr++
symbolslistbox2.cell(1,incr)="APD":incr++
symbolslistbox2.cell(1,incr)="APDN":incr++
'symbolslistbox2.cell(1,incr)="APDNW":incr++
symbolslistbox2.cell(1,incr)="APEI":incr++
symbolslistbox2.cell(1,incr)="APEN":incr++
'symbolslistbox2.cell(1,incr)="APEX":incr++
symbolslistbox2.cell(1,incr)="APH":incr++
'symbolslistbox2.cell(1,incr)="APHA":incr++
symbolslistbox2.cell(1,incr)="APLE":incr++
symbolslistbox2.cell(1,incr)="APLS":incr++
symbolslistbox2.cell(1,incr)="APLT":incr++
symbolslistbox2.cell(1,incr)="APM":incr++
symbolslistbox2.cell(1,incr)="APO":incr++
'symbolslistbox2.cell(1,incr)="APO$A":incr++
'symbolslistbox2.cell(1,incr)="APO$B":incr++
symbolslistbox2.cell(1,incr)="APOG":incr++
'symbolslistbox2.cell(1,incr)="APOP":incr++
'symbolslistbox2.cell(1,incr)="APOPW":incr++
symbolslistbox2.cell(1,incr)="APPF":incr++
symbolslistbox2.cell(1,incr)="APPN":incr++
symbolslistbox2.cell(1,incr)="APPS":incr++
symbolslistbox2.cell(1,incr)="APRN":incr++
symbolslistbox2.cell(1,incr)="APT":incr++
symbolslistbox2.cell(1,incr)="APTO":incr++
symbolslistbox2.cell(1,incr)="APTS":incr++
symbolslistbox2.cell(1,incr)="APTV":incr++
symbolslistbox2.cell(1,incr)="APTX":incr++
symbolslistbox2.cell(1,incr)="APVO":incr++
symbolslistbox2.cell(1,incr)="APWC":incr++
'symbolslistbox2.cell(1,incr)="APXTU":incr++
'symbolslistbox2.cell(1,incr)="APY":incr++
symbolslistbox2.cell(1,incr)="APYX":incr++
symbolslistbox2.cell(1,incr)="AQB":incr++
symbolslistbox2.cell(1,incr)="AQMS":incr++
symbolslistbox2.cell(1,incr)="AQN":incr++
symbolslistbox2.cell(1,incr)="AQNA":incr++
symbolslistbox2.cell(1,incr)="AQNB":incr++
symbolslistbox2.cell(1,incr)="AQST":incr++
symbolslistbox2.cell(1,incr)="AQUA":incr++
symbolslistbox2.cell(1,incr)="AR":incr++
'symbolslistbox2.cell(1,incr)="ARA":incr++
symbolslistbox2.cell(1,incr)="ARAV":incr++
symbolslistbox2.cell(1,incr)="ARAY":incr++
symbolslistbox2.cell(1,incr)="ARC":incr++
symbolslistbox2.cell(1,incr)="ARCB":incr++
symbolslistbox2.cell(1,incr)="ARCC":incr++
symbolslistbox2.cell(1,incr)="ARCE":incr++
symbolslistbox2.cell(1,incr)="ARCH":incr++
'symbolslistbox2.cell(1,incr)="ARCM":incr++
symbolslistbox2.cell(1,incr)="ARCO":incr++
symbolslistbox2.cell(1,incr)="ARCT":incr++
'symbolslistbox2.cell(1,incr)="ARD":incr++
symbolslistbox2.cell(1,incr)="ARDC":incr++
symbolslistbox2.cell(1,incr)="ARDS":incr++
symbolslistbox2.cell(1,incr)="ARDX":incr++
symbolslistbox2.cell(1,incr)="ARE":incr++
'symbolslistbox2.cell(1,incr)="ARE$D":incr++
symbolslistbox2.cell(1,incr)="AREC":incr++
symbolslistbox2.cell(1,incr)="ARES":incr++
'symbolslistbox2.cell(1,incr)="ARES$A":incr++
'symbolslistbox2.cell(1,incr)="AREX":incr++
symbolslistbox2.cell(1,incr)="ARGD":incr++
symbolslistbox2.cell(1,incr)="ARGO":incr++
symbolslistbox2.cell(1,incr)="ARGT":incr++
symbolslistbox2.cell(1,incr)="ARGX":incr++
symbolslistbox2.cell(1,incr)="ARI":incr++
symbolslistbox2.cell(1,incr)="ARKF":incr++
symbolslistbox2.cell(1,incr)="ARKG":incr++
symbolslistbox2.cell(1,incr)="ARKK":incr++
symbolslistbox2.cell(1,incr)="ARKQ":incr++
symbolslistbox2.cell(1,incr)="ARKR":incr++
symbolslistbox2.cell(1,incr)="ARKW":incr++
symbolslistbox2.cell(1,incr)="ARL":incr++
symbolslistbox2.cell(1,incr)="ARLO":incr++
symbolslistbox2.cell(1,incr)="ARLP":incr++
symbolslistbox2.cell(1,incr)="ARMK":incr++
symbolslistbox2.cell(1,incr)="ARMP":incr++
'symbolslistbox2.cell(1,incr)="ARNA":incr++
symbolslistbox2.cell(1,incr)="ARNC":incr++
'symbolslistbox2.cell(1,incr)="ARNC$":incr++
symbolslistbox2.cell(1,incr)="AROC":incr++
symbolslistbox2.cell(1,incr)="AROW":incr++
'symbolslistbox2.cell(1,incr)="ARPO":incr++
'symbolslistbox2.cell(1,incr)="ARQL":incr++
symbolslistbox2.cell(1,incr)="ARR":incr++
'symbolslistbox2.cell(1,incr)="ARR$B":incr++
symbolslistbox2.cell(1,incr)="ARTL":incr++
symbolslistbox2.cell(1,incr)="ARTLW":incr++
symbolslistbox2.cell(1,incr)="ARTNA":incr++
symbolslistbox2.cell(1,incr)="ARTW":incr++
'symbolslistbox2.cell(1,incr)="ARTX":incr++
symbolslistbox2.cell(1,incr)="ARVN":incr++
symbolslistbox2.cell(1,incr)="ARW":incr++
symbolslistbox2.cell(1,incr)="ARWR":incr++
'symbolslistbox2.cell(1,incr)="ARYA":incr++
'symbolslistbox2.cell(1,incr)="ARYAU":incr++
'symbolslistbox2.cell(1,incr)="ARYAW":incr++
symbolslistbox2.cell(1,incr)="ASA":incr++
symbolslistbox2.cell(1,incr)="ASAN":incr++
symbolslistbox2.cell(1,incr)="ASB":incr++
'symbolslistbox2.cell(1,incr)="ASB$C":incr++
'symbolslistbox2.cell(1,incr)="ASB$D":incr++
'symbolslistbox2.cell(1,incr)="ASB$E":incr++
symbolslistbox2.cell(1,incr)="ASC":incr++
symbolslistbox2.cell(1,incr)="ASEA":incr++
symbolslistbox2.cell(1,incr)="ASET":incr++
'symbolslistbox2.cell(1,incr)="ASFI":incr++
symbolslistbox2.cell(1,incr)="ASG":incr++
symbolslistbox2.cell(1,incr)="ASGN":incr++
symbolslistbox2.cell(1,incr)="ASH":incr++
symbolslistbox2.cell(1,incr)="ASHR":incr++
symbolslistbox2.cell(1,incr)="ASHS":incr++
symbolslistbox2.cell(1,incr)="ASHX":incr++
symbolslistbox2.cell(1,incr)="ASIX":incr++
symbolslistbox2.cell(1,incr)="ASLN":incr++
symbolslistbox2.cell(1,incr)="ASM":incr++
symbolslistbox2.cell(1,incr)="ASMB":incr++
symbolslistbox2.cell(1,incr)="ASML":incr++
'symbolslistbox2.cell(1,incr)="ASNA":incr++
symbolslistbox2.cell(1,incr)="ASND":incr++
symbolslistbox2.cell(1,incr)="ASPN":incr++
symbolslistbox2.cell(1,incr)="ASPS":incr++
symbolslistbox2.cell(1,incr)="ASPU":incr++
symbolslistbox2.cell(1,incr)="ASR":incr++
symbolslistbox2.cell(1,incr)="ASRT":incr++
symbolslistbox2.cell(1,incr)="ASRV":incr++
'symbolslistbox2.cell(1,incr)="ASRVP":incr++
symbolslistbox2.cell(1,incr)="ASTC":incr++
symbolslistbox2.cell(1,incr)="ASTE":incr++
symbolslistbox2.cell(1,incr)="ASUR":incr++
symbolslistbox2.cell(1,incr)="ASX":incr++
symbolslistbox2.cell(1,incr)="ASYS":incr++
'symbolslistbox2.cell(1,incr)="AT":incr++
symbolslistbox2.cell(1,incr)="ATAI":incr++
symbolslistbox2.cell(1,incr)="ATAX":incr++
symbolslistbox2.cell(1,incr)="ATEC":incr++
symbolslistbox2.cell(1,incr)="ATEN":incr++
'symbolslistbox2.cell(1,incr)="ATEST":incr++
'symbolslistbox2.cell(1,incr)="ATEST.A":incr++
'symbolslistbox2.cell(1,incr)="ATEST.B":incr++
'symbolslistbox2.cell(1,incr)="ATEST.C":incr++
symbolslistbox2.cell(1,incr)="ATEX":incr++
symbolslistbox2.cell(1,incr)="ATGE":incr++
'symbolslistbox2.cell(1,incr)="ATH":incr++
'symbolslistbox2.cell(1,incr)="ATH$A":incr++
'symbolslistbox2.cell(1,incr)="ATH$B":incr++
symbolslistbox2.cell(1,incr)="ATHE":incr++
symbolslistbox2.cell(1,incr)="ATHM":incr++
symbolslistbox2.cell(1,incr)="ATHX":incr++
symbolslistbox2.cell(1,incr)="ATI":incr++
symbolslistbox2.cell(1,incr)="ATIF":incr++
'symbolslistbox2.cell(1,incr)="ATIS":incr++
'symbolslistbox2.cell(1,incr)="ATISW":incr++
symbolslistbox2.cell(1,incr)="ATKR":incr++
symbolslistbox2.cell(1,incr)="ATLC":incr++
symbolslistbox2.cell(1,incr)="ATLO":incr++
symbolslistbox2.cell(1,incr)="ATMP":incr++
symbolslistbox2.cell(1,incr)="ATNI":incr++
symbolslistbox2.cell(1,incr)="ATNM":incr++
symbolslistbox2.cell(1,incr)="ATNX":incr++
symbolslistbox2.cell(1,incr)="ATO":incr++
symbolslistbox2.cell(1,incr)="ATOM":incr++
symbolslistbox2.cell(1,incr)="ATOS":incr++
symbolslistbox2.cell(1,incr)="ATR":incr++
symbolslistbox2.cell(1,incr)="ATRA":incr++
symbolslistbox2.cell(1,incr)="ATRC":incr++
'symbolslistbox2.cell(1,incr)="ATRI":incr++
symbolslistbox2.cell(1,incr)="ATRO":incr++
symbolslistbox2.cell(1,incr)="ATRS":incr++
symbolslistbox2.cell(1,incr)="ATSG":incr++
symbolslistbox2.cell(1,incr)="ATTO":incr++
'symbolslistbox2.cell(1,incr)="ATU":incr++
symbolslistbox2.cell(1,incr)="ATUS":incr++
'symbolslistbox2.cell(1,incr)="ATV":incr++
symbolslistbox2.cell(1,incr)="ATVI":incr++
symbolslistbox2.cell(1,incr)="ATXI":incr++
symbolslistbox2.cell(1,incr)="AU":incr++
symbolslistbox2.cell(1,incr)="AUB":incr++
'symbolslistbox2.cell(1,incr)="AUBN":incr++
symbolslistbox2.cell(1,incr)="AUDC":incr++
'symbolslistbox2.cell(1,incr)="AUG":incr++
symbolslistbox2.cell(1,incr)="AUMN":incr++
'symbolslistbox2.cell(1,incr)="AUO":incr++
symbolslistbox2.cell(1,incr)="AUPH":incr++
symbolslistbox2.cell(1,incr)="AUSF":incr++
symbolslistbox2.cell(1,incr)="AUTL":incr++
symbolslistbox2.cell(1,incr)="AUTO":incr++
symbolslistbox2.cell(1,incr)="AUY":incr++
symbolslistbox2.cell(1,incr)="AVA":incr++
symbolslistbox2.cell(1,incr)="AVAL":incr++
symbolslistbox2.cell(1,incr)="AVAV":incr++
symbolslistbox2.cell(1,incr)="AVB":incr++
symbolslistbox2.cell(1,incr)="AVCO":incr++
symbolslistbox2.cell(1,incr)="AVD":incr++
symbolslistbox2.cell(1,incr)="AVDE":incr++
symbolslistbox2.cell(1,incr)="AVDL":incr++
'symbolslistbox2.cell(1,incr)="AVDR":incr++
symbolslistbox2.cell(1,incr)="AVDV":incr++
symbolslistbox2.cell(1,incr)="AVEM":incr++
symbolslistbox2.cell(1,incr)="AVEO":incr++
symbolslistbox2.cell(1,incr)="AVGO":incr++
symbolslistbox2.cell(1,incr)="AVGR":incr++
'symbolslistbox2.cell(1,incr)="AVH":incr++
symbolslistbox2.cell(1,incr)="AVID":incr++
symbolslistbox2.cell(1,incr)="AVK":incr++
symbolslistbox2.cell(1,incr)="AVLR":incr++
symbolslistbox2.cell(1,incr)="AVNS":incr++
symbolslistbox2.cell(1,incr)="AVNW":incr++
'symbolslistbox2.cell(1,incr)="AVP":incr++
symbolslistbox2.cell(1,incr)="AVRO":incr++
symbolslistbox2.cell(1,incr)="AVT":incr++
symbolslistbox2.cell(1,incr)="AVTR":incr++
'symbolslistbox2.cell(1,incr)="AVTR$A":incr++
symbolslistbox2.cell(1,incr)="AVUS":incr++
symbolslistbox2.cell(1,incr)="AVUV":incr++
'symbolslistbox2.cell(1,incr)="AVX":incr++
symbolslistbox2.cell(1,incr)="AVXL":incr++
symbolslistbox2.cell(1,incr)="AVY":incr++
symbolslistbox2.cell(1,incr)="AVYA":incr++
symbolslistbox2.cell(1,incr)="AWF":incr++
symbolslistbox2.cell(1,incr)="AWI":incr++
symbolslistbox2.cell(1,incr)="AWK":incr++
symbolslistbox2.cell(1,incr)="AWP":incr++
symbolslistbox2.cell(1,incr)="AWR":incr++
symbolslistbox2.cell(1,incr)="AWRE":incr++
'symbolslistbox2.cell(1,incr)="AWSM":incr++
'symbolslistbox2.cell(1,incr)="AWTM":incr++
symbolslistbox2.cell(1,incr)="AWX":incr++
symbolslistbox2.cell(1,incr)="AX":incr++
symbolslistbox2.cell(1,incr)="AXAS":incr++
symbolslistbox2.cell(1,incr)="AXDX":incr++
'symbolslistbox2.cell(1,incr)="AXE":incr++
symbolslistbox2.cell(1,incr)="AXGN":incr++
'symbolslistbox2.cell(1,incr)="AXGT":incr++
'symbolslistbox2.cell(1,incr)="AXJL":incr++
symbolslistbox2.cell(1,incr)="AXL":incr++
symbolslistbox2.cell(1,incr)="AXLA":incr++
symbolslistbox2.cell(1,incr)="AXNX":incr++
'symbolslistbox2.cell(1,incr)="AXO":incr++
symbolslistbox2.cell(1,incr)="AXP":incr++
symbolslistbox2.cell(1,incr)="AXR":incr++
symbolslistbox2.cell(1,incr)="AXS":incr++
'symbolslistbox2.cell(1,incr)="AXS$D":incr++
'symbolslistbox2.cell(1,incr)="AXS$E":incr++
symbolslistbox2.cell(1,incr)="AXSM":incr++
symbolslistbox2.cell(1,incr)="AXTA":incr++
symbolslistbox2.cell(1,incr)="AXTI":incr++
symbolslistbox2.cell(1,incr)="AXU":incr++
symbolslistbox2.cell(1,incr)="AY":incr++
symbolslistbox2.cell(1,incr)="AYI":incr++
'symbolslistbox2.cell(1,incr)="AYR":incr++
symbolslistbox2.cell(1,incr)="AYTU":incr++
symbolslistbox2.cell(1,incr)="AYX":incr++
symbolslistbox2.cell(1,incr)="AZN":incr++
symbolslistbox2.cell(1,incr)="AZO":incr++
symbolslistbox2.cell(1,incr)="AZPN":incr++
symbolslistbox2.cell(1,incr)="AZRE":incr++
'symbolslistbox2.cell(1,incr)="AZRX":incr++
symbolslistbox2.cell(1,incr)="AZUL":incr++
symbolslistbox2.cell(1,incr)="AZZ":incr++
symbolslistbox2.cell(1,incr)="B":incr++
symbolslistbox2.cell(1,incr)="BA":incr++
symbolslistbox2.cell(1,incr)="BAB":incr++
symbolslistbox2.cell(1,incr)="BABA":incr++
symbolslistbox2.cell(1,incr)="BAC":incr++
'symbolslistbox2.cell(1,incr)="BAC$A":incr++
'symbolslistbox2.cell(1,incr)="BAC$B":incr++
'symbolslistbox2.cell(1,incr)="BAC$C":incr++
'symbolslistbox2.cell(1,incr)="BAC$E":incr++
'symbolslistbox2.cell(1,incr)="BAC$K":incr++
'symbolslistbox2.cell(1,incr)="BAC$L":incr++
'symbolslistbox2.cell(1,incr)="BAC$M":incr++
'symbolslistbox2.cell(1,incr)="BAC$N":incr++
'symbolslistbox2.cell(1,incr)="BAC$Y":incr++
'symbolslistbox2.cell(1,incr)="BAF":incr++
symbolslistbox2.cell(1,incr)="BAH":incr++
symbolslistbox2.cell(1,incr)="BAL":incr++
symbolslistbox2.cell(1,incr)="BAM":incr++
symbolslistbox2.cell(1,incr)="BANC":incr++
'symbolslistbox2.cell(1,incr)="BANC$D":incr++
'symbolslistbox2.cell(1,incr)="BANC$E":incr++
symbolslistbox2.cell(1,incr)="BAND":incr++
symbolslistbox2.cell(1,incr)="BANF":incr++
'symbolslistbox2.cell(1,incr)="BANFP":incr++
symbolslistbox2.cell(1,incr)="BANR":incr++
symbolslistbox2.cell(1,incr)="BANX":incr++
symbolslistbox2.cell(1,incr)="BAP":incr++
symbolslistbox2.cell(1,incr)="BAPR":incr++
symbolslistbox2.cell(1,incr)="BAR":incr++
'symbolslistbox2.cell(1,incr)="BAS":incr++
'symbolslistbox2.cell(1,incr)="BASI":incr++
symbolslistbox2.cell(1,incr)="BATRA":incr++
symbolslistbox2.cell(1,incr)="BATRK":incr++
symbolslistbox2.cell(1,incr)="BATT":incr++
symbolslistbox2.cell(1,incr)="BAUG":incr++
symbolslistbox2.cell(1,incr)="BAX":incr++
symbolslistbox2.cell(1,incr)="BB":incr++
symbolslistbox2.cell(1,incr)="BBAR":incr++
symbolslistbox2.cell(1,incr)="BBAX":incr++
symbolslistbox2.cell(1,incr)="BBBY":incr++
symbolslistbox2.cell(1,incr)="BBC":incr++
symbolslistbox2.cell(1,incr)="BBCA":incr++
symbolslistbox2.cell(1,incr)="BBCP":incr++
symbolslistbox2.cell(1,incr)="BBD":incr++
symbolslistbox2.cell(1,incr)="BBDC":incr++
symbolslistbox2.cell(1,incr)="BBDO":incr++
symbolslistbox2.cell(1,incr)="BBEU":incr++
'symbolslistbox2.cell(1,incr)="BBF":incr++
symbolslistbox2.cell(1,incr)="BBGI":incr++
symbolslistbox2.cell(1,incr)="BBH":incr++
symbolslistbox2.cell(1,incr)="BBI":incr++
symbolslistbox2.cell(1,incr)="BBIO":incr++
symbolslistbox2.cell(1,incr)="BBJP":incr++
'symbolslistbox2.cell(1,incr)="BBK":incr++
'symbolslistbox2.cell(1,incr)="BBL":incr++
symbolslistbox2.cell(1,incr)="BBN":incr++
symbolslistbox2.cell(1,incr)="BBP":incr++
symbolslistbox2.cell(1,incr)="BBQ":incr++
symbolslistbox2.cell(1,incr)="BBRE":incr++
symbolslistbox2.cell(1,incr)="BBSA":incr++
symbolslistbox2.cell(1,incr)="BBSI":incr++
'symbolslistbox2.cell(1,incr)="BBT":incr++
'symbolslistbox2.cell(1,incr)="BBT$F":incr++
'symbolslistbox2.cell(1,incr)="BBT$G":incr++
'symbolslistbox2.cell(1,incr)="BBT$H":incr++
symbolslistbox2.cell(1,incr)="BBU":incr++
symbolslistbox2.cell(1,incr)="BBUS":incr++
symbolslistbox2.cell(1,incr)="BBVA":incr++
symbolslistbox2.cell(1,incr)="BBW":incr++
'symbolslistbox2.cell(1,incr)="BBX":incr++
symbolslistbox2.cell(1,incr)="BBY":incr++
symbolslistbox2.cell(1,incr)="BC":incr++
'symbolslistbox2.cell(1,incr)="BC$A":incr++
'symbolslistbox2.cell(1,incr)="BC$B":incr++
'symbolslistbox2.cell(1,incr)="BC$C":incr++
symbolslistbox2.cell(1,incr)="BCBP":incr++
symbolslistbox2.cell(1,incr)="BCC":incr++
symbolslistbox2.cell(1,incr)="BCD":incr++
symbolslistbox2.cell(1,incr)="BCDA":incr++
symbolslistbox2.cell(1,incr)="BCDAW":incr++
symbolslistbox2.cell(1,incr)="BCE":incr++
'symbolslistbox2.cell(1,incr)="BCEI":incr++
symbolslistbox2.cell(1,incr)="BCEL":incr++
symbolslistbox2.cell(1,incr)="BCH":incr++
symbolslistbox2.cell(1,incr)="BCI":incr++
symbolslistbox2.cell(1,incr)="BCLI":incr++
symbolslistbox2.cell(1,incr)="BCM":incr++
symbolslistbox2.cell(1,incr)="BCML":incr++
'symbolslistbox2.cell(1,incr)="BCNA":incr++
symbolslistbox2.cell(1,incr)="BCO":incr++
'symbolslistbox2.cell(1,incr)="BCOM":incr++
symbolslistbox2.cell(1,incr)="BCOR":incr++
symbolslistbox2.cell(1,incr)="BCOV":incr++
'symbolslistbox2.cell(1,incr)="BCOW":incr++
symbolslistbox2.cell(1,incr)="BCPC":incr++
'symbolslistbox2.cell(1,incr)="BCRH":incr++
symbolslistbox2.cell(1,incr)="BCRX":incr++
symbolslistbox2.cell(1,incr)="BCS":incr++
symbolslistbox2.cell(1,incr)="BCSF":incr++
symbolslistbox2.cell(1,incr)="BCTF":incr++
symbolslistbox2.cell(1,incr)="BCV":incr++
'symbolslistbox2.cell(1,incr)="BCV$A":incr++
symbolslistbox2.cell(1,incr)="BCX":incr++
symbolslistbox2.cell(1,incr)="BCYC":incr++
symbolslistbox2.cell(1,incr)="BDC":incr++
'symbolslistbox2.cell(1,incr)="BDCL":incr++
'symbolslistbox2.cell(1,incr)="BDCS":incr++
symbolslistbox2.cell(1,incr)="BDCZ":incr++
'symbolslistbox2.cell(1,incr)="BDGE":incr++
symbolslistbox2.cell(1,incr)="BDJ":incr++
symbolslistbox2.cell(1,incr)="BDL":incr++
symbolslistbox2.cell(1,incr)="BDN":incr++
symbolslistbox2.cell(1,incr)="BDR":incr++
symbolslistbox2.cell(1,incr)="BDRY":incr++
'symbolslistbox2.cell(1,incr)="BDSI":incr++
symbolslistbox2.cell(1,incr)="BDX":incr++
'symbolslistbox2.cell(1,incr)="BDXA":incr++
symbolslistbox2.cell(1,incr)="BE":incr++
symbolslistbox2.cell(1,incr)="BEAT":incr++
symbolslistbox2.cell(1,incr)="BECN":incr++
symbolslistbox2.cell(1,incr)="BEDU":incr++
symbolslistbox2.cell(1,incr)="BELFA":incr++
symbolslistbox2.cell(1,incr)="BELFB":incr++
'symbolslistbox2.cell(1,incr)="BEMO":incr++
symbolslistbox2.cell(1,incr)="BEN":incr++
symbolslistbox2.cell(1,incr)="BEP":incr++
symbolslistbox2.cell(1,incr)="BERY":incr++
symbolslistbox2.cell(1,incr)="BEST":incr++
'symbolslistbox2.cell(1,incr)="BF.A":incr++
'symbolslistbox2.cell(1,incr)="BF.B":incr++
symbolslistbox2.cell(1,incr)="BFAM":incr++
symbolslistbox2.cell(1,incr)="BFC":incr++
symbolslistbox2.cell(1,incr)="BFIN":incr++
symbolslistbox2.cell(1,incr)="BFIT":incr++
symbolslistbox2.cell(1,incr)="BFK":incr++
'symbolslistbox2.cell(1,incr)="BFO":incr++
symbolslistbox2.cell(1,incr)="BFOR":incr++
'symbolslistbox2.cell(1,incr)="BFRA":incr++
symbolslistbox2.cell(1,incr)="BFS":incr++
'symbolslistbox2.cell(1,incr)="BFS$C":incr++
'symbolslistbox2.cell(1,incr)="BFS$D":incr++
'symbolslistbox2.cell(1,incr)="BFS$E":incr++
symbolslistbox2.cell(1,incr)="BFST":incr++
'symbolslistbox2.cell(1,incr)="BFY":incr++
symbolslistbox2.cell(1,incr)="BFZ":incr++
symbolslistbox2.cell(1,incr)="BG":incr++
symbolslistbox2.cell(1,incr)="BGB":incr++
symbolslistbox2.cell(1,incr)="BGCP":incr++
symbolslistbox2.cell(1,incr)="BGFV":incr++
'symbolslistbox2.cell(1,incr)="BGG":incr++
symbolslistbox2.cell(1,incr)="BGH":incr++
symbolslistbox2.cell(1,incr)="BGI":incr++
'symbolslistbox2.cell(1,incr)="BGIO":incr++
symbolslistbox2.cell(1,incr)="BGNE":incr++
symbolslistbox2.cell(1,incr)="BGR":incr++
symbolslistbox2.cell(1,incr)="BGRN":incr++
symbolslistbox2.cell(1,incr)="BGS":incr++
symbolslistbox2.cell(1,incr)="BGSF":incr++
symbolslistbox2.cell(1,incr)="BGT":incr++
symbolslistbox2.cell(1,incr)="BGX":incr++
symbolslistbox2.cell(1,incr)="BGY":incr++
symbolslistbox2.cell(1,incr)="BH":incr++
'symbolslistbox2.cell(1,incr)="BH.A":incr++
symbolslistbox2.cell(1,incr)="BHAT":incr++
symbolslistbox2.cell(1,incr)="BHB":incr++
symbolslistbox2.cell(1,incr)="BHC":incr++
symbolslistbox2.cell(1,incr)="BHE":incr++
symbolslistbox2.cell(1,incr)="BHF":incr++
symbolslistbox2.cell(1,incr)="BHFAL":incr++
symbolslistbox2.cell(1,incr)="BHFAP":incr++
'symbolslistbox2.cell(1,incr)="BHGE":incr++
symbolslistbox2.cell(1,incr)="BHK":incr++
symbolslistbox2.cell(1,incr)="BHLB":incr++
symbolslistbox2.cell(1,incr)="BHP":incr++
symbolslistbox2.cell(1,incr)="BHR":incr++
'symbolslistbox2.cell(1,incr)="BHR$B":incr++
'symbolslistbox2.cell(1,incr)="BHR$D":incr++
'symbolslistbox2.cell(1,incr)="BHTG":incr++
symbolslistbox2.cell(1,incr)="BHV":incr++
symbolslistbox2.cell(1,incr)="BHVN":incr++
symbolslistbox2.cell(1,incr)="BIB":incr++
symbolslistbox2.cell(1,incr)="BIBL":incr++
symbolslistbox2.cell(1,incr)="BICK":incr++
'symbolslistbox2.cell(1,incr)="BID":incr++
symbolslistbox2.cell(1,incr)="BIDU":incr++
'symbolslistbox2.cell(1,incr)="BIF":incr++
symbolslistbox2.cell(1,incr)="BIG":incr++
symbolslistbox2.cell(1,incr)="BIIB":incr++
symbolslistbox2.cell(1,incr)="BIL":incr++
symbolslistbox2.cell(1,incr)="BILI":incr++
symbolslistbox2.cell(1,incr)="BIMI":incr++
symbolslistbox2.cell(1,incr)="BIO":incr++
'symbolslistbox2.cell(1,incr)="BIO.B":incr++
symbolslistbox2.cell(1,incr)="BIOC":incr++
symbolslistbox2.cell(1,incr)="BIOL":incr++
symbolslistbox2.cell(1,incr)="BIOS":incr++
symbolslistbox2.cell(1,incr)="BIOX":incr++
'symbolslistbox2.cell(1,incr)="BIOX.W":incr++
symbolslistbox2.cell(1,incr)="BIP":incr++
symbolslistbox2.cell(1,incr)="BIS":incr++
symbolslistbox2.cell(1,incr)="BIT":incr++
'symbolslistbox2.cell(1,incr)="BITA":incr++
symbolslistbox2.cell(1,incr)="BIV":incr++
symbolslistbox2.cell(1,incr)="BIZD":incr++
symbolslistbox2.cell(1,incr)="BJ":incr++
symbolslistbox2.cell(1,incr)="BJAN":incr++
symbolslistbox2.cell(1,incr)="BJK":incr++
symbolslistbox2.cell(1,incr)="BJRI":incr++
symbolslistbox2.cell(1,incr)="BJUL":incr++
symbolslistbox2.cell(1,incr)="BJUN":incr++
symbolslistbox2.cell(1,incr)="BK":incr++
'symbolslistbox2.cell(1,incr)="BK$C":incr++
symbolslistbox2.cell(1,incr)="BKCC":incr++
symbolslistbox2.cell(1,incr)="BKCH":incr++
symbolslistbox2.cell(1,incr)="BKD":incr++
symbolslistbox2.cell(1,incr)="BKE":incr++
symbolslistbox2.cell(1,incr)="BKEP":incr++
symbolslistbox2.cell(1,incr)="BKEPP":incr++
symbolslistbox2.cell(1,incr)="BKF":incr++
symbolslistbox2.cell(1,incr)="BKH":incr++
symbolslistbox2.cell(1,incr)="BKI":incr++
'symbolslistbox2.cell(1,incr)="BKJ":incr++
'symbolslistbox2.cell(1,incr)="BKK":incr++
symbolslistbox2.cell(1,incr)="BKLN":incr++
symbolslistbox2.cell(1,incr)="BKN":incr++
symbolslistbox2.cell(1,incr)="BKNG":incr++
symbolslistbox2.cell(1,incr)="BKSC":incr++
symbolslistbox2.cell(1,incr)="BKT":incr++
symbolslistbox2.cell(1,incr)="BKTI":incr++
symbolslistbox2.cell(1,incr)="BKU":incr++
symbolslistbox2.cell(1,incr)="BKYI":incr++
symbolslistbox2.cell(1,incr)="BL":incr++
symbolslistbox2.cell(1,incr)="BLBD":incr++
symbolslistbox2.cell(1,incr)="BLCM":incr++
symbolslistbox2.cell(1,incr)="BLCN":incr++
symbolslistbox2.cell(1,incr)="BLD":incr++
symbolslistbox2.cell(1,incr)="BLDP":incr++
symbolslistbox2.cell(1,incr)="BLDR":incr++
symbolslistbox2.cell(1,incr)="BLE":incr++
symbolslistbox2.cell(1,incr)="BLES":incr++
symbolslistbox2.cell(1,incr)="BLFS":incr++
symbolslistbox2.cell(1,incr)="BLHY":incr++
symbolslistbox2.cell(1,incr)="BLIN":incr++
symbolslistbox2.cell(1,incr)="BLK":incr++
symbolslistbox2.cell(1,incr)="BLKB":incr++
symbolslistbox2.cell(1,incr)="BLL":incr++
symbolslistbox2.cell(1,incr)="BLMN":incr++
symbolslistbox2.cell(1,incr)="BLNK":incr++
'symbolslistbox2.cell(1,incr)="BLNKW":incr++
symbolslistbox2.cell(1,incr)="BLOK":incr++
symbolslistbox2.cell(1,incr)="BLPH":incr++
symbolslistbox2.cell(1,incr)="BLRX":incr++
symbolslistbox2.cell(1,incr)="BLU":incr++
symbolslistbox2.cell(1,incr)="BLUE":incr++
symbolslistbox2.cell(1,incr)="BLV":incr++
symbolslistbox2.cell(1,incr)="BLW":incr++
symbolslistbox2.cell(1,incr)="BLX":incr++
symbolslistbox2.cell(1,incr)="BMA":incr++
'symbolslistbox2.cell(1,incr)="BMCH":incr++
symbolslistbox2.cell(1,incr)="BME":incr++
symbolslistbox2.cell(1,incr)="BMI":incr++
'symbolslistbox2.cell(1,incr)="BML$G":incr++
'symbolslistbox2.cell(1,incr)="BML$H":incr++
'symbolslistbox2.cell(1,incr)="BML$J":incr++
'symbolslistbox2.cell(1,incr)="BML$L":incr++
'symbolslistbox2.cell(1,incr)="BMLP":incr++
symbolslistbox2.cell(1,incr)="BMO":incr++
symbolslistbox2.cell(1,incr)="BMRA":incr++
symbolslistbox2.cell(1,incr)="BMRC":incr++
symbolslistbox2.cell(1,incr)="BMRN":incr++
'symbolslistbox2.cell(1,incr)="BMTC":incr++
symbolslistbox2.cell(1,incr)="BMY":incr++
symbolslistbox2.cell(1,incr)="BND":incr++
symbolslistbox2.cell(1,incr)="BNDC":incr++
symbolslistbox2.cell(1,incr)="BNDW":incr++
symbolslistbox2.cell(1,incr)="BNDX":incr++
symbolslistbox2.cell(1,incr)="BNED":incr++
symbolslistbox2.cell(1,incr)="BNFT":incr++
symbolslistbox2.cell(1,incr)="BNGO":incr++
'symbolslistbox2.cell(1,incr)="BNGOW":incr++
symbolslistbox2.cell(1,incr)="BNKD":incr++
'symbolslistbox2.cell(1,incr)="BNKO":incr++
symbolslistbox2.cell(1,incr)="BNKU":incr++
'symbolslistbox2.cell(1,incr)="BNKZ":incr++
symbolslistbox2.cell(1,incr)="BNO":incr++
symbolslistbox2.cell(1,incr)="BNS":incr++
symbolslistbox2.cell(1,incr)="BNSO":incr++
symbolslistbox2.cell(1,incr)="BNTC":incr++
'symbolslistbox2.cell(1,incr)="BNTCW":incr++
symbolslistbox2.cell(1,incr)="BNY":incr++
'symbolslistbox2.cell(1,incr)="BOCH":incr++
symbolslistbox2.cell(1,incr)="BOCT":incr++
symbolslistbox2.cell(1,incr)="BOE":incr++
symbolslistbox2.cell(1,incr)="BOH":incr++
symbolslistbox2.cell(1,incr)="BOIL":incr++
symbolslistbox2.cell(1,incr)="BOKF":incr++
'symbolslistbox2.cell(1,incr)="BOKFL":incr++
'symbolslistbox2.cell(1,incr)="BOLD":incr++
'symbolslistbox2.cell(1,incr)="BOMN":incr++
symbolslistbox2.cell(1,incr)="BOND":incr++
symbolslistbox2.cell(1,incr)="BOOM":incr++
symbolslistbox2.cell(1,incr)="BOOT":incr++
symbolslistbox2.cell(1,incr)="BORR":incr++
symbolslistbox2.cell(1,incr)="BOSC":incr++
'symbolslistbox2.cell(1,incr)="BOSS":incr++
'symbolslistbox2.cell(1,incr)="BOTJ":incr++
symbolslistbox2.cell(1,incr)="BOTZ":incr++
symbolslistbox2.cell(1,incr)="BOUT":incr++
symbolslistbox2.cell(1,incr)="BOX":incr++
symbolslistbox2.cell(1,incr)="BOXL":incr++
symbolslistbox2.cell(1,incr)="BP":incr++
'symbolslistbox2.cell(1,incr)="BPFH":incr++
'symbolslistbox2.cell(1,incr)="BPL":incr++
symbolslistbox2.cell(1,incr)="BPMC":incr++
'symbolslistbox2.cell(1,incr)="BPMP":incr++
'symbolslistbox2.cell(1,incr)="BPMX":incr++
symbolslistbox2.cell(1,incr)="BPOP":incr++
symbolslistbox2.cell(1,incr)="BPOPM":incr++
'symbolslistbox2.cell(1,incr)="BPOPN":incr++
'symbolslistbox2.cell(1,incr)="BPR":incr++
'symbolslistbox2.cell(1,incr)="BPRAP":incr++
symbolslistbox2.cell(1,incr)="BPRN":incr++
symbolslistbox2.cell(1,incr)="BPT":incr++
symbolslistbox2.cell(1,incr)="BPTH":incr++
'symbolslistbox2.cell(1,incr)="BPY":incr++
symbolslistbox2.cell(1,incr)="BPYPO":incr++
symbolslistbox2.cell(1,incr)="BPYPP":incr++
'symbolslistbox2.cell(1,incr)="BQH":incr++
symbolslistbox2.cell(1,incr)="BR":incr++
symbolslistbox2.cell(1,incr)="BRC":incr++
'symbolslistbox2.cell(1,incr)="BREW":incr++
symbolslistbox2.cell(1,incr)="BRF":incr++
symbolslistbox2.cell(1,incr)="BRFS":incr++
symbolslistbox2.cell(1,incr)="BRG":incr++
'symbolslistbox2.cell(1,incr)="BRG$A":incr++
'symbolslistbox2.cell(1,incr)="BRG$C":incr++
'symbolslistbox2.cell(1,incr)="BRG$D":incr++
symbolslistbox2.cell(1,incr)="BRID":incr++
'symbolslistbox2.cell(1,incr)="BRK.A":incr++
'symbolslistbox2.cell(1,incr)="BRK.B":incr++
symbolslistbox2.cell(1,incr)="BRKL":incr++
symbolslistbox2.cell(1,incr)="BRKR":incr++
'symbolslistbox2.cell(1,incr)="BRKS":incr++
symbolslistbox2.cell(1,incr)="BRN":incr++
symbolslistbox2.cell(1,incr)="BRO":incr++
'symbolslistbox2.cell(1,incr)="BROG":incr++
'symbolslistbox2.cell(1,incr)="BROGR":incr++
'symbolslistbox2.cell(1,incr)="BROGU":incr++
'symbolslistbox2.cell(1,incr)="BROGW":incr++
'symbolslistbox2.cell(1,incr)="BRPA":incr++
'symbolslistbox2.cell(1,incr)="BRPAR":incr++
'symbolslistbox2.cell(1,incr)="BRPAU":incr++
'symbolslistbox2.cell(1,incr)="BRPAW":incr++
symbolslistbox2.cell(1,incr)="BRPM":incr++
'symbolslistbox2.cell(1,incr)="BRPM.U":incr++
'symbolslistbox2.cell(1,incr)="BRPM.W":incr++
symbolslistbox2.cell(1,incr)="BRQS":incr++
symbolslistbox2.cell(1,incr)="BRT":incr++
symbolslistbox2.cell(1,incr)="BRX":incr++
symbolslistbox2.cell(1,incr)="BRY":incr++
symbolslistbox2.cell(1,incr)="BRZU":incr++
'symbolslistbox2.cell(1,incr)="BSA":incr++
symbolslistbox2.cell(1,incr)="BSAC":incr++
'symbolslistbox2.cell(1,incr)="BSAE":incr++
symbolslistbox2.cell(1,incr)="BSBE":incr++
symbolslistbox2.cell(1,incr)="BSBR":incr++
symbolslistbox2.cell(1,incr)="BSCE":incr++
'symbolslistbox2.cell(1,incr)="BSCJ":incr++
'symbolslistbox2.cell(1,incr)="BSCK":incr++
'symbolslistbox2.cell(1,incr)="BSCL":incr++
symbolslistbox2.cell(1,incr)="BSCM":incr++
symbolslistbox2.cell(1,incr)="BSCN":incr++
symbolslistbox2.cell(1,incr)="BSCO":incr++
symbolslistbox2.cell(1,incr)="BSCP":incr++
symbolslistbox2.cell(1,incr)="BSCQ":incr++
symbolslistbox2.cell(1,incr)="BSCR":incr++
symbolslistbox2.cell(1,incr)="BSCS":incr++
symbolslistbox2.cell(1,incr)="BSCT":incr++
'symbolslistbox2.cell(1,incr)="BSD":incr++
symbolslistbox2.cell(1,incr)="BSDE":incr++
'symbolslistbox2.cell(1,incr)="BSE":incr++
symbolslistbox2.cell(1,incr)="BSEP":incr++
symbolslistbox2.cell(1,incr)="BSET":incr++
symbolslistbox2.cell(1,incr)="BSGM":incr++
symbolslistbox2.cell(1,incr)="BSIG":incr++
'symbolslistbox2.cell(1,incr)="BSJJ":incr++
'symbolslistbox2.cell(1,incr)="BSJK":incr++
'symbolslistbox2.cell(1,incr)="BSJL":incr++
symbolslistbox2.cell(1,incr)="BSJM":incr++
symbolslistbox2.cell(1,incr)="BSJN":incr++
symbolslistbox2.cell(1,incr)="BSJO":incr++
symbolslistbox2.cell(1,incr)="BSJP":incr++
symbolslistbox2.cell(1,incr)="BSJQ":incr++
symbolslistbox2.cell(1,incr)="BSJR":incr++
symbolslistbox2.cell(1,incr)="BSL":incr++
symbolslistbox2.cell(1,incr)="BSM":incr++
'symbolslistbox2.cell(1,incr)="BSML":incr++
symbolslistbox2.cell(1,incr)="BSMM":incr++
symbolslistbox2.cell(1,incr)="BSMN":incr++
symbolslistbox2.cell(1,incr)="BSMO":incr++
symbolslistbox2.cell(1,incr)="BSMP":incr++
symbolslistbox2.cell(1,incr)="BSMQ":incr++
symbolslistbox2.cell(1,incr)="BSMR":incr++
symbolslistbox2.cell(1,incr)="BSMS":incr++
symbolslistbox2.cell(1,incr)="BSMT":incr++
symbolslistbox2.cell(1,incr)="BSMX":incr++
symbolslistbox2.cell(1,incr)="BSQR":incr++
symbolslistbox2.cell(1,incr)="BSRR":incr++
symbolslistbox2.cell(1,incr)="BST":incr++
'symbolslistbox2.cell(1,incr)="BSTC":incr++
symbolslistbox2.cell(1,incr)="BSTZ":incr++
symbolslistbox2.cell(1,incr)="BSV":incr++
symbolslistbox2.cell(1,incr)="BSVN":incr++
symbolslistbox2.cell(1,incr)="BSX":incr++
symbolslistbox2.cell(1,incr)="BTA":incr++
symbolslistbox2.cell(1,incr)="BTAI":incr++
symbolslistbox2.cell(1,incr)="BTAL":incr++
'symbolslistbox2.cell(1,incr)="BTE":incr++
symbolslistbox2.cell(1,incr)="BTEC":incr++
symbolslistbox2.cell(1,incr)="BTG":incr++
symbolslistbox2.cell(1,incr)="BTI":incr++
symbolslistbox2.cell(1,incr)="BTN":incr++
symbolslistbox2.cell(1,incr)="BTO":incr++
symbolslistbox2.cell(1,incr)="BTT":incr++
symbolslistbox2.cell(1,incr)="BTU":incr++
symbolslistbox2.cell(1,incr)="BTZ":incr++
symbolslistbox2.cell(1,incr)="BUD":incr++
symbolslistbox2.cell(1,incr)="BUI":incr++
symbolslistbox2.cell(1,incr)="BUL":incr++
'symbolslistbox2.cell(1,incr)="BURG":incr++
symbolslistbox2.cell(1,incr)="BURL":incr++
symbolslistbox2.cell(1,incr)="BUSE":incr++
'symbolslistbox2.cell(1,incr)="BUY":incr++
'symbolslistbox2.cell(1,incr)="BUYN":incr++
symbolslistbox2.cell(1,incr)="BV":incr++
'symbolslistbox2.cell(1,incr)="BVAL":incr++
symbolslistbox2.cell(1,incr)="BVN":incr++
'symbolslistbox2.cell(1,incr)="BVSN":incr++
symbolslistbox2.cell(1,incr)="BVXV":incr++
'symbolslistbox2.cell(1,incr)="BVXVW":incr++
symbolslistbox2.cell(1,incr)="BW":incr++
symbolslistbox2.cell(1,incr)="BWA":incr++
symbolslistbox2.cell(1,incr)="BWAY":incr++
symbolslistbox2.cell(1,incr)="BWB":incr++
symbolslistbox2.cell(1,incr)="BWEN":incr++
symbolslistbox2.cell(1,incr)="BWFG":incr++
symbolslistbox2.cell(1,incr)="BWG":incr++
'symbolslistbox2.cell(1,incr)="BWL.A":incr++
'symbolslistbox2.cell(1,incr)="BWMC":incr++
'symbolslistbox2.cell(1,incr)="BWMCU":incr++
'symbolslistbox2.cell(1,incr)="BWMCW":incr++
symbolslistbox2.cell(1,incr)="BWX":incr++
symbolslistbox2.cell(1,incr)="BWXT":incr++
symbolslistbox2.cell(1,incr)="BWZ":incr++
symbolslistbox2.cell(1,incr)="BX":incr++
symbolslistbox2.cell(1,incr)="BXC":incr++
'symbolslistbox2.cell(1,incr)="BXG":incr++
symbolslistbox2.cell(1,incr)="BXMT":incr++
symbolslistbox2.cell(1,incr)="BXMX":incr++
symbolslistbox2.cell(1,incr)="BXP":incr++
'symbolslistbox2.cell(1,incr)="BXP$B":incr++
'symbolslistbox2.cell(1,incr)="BXS":incr++
symbolslistbox2.cell(1,incr)="BY":incr++
symbolslistbox2.cell(1,incr)="BYD":incr++
symbolslistbox2.cell(1,incr)="BYFC":incr++
symbolslistbox2.cell(1,incr)="BYLD":incr++
symbolslistbox2.cell(1,incr)="BYM":incr++
symbolslistbox2.cell(1,incr)="BYND":incr++
symbolslistbox2.cell(1,incr)="BYSI":incr++
symbolslistbox2.cell(1,incr)="BZH":incr++
'symbolslistbox2.cell(1,incr)="BZM":incr++
symbolslistbox2.cell(1,incr)="BZQ":incr++
symbolslistbox2.cell(1,incr)="BZUN":incr++
symbolslistbox2.cell(1,incr)="C":incr++
'symbolslistbox2.cell(1,incr)="C$J":incr++
'symbolslistbox2.cell(1,incr)="C$K":incr++
'symbolslistbox2.cell(1,incr)="C$N":incr++
'symbolslistbox2.cell(1,incr)="C$S":incr++
symbolslistbox2.cell(1,incr)="CAAP":incr++
symbolslistbox2.cell(1,incr)="CAAS":incr++
'symbolslistbox2.cell(1,incr)="CABO":incr++
symbolslistbox2.cell(1,incr)="CAC":incr++
symbolslistbox2.cell(1,incr)="CACC":incr++
symbolslistbox2.cell(1,incr)="CACG":incr++
symbolslistbox2.cell(1,incr)="CACI":incr++
symbolslistbox2.cell(1,incr)="CADE":incr++
symbolslistbox2.cell(1,incr)="CAE":incr++
symbolslistbox2.cell(1,incr)="CAF":incr++
symbolslistbox2.cell(1,incr)="CAG":incr++
symbolslistbox2.cell(1,incr)="CAH":incr++
'symbolslistbox2.cell(1,incr)="CAI":incr++
'symbolslistbox2.cell(1,incr)="CAI$A":incr++
'symbolslistbox2.cell(1,incr)="CAI$B":incr++
symbolslistbox2.cell(1,incr)="CAJ":incr++
symbolslistbox2.cell(1,incr)="CAKE":incr++
symbolslistbox2.cell(1,incr)="CAL":incr++
symbolslistbox2.cell(1,incr)="CALA":incr++
symbolslistbox2.cell(1,incr)="CALF":incr++
symbolslistbox2.cell(1,incr)="CALM":incr++
symbolslistbox2.cell(1,incr)="CALX":incr++
symbolslistbox2.cell(1,incr)="CAMP":incr++
symbolslistbox2.cell(1,incr)="CAMT":incr++
symbolslistbox2.cell(1,incr)="CANE":incr++
symbolslistbox2.cell(1,incr)="CANF":incr++
symbolslistbox2.cell(1,incr)="CANG":incr++
symbolslistbox2.cell(1,incr)="CAPE":incr++
symbolslistbox2.cell(1,incr)="CAPL":incr++
symbolslistbox2.cell(1,incr)="CAPR":incr++
symbolslistbox2.cell(1,incr)="CAR":incr++
symbolslistbox2.cell(1,incr)="CARA":incr++
'symbolslistbox2.cell(1,incr)="CARB":incr++
symbolslistbox2.cell(1,incr)="CARE":incr++
symbolslistbox2.cell(1,incr)="CARG":incr++
'symbolslistbox2.cell(1,incr)="CARO":incr++
symbolslistbox2.cell(1,incr)="CARS":incr++
'symbolslistbox2.cell(1,incr)="CART":incr++
symbolslistbox2.cell(1,incr)="CARV":incr++
symbolslistbox2.cell(1,incr)="CARZ":incr++
symbolslistbox2.cell(1,incr)="CASA":incr++
symbolslistbox2.cell(1,incr)="CASH":incr++
symbolslistbox2.cell(1,incr)="CASI":incr++
symbolslistbox2.cell(1,incr)="CASS":incr++
symbolslistbox2.cell(1,incr)="CASY":incr++
symbolslistbox2.cell(1,incr)="CAT":incr++
'symbolslistbox2.cell(1,incr)="CATB":incr++
symbolslistbox2.cell(1,incr)="CATC":incr++
symbolslistbox2.cell(1,incr)="CATH":incr++
'symbolslistbox2.cell(1,incr)="CATM":incr++
symbolslistbox2.cell(1,incr)="CATO":incr++
'symbolslistbox2.cell(1,incr)="CATS":incr++
symbolslistbox2.cell(1,incr)="CATY":incr++
symbolslistbox2.cell(1,incr)="CB":incr++
symbolslistbox2.cell(1,incr)="CBAN":incr++
symbolslistbox2.cell(1,incr)="CBAT":incr++
symbolslistbox2.cell(1,incr)="CBAY":incr++
'symbolslistbox2.cell(1,incr)="CBB":incr++
'symbolslistbox2.cell(1,incr)="CBB$B":incr++
symbolslistbox2.cell(1,incr)="CBD":incr++
symbolslistbox2.cell(1,incr)="CBFV":incr++
symbolslistbox2.cell(1,incr)="CBH":incr++
symbolslistbox2.cell(1,incr)="CBIO":incr++
symbolslistbox2.cell(1,incr)="CBL":incr++
'symbolslistbox2.cell(1,incr)="CBL$D":incr++
'symbolslistbox2.cell(1,incr)="CBL$E":incr++
'symbolslistbox2.cell(1,incr)="CBLI":incr++
'symbolslistbox2.cell(1,incr)="CBLK":incr++
'symbolslistbox2.cell(1,incr)="CBM":incr++
'symbolslistbox2.cell(1,incr)="CBMB":incr++
'symbolslistbox2.cell(1,incr)="CBMG":incr++
symbolslistbox2.cell(1,incr)="CBNK":incr++
'symbolslistbox2.cell(1,incr)="CBO":incr++
symbolslistbox2.cell(1,incr)="CBOE":incr++
symbolslistbox2.cell(1,incr)="CBON":incr++
'symbolslistbox2.cell(1,incr)="CBPO":incr++
'symbolslistbox2.cell(1,incr)="CBPX":incr++
symbolslistbox2.cell(1,incr)="CBRE":incr++
symbolslistbox2.cell(1,incr)="CBRL":incr++
'symbolslistbox2.cell(1,incr)="CBS":incr++
'symbolslistbox2.cell(1,incr)="CBS.A":incr++
symbolslistbox2.cell(1,incr)="CBSH":incr++
'symbolslistbox2.cell(1,incr)="CBSHP":incr++
symbolslistbox2.cell(1,incr)="CBT":incr++
symbolslistbox2.cell(1,incr)="CBTX":incr++
symbolslistbox2.cell(1,incr)="CBU":incr++
'symbolslistbox2.cell(1,incr)="CBX":incr++
symbolslistbox2.cell(1,incr)="CBZ":incr++
symbolslistbox2.cell(1,incr)="CC":incr++
symbolslistbox2.cell(1,incr)="CCB":incr++
symbolslistbox2.cell(1,incr)="CCBG":incr++
'symbolslistbox2.cell(1,incr)="CCC":incr++
'symbolslistbox2.cell(1,incr)="CCC.W":incr++
'symbolslistbox2.cell(1,incr)="CCCL":incr++
symbolslistbox2.cell(1,incr)="CCD":incr++
symbolslistbox2.cell(1,incr)="CCEP":incr++
symbolslistbox2.cell(1,incr)="CCF":incr++
'symbolslistbox2.cell(1,incr)="CCH":incr++
'symbolslistbox2.cell(1,incr)="CCH.U":incr++
'symbolslistbox2.cell(1,incr)="CCH.W":incr++
symbolslistbox2.cell(1,incr)="CCI":incr++
'symbolslistbox2.cell(1,incr)="CCI$A":incr++
symbolslistbox2.cell(1,incr)="CCJ":incr++
symbolslistbox2.cell(1,incr)="CCK":incr++
symbolslistbox2.cell(1,incr)="CCL":incr++
symbolslistbox2.cell(1,incr)="CCLP":incr++
symbolslistbox2.cell(1,incr)="CCM":incr++
symbolslistbox2.cell(1,incr)="CCMP":incr++
symbolslistbox2.cell(1,incr)="CCNE":incr++
symbolslistbox2.cell(1,incr)="CCO":incr++
symbolslistbox2.cell(1,incr)="CCOI":incr++
symbolslistbox2.cell(1,incr)="CCOR":incr++
'symbolslistbox2.cell(1,incr)="CCR":incr++
'symbolslistbox2.cell(1,incr)="CCRC":incr++
symbolslistbox2.cell(1,incr)="CCRN":incr++
symbolslistbox2.cell(1,incr)="CCS":incr++
symbolslistbox2.cell(1,incr)="CCU":incr++
'symbolslistbox2.cell(1,incr)="CCX":incr++
'symbolslistbox2.cell(1,incr)="CCX.U":incr++
'symbolslistbox2.cell(1,incr)="CCX.W":incr++
symbolslistbox2.cell(1,incr)="CCXI":incr++
'symbolslistbox2.cell(1,incr)="CCZ":incr++
symbolslistbox2.cell(1,incr)="CDAY":incr++
symbolslistbox2.cell(1,incr)="CDC":incr++
symbolslistbox2.cell(1,incr)="CDE":incr++
symbolslistbox2.cell(1,incr)="CDEV":incr++
symbolslistbox2.cell(1,incr)="CDK":incr++
symbolslistbox2.cell(1,incr)="CDL":incr++
symbolslistbox2.cell(1,incr)="CDLX":incr++
symbolslistbox2.cell(1,incr)="CDMO":incr++
'symbolslistbox2.cell(1,incr)="CDMOP":incr++
symbolslistbox2.cell(1,incr)="CDNA":incr++
symbolslistbox2.cell(1,incr)="CDNS":incr++
'symbolslistbox2.cell(1,incr)="CDOR":incr++
symbolslistbox2.cell(1,incr)="CDR":incr++
'symbolslistbox2.cell(1,incr)="CDR$B":incr++
'symbolslistbox2.cell(1,incr)="CDR$C":incr++
symbolslistbox2.cell(1,incr)="CDTX":incr++
symbolslistbox2.cell(1,incr)="CDW":incr++
symbolslistbox2.cell(1,incr)="CDXC":incr++
symbolslistbox2.cell(1,incr)="CDXS":incr++
symbolslistbox2.cell(1,incr)="CDZI":incr++
symbolslistbox2.cell(1,incr)="CE":incr++
symbolslistbox2.cell(1,incr)="CEA":incr++
symbolslistbox2.cell(1,incr)="CECE":incr++
'symbolslistbox2.cell(1,incr)="CECO":incr++
symbolslistbox2.cell(1,incr)="CEE":incr++
symbolslistbox2.cell(1,incr)="CEF":incr++
'symbolslistbox2.cell(1,incr)="CEFL":incr++
symbolslistbox2.cell(1,incr)="CEFS":incr++
symbolslistbox2.cell(1,incr)="CEI":incr++
symbolslistbox2.cell(1,incr)="CEIX":incr++
'symbolslistbox2.cell(1,incr)="CEL":incr++
symbolslistbox2.cell(1,incr)="CELC":incr++
'symbolslistbox2.cell(1,incr)="CELG":incr++
'symbolslistbox2.cell(1,incr)="CELGZ":incr++
symbolslistbox2.cell(1,incr)="CELH":incr++
symbolslistbox2.cell(1,incr)="CELP":incr++
symbolslistbox2.cell(1,incr)="CEM":incr++
symbolslistbox2.cell(1,incr)="CEMB":incr++
symbolslistbox2.cell(1,incr)="CEMI":incr++
symbolslistbox2.cell(1,incr)="CEN":incr++
symbolslistbox2.cell(1,incr)="CENT":incr++
symbolslistbox2.cell(1,incr)="CENTA":incr++
symbolslistbox2.cell(1,incr)="CENX":incr++
'symbolslistbox2.cell(1,incr)="CEO":incr++
symbolslistbox2.cell(1,incr)="CEPU":incr++
symbolslistbox2.cell(1,incr)="CEQP":incr++
'symbolslistbox2.cell(1,incr)="CEQP$":incr++
'symbolslistbox2.cell(1,incr)="CERC":incr++
symbolslistbox2.cell(1,incr)="CERN":incr++
symbolslistbox2.cell(1,incr)="CERS":incr++
symbolslistbox2.cell(1,incr)="CET":incr++
'symbolslistbox2.cell(1,incr)="CETV":incr++
symbolslistbox2.cell(1,incr)="CETX":incr++
symbolslistbox2.cell(1,incr)="CETXP":incr++
'symbolslistbox2.cell(1,incr)="CETXW":incr++
symbolslistbox2.cell(1,incr)="CEV":incr++
symbolslistbox2.cell(1,incr)="CEVA":incr++
symbolslistbox2.cell(1,incr)="CEW":incr++
symbolslistbox2.cell(1,incr)="CEY":incr++
'symbolslistbox2.cell(1,incr)="CEZ":incr++
symbolslistbox2.cell(1,incr)="CF":incr++
symbolslistbox2.cell(1,incr)="CFA":incr++
symbolslistbox2.cell(1,incr)="CFB":incr++
'symbolslistbox2.cell(1,incr)="CFBI":incr++
'symbolslistbox2.cell(1,incr)="CFBK":incr++
'symbolslistbox2.cell(1,incr)="CFFA":incr++
'symbolslistbox2.cell(1,incr)="CFFAU":incr++
'symbolslistbox2.cell(1,incr)="CFFAW":incr++
symbolslistbox2.cell(1,incr)="CFFI":incr++
symbolslistbox2.cell(1,incr)="CFFN":incr++
symbolslistbox2.cell(1,incr)="CFG":incr++
'symbolslistbox2.cell(1,incr)="CFG$D":incr++
symbolslistbox2.cell(1,incr)="CFMS":incr++
symbolslistbox2.cell(1,incr)="CFO":incr++
symbolslistbox2.cell(1,incr)="CFR":incr++
'symbolslistbox2.cell(1,incr)="CFR$A":incr++
symbolslistbox2.cell(1,incr)="CFRX":incr++
'symbolslistbox2.cell(1,incr)="CFX":incr++
'symbolslistbox2.cell(1,incr)="CFXA":incr++
symbolslistbox2.cell(1,incr)="CG":incr++
symbolslistbox2.cell(1,incr)="CGA":incr++
symbolslistbox2.cell(1,incr)="CGBD":incr++
symbolslistbox2.cell(1,incr)="CGC":incr++
symbolslistbox2.cell(1,incr)="CGEN":incr++
'symbolslistbox2.cell(1,incr)="CGIX":incr++
symbolslistbox2.cell(1,incr)="CGNX":incr++
symbolslistbox2.cell(1,incr)="CGO":incr++
symbolslistbox2.cell(1,incr)="CGW":incr++
'symbolslistbox2.cell(1,incr)="CHA":incr++
'symbolslistbox2.cell(1,incr)="CHAC":incr++
'symbolslistbox2.cell(1,incr)="CHAC.U":incr++
'symbolslistbox2.cell(1,incr)="CHAC.W":incr++
symbolslistbox2.cell(1,incr)="CHAD":incr++
'symbolslistbox2.cell(1,incr)="CHAP":incr++
symbolslistbox2.cell(1,incr)="CHAU":incr++
symbolslistbox2.cell(1,incr)="CHCI":incr++
symbolslistbox2.cell(1,incr)="CHCO":incr++
symbolslistbox2.cell(1,incr)="CHCT":incr++
symbolslistbox2.cell(1,incr)="CHD":incr++
symbolslistbox2.cell(1,incr)="CHDN":incr++
symbolslistbox2.cell(1,incr)="CHE":incr++
symbolslistbox2.cell(1,incr)="CHEF":incr++
symbolslistbox2.cell(1,incr)="CHEK":incr++
'symbolslistbox2.cell(1,incr)="CHEKW":incr++
'symbolslistbox2.cell(1,incr)="CHEKZ":incr++
'symbolslistbox2.cell(1,incr)="CHEP":incr++
'symbolslistbox2.cell(1,incr)="CHFS":incr++
symbolslistbox2.cell(1,incr)="CHGG":incr++
symbolslistbox2.cell(1,incr)="CHGX":incr++
symbolslistbox2.cell(1,incr)="CHH":incr++
symbolslistbox2.cell(1,incr)="CHI":incr++
symbolslistbox2.cell(1,incr)="CHIC":incr++
symbolslistbox2.cell(1,incr)="CHIE":incr++
symbolslistbox2.cell(1,incr)="CHIH":incr++
symbolslistbox2.cell(1,incr)="CHII":incr++
symbolslistbox2.cell(1,incr)="CHIK":incr++
'symbolslistbox2.cell(1,incr)="CHIL":incr++
symbolslistbox2.cell(1,incr)="CHIM":incr++
symbolslistbox2.cell(1,incr)="CHIQ":incr++
symbolslistbox2.cell(1,incr)="CHIR":incr++
symbolslistbox2.cell(1,incr)="CHIS":incr++
symbolslistbox2.cell(1,incr)="CHIU":incr++
symbolslistbox2.cell(1,incr)="CHIX":incr++
symbolslistbox2.cell(1,incr)="CHK":incr++
'symbolslistbox2.cell(1,incr)="CHK$D":incr++
symbolslistbox2.cell(1,incr)="CHKP":incr++
symbolslistbox2.cell(1,incr)="CHKR":incr++
'symbolslistbox2.cell(1,incr)="CHL":incr++
'symbolslistbox2.cell(1,incr)="CHMA":incr++
symbolslistbox2.cell(1,incr)="CHMG":incr++
symbolslistbox2.cell(1,incr)="CHMI":incr++
'symbolslistbox2.cell(1,incr)="CHMI$A":incr++
'symbolslistbox2.cell(1,incr)="CHMI$B":incr++
symbolslistbox2.cell(1,incr)="CHN":incr++
symbolslistbox2.cell(1,incr)="CHNA":incr++
symbolslistbox2.cell(1,incr)="CHNG":incr++
symbolslistbox2.cell(1,incr)="CHNGU":incr++
symbolslistbox2.cell(1,incr)="CHNR":incr++
symbolslistbox2.cell(1,incr)="CHRA":incr++
symbolslistbox2.cell(1,incr)="CHRS":incr++
symbolslistbox2.cell(1,incr)="CHRW":incr++
symbolslistbox2.cell(1,incr)="CHS":incr++
symbolslistbox2.cell(1,incr)="CHSCL":incr++
symbolslistbox2.cell(1,incr)="CHSCM":incr++
symbolslistbox2.cell(1,incr)="CHSCN":incr++
symbolslistbox2.cell(1,incr)="CHSCO":incr++
symbolslistbox2.cell(1,incr)="CHSCP":incr++
symbolslistbox2.cell(1,incr)="CHT":incr++
symbolslistbox2.cell(1,incr)="CHTR":incr++
'symbolslistbox2.cell(1,incr)="CHU":incr++
symbolslistbox2.cell(1,incr)="CHUY":incr++
symbolslistbox2.cell(1,incr)="CHW":incr++
symbolslistbox2.cell(1,incr)="CHWY":incr++
symbolslistbox2.cell(1,incr)="CHY":incr++
symbolslistbox2.cell(1,incr)="CI":incr++
symbolslistbox2.cell(1,incr)="CIA":incr++
symbolslistbox2.cell(1,incr)="CIB":incr++
symbolslistbox2.cell(1,incr)="CIBR":incr++
symbolslistbox2.cell(1,incr)="CID":incr++
symbolslistbox2.cell(1,incr)="CIDM":incr++
symbolslistbox2.cell(1,incr)="CIEN":incr++
symbolslistbox2.cell(1,incr)="CIF":incr++
'symbolslistbox2.cell(1,incr)="CIFS":incr++
symbolslistbox2.cell(1,incr)="CIG":incr++
'symbolslistbox2.cell(1,incr)="CIG.C":incr++
symbolslistbox2.cell(1,incr)="CIGI":incr++
symbolslistbox2.cell(1,incr)="CIH":incr++
symbolslistbox2.cell(1,incr)="CII":incr++
symbolslistbox2.cell(1,incr)="CIK":incr++
symbolslistbox2.cell(1,incr)="CIL":incr++
symbolslistbox2.cell(1,incr)="CIM":incr++
'symbolslistbox2.cell(1,incr)="CIM$A":incr++
'symbolslistbox2.cell(1,incr)="CIM$B":incr++
'symbolslistbox2.cell(1,incr)="CIM$C":incr++
'symbolslistbox2.cell(1,incr)="CIM$D":incr++
symbolslistbox2.cell(1,incr)="CINF":incr++
'symbolslistbox2.cell(1,incr)="CINR":incr++
symbolslistbox2.cell(1,incr)="CIO":incr++
'symbolslistbox2.cell(1,incr)="CIO$A":incr++
symbolslistbox2.cell(1,incr)="CIR":incr++
'symbolslistbox2.cell(1,incr)="CISN":incr++
symbolslistbox2.cell(1,incr)="CIT":incr++
symbolslistbox2.cell(1,incr)="CIVB":incr++
'symbolslistbox2.cell(1,incr)="CIVBP":incr++
symbolslistbox2.cell(1,incr)="CIX":incr++
symbolslistbox2.cell(1,incr)="CIZ":incr++
symbolslistbox2.cell(1,incr)="CIZN":incr++
'symbolslistbox2.cell(1,incr)="CJ":incr++
symbolslistbox2.cell(1,incr)="CJJD":incr++
'symbolslistbox2.cell(1,incr)="CKH":incr++
symbolslistbox2.cell(1,incr)="CKPT":incr++
'symbolslistbox2.cell(1,incr)="CKX":incr++
symbolslistbox2.cell(1,incr)="CL":incr++
symbolslistbox2.cell(1,incr)="CLAR":incr++
symbolslistbox2.cell(1,incr)="CLB":incr++
symbolslistbox2.cell(1,incr)="CLBK":incr++
symbolslistbox2.cell(1,incr)="CLBS":incr++
'symbolslistbox2.cell(1,incr)="CLCT":incr++
'symbolslistbox2.cell(1,incr)="CLDB":incr++
'symbolslistbox2.cell(1,incr)="CLDR":incr++
symbolslistbox2.cell(1,incr)="CLDT":incr++
symbolslistbox2.cell(1,incr)="CLDX":incr++
symbolslistbox2.cell(1,incr)="CLF":incr++
symbolslistbox2.cell(1,incr)="CLFD":incr++
symbolslistbox2.cell(1,incr)="CLGN":incr++
'symbolslistbox2.cell(1,incr)="CLGX":incr++
symbolslistbox2.cell(1,incr)="CLH":incr++
'symbolslistbox2.cell(1,incr)="CLI":incr++
symbolslistbox2.cell(1,incr)="CLIR":incr++
symbolslistbox2.cell(1,incr)="CLIX":incr++
symbolslistbox2.cell(1,incr)="CLLS":incr++
symbolslistbox2.cell(1,incr)="CLM":incr++
symbolslistbox2.cell(1,incr)="CLMT":incr++
'symbolslistbox2.cell(1,incr)="CLNC":incr++
symbolslistbox2.cell(1,incr)="CLNE":incr++
'symbolslistbox2.cell(1,incr)="CLNY":incr++
'symbolslistbox2.cell(1,incr)="CLNY$B":incr++
'symbolslistbox2.cell(1,incr)="CLNY$E":incr++
'symbolslistbox2.cell(1,incr)="CLNY$G":incr++
'symbolslistbox2.cell(1,incr)="CLNY$H":incr++
'symbolslistbox2.cell(1,incr)="CLNY$I":incr++
'symbolslistbox2.cell(1,incr)="CLNY$J":incr++
symbolslistbox2.cell(1,incr)="CLOU":incr++
symbolslistbox2.cell(1,incr)="CLPR":incr++
symbolslistbox2.cell(1,incr)="CLPS":incr++
symbolslistbox2.cell(1,incr)="CLR":incr++
symbolslistbox2.cell(1,incr)="CLRB":incr++
'symbolslistbox2.cell(1,incr)="CLRBZ":incr++
symbolslistbox2.cell(1,incr)="CLRG":incr++
symbolslistbox2.cell(1,incr)="CLRO":incr++
symbolslistbox2.cell(1,incr)="CLS":incr++
symbolslistbox2.cell(1,incr)="CLSD":incr++
symbolslistbox2.cell(1,incr)="CLSN":incr++
symbolslistbox2.cell(1,incr)="CLTL":incr++
'symbolslistbox2.cell(1,incr)="CLUB":incr++
symbolslistbox2.cell(1,incr)="CLVS":incr++
symbolslistbox2.cell(1,incr)="CLW":incr++
symbolslistbox2.cell(1,incr)="CLWT":incr++
symbolslistbox2.cell(1,incr)="CLX":incr++
symbolslistbox2.cell(1,incr)="CLXT":incr++
symbolslistbox2.cell(1,incr)="CM":incr++
symbolslistbox2.cell(1,incr)="CMA":incr++
symbolslistbox2.cell(1,incr)="CMBM":incr++
symbolslistbox2.cell(1,incr)="CMBS":incr++
symbolslistbox2.cell(1,incr)="CMC":incr++
symbolslistbox2.cell(1,incr)="CMCL":incr++
symbolslistbox2.cell(1,incr)="CMCM":incr++
symbolslistbox2.cell(1,incr)="CMCO":incr++
symbolslistbox2.cell(1,incr)="CMCSA":incr++
symbolslistbox2.cell(1,incr)="CMCT":incr++
symbolslistbox2.cell(1,incr)="CMCTP":incr++
'symbolslistbox2.cell(1,incr)="CMD":incr++
symbolslistbox2.cell(1,incr)="CMDY":incr++
symbolslistbox2.cell(1,incr)="CME":incr++
symbolslistbox2.cell(1,incr)="CMF":incr++
'symbolslistbox2.cell(1,incr)="CMFNL":incr++
symbolslistbox2.cell(1,incr)="CMG":incr++
symbolslistbox2.cell(1,incr)="CMI":incr++
symbolslistbox2.cell(1,incr)="CMLS":incr++
'symbolslistbox2.cell(1,incr)="CMO":incr++
'symbolslistbox2.cell(1,incr)="CMO$E":incr++
symbolslistbox2.cell(1,incr)="CMP":incr++
symbolslistbox2.cell(1,incr)="CMPR":incr++
symbolslistbox2.cell(1,incr)="CMRE":incr++
'symbolslistbox2.cell(1,incr)="CMRE$B":incr++
'symbolslistbox2.cell(1,incr)="CMRE$C":incr++
'symbolslistbox2.cell(1,incr)="CMRE$D":incr++
'symbolslistbox2.cell(1,incr)="CMRE$E":incr++
symbolslistbox2.cell(1,incr)="CMRX":incr++
symbolslistbox2.cell(1,incr)="CMS":incr++
'symbolslistbox2.cell(1,incr)="CMS$B":incr++
symbolslistbox2.cell(1,incr)="CMSA":incr++
symbolslistbox2.cell(1,incr)="CMSC":incr++
symbolslistbox2.cell(1,incr)="CMSD":incr++
symbolslistbox2.cell(1,incr)="CMT":incr++
symbolslistbox2.cell(1,incr)="CMTL":incr++
symbolslistbox2.cell(1,incr)="CMU":incr++
symbolslistbox2.cell(1,incr)="CN":incr++
symbolslistbox2.cell(1,incr)="CNA":incr++
'symbolslistbox2.cell(1,incr)="CNAT":incr++
'symbolslistbox2.cell(1,incr)="CNBKA":incr++
symbolslistbox2.cell(1,incr)="CNBS":incr++
symbolslistbox2.cell(1,incr)="CNC":incr++
symbolslistbox2.cell(1,incr)="CNCE":incr++
symbolslistbox2.cell(1,incr)="CNCR":incr++
symbolslistbox2.cell(1,incr)="CNDT":incr++
symbolslistbox2.cell(1,incr)="CNET":incr++
symbolslistbox2.cell(1,incr)="CNF":incr++
symbolslistbox2.cell(1,incr)="CNFR":incr++
'symbolslistbox2.cell(1,incr)="CNFRL":incr++
symbolslistbox2.cell(1,incr)="CNHI":incr++
'symbolslistbox2.cell(1,incr)="CNHX":incr++
symbolslistbox2.cell(1,incr)="CNI":incr++
symbolslistbox2.cell(1,incr)="CNK":incr++
symbolslistbox2.cell(1,incr)="CNMD":incr++
symbolslistbox2.cell(1,incr)="CNNE":incr++
symbolslistbox2.cell(1,incr)="CNO":incr++
symbolslistbox2.cell(1,incr)="CNOB":incr++
symbolslistbox2.cell(1,incr)="CNP":incr++
'symbolslistbox2.cell(1,incr)="CNP$B":incr++
symbolslistbox2.cell(1,incr)="CNQ":incr++
symbolslistbox2.cell(1,incr)="CNR":incr++
symbolslistbox2.cell(1,incr)="CNRG":incr++
symbolslistbox2.cell(1,incr)="CNS":incr++
symbolslistbox2.cell(1,incr)="CNSL":incr++
'symbolslistbox2.cell(1,incr)="CNST":incr++
symbolslistbox2.cell(1,incr)="CNTY":incr++
symbolslistbox2.cell(1,incr)="CNX":incr++
'symbolslistbox2.cell(1,incr)="CNXM":incr++
symbolslistbox2.cell(1,incr)="CNXN":incr++
symbolslistbox2.cell(1,incr)="CNXT":incr++
'symbolslistbox2.cell(1,incr)="CNY":incr++
symbolslistbox2.cell(1,incr)="CNYA":incr++
symbolslistbox2.cell(1,incr)="CO":incr++
symbolslistbox2.cell(1,incr)="COCP":incr++
symbolslistbox2.cell(1,incr)="CODA":incr++
symbolslistbox2.cell(1,incr)="CODI":incr++
'symbolslistbox2.cell(1,incr)="CODI$A":incr++
'symbolslistbox2.cell(1,incr)="CODI$B":incr++
symbolslistbox2.cell(1,incr)="CODX":incr++
symbolslistbox2.cell(1,incr)="COE":incr++
symbolslistbox2.cell(1,incr)="COF":incr++
'symbolslistbox2.cell(1,incr)="COF$C":incr++
'symbolslistbox2.cell(1,incr)="COF$D":incr++
'symbolslistbox2.cell(1,incr)="COF$F":incr++
'symbolslistbox2.cell(1,incr)="COF$G":incr++
'symbolslistbox2.cell(1,incr)="COF$H":incr++
'symbolslistbox2.cell(1,incr)="COF$I":incr++
'symbolslistbox2.cell(1,incr)="COF$P":incr++
'symbolslistbox2.cell(1,incr)="COG":incr++
symbolslistbox2.cell(1,incr)="COHN":incr++
symbolslistbox2.cell(1,incr)="COHR":incr++
symbolslistbox2.cell(1,incr)="COHU":incr++
symbolslistbox2.cell(1,incr)="COKE":incr++
symbolslistbox2.cell(1,incr)="COLB":incr++
symbolslistbox2.cell(1,incr)="COLD":incr++
symbolslistbox2.cell(1,incr)="COLL":incr++
symbolslistbox2.cell(1,incr)="COLM":incr++
symbolslistbox2.cell(1,incr)="COM":incr++
symbolslistbox2.cell(1,incr)="COMB":incr++
'symbolslistbox2.cell(1,incr)="COMG":incr++
symbolslistbox2.cell(1,incr)="COMM":incr++
symbolslistbox2.cell(1,incr)="COMT":incr++
'symbolslistbox2.cell(1,incr)="CONE":incr++
symbolslistbox2.cell(1,incr)="CONN":incr++
symbolslistbox2.cell(1,incr)="COO":incr++
symbolslistbox2.cell(1,incr)="COOP":incr++
symbolslistbox2.cell(1,incr)="COP":incr++
symbolslistbox2.cell(1,incr)="COPX":incr++
'symbolslistbox2.cell(1,incr)="COR":incr++
'symbolslistbox2.cell(1,incr)="CORE":incr++
symbolslistbox2.cell(1,incr)="CORN":incr++
symbolslistbox2.cell(1,incr)="CORP":incr++
symbolslistbox2.cell(1,incr)="CORR":incr++
'symbolslistbox2.cell(1,incr)="CORR$A":incr++
symbolslistbox2.cell(1,incr)="CORT":incr++
'symbolslistbox2.cell(1,incr)="CORV":incr++
symbolslistbox2.cell(1,incr)="COST":incr++
'symbolslistbox2.cell(1,incr)="COT":incr++
symbolslistbox2.cell(1,incr)="COTY":incr++
symbolslistbox2.cell(1,incr)="COUP":incr++
symbolslistbox2.cell(1,incr)="COW":incr++
symbolslistbox2.cell(1,incr)="COWN":incr++
'symbolslistbox2.cell(1,incr)="COWNL":incr++
'symbolslistbox2.cell(1,incr)="COWNZ":incr++
symbolslistbox2.cell(1,incr)="COWZ":incr++
symbolslistbox2.cell(1,incr)="CP":incr++
symbolslistbox2.cell(1,incr)="CPA":incr++
symbolslistbox2.cell(1,incr)="CPAA":incr++
'symbolslistbox2.cell(1,incr)="CPAAU":incr++
'symbolslistbox2.cell(1,incr)="CPAAW":incr++
symbolslistbox2.cell(1,incr)="CPAC":incr++
'symbolslistbox2.cell(1,incr)="CPAH":incr++
symbolslistbox2.cell(1,incr)="CPB":incr++
symbolslistbox2.cell(1,incr)="CPE":incr++
symbolslistbox2.cell(1,incr)="CPER":incr++
symbolslistbox2.cell(1,incr)="CPF":incr++
symbolslistbox2.cell(1,incr)="CPG":incr++
symbolslistbox2.cell(1,incr)="CPHC":incr++
symbolslistbox2.cell(1,incr)="CPHI":incr++
symbolslistbox2.cell(1,incr)="CPI":incr++
symbolslistbox2.cell(1,incr)="CPIX":incr++
symbolslistbox2.cell(1,incr)="CPK":incr++
'symbolslistbox2.cell(1,incr)="CPL":incr++
'symbolslistbox2.cell(1,incr)="CPLG":incr++
symbolslistbox2.cell(1,incr)="CPLP":incr++
symbolslistbox2.cell(1,incr)="CPRI":incr++
symbolslistbox2.cell(1,incr)="CPRT":incr++
symbolslistbox2.cell(1,incr)="CPRX":incr++
symbolslistbox2.cell(1,incr)="CPS":incr++
symbolslistbox2.cell(1,incr)="CPSH":incr++
symbolslistbox2.cell(1,incr)="CPSI":incr++
symbolslistbox2.cell(1,incr)="CPSS":incr++
'symbolslistbox2.cell(1,incr)="CPST":incr++
symbolslistbox2.cell(1,incr)="CPT":incr++
'symbolslistbox2.cell(1,incr)="CPTA":incr++
'symbolslistbox2.cell(1,incr)="CPTAG":incr++
'symbolslistbox2.cell(1,incr)="CPTAL":incr++
symbolslistbox2.cell(1,incr)="CQP":incr++
symbolslistbox2.cell(1,incr)="CQQQ":incr++
symbolslistbox2.cell(1,incr)="CR":incr++
symbolslistbox2.cell(1,incr)="CRAI":incr++
symbolslistbox2.cell(1,incr)="CRAK":incr++
symbolslistbox2.cell(1,incr)="CRBN":incr++
symbolslistbox2.cell(1,incr)="CRBP":incr++
'symbolslistbox2.cell(1,incr)="CRC":incr++
'symbolslistbox2.cell(1,incr)="CRCM":incr++
'symbolslistbox2.cell(1,incr)="CRD.A":incr++
'symbolslistbox2.cell(1,incr)="CRD.B":incr++
'symbolslistbox2.cell(1,incr)="CREE":incr++
symbolslistbox2.cell(1,incr)="CREG":incr++
symbolslistbox2.cell(1,incr)="CRESY":incr++
symbolslistbox2.cell(1,incr)="CREX":incr++
'symbolslistbox2.cell(1,incr)="CREXW":incr++
symbolslistbox2.cell(1,incr)="CRF":incr++
symbolslistbox2.cell(1,incr)="CRH":incr++
'symbolslistbox2.cell(1,incr)="CRHM":incr++
symbolslistbox2.cell(1,incr)="CRI":incr++
symbolslistbox2.cell(1,incr)="CRIS":incr++
symbolslistbox2.cell(1,incr)="CRK":incr++
symbolslistbox2.cell(1,incr)="CRL":incr++
symbolslistbox2.cell(1,incr)="CRM":incr++
symbolslistbox2.cell(1,incr)="CRMD":incr++
symbolslistbox2.cell(1,incr)="CRMT":incr++
'symbolslistbox2.cell(1,incr)="CRNCV":incr++
symbolslistbox2.cell(1,incr)="CRNT":incr++
symbolslistbox2.cell(1,incr)="CRNX":incr++
symbolslistbox2.cell(1,incr)="CROC":incr++
symbolslistbox2.cell(1,incr)="CRON":incr++
'symbolslistbox2.cell(1,incr)="CROP":incr++
symbolslistbox2.cell(1,incr)="CROX":incr++
'symbolslistbox2.cell(1,incr)="CRR":incr++
symbolslistbox2.cell(1,incr)="CRS":incr++
'symbolslistbox2.cell(1,incr)="CRSA":incr++
'symbolslistbox2.cell(1,incr)="CRSAU":incr++
'symbolslistbox2.cell(1,incr)="CRSAW":incr++
symbolslistbox2.cell(1,incr)="CRSP":incr++
symbolslistbox2.cell(1,incr)="CRT":incr++
symbolslistbox2.cell(1,incr)="CRTO":incr++
symbolslistbox2.cell(1,incr)="CRTX":incr++
symbolslistbox2.cell(1,incr)="CRUS":incr++
symbolslistbox2.cell(1,incr)="CRVL":incr++
symbolslistbox2.cell(1,incr)="CRVS":incr++
symbolslistbox2.cell(1,incr)="CRWD":incr++
symbolslistbox2.cell(1,incr)="CRWS":incr++
'symbolslistbox2.cell(1,incr)="CRY":incr++
'symbolslistbox2.cell(1,incr)="CRZO":incr++
symbolslistbox2.cell(1,incr)="CS":incr++
symbolslistbox2.cell(1,incr)="CSA":incr++
symbolslistbox2.cell(1,incr)="CSB":incr++
symbolslistbox2.cell(1,incr)="CSBR":incr++
symbolslistbox2.cell(1,incr)="CSCO":incr++
symbolslistbox2.cell(1,incr)="CSD":incr++
symbolslistbox2.cell(1,incr)="CSF":incr++
'symbolslistbox2.cell(1,incr)="CSFL":incr++
symbolslistbox2.cell(1,incr)="CSGP":incr++
symbolslistbox2.cell(1,incr)="CSGS":incr++
symbolslistbox2.cell(1,incr)="CSII":incr++
symbolslistbox2.cell(1,incr)="CSIQ":incr++
symbolslistbox2.cell(1,incr)="CSL":incr++
'symbolslistbox2.cell(1,incr)="CSLT":incr++
symbolslistbox2.cell(1,incr)="CSM":incr++
symbolslistbox2.cell(1,incr)="CSML":incr++
'symbolslistbox2.cell(1,incr)="CSOD":incr++
symbolslistbox2.cell(1,incr)="CSPI":incr++
symbolslistbox2.cell(1,incr)="CSQ":incr++
'symbolslistbox2.cell(1,incr)="CSS":incr++
symbolslistbox2.cell(1,incr)="CSSE":incr++
symbolslistbox2.cell(1,incr)="CSSEP":incr++
symbolslistbox2.cell(1,incr)="CSTE":incr++
symbolslistbox2.cell(1,incr)="CSTL":incr++
symbolslistbox2.cell(1,incr)="CSTM":incr++
symbolslistbox2.cell(1,incr)="CSTR":incr++
'symbolslistbox2.cell(1,incr)="CSU":incr++
symbolslistbox2.cell(1,incr)="CSV":incr++
symbolslistbox2.cell(1,incr)="CSWC":incr++
'symbolslistbox2.cell(1,incr)="CSWCL":incr++
symbolslistbox2.cell(1,incr)="CSWI":incr++
symbolslistbox2.cell(1,incr)="CSX":incr++
'symbolslistbox2.cell(1,incr)="CTA$A":incr++
'symbolslistbox2.cell(1,incr)="CTA$B":incr++
'symbolslistbox2.cell(1,incr)="CTAA":incr++
'symbolslistbox2.cell(1,incr)="CTAC":incr++
'symbolslistbox2.cell(1,incr)="CTACU":incr++
'symbolslistbox2.cell(1,incr)="CTACW":incr++
symbolslistbox2.cell(1,incr)="CTAS":incr++
'symbolslistbox2.cell(1,incr)="CTB":incr++
symbolslistbox2.cell(1,incr)="CTBB":incr++
symbolslistbox2.cell(1,incr)="CTBI":incr++
symbolslistbox2.cell(1,incr)="CTDD":incr++
symbolslistbox2.cell(1,incr)="CTEK":incr++
'symbolslistbox2.cell(1,incr)="CTEST":incr++
'symbolslistbox2.cell(1,incr)="CTEST.E":incr++
'symbolslistbox2.cell(1,incr)="CTEST.G":incr++
'symbolslistbox2.cell(1,incr)="CTEST.L":incr++
'symbolslistbox2.cell(1,incr)="CTEST.O":incr++
'symbolslistbox2.cell(1,incr)="CTEST.S":incr++
'symbolslistbox2.cell(1,incr)="CTEST.V":incr++
symbolslistbox2.cell(1,incr)="CTG":incr++
symbolslistbox2.cell(1,incr)="CTHR":incr++
symbolslistbox2.cell(1,incr)="CTIB":incr++
symbolslistbox2.cell(1,incr)="CTIC":incr++
symbolslistbox2.cell(1,incr)="CTK":incr++
'symbolslistbox2.cell(1,incr)="CTL":incr++
symbolslistbox2.cell(1,incr)="CTLT":incr++
symbolslistbox2.cell(1,incr)="CTMX":incr++
symbolslistbox2.cell(1,incr)="CTO":incr++
symbolslistbox2.cell(1,incr)="CTR":incr++
symbolslistbox2.cell(1,incr)="CTRA":incr++
'symbolslistbox2.cell(1,incr)="CTRC":incr++
symbolslistbox2.cell(1,incr)="CTRE":incr++
symbolslistbox2.cell(1,incr)="CTRM":incr++
symbolslistbox2.cell(1,incr)="CTRN":incr++
'symbolslistbox2.cell(1,incr)="CTRP":incr++
symbolslistbox2.cell(1,incr)="CTS":incr++
symbolslistbox2.cell(1,incr)="CTSH":incr++
symbolslistbox2.cell(1,incr)="CTSO":incr++
'symbolslistbox2.cell(1,incr)="CTST":incr++
symbolslistbox2.cell(1,incr)="CTT":incr++
symbolslistbox2.cell(1,incr)="CTV":incr++
symbolslistbox2.cell(1,incr)="CTVA":incr++
'symbolslistbox2.cell(1,incr)="CTWS":incr++
symbolslistbox2.cell(1,incr)="CTXR":incr++
'symbolslistbox2.cell(1,incr)="CTXRW":incr++
symbolslistbox2.cell(1,incr)="CTXS":incr++
'symbolslistbox2.cell(1,incr)="CTY":incr++
'symbolslistbox2.cell(1,incr)="CTZ":incr++
'symbolslistbox2.cell(1,incr)="CUB":incr++
symbolslistbox2.cell(1,incr)="CUBA":incr++
symbolslistbox2.cell(1,incr)="CUBE":incr++
symbolslistbox2.cell(1,incr)="CUBI":incr++
'symbolslistbox2.cell(1,incr)="CUBI$C":incr++
'symbolslistbox2.cell(1,incr)="CUBI$D":incr++
'symbolslistbox2.cell(1,incr)="CUBI$E":incr++
'symbolslistbox2.cell(1,incr)="CUBI$F":incr++
symbolslistbox2.cell(1,incr)="CUE":incr++
'symbolslistbox2.cell(1,incr)="CUI":incr++
symbolslistbox2.cell(1,incr)="CUK":incr++
symbolslistbox2.cell(1,incr)="CULP":incr++
'symbolslistbox2.cell(1,incr)="CUO":incr++
'symbolslistbox2.cell(1,incr)="CUR":incr++
symbolslistbox2.cell(1,incr)="CURE":incr++
symbolslistbox2.cell(1,incr)="CURO":incr++
symbolslistbox2.cell(1,incr)="CUT":incr++
symbolslistbox2.cell(1,incr)="CUTR":incr++
symbolslistbox2.cell(1,incr)="CUZ":incr++
'symbolslistbox2.cell(1,incr)="CVA":incr++
symbolslistbox2.cell(1,incr)="CVBF":incr++
symbolslistbox2.cell(1,incr)="CVCO":incr++
symbolslistbox2.cell(1,incr)="CVCY":incr++
symbolslistbox2.cell(1,incr)="CVE":incr++
symbolslistbox2.cell(1,incr)="CVEO":incr++
symbolslistbox2.cell(1,incr)="CVET":incr++
symbolslistbox2.cell(1,incr)="CVGI":incr++
symbolslistbox2.cell(1,incr)="CVGW":incr++
symbolslistbox2.cell(1,incr)="CVI":incr++
'symbolslistbox2.cell(1,incr)="CVIA":incr++
symbolslistbox2.cell(1,incr)="CVLT":incr++
symbolslistbox2.cell(1,incr)="CVLY":incr++
symbolslistbox2.cell(1,incr)="CVM":incr++
symbolslistbox2.cell(1,incr)="CVNA":incr++
'symbolslistbox2.cell(1,incr)="CVR":incr++
'symbolslistbox2.cell(1,incr)="CVRS":incr++
symbolslistbox2.cell(1,incr)="CVS":incr++
'symbolslistbox2.cell(1,incr)="CVTI":incr++
symbolslistbox2.cell(1,incr)="CVU":incr++
symbolslistbox2.cell(1,incr)="CVV":incr++
symbolslistbox2.cell(1,incr)="CVX":incr++
symbolslistbox2.cell(1,incr)="CVY":incr++
symbolslistbox2.cell(1,incr)="CW":incr++
symbolslistbox2.cell(1,incr)="CWB":incr++
'symbolslistbox2.cell(1,incr)="CWBC":incr++
symbolslistbox2.cell(1,incr)="CWBR":incr++
symbolslistbox2.cell(1,incr)="CWCO":incr++
symbolslistbox2.cell(1,incr)="CWEB":incr++
symbolslistbox2.cell(1,incr)="CWEN":incr++
'symbolslistbox2.cell(1,incr)="CWEN.A":incr++
symbolslistbox2.cell(1,incr)="CWH":incr++
symbolslistbox2.cell(1,incr)="CWI":incr++
symbolslistbox2.cell(1,incr)="CWK":incr++
symbolslistbox2.cell(1,incr)="CWS":incr++
symbolslistbox2.cell(1,incr)="CWST":incr++
symbolslistbox2.cell(1,incr)="CWT":incr++
symbolslistbox2.cell(1,incr)="CX":incr++
symbolslistbox2.cell(1,incr)="CXDC":incr++
symbolslistbox2.cell(1,incr)="CXE":incr++
symbolslistbox2.cell(1,incr)="CXH":incr++
'symbolslistbox2.cell(1,incr)="CXO":incr++
'symbolslistbox2.cell(1,incr)="CXP":incr++
symbolslistbox2.cell(1,incr)="CXSE":incr++
symbolslistbox2.cell(1,incr)="CXW":incr++
'symbolslistbox2.cell(1,incr)="CY":incr++
symbolslistbox2.cell(1,incr)="CYAD":incr++
symbolslistbox2.cell(1,incr)="CYAN":incr++
symbolslistbox2.cell(1,incr)="CYB":incr++
symbolslistbox2.cell(1,incr)="CYBE":incr++
symbolslistbox2.cell(1,incr)="CYBR":incr++
symbolslistbox2.cell(1,incr)="CYCC":incr++
'symbolslistbox2.cell(1,incr)="CYCCP":incr++
symbolslistbox2.cell(1,incr)="CYCN":incr++
symbolslistbox2.cell(1,incr)="CYD":incr++
symbolslistbox2.cell(1,incr)="CYH":incr++
'symbolslistbox2.cell(1,incr)="CYOU":incr++
symbolslistbox2.cell(1,incr)="CYRN":incr++
symbolslistbox2.cell(1,incr)="CYRX":incr++
'symbolslistbox2.cell(1,incr)="CYRXW":incr++
symbolslistbox2.cell(1,incr)="CYTK":incr++
symbolslistbox2.cell(1,incr)="CZA":incr++
symbolslistbox2.cell(1,incr)="CZNC":incr++
symbolslistbox2.cell(1,incr)="CZR":incr++
symbolslistbox2.cell(1,incr)="CZWI":incr++
'symbolslistbox2.cell(1,incr)="CZZ":incr++
symbolslistbox2.cell(1,incr)="D":incr++
symbolslistbox2.cell(1,incr)="DAC":incr++
symbolslistbox2.cell(1,incr)="DAIO":incr++
symbolslistbox2.cell(1,incr)="DAKT":incr++
symbolslistbox2.cell(1,incr)="DAL":incr++
symbolslistbox2.cell(1,incr)="DALI":incr++
symbolslistbox2.cell(1,incr)="DALT":incr++
symbolslistbox2.cell(1,incr)="DAN":incr++
symbolslistbox2.cell(1,incr)="DAR":incr++
symbolslistbox2.cell(1,incr)="DARE":incr++
symbolslistbox2.cell(1,incr)="DASH":incr++
'symbolslistbox2.cell(1,incr)="DAUD":incr++
symbolslistbox2.cell(1,incr)="DAVA":incr++
symbolslistbox2.cell(1,incr)="DAX":incr++
symbolslistbox2.cell(1,incr)="DB":incr++
symbolslistbox2.cell(1,incr)="DBA":incr++
symbolslistbox2.cell(1,incr)="DBAW":incr++
symbolslistbox2.cell(1,incr)="DBB":incr++
symbolslistbox2.cell(1,incr)="DBC":incr++
symbolslistbox2.cell(1,incr)="DBD":incr++
symbolslistbox2.cell(1,incr)="DBE":incr++
symbolslistbox2.cell(1,incr)="DBEF":incr++
symbolslistbox2.cell(1,incr)="DBEM":incr++
symbolslistbox2.cell(1,incr)="DBEU":incr++
symbolslistbox2.cell(1,incr)="DBEZ":incr++
symbolslistbox2.cell(1,incr)="DBGR":incr++
symbolslistbox2.cell(1,incr)="DBI":incr++
symbolslistbox2.cell(1,incr)="DBJP":incr++
'symbolslistbox2.cell(1,incr)="DBKO":incr++
symbolslistbox2.cell(1,incr)="DBL":incr++
symbolslistbox2.cell(1,incr)="DBLV":incr++
symbolslistbox2.cell(1,incr)="DBMF":incr++
symbolslistbox2.cell(1,incr)="DBO":incr++
symbolslistbox2.cell(1,incr)="DBP":incr++
symbolslistbox2.cell(1,incr)="DBS":incr++
symbolslistbox2.cell(1,incr)="DBV":incr++
symbolslistbox2.cell(1,incr)="DBVT":incr++
symbolslistbox2.cell(1,incr)="DBX":incr++
'symbolslistbox2.cell(1,incr)="DCAR":incr++
symbolslistbox2.cell(1,incr)="DCF":incr++
'symbolslistbox2.cell(1,incr)="DCHF":incr++
symbolslistbox2.cell(1,incr)="DCI":incr++
'symbolslistbox2.cell(1,incr)="DCIX":incr++
symbolslistbox2.cell(1,incr)="DCO":incr++
symbolslistbox2.cell(1,incr)="DCOM":incr++
symbolslistbox2.cell(1,incr)="DCP":incr++
'symbolslistbox2.cell(1,incr)="DCP$B":incr++
'symbolslistbox2.cell(1,incr)="DCP$C":incr++
symbolslistbox2.cell(1,incr)="DCPH":incr++
symbolslistbox2.cell(1,incr)="DCUE":incr++
symbolslistbox2.cell(1,incr)="DD":incr++
symbolslistbox2.cell(1,incr)="DDD":incr++
symbolslistbox2.cell(1,incr)="DDF":incr++
symbolslistbox2.cell(1,incr)="DDG":incr++
symbolslistbox2.cell(1,incr)="DDIV":incr++
symbolslistbox2.cell(1,incr)="DDLS":incr++
symbolslistbox2.cell(1,incr)="DDM":incr++
'symbolslistbox2.cell(1,incr)="DDMX":incr++
'symbolslistbox2.cell(1,incr)="DDMXU":incr++
'symbolslistbox2.cell(1,incr)="DDMXW":incr++
symbolslistbox2.cell(1,incr)="DDOG":incr++
symbolslistbox2.cell(1,incr)="DDS":incr++
symbolslistbox2.cell(1,incr)="DDT":incr++
symbolslistbox2.cell(1,incr)="DDWM":incr++
symbolslistbox2.cell(1,incr)="DE":incr++
symbolslistbox2.cell(1,incr)="DEA":incr++
'symbolslistbox2.cell(1,incr)="DEAC":incr++
'symbolslistbox2.cell(1,incr)="DEACU":incr++
'symbolslistbox2.cell(1,incr)="DEACW":incr++
symbolslistbox2.cell(1,incr)="DECK":incr++
symbolslistbox2.cell(1,incr)="DEEF":incr++
symbolslistbox2.cell(1,incr)="DEF":incr++
'symbolslistbox2.cell(1,incr)="DEFA":incr++
symbolslistbox2.cell(1,incr)="DEI":incr++
symbolslistbox2.cell(1,incr)="DELL":incr++
symbolslistbox2.cell(1,incr)="DEM":incr++
'symbolslistbox2.cell(1,incr)="DEMG":incr++
symbolslistbox2.cell(1,incr)="DENN":incr++
symbolslistbox2.cell(1,incr)="DEO":incr++
symbolslistbox2.cell(1,incr)="DERM":incr++
symbolslistbox2.cell(1,incr)="DES":incr++
'symbolslistbox2.cell(1,incr)="DESC":incr++
symbolslistbox2.cell(1,incr)="DESP":incr++
'symbolslistbox2.cell(1,incr)="DEST":incr++
'symbolslistbox2.cell(1,incr)="DEUR":incr++
symbolslistbox2.cell(1,incr)="DEUS":incr++
symbolslistbox2.cell(1,incr)="DEW":incr++
symbolslistbox2.cell(1,incr)="DEX":incr++
'symbolslistbox2.cell(1,incr)="DF":incr++
'symbolslistbox2.cell(1,incr)="DFBH":incr++
'symbolslistbox2.cell(1,incr)="DFBHU":incr++
'symbolslistbox2.cell(1,incr)="DFBHW":incr++
symbolslistbox2.cell(1,incr)="DFE":incr++
symbolslistbox2.cell(1,incr)="DFEN":incr++
symbolslistbox2.cell(1,incr)="DFFN":incr++
symbolslistbox2.cell(1,incr)="DFIN":incr++
symbolslistbox2.cell(1,incr)="DFJ":incr++
symbolslistbox2.cell(1,incr)="DFND":incr++
symbolslistbox2.cell(1,incr)="DFNL":incr++
symbolslistbox2.cell(1,incr)="DFP":incr++
symbolslistbox2.cell(1,incr)="DFS":incr++
'symbolslistbox2.cell(1,incr)="DFVL":incr++
'symbolslistbox2.cell(1,incr)="DFVS":incr++
symbolslistbox2.cell(1,incr)="DG":incr++
'symbolslistbox2.cell(1,incr)="DGAZ":incr++
'symbolslistbox2.cell(1,incr)="DGBP":incr++
symbolslistbox2.cell(1,incr)="DGICA":incr++
'symbolslistbox2.cell(1,incr)="DGICB":incr++
symbolslistbox2.cell(1,incr)="DGII":incr++
symbolslistbox2.cell(1,incr)="DGL":incr++
'symbolslistbox2.cell(1,incr)="DGLD":incr++
symbolslistbox2.cell(1,incr)="DGLY":incr++
symbolslistbox2.cell(1,incr)="DGP":incr++
symbolslistbox2.cell(1,incr)="DGRE":incr++
symbolslistbox2.cell(1,incr)="DGRO":incr++
symbolslistbox2.cell(1,incr)="DGRS":incr++
symbolslistbox2.cell(1,incr)="DGRW":incr++
symbolslistbox2.cell(1,incr)="DGS":incr++
'symbolslistbox2.cell(1,incr)="DGSE":incr++
symbolslistbox2.cell(1,incr)="DGT":incr++
symbolslistbox2.cell(1,incr)="DGX":incr++
symbolslistbox2.cell(1,incr)="DGZ":incr++
'symbolslistbox2.cell(1,incr)="DHDG":incr++
symbolslistbox2.cell(1,incr)="DHF":incr++
symbolslistbox2.cell(1,incr)="DHI":incr++
symbolslistbox2.cell(1,incr)="DHIL":incr++
symbolslistbox2.cell(1,incr)="DHR":incr++
'symbolslistbox2.cell(1,incr)="DHR$A":incr++
symbolslistbox2.cell(1,incr)="DHS":incr++
symbolslistbox2.cell(1,incr)="DHT":incr++
symbolslistbox2.cell(1,incr)="DHX":incr++
'symbolslistbox2.cell(1,incr)="DHXM":incr++
symbolslistbox2.cell(1,incr)="DHY":incr++
symbolslistbox2.cell(1,incr)="DIA":incr++
symbolslistbox2.cell(1,incr)="DIAL":incr++
symbolslistbox2.cell(1,incr)="DIAX":incr++
symbolslistbox2.cell(1,incr)="DIG":incr++
symbolslistbox2.cell(1,incr)="DIM":incr++
symbolslistbox2.cell(1,incr)="DIN":incr++
symbolslistbox2.cell(1,incr)="DINT":incr++
symbolslistbox2.cell(1,incr)="DIOD":incr++
symbolslistbox2.cell(1,incr)="DIS":incr++
'symbolslistbox2.cell(1,incr)="DISCA":incr++
'symbolslistbox2.cell(1,incr)="DISCB":incr++
'symbolslistbox2.cell(1,incr)="DISCK":incr++
symbolslistbox2.cell(1,incr)="DISH":incr++
'symbolslistbox2.cell(1,incr)="DIT":incr++
symbolslistbox2.cell(1,incr)="DIV":incr++
symbolslistbox2.cell(1,incr)="DIVA":incr++
symbolslistbox2.cell(1,incr)="DIVB":incr++
'symbolslistbox2.cell(1,incr)="DIVC":incr++
symbolslistbox2.cell(1,incr)="DIVO":incr++
'symbolslistbox2.cell(1,incr)="DIVY":incr++
'symbolslistbox2.cell(1,incr)="DJCI":incr++
'symbolslistbox2.cell(1,incr)="DJCO":incr++
symbolslistbox2.cell(1,incr)="DJD":incr++
symbolslistbox2.cell(1,incr)="DJP":incr++
'symbolslistbox2.cell(1,incr)="DJPY":incr++
symbolslistbox2.cell(1,incr)="DK":incr++
symbolslistbox2.cell(1,incr)="DKL":incr++
symbolslistbox2.cell(1,incr)="DKS":incr++
'symbolslistbox2.cell(1,incr)="DKT":incr++
'symbolslistbox2.cell(1,incr)="DL":incr++
symbolslistbox2.cell(1,incr)="DLA":incr++
symbolslistbox2.cell(1,incr)="DLB":incr++
'symbolslistbox2.cell(1,incr)="DLBR":incr++
'symbolslistbox2.cell(1,incr)="DLBS":incr++
symbolslistbox2.cell(1,incr)="DLHC":incr++
symbolslistbox2.cell(1,incr)="DLN":incr++
symbolslistbox2.cell(1,incr)="DLNG":incr++
'symbolslistbox2.cell(1,incr)="DLNG$A":incr++
'symbolslistbox2.cell(1,incr)="DLNG$B":incr++
'symbolslistbox2.cell(1,incr)="DLPH":incr++
symbolslistbox2.cell(1,incr)="DLPN":incr++
'symbolslistbox2.cell(1,incr)="DLPNW":incr++
symbolslistbox2.cell(1,incr)="DLR":incr++
'symbolslistbox2.cell(1,incr)="DLR$C":incr++
'symbolslistbox2.cell(1,incr)="DLR$G":incr++
'symbolslistbox2.cell(1,incr)="DLR$I":incr++
'symbolslistbox2.cell(1,incr)="DLR$J":incr++
'symbolslistbox2.cell(1,incr)="DLR$K":incr++
symbolslistbox2.cell(1,incr)="DLS":incr++
symbolslistbox2.cell(1,incr)="DLTH":incr++
symbolslistbox2.cell(1,incr)="DLTR":incr++
symbolslistbox2.cell(1,incr)="DLX":incr++
symbolslistbox2.cell(1,incr)="DMAC":incr++
symbolslistbox2.cell(1,incr)="DMB":incr++
symbolslistbox2.cell(1,incr)="DMDV":incr++
symbolslistbox2.cell(1,incr)="DMF":incr++
symbolslistbox2.cell(1,incr)="DMLP":incr++
symbolslistbox2.cell(1,incr)="DMO":incr++
'symbolslistbox2.cell(1,incr)="DMPI":incr++
symbolslistbox2.cell(1,incr)="DMRC":incr++
'symbolslistbox2.cell(1,incr)="DMRE":incr++
'symbolslistbox2.cell(1,incr)="DMRI":incr++
'symbolslistbox2.cell(1,incr)="DMRL":incr++
'symbolslistbox2.cell(1,incr)="DMRM":incr++
'symbolslistbox2.cell(1,incr)="DMRS":incr++
symbolslistbox2.cell(1,incr)="DMTK":incr++
'symbolslistbox2.cell(1,incr)="DMTKW":incr++
'symbolslistbox2.cell(1,incr)="DNBF":incr++
'symbolslistbox2.cell(1,incr)="DNI":incr++
'symbolslistbox2.cell(1,incr)="DNJR":incr++
'symbolslistbox2.cell(1,incr)="DNKN":incr++
symbolslistbox2.cell(1,incr)="DNL":incr++
symbolslistbox2.cell(1,incr)="DNLI":incr++
symbolslistbox2.cell(1,incr)="DNN":incr++
symbolslistbox2.cell(1,incr)="DNOW":incr++
symbolslistbox2.cell(1,incr)="DNP":incr++
'symbolslistbox2.cell(1,incr)="DNR":incr++
'symbolslistbox2.cell(1,incr)="DO":incr++
symbolslistbox2.cell(1,incr)="DOC":incr++
symbolslistbox2.cell(1,incr)="DOCU":incr++
symbolslistbox2.cell(1,incr)="DOG":incr++
'symbolslistbox2.cell(1,incr)="DOGS":incr++
symbolslistbox2.cell(1,incr)="DOGZ":incr++
symbolslistbox2.cell(1,incr)="DOL":incr++
symbolslistbox2.cell(1,incr)="DOMO":incr++
symbolslistbox2.cell(1,incr)="DON":incr++
'symbolslistbox2.cell(1,incr)="DOO":incr++
symbolslistbox2.cell(1,incr)="DOOO":incr++
symbolslistbox2.cell(1,incr)="DOOR":incr++
symbolslistbox2.cell(1,incr)="DORM":incr++
symbolslistbox2.cell(1,incr)="DOV":incr++
'symbolslistbox2.cell(1,incr)="DOVA":incr++
symbolslistbox2.cell(1,incr)="DOW":incr++
symbolslistbox2.cell(1,incr)="DOX":incr++
symbolslistbox2.cell(1,incr)="DOYU":incr++
symbolslistbox2.cell(1,incr)="DPG":incr++
'symbolslistbox2.cell(1,incr)="DPHC":incr++
'symbolslistbox2.cell(1,incr)="DPHCU":incr++
'symbolslistbox2.cell(1,incr)="DPHCW":incr++
'symbolslistbox2.cell(1,incr)="DPK":incr++
'symbolslistbox2.cell(1,incr)="DPLO":incr++
symbolslistbox2.cell(1,incr)="DPST":incr++
'symbolslistbox2.cell(1,incr)="DPW":incr++
symbolslistbox2.cell(1,incr)="DPZ":incr++
symbolslistbox2.cell(1,incr)="DQ":incr++
'symbolslistbox2.cell(1,incr)="DQML":incr++
'symbolslistbox2.cell(1,incr)="DRAD":incr++
'symbolslistbox2.cell(1,incr)="DRADP":incr++
symbolslistbox2.cell(1,incr)="DRD":incr++
symbolslistbox2.cell(1,incr)="DRE":incr++
symbolslistbox2.cell(1,incr)="DRH":incr++
symbolslistbox2.cell(1,incr)="DRI":incr++
symbolslistbox2.cell(1,incr)="DRIO":incr++
'symbolslistbox2.cell(1,incr)="DRIOW":incr++
symbolslistbox2.cell(1,incr)="DRIP":incr++
symbolslistbox2.cell(1,incr)="DRIV":incr++
symbolslistbox2.cell(1,incr)="DRN":incr++
'symbolslistbox2.cell(1,incr)="DRNA":incr++
symbolslistbox2.cell(1,incr)="DRQ":incr++
'symbolslistbox2.cell(1,incr)="DRR":incr++
symbolslistbox2.cell(1,incr)="DRRX":incr++
symbolslistbox2.cell(1,incr)="DRSK":incr++
'symbolslistbox2.cell(1,incr)="DRUA":incr++
symbolslistbox2.cell(1,incr)="DRV":incr++
symbolslistbox2.cell(1,incr)="DRW":incr++
'symbolslistbox2.cell(1,incr)="DRYS":incr++
symbolslistbox2.cell(1,incr)="DS":incr++
'symbolslistbox2.cell(1,incr)="DS$B":incr++
'symbolslistbox2.cell(1,incr)="DS$C":incr++
'symbolslistbox2.cell(1,incr)="DS$D":incr++
'symbolslistbox2.cell(1,incr)="DSE":incr++
symbolslistbox2.cell(1,incr)="DSGX":incr++
symbolslistbox2.cell(1,incr)="DSI":incr++
symbolslistbox2.cell(1,incr)="DSKE":incr++
'symbolslistbox2.cell(1,incr)="DSKEW":incr++
symbolslistbox2.cell(1,incr)="DSL":incr++
'symbolslistbox2.cell(1,incr)="DSLV":incr++
symbolslistbox2.cell(1,incr)="DSM":incr++
'symbolslistbox2.cell(1,incr)="DSPG":incr++
symbolslistbox2.cell(1,incr)="DSS":incr++
'symbolslistbox2.cell(1,incr)="DSSI":incr++
symbolslistbox2.cell(1,incr)="DSTL":incr++
symbolslistbox2.cell(1,incr)="DSU":incr++
symbolslistbox2.cell(1,incr)="DSWL":incr++
symbolslistbox2.cell(1,incr)="DSX":incr++
'symbolslistbox2.cell(1,incr)="DSX$B":incr++
symbolslistbox2.cell(1,incr)="DT":incr++
symbolslistbox2.cell(1,incr)="DTD":incr++
symbolslistbox2.cell(1,incr)="DTE":incr++
symbolslistbox2.cell(1,incr)="DTEA":incr++
symbolslistbox2.cell(1,incr)="DTEC":incr++
symbolslistbox2.cell(1,incr)="DTF":incr++
symbolslistbox2.cell(1,incr)="DTH":incr++
symbolslistbox2.cell(1,incr)="DTIL":incr++
'symbolslistbox2.cell(1,incr)="DTJ":incr++
'symbolslistbox2.cell(1,incr)="DTLA$":incr++
'symbolslistbox2.cell(1,incr)="DTN":incr++
'symbolslistbox2.cell(1,incr)="DTO":incr++
'symbolslistbox2.cell(1,incr)="DTQ":incr++
symbolslistbox2.cell(1,incr)="DTSS":incr++
'symbolslistbox2.cell(1,incr)="DTUL":incr++
'symbolslistbox2.cell(1,incr)="DTUS":incr++
'symbolslistbox2.cell(1,incr)="DTV":incr++
symbolslistbox2.cell(1,incr)="DTW":incr++
'symbolslistbox2.cell(1,incr)="DTY":incr++
'symbolslistbox2.cell(1,incr)="DTYL":incr++
'symbolslistbox2.cell(1,incr)="DTYS":incr++
'symbolslistbox2.cell(1,incr)="DUC":incr++
symbolslistbox2.cell(1,incr)="DUG":incr++
symbolslistbox2.cell(1,incr)="DUK":incr++
'symbolslistbox2.cell(1,incr)="DUK$A":incr++
symbolslistbox2.cell(1,incr)="DUKB":incr++
symbolslistbox2.cell(1,incr)="DUKH":incr++
symbolslistbox2.cell(1,incr)="DURA":incr++
symbolslistbox2.cell(1,incr)="DUSA":incr++
symbolslistbox2.cell(1,incr)="DUSL":incr++
symbolslistbox2.cell(1,incr)="DUST":incr++
symbolslistbox2.cell(1,incr)="DVA":incr++
symbolslistbox2.cell(1,incr)="DVAX":incr++
'symbolslistbox2.cell(1,incr)="DVD":incr++
'symbolslistbox2.cell(1,incr)="DVEM":incr++
'symbolslistbox2.cell(1,incr)="DVHL":incr++
symbolslistbox2.cell(1,incr)="DVLU":incr++
symbolslistbox2.cell(1,incr)="DVN":incr++
symbolslistbox2.cell(1,incr)="DVOL":incr++
'symbolslistbox2.cell(1,incr)="DVP":incr++
symbolslistbox2.cell(1,incr)="DVY":incr++
symbolslistbox2.cell(1,incr)="DVYA":incr++
symbolslistbox2.cell(1,incr)="DVYE":incr++
'symbolslistbox2.cell(1,incr)="DVYL":incr++
'symbolslistbox2.cell(1,incr)="DWAQ":incr++
symbolslistbox2.cell(1,incr)="DWAS":incr++
symbolslistbox2.cell(1,incr)="DWAT":incr++
'symbolslistbox2.cell(1,incr)="DWCR":incr++
'symbolslistbox2.cell(1,incr)="DWFI":incr++
symbolslistbox2.cell(1,incr)="DWIN":incr++
symbolslistbox2.cell(1,incr)="DWLD":incr++
symbolslistbox2.cell(1,incr)="DWM":incr++
symbolslistbox2.cell(1,incr)="DWMC":incr++
symbolslistbox2.cell(1,incr)="DWMF":incr++
symbolslistbox2.cell(1,incr)="DWPP":incr++
symbolslistbox2.cell(1,incr)="DWSH":incr++
symbolslistbox2.cell(1,incr)="DWSN":incr++
'symbolslistbox2.cell(1,incr)="DWT":incr++
'symbolslistbox2.cell(1,incr)="DWTR":incr++
symbolslistbox2.cell(1,incr)="DWX":incr++
symbolslistbox2.cell(1,incr)="DX":incr++
'symbolslistbox2.cell(1,incr)="DX$A":incr++
'symbolslistbox2.cell(1,incr)="DX$B":incr++
'symbolslistbox2.cell(1,incr)="DXB":incr++
symbolslistbox2.cell(1,incr)="DXC":incr++
symbolslistbox2.cell(1,incr)="DXCM":incr++
symbolslistbox2.cell(1,incr)="DXD":incr++
symbolslistbox2.cell(1,incr)="DXF":incr++
symbolslistbox2.cell(1,incr)="DXGE":incr++
symbolslistbox2.cell(1,incr)="DXJ":incr++
symbolslistbox2.cell(1,incr)="DXJS":incr++
symbolslistbox2.cell(1,incr)="DXLG":incr++
symbolslistbox2.cell(1,incr)="DXPE":incr++
symbolslistbox2.cell(1,incr)="DXR":incr++
symbolslistbox2.cell(1,incr)="DXYN":incr++
symbolslistbox2.cell(1,incr)="DY":incr++
symbolslistbox2.cell(1,incr)="DYAI":incr++
'symbolslistbox2.cell(1,incr)="DYB":incr++
'symbolslistbox2.cell(1,incr)="DYLS":incr++
symbolslistbox2.cell(1,incr)="DYNF":incr++
symbolslistbox2.cell(1,incr)="DYNT":incr++
'symbolslistbox2.cell(1,incr)="DZK":incr++
symbolslistbox2.cell(1,incr)="DZSI":incr++
symbolslistbox2.cell(1,incr)="DZZ":incr++
symbolslistbox2.cell(1,incr)="E":incr++
symbolslistbox2.cell(1,incr)="EA":incr++
'symbolslistbox2.cell(1,incr)="EAB":incr++
symbolslistbox2.cell(1,incr)="EAD":incr++
'symbolslistbox2.cell(1,incr)="EAE":incr++
symbolslistbox2.cell(1,incr)="EAF":incr++
symbolslistbox2.cell(1,incr)="EAGG":incr++
symbolslistbox2.cell(1,incr)="EAI":incr++
symbolslistbox2.cell(1,incr)="EARN":incr++
'symbolslistbox2.cell(1,incr)="EARS":incr++
symbolslistbox2.cell(1,incr)="EASG":incr++
'symbolslistbox2.cell(1,incr)="EASI":incr++
symbolslistbox2.cell(1,incr)="EAST":incr++
symbolslistbox2.cell(1,incr)="EAT":incr++
symbolslistbox2.cell(1,incr)="EB":incr++
symbolslistbox2.cell(1,incr)="EBAY":incr++
'symbolslistbox2.cell(1,incr)="EBAYL":incr++
symbolslistbox2.cell(1,incr)="EBF":incr++
symbolslistbox2.cell(1,incr)="EBIX":incr++
symbolslistbox2.cell(1,incr)="EBIZ":incr++
symbolslistbox2.cell(1,incr)="EBMT":incr++
symbolslistbox2.cell(1,incr)="EBND":incr++
symbolslistbox2.cell(1,incr)="EBR":incr++
'symbolslistbox2.cell(1,incr)="EBR.B":incr++
symbolslistbox2.cell(1,incr)="EBS":incr++
'symbolslistbox2.cell(1,incr)="EBSB":incr++
symbolslistbox2.cell(1,incr)="EBTC":incr++
symbolslistbox2.cell(1,incr)="EC":incr++
'symbolslistbox2.cell(1,incr)="ECA":incr++
symbolslistbox2.cell(1,incr)="ECC":incr++
'symbolslistbox2.cell(1,incr)="ECCA":incr++
'symbolslistbox2.cell(1,incr)="ECCB":incr++
symbolslistbox2.cell(1,incr)="ECCX":incr++
'symbolslistbox2.cell(1,incr)="ECCY":incr++
symbolslistbox2.cell(1,incr)="ECF":incr++
'symbolslistbox2.cell(1,incr)="ECF$A":incr++
symbolslistbox2.cell(1,incr)="ECH":incr++
'symbolslistbox2.cell(1,incr)="ECHO":incr++
symbolslistbox2.cell(1,incr)="ECL":incr++
symbolslistbox2.cell(1,incr)="ECLN":incr++
symbolslistbox2.cell(1,incr)="ECNS":incr++
symbolslistbox2.cell(1,incr)="ECOL":incr++
symbolslistbox2.cell(1,incr)="ECOM":incr++
symbolslistbox2.cell(1,incr)="ECON":incr++
symbolslistbox2.cell(1,incr)="ECOR":incr++
symbolslistbox2.cell(1,incr)="ECOW":incr++
symbolslistbox2.cell(1,incr)="ECPG":incr++
'symbolslistbox2.cell(1,incr)="ECT":incr++
symbolslistbox2.cell(1,incr)="ED":incr++
symbolslistbox2.cell(1,incr)="EDAP":incr++
symbolslistbox2.cell(1,incr)="EDC":incr++
symbolslistbox2.cell(1,incr)="EDD":incr++
symbolslistbox2.cell(1,incr)="EDEN":incr++
symbolslistbox2.cell(1,incr)="EDF":incr++
symbolslistbox2.cell(1,incr)="EDI":incr++
symbolslistbox2.cell(1,incr)="EDIT":incr++
symbolslistbox2.cell(1,incr)="EDIV":incr++
symbolslistbox2.cell(1,incr)="EDN":incr++
'symbolslistbox2.cell(1,incr)="EDNT":incr++
symbolslistbox2.cell(1,incr)="EDOG":incr++
symbolslistbox2.cell(1,incr)="EDOW":incr++
symbolslistbox2.cell(1,incr)="EDRY":incr++
symbolslistbox2.cell(1,incr)="EDSA":incr++
symbolslistbox2.cell(1,incr)="EDTX":incr++
symbolslistbox2.cell(1,incr)="EDTXU":incr++
'symbolslistbox2.cell(1,incr)="EDTXW":incr++
symbolslistbox2.cell(1,incr)="EDU":incr++
symbolslistbox2.cell(1,incr)="EDUC":incr++
symbolslistbox2.cell(1,incr)="EDV":incr++
symbolslistbox2.cell(1,incr)="EDZ":incr++
'symbolslistbox2.cell(1,incr)="EE":incr++
symbolslistbox2.cell(1,incr)="EEA":incr++
'symbolslistbox2.cell(1,incr)="EEB":incr++
symbolslistbox2.cell(1,incr)="EEFT":incr++
'symbolslistbox2.cell(1,incr)="EEH":incr++
'symbolslistbox2.cell(1,incr)="EEI":incr++
symbolslistbox2.cell(1,incr)="EELV":incr++
symbolslistbox2.cell(1,incr)="EEM":incr++
symbolslistbox2.cell(1,incr)="EEMA":incr++
symbolslistbox2.cell(1,incr)="EEMD":incr++
symbolslistbox2.cell(1,incr)="EEMO":incr++
symbolslistbox2.cell(1,incr)="EEMS":incr++
symbolslistbox2.cell(1,incr)="EEMV":incr++
symbolslistbox2.cell(1,incr)="EEMX":incr++
symbolslistbox2.cell(1,incr)="EES":incr++
symbolslistbox2.cell(1,incr)="EET":incr++
symbolslistbox2.cell(1,incr)="EEV":incr++
symbolslistbox2.cell(1,incr)="EEX":incr++
symbolslistbox2.cell(1,incr)="EFA":incr++
symbolslistbox2.cell(1,incr)="EFAD":incr++
symbolslistbox2.cell(1,incr)="EFAS":incr++
symbolslistbox2.cell(1,incr)="EFAV":incr++
symbolslistbox2.cell(1,incr)="EFAX":incr++
'symbolslistbox2.cell(1,incr)="EFBI":incr++
symbolslistbox2.cell(1,incr)="EFC":incr++
'symbolslistbox2.cell(1,incr)="EFF":incr++
symbolslistbox2.cell(1,incr)="EFG":incr++
symbolslistbox2.cell(1,incr)="EFL":incr++
symbolslistbox2.cell(1,incr)="EFNL":incr++
symbolslistbox2.cell(1,incr)="EFO":incr++
symbolslistbox2.cell(1,incr)="EFOI":incr++
symbolslistbox2.cell(1,incr)="EFR":incr++
symbolslistbox2.cell(1,incr)="EFSC":incr++
symbolslistbox2.cell(1,incr)="EFT":incr++
symbolslistbox2.cell(1,incr)="EFU":incr++
symbolslistbox2.cell(1,incr)="EFV":incr++
symbolslistbox2.cell(1,incr)="EFX":incr++
symbolslistbox2.cell(1,incr)="EFZ":incr++
symbolslistbox2.cell(1,incr)="EGAN":incr++
symbolslistbox2.cell(1,incr)="EGBN":incr++
symbolslistbox2.cell(1,incr)="EGF":incr++
symbolslistbox2.cell(1,incr)="EGHT":incr++
'symbolslistbox2.cell(1,incr)="EGI":incr++
'symbolslistbox2.cell(1,incr)="EGIF":incr++
symbolslistbox2.cell(1,incr)="EGLE":incr++
symbolslistbox2.cell(1,incr)="EGO":incr++
'symbolslistbox2.cell(1,incr)="EGOV":incr++
symbolslistbox2.cell(1,incr)="EGP":incr++
symbolslistbox2.cell(1,incr)="EGPT":incr++
symbolslistbox2.cell(1,incr)="EGRX":incr++
symbolslistbox2.cell(1,incr)="EGY":incr++
symbolslistbox2.cell(1,incr)="EHC":incr++
symbolslistbox2.cell(1,incr)="EHI":incr++
'symbolslistbox2.cell(1,incr)="EHT":incr++
symbolslistbox2.cell(1,incr)="EHTH":incr++
symbolslistbox2.cell(1,incr)="EIC":incr++
symbolslistbox2.cell(1,incr)="EIDO":incr++
'symbolslistbox2.cell(1,incr)="EIDX":incr++
symbolslistbox2.cell(1,incr)="EIG":incr++
'symbolslistbox2.cell(1,incr)="EIGI":incr++
symbolslistbox2.cell(1,incr)="EIGR":incr++
symbolslistbox2.cell(1,incr)="EIM":incr++
symbolslistbox2.cell(1,incr)="EIRL":incr++
symbolslistbox2.cell(1,incr)="EIS":incr++
symbolslistbox2.cell(1,incr)="EIX":incr++
symbolslistbox2.cell(1,incr)="EJUL":incr++
symbolslistbox2.cell(1,incr)="EKAR":incr++
symbolslistbox2.cell(1,incr)="EKSO":incr++
symbolslistbox2.cell(1,incr)="EL":incr++
symbolslistbox2.cell(1,incr)="ELAN":incr++
symbolslistbox2.cell(1,incr)="ELC":incr++
symbolslistbox2.cell(1,incr)="ELD":incr++
symbolslistbox2.cell(1,incr)="ELF":incr++
'symbolslistbox2.cell(1,incr)="ELGX":incr++
'symbolslistbox2.cell(1,incr)="ELJ":incr++
symbolslistbox2.cell(1,incr)="ELLO":incr++
symbolslistbox2.cell(1,incr)="ELMD":incr++
symbolslistbox2.cell(1,incr)="ELOX":incr++
symbolslistbox2.cell(1,incr)="ELP":incr++
symbolslistbox2.cell(1,incr)="ELS":incr++
symbolslistbox2.cell(1,incr)="ELSE":incr++
symbolslistbox2.cell(1,incr)="ELTK":incr++
'symbolslistbox2.cell(1,incr)="ELU":incr++
symbolslistbox2.cell(1,incr)="ELVT":incr++
symbolslistbox2.cell(1,incr)="ELY":incr++
'symbolslistbox2.cell(1,incr)="EMAG":incr++
symbolslistbox2.cell(1,incr)="EMAN":incr++
symbolslistbox2.cell(1,incr)="EMB":incr++
symbolslistbox2.cell(1,incr)="EMBH":incr++
symbolslistbox2.cell(1,incr)="EMCB":incr++
symbolslistbox2.cell(1,incr)="EMCF":incr++
'symbolslistbox2.cell(1,incr)="EMCG":incr++
symbolslistbox2.cell(1,incr)="EMD":incr++
symbolslistbox2.cell(1,incr)="EMDV":incr++
symbolslistbox2.cell(1,incr)="EME":incr++
'symbolslistbox2.cell(1,incr)="EMEM":incr++
symbolslistbox2.cell(1,incr)="EMF":incr++
symbolslistbox2.cell(1,incr)="EMFM":incr++
symbolslistbox2.cell(1,incr)="EMGF":incr++
symbolslistbox2.cell(1,incr)="EMHY":incr++
symbolslistbox2.cell(1,incr)="EMIF":incr++
'symbolslistbox2.cell(1,incr)="EMIH":incr++
symbolslistbox2.cell(1,incr)="EMKR":incr++
symbolslistbox2.cell(1,incr)="EML":incr++
symbolslistbox2.cell(1,incr)="EMLC":incr++
symbolslistbox2.cell(1,incr)="EMLP":incr++
symbolslistbox2.cell(1,incr)="EMMF":incr++
symbolslistbox2.cell(1,incr)="EMMS":incr++
symbolslistbox2.cell(1,incr)="EMN":incr++
symbolslistbox2.cell(1,incr)="EMO":incr++
symbolslistbox2.cell(1,incr)="EMP":incr++
symbolslistbox2.cell(1,incr)="EMQQ":incr++
symbolslistbox2.cell(1,incr)="EMR":incr++
symbolslistbox2.cell(1,incr)="EMSG":incr++
'symbolslistbox2.cell(1,incr)="EMSH":incr++
symbolslistbox2.cell(1,incr)="EMTL":incr++
symbolslistbox2.cell(1,incr)="EMTY":incr++
symbolslistbox2.cell(1,incr)="EMX":incr++
symbolslistbox2.cell(1,incr)="EMXC":incr++
symbolslistbox2.cell(1,incr)="ENB":incr++
symbolslistbox2.cell(1,incr)="ENBA":incr++
'symbolslistbox2.cell(1,incr)="ENBL":incr++
symbolslistbox2.cell(1,incr)="ENDP":incr++
'symbolslistbox2.cell(1,incr)="ENFC":incr++
symbolslistbox2.cell(1,incr)="ENFR":incr++
symbolslistbox2.cell(1,incr)="ENG":incr++
symbolslistbox2.cell(1,incr)="ENIA":incr++
symbolslistbox2.cell(1,incr)="ENIC":incr++
symbolslistbox2.cell(1,incr)="ENJ":incr++
symbolslistbox2.cell(1,incr)="ENLC":incr++
symbolslistbox2.cell(1,incr)="ENLV":incr++
symbolslistbox2.cell(1,incr)="ENO":incr++
symbolslistbox2.cell(1,incr)="ENOB":incr++
symbolslistbox2.cell(1,incr)="ENOR":incr++
symbolslistbox2.cell(1,incr)="ENPH":incr++
symbolslistbox2.cell(1,incr)="ENR":incr++
'symbolslistbox2.cell(1,incr)="ENR$A":incr++
symbolslistbox2.cell(1,incr)="ENS":incr++
symbolslistbox2.cell(1,incr)="ENSG":incr++
'symbolslistbox2.cell(1,incr)="ENSGV":incr++
symbolslistbox2.cell(1,incr)="ENSV":incr++
'symbolslistbox2.cell(1,incr)="ENT":incr++
symbolslistbox2.cell(1,incr)="ENTA":incr++
symbolslistbox2.cell(1,incr)="ENTG":incr++
symbolslistbox2.cell(1,incr)="ENTR":incr++
symbolslistbox2.cell(1,incr)="ENTX":incr++
'symbolslistbox2.cell(1,incr)="ENTXW":incr++
symbolslistbox2.cell(1,incr)="ENV":incr++
symbolslistbox2.cell(1,incr)="ENVA":incr++
symbolslistbox2.cell(1,incr)="ENX":incr++
symbolslistbox2.cell(1,incr)="ENZ":incr++
symbolslistbox2.cell(1,incr)="ENZL":incr++
symbolslistbox2.cell(1,incr)="EOD":incr++
symbolslistbox2.cell(1,incr)="EOG":incr++
symbolslistbox2.cell(1,incr)="EOI":incr++
symbolslistbox2.cell(1,incr)="EOLS":incr++
symbolslistbox2.cell(1,incr)="EOS":incr++
symbolslistbox2.cell(1,incr)="EOT":incr++
'symbolslistbox2.cell(1,incr)="EP$C":incr++
symbolslistbox2.cell(1,incr)="EPAM":incr++
symbolslistbox2.cell(1,incr)="EPAY":incr++
symbolslistbox2.cell(1,incr)="EPC":incr++
symbolslistbox2.cell(1,incr)="EPD":incr++
symbolslistbox2.cell(1,incr)="EPHE":incr++
symbolslistbox2.cell(1,incr)="EPI":incr++
symbolslistbox2.cell(1,incr)="EPIX":incr++
symbolslistbox2.cell(1,incr)="EPM":incr++
symbolslistbox2.cell(1,incr)="EPOL":incr++
symbolslistbox2.cell(1,incr)="EPP":incr++
symbolslistbox2.cell(1,incr)="EPR":incr++
'symbolslistbox2.cell(1,incr)="EPR$C":incr++
'symbolslistbox2.cell(1,incr)="EPR$E":incr++
'symbolslistbox2.cell(1,incr)="EPR$G":incr++
symbolslistbox2.cell(1,incr)="EPRF":incr++
symbolslistbox2.cell(1,incr)="EPRT":incr++
symbolslistbox2.cell(1,incr)="EPS":incr++
symbolslistbox2.cell(1,incr)="EPSN":incr++
symbolslistbox2.cell(1,incr)="EPU":incr++
symbolslistbox2.cell(1,incr)="EPV":incr++
symbolslistbox2.cell(1,incr)="EPZM":incr++
symbolslistbox2.cell(1,incr)="EQ":incr++
symbolslistbox2.cell(1,incr)="EQAL":incr++
symbolslistbox2.cell(1,incr)="EQBK":incr++
symbolslistbox2.cell(1,incr)="EQC":incr++
'symbolslistbox2.cell(1,incr)="EQC$D":incr++
symbolslistbox2.cell(1,incr)="EQH":incr++
symbolslistbox2.cell(1,incr)="EQIX":incr++
symbolslistbox2.cell(1,incr)="EQL":incr++
'symbolslistbox2.cell(1,incr)="EQM":incr++
symbolslistbox2.cell(1,incr)="EQNR":incr++
symbolslistbox2.cell(1,incr)="EQR":incr++
symbolslistbox2.cell(1,incr)="EQRR":incr++
symbolslistbox2.cell(1,incr)="EQS":incr++
symbolslistbox2.cell(1,incr)="EQT":incr++
symbolslistbox2.cell(1,incr)="EQWL":incr++
symbolslistbox2.cell(1,incr)="EQX":incr++
'symbolslistbox2.cell(1,incr)="ERA":incr++
symbolslistbox2.cell(1,incr)="ERC":incr++
symbolslistbox2.cell(1,incr)="ERF":incr++
symbolslistbox2.cell(1,incr)="ERH":incr++
'symbolslistbox2.cell(1,incr)="ERI":incr++
symbolslistbox2.cell(1,incr)="ERIC":incr++
symbolslistbox2.cell(1,incr)="ERIE":incr++
symbolslistbox2.cell(1,incr)="ERII":incr++
symbolslistbox2.cell(1,incr)="ERJ":incr++
symbolslistbox2.cell(1,incr)="ERM":incr++
'symbolslistbox2.cell(1,incr)="EROS":incr++
symbolslistbox2.cell(1,incr)="ERSX":incr++
'symbolslistbox2.cell(1,incr)="ERUS":incr++
symbolslistbox2.cell(1,incr)="ERX":incr++
symbolslistbox2.cell(1,incr)="ERY":incr++
symbolslistbox2.cell(1,incr)="ERYP":incr++
symbolslistbox2.cell(1,incr)="ES":incr++
symbolslistbox2.cell(1,incr)="ESBA":incr++
symbolslistbox2.cell(1,incr)="ESBK":incr++
symbolslistbox2.cell(1,incr)="ESCA":incr++
symbolslistbox2.cell(1,incr)="ESE":incr++
symbolslistbox2.cell(1,incr)="ESEA":incr++
symbolslistbox2.cell(1,incr)="ESG":incr++
symbolslistbox2.cell(1,incr)="ESGD":incr++
symbolslistbox2.cell(1,incr)="ESGE":incr++
'symbolslistbox2.cell(1,incr)="ESGF":incr++
symbolslistbox2.cell(1,incr)="ESGG":incr++
'symbolslistbox2.cell(1,incr)="ESGL":incr++
symbolslistbox2.cell(1,incr)="ESGN":incr++
symbolslistbox2.cell(1,incr)="ESGR":incr++
symbolslistbox2.cell(1,incr)="ESGRO":incr++
symbolslistbox2.cell(1,incr)="ESGRP":incr++
symbolslistbox2.cell(1,incr)="ESGS":incr++
symbolslistbox2.cell(1,incr)="ESGU":incr++
symbolslistbox2.cell(1,incr)="ESGV":incr++
'symbolslistbox2.cell(1,incr)="ESGW":incr++
symbolslistbox2.cell(1,incr)="ESI":incr++
symbolslistbox2.cell(1,incr)="ESLT":incr++
symbolslistbox2.cell(1,incr)="ESML":incr++
symbolslistbox2.cell(1,incr)="ESNT":incr++
symbolslistbox2.cell(1,incr)="ESP":incr++
symbolslistbox2.cell(1,incr)="ESPO":incr++
symbolslistbox2.cell(1,incr)="ESPR":incr++
symbolslistbox2.cell(1,incr)="ESQ":incr++
symbolslistbox2.cell(1,incr)="ESRT":incr++
symbolslistbox2.cell(1,incr)="ESS":incr++
symbolslistbox2.cell(1,incr)="ESSA":incr++
symbolslistbox2.cell(1,incr)="ESTA":incr++
symbolslistbox2.cell(1,incr)="ESTC":incr++
symbolslistbox2.cell(1,incr)="ESTE":incr++
'symbolslistbox2.cell(1,incr)="ESTR":incr++
'symbolslistbox2.cell(1,incr)="ESTRW":incr++
'symbolslistbox2.cell(1,incr)="ESXB":incr++
symbolslistbox2.cell(1,incr)="ET":incr++
symbolslistbox2.cell(1,incr)="ETB":incr++
'symbolslistbox2.cell(1,incr)="ETFC":incr++
symbolslistbox2.cell(1,incr)="ETG":incr++
'symbolslistbox2.cell(1,incr)="ETH":incr++
symbolslistbox2.cell(1,incr)="ETHO":incr++
'symbolslistbox2.cell(1,incr)="ETI$":incr++
symbolslistbox2.cell(1,incr)="ETJ":incr++
'symbolslistbox2.cell(1,incr)="ETM":incr++
symbolslistbox2.cell(1,incr)="ETN":incr++
symbolslistbox2.cell(1,incr)="ETO":incr++
symbolslistbox2.cell(1,incr)="ETON":incr++
'symbolslistbox2.cell(1,incr)="ETP$C":incr++
'symbolslistbox2.cell(1,incr)="ETP$D":incr++
'symbolslistbox2.cell(1,incr)="ETP$E":incr++
symbolslistbox2.cell(1,incr)="ETR":incr++
symbolslistbox2.cell(1,incr)="ETRN":incr++
symbolslistbox2.cell(1,incr)="ETSY":incr++
symbolslistbox2.cell(1,incr)="ETTX":incr++
symbolslistbox2.cell(1,incr)="ETV":incr++
symbolslistbox2.cell(1,incr)="ETW":incr++
symbolslistbox2.cell(1,incr)="ETX":incr++
symbolslistbox2.cell(1,incr)="ETY":incr++
symbolslistbox2.cell(1,incr)="EUDG":incr++
symbolslistbox2.cell(1,incr)="EUDV":incr++
'symbolslistbox2.cell(1,incr)="EUFL":incr++
symbolslistbox2.cell(1,incr)="EUFN":incr++
symbolslistbox2.cell(1,incr)="EUFX":incr++
symbolslistbox2.cell(1,incr)="EUM":incr++
'symbolslistbox2.cell(1,incr)="EUMF":incr++
'symbolslistbox2.cell(1,incr)="EUMV":incr++
symbolslistbox2.cell(1,incr)="EUO":incr++
symbolslistbox2.cell(1,incr)="EURL":incr++
symbolslistbox2.cell(1,incr)="EURN":incr++
'symbolslistbox2.cell(1,incr)="EURZ":incr++
symbolslistbox2.cell(1,incr)="EUSA":incr++
symbolslistbox2.cell(1,incr)="EUSC":incr++
'symbolslistbox2.cell(1,incr)="EUXL":incr++
'symbolslistbox2.cell(1,incr)="EV":incr++
symbolslistbox2.cell(1,incr)="EVA":incr++
symbolslistbox2.cell(1,incr)="EVBG":incr++
symbolslistbox2.cell(1,incr)="EVBN":incr++
symbolslistbox2.cell(1,incr)="EVC":incr++
symbolslistbox2.cell(1,incr)="EVER":incr++
symbolslistbox2.cell(1,incr)="EVF":incr++
symbolslistbox2.cell(1,incr)="EVFM":incr++
symbolslistbox2.cell(1,incr)="EVG":incr++
'symbolslistbox2.cell(1,incr)="EVGBC":incr++
symbolslistbox2.cell(1,incr)="EVGN":incr++
symbolslistbox2.cell(1,incr)="EVH":incr++
symbolslistbox2.cell(1,incr)="EVI":incr++
'symbolslistbox2.cell(1,incr)="EVIX":incr++
symbolslistbox2.cell(1,incr)="EVK":incr++
'symbolslistbox2.cell(1,incr)="EVLMC":incr++
symbolslistbox2.cell(1,incr)="EVLO":incr++
symbolslistbox2.cell(1,incr)="EVM":incr++
symbolslistbox2.cell(1,incr)="EVN":incr++
symbolslistbox2.cell(1,incr)="EVOK":incr++
symbolslistbox2.cell(1,incr)="EVOL":incr++
symbolslistbox2.cell(1,incr)="EVOP":incr++
symbolslistbox2.cell(1,incr)="EVR":incr++
symbolslistbox2.cell(1,incr)="EVRG":incr++
symbolslistbox2.cell(1,incr)="EVRI":incr++
'symbolslistbox2.cell(1,incr)="EVSI":incr++
'symbolslistbox2.cell(1,incr)="EVSIW":incr++
'symbolslistbox2.cell(1,incr)="EVSTC":incr++
symbolslistbox2.cell(1,incr)="EVT":incr++
symbolslistbox2.cell(1,incr)="EVTC":incr++
symbolslistbox2.cell(1,incr)="EVV":incr++
symbolslistbox2.cell(1,incr)="EVX":incr++
'symbolslistbox2.cell(1,incr)="EVY":incr++
symbolslistbox2.cell(1,incr)="EW":incr++
symbolslistbox2.cell(1,incr)="EWA":incr++
symbolslistbox2.cell(1,incr)="EWBC":incr++
symbolslistbox2.cell(1,incr)="EWC":incr++
symbolslistbox2.cell(1,incr)="EWCO":incr++
symbolslistbox2.cell(1,incr)="EWD":incr++
'symbolslistbox2.cell(1,incr)="EWEM":incr++
symbolslistbox2.cell(1,incr)="EWG":incr++
symbolslistbox2.cell(1,incr)="EWGS":incr++
symbolslistbox2.cell(1,incr)="EWH":incr++
symbolslistbox2.cell(1,incr)="EWI":incr++
symbolslistbox2.cell(1,incr)="EWJ":incr++
symbolslistbox2.cell(1,incr)="EWJE":incr++
symbolslistbox2.cell(1,incr)="EWJV":incr++
symbolslistbox2.cell(1,incr)="EWK":incr++
symbolslistbox2.cell(1,incr)="EWL":incr++
symbolslistbox2.cell(1,incr)="EWM":incr++
symbolslistbox2.cell(1,incr)="EWMC":incr++
symbolslistbox2.cell(1,incr)="EWN":incr++
symbolslistbox2.cell(1,incr)="EWO":incr++
symbolslistbox2.cell(1,incr)="EWP":incr++
symbolslistbox2.cell(1,incr)="EWQ":incr++
symbolslistbox2.cell(1,incr)="EWRE":incr++
symbolslistbox2.cell(1,incr)="EWS":incr++
symbolslistbox2.cell(1,incr)="EWSC":incr++
symbolslistbox2.cell(1,incr)="EWT":incr++
symbolslistbox2.cell(1,incr)="EWU":incr++
symbolslistbox2.cell(1,incr)="EWUS":incr++
symbolslistbox2.cell(1,incr)="EWV":incr++
symbolslistbox2.cell(1,incr)="EWW":incr++
symbolslistbox2.cell(1,incr)="EWX":incr++
symbolslistbox2.cell(1,incr)="EWY":incr++
symbolslistbox2.cell(1,incr)="EWZ":incr++
symbolslistbox2.cell(1,incr)="EWZS":incr++
symbolslistbox2.cell(1,incr)="EXAS":incr++
symbolslistbox2.cell(1,incr)="EXC":incr++
symbolslistbox2.cell(1,incr)="EXD":incr++
symbolslistbox2.cell(1,incr)="EXEL":incr++
'symbolslistbox2.cell(1,incr)="EXFO":incr++
symbolslistbox2.cell(1,incr)="EXG":incr++
symbolslistbox2.cell(1,incr)="EXI":incr++
'symbolslistbox2.cell(1,incr)="EXIV":incr++
symbolslistbox2.cell(1,incr)="EXK":incr++
symbolslistbox2.cell(1,incr)="EXLS":incr++
symbolslistbox2.cell(1,incr)="EXP":incr++
'symbolslistbox2.cell(1,incr)="EXPCU":incr++
symbolslistbox2.cell(1,incr)="EXPD":incr++
symbolslistbox2.cell(1,incr)="EXPE":incr++
symbolslistbox2.cell(1,incr)="EXPI":incr++
symbolslistbox2.cell(1,incr)="EXPO":incr++
symbolslistbox2.cell(1,incr)="EXPR":incr++
symbolslistbox2.cell(1,incr)="EXR":incr++
'symbolslistbox2.cell(1,incr)="EXT":incr++
symbolslistbox2.cell(1,incr)="EXTN":incr++
symbolslistbox2.cell(1,incr)="EXTR":incr++
symbolslistbox2.cell(1,incr)="EYE":incr++
'symbolslistbox2.cell(1,incr)="EYEG":incr++
'symbolslistbox2.cell(1,incr)="EYEGW":incr++
symbolslistbox2.cell(1,incr)="EYEN":incr++
symbolslistbox2.cell(1,incr)="EYES":incr++
'symbolslistbox2.cell(1,incr)="EYESW":incr++
symbolslistbox2.cell(1,incr)="EYLD":incr++
symbolslistbox2.cell(1,incr)="EYPT":incr++
symbolslistbox2.cell(1,incr)="EZA":incr++
'symbolslistbox2.cell(1,incr)="EZJ":incr++
symbolslistbox2.cell(1,incr)="EZM":incr++
symbolslistbox2.cell(1,incr)="EZPW":incr++
'symbolslistbox2.cell(1,incr)="EZT":incr++
symbolslistbox2.cell(1,incr)="EZU":incr++
symbolslistbox2.cell(1,incr)="F":incr++
'symbolslistbox2.cell(1,incr)="F$B":incr++
symbolslistbox2.cell(1,incr)="FAAR":incr++
symbolslistbox2.cell(1,incr)="FAB":incr++
symbolslistbox2.cell(1,incr)="FAD":incr++
symbolslistbox2.cell(1,incr)="FAF":incr++
symbolslistbox2.cell(1,incr)="FALN":incr++
symbolslistbox2.cell(1,incr)="FAM":incr++
symbolslistbox2.cell(1,incr)="FAMI":incr++
symbolslistbox2.cell(1,incr)="FAN":incr++
symbolslistbox2.cell(1,incr)="FANG":incr++
symbolslistbox2.cell(1,incr)="FANH":incr++
symbolslistbox2.cell(1,incr)="FARM":incr++
symbolslistbox2.cell(1,incr)="FARO":incr++
symbolslistbox2.cell(1,incr)="FAS":incr++
symbolslistbox2.cell(1,incr)="FAST":incr++
symbolslistbox2.cell(1,incr)="FAT":incr++
symbolslistbox2.cell(1,incr)="FATE":incr++
'symbolslistbox2.cell(1,incr)="FAUS":incr++
symbolslistbox2.cell(1,incr)="FAX":incr++
symbolslistbox2.cell(1,incr)="FAZ":incr++
symbolslistbox2.cell(1,incr)="FB":incr++
symbolslistbox2.cell(1,incr)="FBC":incr++
symbolslistbox2.cell(1,incr)="FBGX":incr++
symbolslistbox2.cell(1,incr)="FBHS":incr++
symbolslistbox2.cell(1,incr)="FBIO":incr++
symbolslistbox2.cell(1,incr)="FBIOP":incr++
symbolslistbox2.cell(1,incr)="FBIZ":incr++
symbolslistbox2.cell(1,incr)="FBK":incr++
'symbolslistbox2.cell(1,incr)="FBM":incr++
symbolslistbox2.cell(1,incr)="FBMS":incr++
symbolslistbox2.cell(1,incr)="FBNC":incr++
symbolslistbox2.cell(1,incr)="FBND":incr++
symbolslistbox2.cell(1,incr)="FBP":incr++
'symbolslistbox2.cell(1,incr)="FBSS":incr++
symbolslistbox2.cell(1,incr)="FBT":incr++
symbolslistbox2.cell(1,incr)="FBZ":incr++
symbolslistbox2.cell(1,incr)="FC":incr++
symbolslistbox2.cell(1,incr)="FCA":incr++
symbolslistbox2.cell(1,incr)="FCAL":incr++
'symbolslistbox2.cell(1,incr)="FCAN":incr++
'symbolslistbox2.cell(1,incr)="FCAP":incr++
'symbolslistbox2.cell(1,incr)="FCAU":incr++
symbolslistbox2.cell(1,incr)="FCBC":incr++
'symbolslistbox2.cell(1,incr)="FCBP":incr++
symbolslistbox2.cell(1,incr)="FCCO":incr++
'symbolslistbox2.cell(1,incr)="FCCY":incr++
symbolslistbox2.cell(1,incr)="FCEF":incr++
symbolslistbox2.cell(1,incr)="FCEL":incr++
symbolslistbox2.cell(1,incr)="FCF":incr++
symbolslistbox2.cell(1,incr)="FCFS":incr++
symbolslistbox2.cell(1,incr)="FCG":incr++
symbolslistbox2.cell(1,incr)="FCN":incr++
symbolslistbox2.cell(1,incr)="FCNCA":incr++
symbolslistbox2.cell(1,incr)="FCO":incr++
symbolslistbox2.cell(1,incr)="FCOM":incr++
symbolslistbox2.cell(1,incr)="FCOR":incr++
symbolslistbox2.cell(1,incr)="FCPT":incr++
'symbolslistbox2.cell(1,incr)="FCSC":incr++
symbolslistbox2.cell(1,incr)="FCT":incr++
symbolslistbox2.cell(1,incr)="FCTR":incr++
symbolslistbox2.cell(1,incr)="FCVT":incr++
symbolslistbox2.cell(1,incr)="FCX":incr++
symbolslistbox2.cell(1,incr)="FDBC":incr++
symbolslistbox2.cell(1,incr)="FDD":incr++
'symbolslistbox2.cell(1,incr)="FDEF":incr++
symbolslistbox2.cell(1,incr)="FDEM":incr++
symbolslistbox2.cell(1,incr)="FDEU":incr++
symbolslistbox2.cell(1,incr)="FDEV":incr++
symbolslistbox2.cell(1,incr)="FDHY":incr++
symbolslistbox2.cell(1,incr)="FDIS":incr++
symbolslistbox2.cell(1,incr)="FDIV":incr++
symbolslistbox2.cell(1,incr)="FDL":incr++
symbolslistbox2.cell(1,incr)="FDLO":incr++
symbolslistbox2.cell(1,incr)="FDM":incr++
symbolslistbox2.cell(1,incr)="FDMO":incr++
symbolslistbox2.cell(1,incr)="FDN":incr++
symbolslistbox2.cell(1,incr)="FDNI":incr++
symbolslistbox2.cell(1,incr)="FDP":incr++
symbolslistbox2.cell(1,incr)="FDRR":incr++
symbolslistbox2.cell(1,incr)="FDS":incr++
symbolslistbox2.cell(1,incr)="FDT":incr++
symbolslistbox2.cell(1,incr)="FDTS":incr++
symbolslistbox2.cell(1,incr)="FDUS":incr++
'symbolslistbox2.cell(1,incr)="FDUSL":incr++
'symbolslistbox2.cell(1,incr)="FDUSZ":incr++
symbolslistbox2.cell(1,incr)="FDVV":incr++
symbolslistbox2.cell(1,incr)="FDX":incr++
symbolslistbox2.cell(1,incr)="FE":incr++
symbolslistbox2.cell(1,incr)="FEDU":incr++
symbolslistbox2.cell(1,incr)="FEI":incr++
symbolslistbox2.cell(1,incr)="FEIM":incr++
symbolslistbox2.cell(1,incr)="FELE":incr++
'symbolslistbox2.cell(1,incr)="FELP":incr++
symbolslistbox2.cell(1,incr)="FEM":incr++
symbolslistbox2.cell(1,incr)="FEMB":incr++
symbolslistbox2.cell(1,incr)="FEMS":incr++
symbolslistbox2.cell(1,incr)="FEN":incr++
symbolslistbox2.cell(1,incr)="FENC":incr++
symbolslistbox2.cell(1,incr)="FENG":incr++
symbolslistbox2.cell(1,incr)="FENY":incr++
symbolslistbox2.cell(1,incr)="FEO":incr++
symbolslistbox2.cell(1,incr)="FEP":incr++
symbolslistbox2.cell(1,incr)="FET":incr++
symbolslistbox2.cell(1,incr)="FEUL":incr++
symbolslistbox2.cell(1,incr)="FEUZ":incr++
symbolslistbox2.cell(1,incr)="FEX":incr++
'symbolslistbox2.cell(1,incr)="FEYE":incr++
symbolslistbox2.cell(1,incr)="FEZ":incr++
symbolslistbox2.cell(1,incr)="FF":incr++
symbolslistbox2.cell(1,incr)="FFA":incr++
symbolslistbox2.cell(1,incr)="FFBC":incr++
symbolslistbox2.cell(1,incr)="FFBW":incr++
symbolslistbox2.cell(1,incr)="FFC":incr++
'symbolslistbox2.cell(1,incr)="FFEU":incr++
'symbolslistbox2.cell(1,incr)="FFG":incr++
symbolslistbox2.cell(1,incr)="FFHG":incr++
symbolslistbox2.cell(1,incr)="FFHL":incr++
symbolslistbox2.cell(1,incr)="FFIC":incr++
symbolslistbox2.cell(1,incr)="FFIN":incr++
symbolslistbox2.cell(1,incr)="FFIU":incr++
symbolslistbox2.cell(1,incr)="FFIV":incr++
symbolslistbox2.cell(1,incr)="FFNW":incr++
symbolslistbox2.cell(1,incr)="FFR":incr++
symbolslistbox2.cell(1,incr)="FFSG":incr++
symbolslistbox2.cell(1,incr)="FFTG":incr++
symbolslistbox2.cell(1,incr)="FFTI":incr++
symbolslistbox2.cell(1,incr)="FFTY":incr++
symbolslistbox2.cell(1,incr)="FFWM":incr++
'symbolslistbox2.cell(1,incr)="FG":incr++
'symbolslistbox2.cell(1,incr)="FG.W":incr++
symbolslistbox2.cell(1,incr)="FGB":incr++
symbolslistbox2.cell(1,incr)="FGBI":incr++
symbolslistbox2.cell(1,incr)="FGD":incr++
symbolslistbox2.cell(1,incr)="FGEN":incr++
symbolslistbox2.cell(1,incr)="FGM":incr++
'symbolslistbox2.cell(1,incr)="FGP":incr++
symbolslistbox2.cell(1,incr)="FHB":incr++
'symbolslistbox2.cell(1,incr)="FHK":incr++
'symbolslistbox2.cell(1,incr)="FHL":incr++
symbolslistbox2.cell(1,incr)="FHLC":incr++
symbolslistbox2.cell(1,incr)="FHN":incr++
'symbolslistbox2.cell(1,incr)="FHN$A":incr++
'symbolslistbox2.cell(1,incr)="FI":incr++
symbolslistbox2.cell(1,incr)="FIBK":incr++
symbolslistbox2.cell(1,incr)="FIBR":incr++
symbolslistbox2.cell(1,incr)="FICO":incr++
symbolslistbox2.cell(1,incr)="FID":incr++
symbolslistbox2.cell(1,incr)="FIDI":incr++
symbolslistbox2.cell(1,incr)="FIDU":incr++
'symbolslistbox2.cell(1,incr)="FIEE":incr++
symbolslistbox2.cell(1,incr)="FIF":incr++
symbolslistbox2.cell(1,incr)="FIHD":incr++
'symbolslistbox2.cell(1,incr)="FII":incr++
symbolslistbox2.cell(1,incr)="FILL":incr++
symbolslistbox2.cell(1,incr)="FINS":incr++
'symbolslistbox2.cell(1,incr)="FINU":incr++
symbolslistbox2.cell(1,incr)="FINX":incr++
'symbolslistbox2.cell(1,incr)="FINZ":incr++
symbolslistbox2.cell(1,incr)="FIS":incr++
symbolslistbox2.cell(1,incr)="FISI":incr++
'symbolslistbox2.cell(1,incr)="FISK":incr++
symbolslistbox2.cell(1,incr)="FISR":incr++
symbolslistbox2.cell(1,incr)="FISV":incr++
'symbolslistbox2.cell(1,incr)="FIT":incr++
symbolslistbox2.cell(1,incr)="FITB":incr++
symbolslistbox2.cell(1,incr)="FITBI":incr++
symbolslistbox2.cell(1,incr)="FITBP":incr++
symbolslistbox2.cell(1,incr)="FITE":incr++
'symbolslistbox2.cell(1,incr)="FIV":incr++
symbolslistbox2.cell(1,incr)="FIVA":incr++
symbolslistbox2.cell(1,incr)="FIVE":incr++
symbolslistbox2.cell(1,incr)="FIVG":incr++
symbolslistbox2.cell(1,incr)="FIVN":incr++
symbolslistbox2.cell(1,incr)="FIW":incr++
symbolslistbox2.cell(1,incr)="FIX":incr++
symbolslistbox2.cell(1,incr)="FIXD":incr++
symbolslistbox2.cell(1,incr)="FIXX":incr++
'symbolslistbox2.cell(1,incr)="FIYY":incr++
symbolslistbox2.cell(1,incr)="FIZZ":incr++
symbolslistbox2.cell(1,incr)="FJP":incr++
'symbolslistbox2.cell(1,incr)="FKO":incr++
symbolslistbox2.cell(1,incr)="FKU":incr++
symbolslistbox2.cell(1,incr)="FL":incr++
symbolslistbox2.cell(1,incr)="FLAG":incr++
'symbolslistbox2.cell(1,incr)="FLAT":incr++
symbolslistbox2.cell(1,incr)="FLAU":incr++
symbolslistbox2.cell(1,incr)="FLAX":incr++
symbolslistbox2.cell(1,incr)="FLBL":incr++
symbolslistbox2.cell(1,incr)="FLBR":incr++
symbolslistbox2.cell(1,incr)="FLC":incr++
symbolslistbox2.cell(1,incr)="FLCA":incr++
symbolslistbox2.cell(1,incr)="FLCB":incr++
symbolslistbox2.cell(1,incr)="FLCH":incr++
symbolslistbox2.cell(1,incr)="FLCO":incr++
symbolslistbox2.cell(1,incr)="FLDM":incr++
symbolslistbox2.cell(1,incr)="FLDR":incr++
symbolslistbox2.cell(1,incr)="FLEE":incr++
symbolslistbox2.cell(1,incr)="FLEH":incr++
'symbolslistbox2.cell(1,incr)="FLEU":incr++
symbolslistbox2.cell(1,incr)="FLEX":incr++
symbolslistbox2.cell(1,incr)="FLFR":incr++
symbolslistbox2.cell(1,incr)="FLGB":incr++
symbolslistbox2.cell(1,incr)="FLGE":incr++
symbolslistbox2.cell(1,incr)="FLGR":incr++
symbolslistbox2.cell(1,incr)="FLGT":incr++
symbolslistbox2.cell(1,incr)="FLHK":incr++
symbolslistbox2.cell(1,incr)="FLHY":incr++
symbolslistbox2.cell(1,incr)="FLIA":incr++
symbolslistbox2.cell(1,incr)="FLIC":incr++
symbolslistbox2.cell(1,incr)="FLIN":incr++
'symbolslistbox2.cell(1,incr)="FLIO":incr++
'symbolslistbox2.cell(1,incr)="FLIR":incr++
symbolslistbox2.cell(1,incr)="FLIY":incr++
symbolslistbox2.cell(1,incr)="FLJH":incr++
symbolslistbox2.cell(1,incr)="FLJP":incr++
symbolslistbox2.cell(1,incr)="FLKR":incr++
symbolslistbox2.cell(1,incr)="FLL":incr++
symbolslistbox2.cell(1,incr)="FLLA":incr++
'symbolslistbox2.cell(1,incr)="FLLCU":incr++
symbolslistbox2.cell(1,incr)="FLLV":incr++
symbolslistbox2.cell(1,incr)="FLM":incr++
symbolslistbox2.cell(1,incr)="FLMB":incr++
symbolslistbox2.cell(1,incr)="FLMI":incr++
symbolslistbox2.cell(1,incr)="FLMN":incr++
'symbolslistbox2.cell(1,incr)="FLMNW":incr++
symbolslistbox2.cell(1,incr)="FLMX":incr++
symbolslistbox2.cell(1,incr)="FLN":incr++
symbolslistbox2.cell(1,incr)="FLNG":incr++
symbolslistbox2.cell(1,incr)="FLNT":incr++
symbolslistbox2.cell(1,incr)="FLO":incr++
symbolslistbox2.cell(1,incr)="FLOT":incr++
symbolslistbox2.cell(1,incr)="FLOW":incr++
symbolslistbox2.cell(1,incr)="FLQD":incr++
symbolslistbox2.cell(1,incr)="FLQE":incr++
symbolslistbox2.cell(1,incr)="FLQG":incr++
symbolslistbox2.cell(1,incr)="FLQH":incr++
symbolslistbox2.cell(1,incr)="FLQL":incr++
symbolslistbox2.cell(1,incr)="FLQM":incr++
symbolslistbox2.cell(1,incr)="FLQS":incr++
symbolslistbox2.cell(1,incr)="FLR":incr++
symbolslistbox2.cell(1,incr)="FLRN":incr++
symbolslistbox2.cell(1,incr)="FLRT":incr++
symbolslistbox2.cell(1,incr)="FLRU":incr++
symbolslistbox2.cell(1,incr)="FLS":incr++
symbolslistbox2.cell(1,incr)="FLSA":incr++
symbolslistbox2.cell(1,incr)="FLSW":incr++
symbolslistbox2.cell(1,incr)="FLT":incr++
symbolslistbox2.cell(1,incr)="FLTB":incr++
symbolslistbox2.cell(1,incr)="FLTR":incr++
symbolslistbox2.cell(1,incr)="FLTW":incr++
symbolslistbox2.cell(1,incr)="FLWS":incr++
'symbolslistbox2.cell(1,incr)="FLXN":incr++
symbolslistbox2.cell(1,incr)="FLXS":incr++
'symbolslistbox2.cell(1,incr)="FLY":incr++
symbolslistbox2.cell(1,incr)="FLZA":incr++
symbolslistbox2.cell(1,incr)="FM":incr++
symbolslistbox2.cell(1,incr)="FMAO":incr++
symbolslistbox2.cell(1,incr)="FMAT":incr++
symbolslistbox2.cell(1,incr)="FMB":incr++
symbolslistbox2.cell(1,incr)="FMBH":incr++
symbolslistbox2.cell(1,incr)="FMBI":incr++
symbolslistbox2.cell(1,incr)="FMC":incr++
'symbolslistbox2.cell(1,incr)="FMCI":incr++
'symbolslistbox2.cell(1,incr)="FMCIU":incr++
'symbolslistbox2.cell(1,incr)="FMCIW":incr++
symbolslistbox2.cell(1,incr)="FMF":incr++
symbolslistbox2.cell(1,incr)="FMHI":incr++
'symbolslistbox2.cell(1,incr)="FMK":incr++
symbolslistbox2.cell(1,incr)="FMN":incr++
symbolslistbox2.cell(1,incr)="FMNB":incr++
symbolslistbox2.cell(1,incr)="FMO":incr++
symbolslistbox2.cell(1,incr)="FMS":incr++
symbolslistbox2.cell(1,incr)="FMX":incr++
symbolslistbox2.cell(1,incr)="FMY":incr++
symbolslistbox2.cell(1,incr)="FN":incr++
symbolslistbox2.cell(1,incr)="FNB":incr++
'symbolslistbox2.cell(1,incr)="FNB$E":incr++
symbolslistbox2.cell(1,incr)="FNCB":incr++
symbolslistbox2.cell(1,incr)="FNCL":incr++
symbolslistbox2.cell(1,incr)="FND":incr++
symbolslistbox2.cell(1,incr)="FNDA":incr++
symbolslistbox2.cell(1,incr)="FNDB":incr++
symbolslistbox2.cell(1,incr)="FNDC":incr++
symbolslistbox2.cell(1,incr)="FNDE":incr++
symbolslistbox2.cell(1,incr)="FNDF":incr++
symbolslistbox2.cell(1,incr)="FNDX":incr++
symbolslistbox2.cell(1,incr)="FNF":incr++
'symbolslistbox2.cell(1,incr)="FNG":incr++
symbolslistbox2.cell(1,incr)="FNGD":incr++
symbolslistbox2.cell(1,incr)="FNGO":incr++
symbolslistbox2.cell(1,incr)="FNGU":incr++
symbolslistbox2.cell(1,incr)="FNGZ":incr++
symbolslistbox2.cell(1,incr)="FNHC":incr++
symbolslistbox2.cell(1,incr)="FNI":incr++
'symbolslistbox2.cell(1,incr)="FNJN":incr++
symbolslistbox2.cell(1,incr)="FNK":incr++
symbolslistbox2.cell(1,incr)="FNKO":incr++
symbolslistbox2.cell(1,incr)="FNLC":incr++
symbolslistbox2.cell(1,incr)="FNV":incr++
symbolslistbox2.cell(1,incr)="FNWB":incr++
symbolslistbox2.cell(1,incr)="FNX":incr++
symbolslistbox2.cell(1,incr)="FNY":incr++
symbolslistbox2.cell(1,incr)="FOCS":incr++
symbolslistbox2.cell(1,incr)="FOE":incr++
symbolslistbox2.cell(1,incr)="FOF":incr++
symbolslistbox2.cell(1,incr)="FOLD":incr++
'symbolslistbox2.cell(1,incr)="FOMX":incr++
symbolslistbox2.cell(1,incr)="FONR":incr++
symbolslistbox2.cell(1,incr)="FOR":incr++
symbolslistbox2.cell(1,incr)="FORD":incr++
'symbolslistbox2.cell(1,incr)="FORK":incr++
symbolslistbox2.cell(1,incr)="FORM":incr++
symbolslistbox2.cell(1,incr)="FORR":incr++
'symbolslistbox2.cell(1,incr)="FORTY":incr++
symbolslistbox2.cell(1,incr)="FOSL":incr++
symbolslistbox2.cell(1,incr)="FOVL":incr++
symbolslistbox2.cell(1,incr)="FOX":incr++
symbolslistbox2.cell(1,incr)="FOXA":incr++
symbolslistbox2.cell(1,incr)="FOXF":incr++
symbolslistbox2.cell(1,incr)="FPA":incr++
symbolslistbox2.cell(1,incr)="FPAC":incr++
'symbolslistbox2.cell(1,incr)="FPAC.U":incr++
'symbolslistbox2.cell(1,incr)="FPAC.W":incr++
symbolslistbox2.cell(1,incr)="FPAY":incr++
'symbolslistbox2.cell(1,incr)="FPAYW":incr++
symbolslistbox2.cell(1,incr)="FPE":incr++
symbolslistbox2.cell(1,incr)="FPEI":incr++
symbolslistbox2.cell(1,incr)="FPF":incr++
symbolslistbox2.cell(1,incr)="FPH":incr++
symbolslistbox2.cell(1,incr)="FPI":incr++
'symbolslistbox2.cell(1,incr)="FPI$B":incr++
symbolslistbox2.cell(1,incr)="FPL":incr++
'symbolslistbox2.cell(1,incr)="FPRX":incr++
symbolslistbox2.cell(1,incr)="FPX":incr++
symbolslistbox2.cell(1,incr)="FPXE":incr++
symbolslistbox2.cell(1,incr)="FPXI":incr++
symbolslistbox2.cell(1,incr)="FQAL":incr++
symbolslistbox2.cell(1,incr)="FR":incr++
symbolslistbox2.cell(1,incr)="FRA":incr++
'symbolslistbox2.cell(1,incr)="FRAC":incr++
symbolslistbox2.cell(1,incr)="FRAF":incr++
symbolslistbox2.cell(1,incr)="FRAK":incr++
'symbolslistbox2.cell(1,incr)="FRAN":incr++
symbolslistbox2.cell(1,incr)="FRBA":incr++
symbolslistbox2.cell(1,incr)="FRBK":incr++
symbolslistbox2.cell(1,incr)="FRC":incr++
'symbolslistbox2.cell(1,incr)="FRC$D":incr++
'symbolslistbox2.cell(1,incr)="FRC$F":incr++
'symbolslistbox2.cell(1,incr)="FRC$G":incr++
'symbolslistbox2.cell(1,incr)="FRC$H":incr++
'symbolslistbox2.cell(1,incr)="FRC$I":incr++
symbolslistbox2.cell(1,incr)="FRD":incr++
symbolslistbox2.cell(1,incr)="FRDM":incr++
symbolslistbox2.cell(1,incr)="FREL":incr++
symbolslistbox2.cell(1,incr)="FRGI":incr++
symbolslistbox2.cell(1,incr)="FRI":incr++
symbolslistbox2.cell(1,incr)="FRLG":incr++
symbolslistbox2.cell(1,incr)="FRME":incr++
'symbolslistbox2.cell(1,incr)="FRN":incr++
symbolslistbox2.cell(1,incr)="FRO":incr++
symbolslistbox2.cell(1,incr)="FROG":incr++
symbolslistbox2.cell(1,incr)="FRPH":incr++
symbolslistbox2.cell(1,incr)="FRPT":incr++
symbolslistbox2.cell(1,incr)="FRSX":incr++
symbolslistbox2.cell(1,incr)="FRT":incr++
'symbolslistbox2.cell(1,incr)="FRT$C":incr++
symbolslistbox2.cell(1,incr)="FRTA":incr++
'symbolslistbox2.cell(1,incr)="FSB":incr++
symbolslistbox2.cell(1,incr)="FSBC":incr++
symbolslistbox2.cell(1,incr)="FSBW":incr++
'symbolslistbox2.cell(1,incr)="FSCT":incr++
symbolslistbox2.cell(1,incr)="FSD":incr++
symbolslistbox2.cell(1,incr)="FSEA":incr++
'symbolslistbox2.cell(1,incr)="FSFG":incr++
symbolslistbox2.cell(1,incr)="FSI":incr++
symbolslistbox2.cell(1,incr)="FSK":incr++
symbolslistbox2.cell(1,incr)="FSLR":incr++
symbolslistbox2.cell(1,incr)="FSLY":incr++
symbolslistbox2.cell(1,incr)="FSM":incr++
symbolslistbox2.cell(1,incr)="FSMB":incr++
symbolslistbox2.cell(1,incr)="FSMD":incr++
symbolslistbox2.cell(1,incr)="FSP":incr++
symbolslistbox2.cell(1,incr)="FSS":incr++
symbolslistbox2.cell(1,incr)="FSTA":incr++
symbolslistbox2.cell(1,incr)="FSTR":incr++
symbolslistbox2.cell(1,incr)="FSV":incr++
symbolslistbox2.cell(1,incr)="FSZ":incr++
symbolslistbox2.cell(1,incr)="FT":incr++
symbolslistbox2.cell(1,incr)="FTA":incr++
'symbolslistbox2.cell(1,incr)="FTAC":incr++
'symbolslistbox2.cell(1,incr)="FTACU":incr++
'symbolslistbox2.cell(1,incr)="FTACW":incr++
symbolslistbox2.cell(1,incr)="FTAG":incr++
symbolslistbox2.cell(1,incr)="FTAI":incr++
'symbolslistbox2.cell(1,incr)="FTAI$A":incr++
symbolslistbox2.cell(1,incr)="FTC":incr++
symbolslistbox2.cell(1,incr)="FTCH":incr++
symbolslistbox2.cell(1,incr)="FTCS":incr++
symbolslistbox2.cell(1,incr)="FTDR":incr++
symbolslistbox2.cell(1,incr)="FTEC":incr++
symbolslistbox2.cell(1,incr)="FTEK":incr++
'symbolslistbox2.cell(1,incr)="FTEO":incr++
symbolslistbox2.cell(1,incr)="FTF":incr++
symbolslistbox2.cell(1,incr)="FTFT":incr++
symbolslistbox2.cell(1,incr)="FTGC":incr++
symbolslistbox2.cell(1,incr)="FTHI":incr++
symbolslistbox2.cell(1,incr)="FTI":incr++
symbolslistbox2.cell(1,incr)="FTK":incr++
symbolslistbox2.cell(1,incr)="FTLB":incr++
symbolslistbox2.cell(1,incr)="FTLS":incr++
symbolslistbox2.cell(1,incr)="FTNT":incr++
'symbolslistbox2.cell(1,incr)="FTNW":incr++
'symbolslistbox2.cell(1,incr)="FTR":incr++
symbolslistbox2.cell(1,incr)="FTRI":incr++
symbolslistbox2.cell(1,incr)="FTS":incr++
symbolslistbox2.cell(1,incr)="FTSD":incr++
symbolslistbox2.cell(1,incr)="FTSI":incr++
symbolslistbox2.cell(1,incr)="FTSL":incr++
symbolslistbox2.cell(1,incr)="FTSM":incr++
'symbolslistbox2.cell(1,incr)="FTSV":incr++
symbolslistbox2.cell(1,incr)="FTV":incr++
'symbolslistbox2.cell(1,incr)="FTV$A":incr++
'symbolslistbox2.cell(1,incr)="FTVA":incr++
symbolslistbox2.cell(1,incr)="FTXD":incr++
symbolslistbox2.cell(1,incr)="FTXG":incr++
symbolslistbox2.cell(1,incr)="FTXH":incr++
symbolslistbox2.cell(1,incr)="FTXL":incr++
symbolslistbox2.cell(1,incr)="FTXN":incr++
symbolslistbox2.cell(1,incr)="FTXO":incr++
symbolslistbox2.cell(1,incr)="FTXR":incr++
'symbolslistbox2.cell(1,incr)="FUD":incr++
symbolslistbox2.cell(1,incr)="FUE":incr++
symbolslistbox2.cell(1,incr)="FUL":incr++
symbolslistbox2.cell(1,incr)="FULC":incr++
symbolslistbox2.cell(1,incr)="FULT":incr++
symbolslistbox2.cell(1,incr)="FUMB":incr++
symbolslistbox2.cell(1,incr)="FUN":incr++
symbolslistbox2.cell(1,incr)="FUNC":incr++
symbolslistbox2.cell(1,incr)="FUND":incr++
'symbolslistbox2.cell(1,incr)="FUSB":incr++
symbolslistbox2.cell(1,incr)="FUT":incr++
symbolslistbox2.cell(1,incr)="FUTY":incr++
symbolslistbox2.cell(1,incr)="FUV":incr++
symbolslistbox2.cell(1,incr)="FV":incr++
symbolslistbox2.cell(1,incr)="FVAL":incr++
symbolslistbox2.cell(1,incr)="FVC":incr++
symbolslistbox2.cell(1,incr)="FVCB":incr++
symbolslistbox2.cell(1,incr)="FVD":incr++
symbolslistbox2.cell(1,incr)="FVE":incr++
'symbolslistbox2.cell(1,incr)="FVL":incr++
symbolslistbox2.cell(1,incr)="FVRR":incr++
symbolslistbox2.cell(1,incr)="FWDB":incr++
symbolslistbox2.cell(1,incr)="FWONA":incr++
symbolslistbox2.cell(1,incr)="FWONK":incr++
symbolslistbox2.cell(1,incr)="FWP":incr++
symbolslistbox2.cell(1,incr)="FWRD":incr++
symbolslistbox2.cell(1,incr)="FXA":incr++
symbolslistbox2.cell(1,incr)="FXB":incr++
symbolslistbox2.cell(1,incr)="FXC":incr++
'symbolslistbox2.cell(1,incr)="FXCH":incr++
symbolslistbox2.cell(1,incr)="FXD":incr++
symbolslistbox2.cell(1,incr)="FXE":incr++
symbolslistbox2.cell(1,incr)="FXF":incr++
symbolslistbox2.cell(1,incr)="FXG":incr++
symbolslistbox2.cell(1,incr)="FXH":incr++
symbolslistbox2.cell(1,incr)="FXI":incr++
symbolslistbox2.cell(1,incr)="FXL":incr++
symbolslistbox2.cell(1,incr)="FXN":incr++
symbolslistbox2.cell(1,incr)="FXNC":incr++
symbolslistbox2.cell(1,incr)="FXO":incr++
symbolslistbox2.cell(1,incr)="FXP":incr++
symbolslistbox2.cell(1,incr)="FXR":incr++
'symbolslistbox2.cell(1,incr)="FXS":incr++
'symbolslistbox2.cell(1,incr)="FXSG":incr++
symbolslistbox2.cell(1,incr)="FXU":incr++
symbolslistbox2.cell(1,incr)="FXY":incr++
symbolslistbox2.cell(1,incr)="FXZ":incr++
symbolslistbox2.cell(1,incr)="FYC":incr++
symbolslistbox2.cell(1,incr)="FYLD":incr++
symbolslistbox2.cell(1,incr)="FYT":incr++
symbolslistbox2.cell(1,incr)="FYX":incr++
symbolslistbox2.cell(1,incr)="G":incr++
symbolslistbox2.cell(1,incr)="GAA":incr++
symbolslistbox2.cell(1,incr)="GAB":incr++
'symbolslistbox2.cell(1,incr)="GAB$D":incr++
'symbolslistbox2.cell(1,incr)="GAB$G":incr++
'symbolslistbox2.cell(1,incr)="GAB$H":incr++
'symbolslistbox2.cell(1,incr)="GAB$J":incr++
symbolslistbox2.cell(1,incr)="GABC":incr++
symbolslistbox2.cell(1,incr)="GAIA":incr++
symbolslistbox2.cell(1,incr)="GAIN":incr++
'symbolslistbox2.cell(1,incr)="GAINL":incr++
'symbolslistbox2.cell(1,incr)="GAINM":incr++
symbolslistbox2.cell(1,incr)="GAL":incr++
symbolslistbox2.cell(1,incr)="GALT":incr++
symbolslistbox2.cell(1,incr)="GAM":incr++
'symbolslistbox2.cell(1,incr)="GAM$B":incr++
symbolslistbox2.cell(1,incr)="GAMR":incr++
'symbolslistbox2.cell(1,incr)="GARD":incr++
'symbolslistbox2.cell(1,incr)="GARS":incr++
'symbolslistbox2.cell(1,incr)="GASL":incr++
symbolslistbox2.cell(1,incr)="GASS":incr++
'symbolslistbox2.cell(1,incr)="GASX":incr++
symbolslistbox2.cell(1,incr)="GATX":incr++
symbolslistbox2.cell(1,incr)="GAZ":incr++
symbolslistbox2.cell(1,incr)="GBAB":incr++
symbolslistbox2.cell(1,incr)="GBCI":incr++
symbolslistbox2.cell(1,incr)="GBDC":incr++
symbolslistbox2.cell(1,incr)="GBF":incr++
symbolslistbox2.cell(1,incr)="GBIL":incr++
symbolslistbox2.cell(1,incr)="GBL":incr++
symbolslistbox2.cell(1,incr)="GBLI":incr++
symbolslistbox2.cell(1,incr)="GBLIL":incr++
'symbolslistbox2.cell(1,incr)="GBLIZ":incr++
symbolslistbox2.cell(1,incr)="GBR":incr++
symbolslistbox2.cell(1,incr)="GBT":incr++
symbolslistbox2.cell(1,incr)="GBUY":incr++
symbolslistbox2.cell(1,incr)="GBX":incr++
'symbolslistbox2.cell(1,incr)="GCAP":incr++
symbolslistbox2.cell(1,incr)="GCBC":incr++
symbolslistbox2.cell(1,incr)="GCC":incr++
'symbolslistbox2.cell(1,incr)="GCE":incr++
symbolslistbox2.cell(1,incr)="GCI":incr++
symbolslistbox2.cell(1,incr)="GCO":incr++
symbolslistbox2.cell(1,incr)="GCOW":incr++
symbolslistbox2.cell(1,incr)="GCP":incr++
symbolslistbox2.cell(1,incr)="GCV":incr++
'symbolslistbox2.cell(1,incr)="GCV$B":incr++
'symbolslistbox2.cell(1,incr)="GCVRZ":incr++
symbolslistbox2.cell(1,incr)="GD":incr++
'symbolslistbox2.cell(1,incr)="GDAT":incr++
symbolslistbox2.cell(1,incr)="GDDY":incr++
symbolslistbox2.cell(1,incr)="GDEN":incr++
'symbolslistbox2.cell(1,incr)="GDG":incr++
'symbolslistbox2.cell(1,incr)="GDI":incr++
symbolslistbox2.cell(1,incr)="GDL":incr++
'symbolslistbox2.cell(1,incr)="GDL$C":incr++
symbolslistbox2.cell(1,incr)="GDMA":incr++
'symbolslistbox2.cell(1,incr)="GDNA":incr++
symbolslistbox2.cell(1,incr)="GDO":incr++
symbolslistbox2.cell(1,incr)="GDOT":incr++
symbolslistbox2.cell(1,incr)="GDP":incr++
symbolslistbox2.cell(1,incr)="GDS":incr++
symbolslistbox2.cell(1,incr)="GDV":incr++
'symbolslistbox2.cell(1,incr)="GDV$A":incr++
'symbolslistbox2.cell(1,incr)="GDV$D":incr++
'symbolslistbox2.cell(1,incr)="GDV$G":incr++
'symbolslistbox2.cell(1,incr)="GDV$H":incr++
'symbolslistbox2.cell(1,incr)="GDVD":incr++
symbolslistbox2.cell(1,incr)="GDX":incr++
symbolslistbox2.cell(1,incr)="GDXJ":incr++
symbolslistbox2.cell(1,incr)="GE":incr++
'symbolslistbox2.cell(1,incr)="GEC":incr++
symbolslistbox2.cell(1,incr)="GECC":incr++
'symbolslistbox2.cell(1,incr)="GECCL":incr++
'symbolslistbox2.cell(1,incr)="GECCM":incr++
'symbolslistbox2.cell(1,incr)="GECCN":incr++
symbolslistbox2.cell(1,incr)="GEF":incr++
'symbolslistbox2.cell(1,incr)="GEF.B":incr++
symbolslistbox2.cell(1,incr)="GEL":incr++
symbolslistbox2.cell(1,incr)="GEM":incr++
'symbolslistbox2.cell(1,incr)="GEMP":incr++
'symbolslistbox2.cell(1,incr)="GEN":incr++
symbolslistbox2.cell(1,incr)="GENC":incr++
symbolslistbox2.cell(1,incr)="GENE":incr++
symbolslistbox2.cell(1,incr)="GENY":incr++
symbolslistbox2.cell(1,incr)="GEO":incr++
symbolslistbox2.cell(1,incr)="GEOS":incr++
symbolslistbox2.cell(1,incr)="GER":incr++
symbolslistbox2.cell(1,incr)="GERN":incr++
symbolslistbox2.cell(1,incr)="GES":incr++
symbolslistbox2.cell(1,incr)="GEVO":incr++
symbolslistbox2.cell(1,incr)="GF":incr++
'symbolslistbox2.cell(1,incr)="GFED":incr++
symbolslistbox2.cell(1,incr)="GFF":incr++
symbolslistbox2.cell(1,incr)="GFI":incr++
'symbolslistbox2.cell(1,incr)="GFIN":incr++
'symbolslistbox2.cell(1,incr)="GFN":incr++
'symbolslistbox2.cell(1,incr)="GFNCP":incr++
'symbolslistbox2.cell(1,incr)="GFNSL":incr++
'symbolslistbox2.cell(1,incr)="GFY":incr++
symbolslistbox2.cell(1,incr)="GGAL":incr++
symbolslistbox2.cell(1,incr)="GGB":incr++
symbolslistbox2.cell(1,incr)="GGG":incr++
'symbolslistbox2.cell(1,incr)="GGM":incr++
symbolslistbox2.cell(1,incr)="GGN":incr++
'symbolslistbox2.cell(1,incr)="GGN$B":incr++
'symbolslistbox2.cell(1,incr)="GGO":incr++
'symbolslistbox2.cell(1,incr)="GGO$A":incr++
symbolslistbox2.cell(1,incr)="GGT":incr++
'symbolslistbox2.cell(1,incr)="GGT$B":incr++
'symbolslistbox2.cell(1,incr)="GGT$E":incr++
symbolslistbox2.cell(1,incr)="GGZ":incr++
'symbolslistbox2.cell(1,incr)="GGZ$A":incr++
symbolslistbox2.cell(1,incr)="GH":incr++
symbolslistbox2.cell(1,incr)="GHC":incr++
'symbolslistbox2.cell(1,incr)="GHDX":incr++
symbolslistbox2.cell(1,incr)="GHG":incr++
'symbolslistbox2.cell(1,incr)="GHII":incr++
symbolslistbox2.cell(1,incr)="GHL":incr++
symbolslistbox2.cell(1,incr)="GHM":incr++
symbolslistbox2.cell(1,incr)="GHSI":incr++
symbolslistbox2.cell(1,incr)="GHY":incr++
symbolslistbox2.cell(1,incr)="GHYB":incr++
symbolslistbox2.cell(1,incr)="GHYG":incr++
symbolslistbox2.cell(1,incr)="GIB":incr++
symbolslistbox2.cell(1,incr)="GIFI":incr++
'symbolslistbox2.cell(1,incr)="GIG":incr++
'symbolslistbox2.cell(1,incr)="GIG.R":incr++
'symbolslistbox2.cell(1,incr)="GIG.U":incr++
'symbolslistbox2.cell(1,incr)="GIG.W":incr++
symbolslistbox2.cell(1,incr)="GIGB":incr++
symbolslistbox2.cell(1,incr)="GIGE":incr++
symbolslistbox2.cell(1,incr)="GIGM":incr++
symbolslistbox2.cell(1,incr)="GII":incr++
symbolslistbox2.cell(1,incr)="GIII":incr++
symbolslistbox2.cell(1,incr)="GIL":incr++
symbolslistbox2.cell(1,incr)="GILD":incr++
symbolslistbox2.cell(1,incr)="GILT":incr++
symbolslistbox2.cell(1,incr)="GIM":incr++
symbolslistbox2.cell(1,incr)="GIS":incr++
'symbolslistbox2.cell(1,incr)="GIX":incr++
'symbolslistbox2.cell(1,incr)="GIX.R":incr++
'symbolslistbox2.cell(1,incr)="GIX.U":incr++
'symbolslistbox2.cell(1,incr)="GIX.W":incr++
symbolslistbox2.cell(1,incr)="GJH":incr++
'symbolslistbox2.cell(1,incr)="GJO":incr++
'symbolslistbox2.cell(1,incr)="GJP":incr++
'symbolslistbox2.cell(1,incr)="GJR":incr++
'symbolslistbox2.cell(1,incr)="GJS":incr++
'symbolslistbox2.cell(1,incr)="GJT":incr++
'symbolslistbox2.cell(1,incr)="GJV":incr++
symbolslistbox2.cell(1,incr)="GKOS":incr++
symbolslistbox2.cell(1,incr)="GL":incr++
'symbolslistbox2.cell(1,incr)="GL$C":incr++
'symbolslistbox2.cell(1,incr)="GLAC":incr++
'symbolslistbox2.cell(1,incr)="GLACR":incr++
'symbolslistbox2.cell(1,incr)="GLACU":incr++
'symbolslistbox2.cell(1,incr)="GLACW":incr++
symbolslistbox2.cell(1,incr)="GLAD":incr++
'symbolslistbox2.cell(1,incr)="GLADD":incr++
'symbolslistbox2.cell(1,incr)="GLADN":incr++
symbolslistbox2.cell(1,incr)="GLBS":incr++
'symbolslistbox2.cell(1,incr)="GLBY":incr++
'symbolslistbox2.cell(1,incr)="GLBZ":incr++
symbolslistbox2.cell(1,incr)="GLD":incr++
symbolslistbox2.cell(1,incr)="GLDD":incr++
symbolslistbox2.cell(1,incr)="GLDI":incr++
symbolslistbox2.cell(1,incr)="GLDM":incr++
symbolslistbox2.cell(1,incr)="GLG":incr++
'symbolslistbox2.cell(1,incr)="GLIBA":incr++
'symbolslistbox2.cell(1,incr)="GLIBP":incr++
symbolslistbox2.cell(1,incr)="GLIF":incr++
symbolslistbox2.cell(1,incr)="GLL":incr++
symbolslistbox2.cell(1,incr)="GLMD":incr++
symbolslistbox2.cell(1,incr)="GLNG":incr++
symbolslistbox2.cell(1,incr)="GLO":incr++
symbolslistbox2.cell(1,incr)="GLOB":incr++
'symbolslistbox2.cell(1,incr)="GLOG":incr++
'symbolslistbox2.cell(1,incr)="GLOG$A":incr++
symbolslistbox2.cell(1,incr)="GLOP":incr++
'symbolslistbox2.cell(1,incr)="GLOP$A":incr++
'symbolslistbox2.cell(1,incr)="GLOP$B":incr++
'symbolslistbox2.cell(1,incr)="GLOP$C":incr++
'symbolslistbox2.cell(1,incr)="GLOW":incr++
symbolslistbox2.cell(1,incr)="GLP":incr++
'symbolslistbox2.cell(1,incr)="GLP$A":incr++
symbolslistbox2.cell(1,incr)="GLPG":incr++
symbolslistbox2.cell(1,incr)="GLPI":incr++
symbolslistbox2.cell(1,incr)="GLQ":incr++
symbolslistbox2.cell(1,incr)="GLRE":incr++
symbolslistbox2.cell(1,incr)="GLT":incr++
symbolslistbox2.cell(1,incr)="GLTR":incr++
symbolslistbox2.cell(1,incr)="GLU":incr++
'symbolslistbox2.cell(1,incr)="GLU$A":incr++
'symbolslistbox2.cell(1,incr)="GLU$B":incr++
'symbolslistbox2.cell(1,incr)="GLUU":incr++
symbolslistbox2.cell(1,incr)="GLV":incr++
symbolslistbox2.cell(1,incr)="GLW":incr++
symbolslistbox2.cell(1,incr)="GLYC":incr++
symbolslistbox2.cell(1,incr)="GM":incr++
symbolslistbox2.cell(1,incr)="GMAB":incr++
'symbolslistbox2.cell(1,incr)="GMAN":incr++
symbolslistbox2.cell(1,incr)="GMDA":incr++
symbolslistbox2.cell(1,incr)="GME":incr++
symbolslistbox2.cell(1,incr)="GMED":incr++
symbolslistbox2.cell(1,incr)="GMF":incr++
'symbolslistbox2.cell(1,incr)="GMHI":incr++
'symbolslistbox2.cell(1,incr)="GMHIU":incr++
'symbolslistbox2.cell(1,incr)="GMHIW":incr++
'symbolslistbox2.cell(1,incr)="GMLP":incr++
'symbolslistbox2.cell(1,incr)="GMLPP":incr++
'symbolslistbox2.cell(1,incr)="GMO":incr++
symbolslistbox2.cell(1,incr)="GMOM":incr++
symbolslistbox2.cell(1,incr)="GMRE":incr++
'symbolslistbox2.cell(1,incr)="GMRE$A":incr++
symbolslistbox2.cell(1,incr)="GMS":incr++
'symbolslistbox2.cell(1,incr)="GMTA":incr++
'symbolslistbox2.cell(1,incr)="GMZ":incr++
symbolslistbox2.cell(1,incr)="GNAF":incr++
'symbolslistbox2.cell(1,incr)="GNC":incr++
symbolslistbox2.cell(1,incr)="GNCA":incr++
symbolslistbox2.cell(1,incr)="GNE":incr++
'symbolslistbox2.cell(1,incr)="GNE$A":incr++
symbolslistbox2.cell(1,incr)="GNFT":incr++
symbolslistbox2.cell(1,incr)="GNK":incr++
symbolslistbox2.cell(1,incr)="GNL":incr++
'symbolslistbox2.cell(1,incr)="GNL$A":incr++
symbolslistbox2.cell(1,incr)="GNLN":incr++
symbolslistbox2.cell(1,incr)="GNMA":incr++
'symbolslistbox2.cell(1,incr)="GNMK":incr++
'symbolslistbox2.cell(1,incr)="GNMX":incr++
symbolslistbox2.cell(1,incr)="GNOM":incr++
symbolslistbox2.cell(1,incr)="GNPX":incr++
symbolslistbox2.cell(1,incr)="GNR":incr++
symbolslistbox2.cell(1,incr)="GNRC":incr++
symbolslistbox2.cell(1,incr)="GNT":incr++
'symbolslistbox2.cell(1,incr)="GNT$A":incr++
symbolslistbox2.cell(1,incr)="GNTX":incr++
symbolslistbox2.cell(1,incr)="GNTY":incr++
symbolslistbox2.cell(1,incr)="GNUS":incr++
symbolslistbox2.cell(1,incr)="GNW":incr++
symbolslistbox2.cell(1,incr)="GO":incr++
symbolslistbox2.cell(1,incr)="GOAT":incr++
symbolslistbox2.cell(1,incr)="GOAU":incr++
symbolslistbox2.cell(1,incr)="GOEX":incr++
symbolslistbox2.cell(1,incr)="GOF":incr++
symbolslistbox2.cell(1,incr)="GOGL":incr++
symbolslistbox2.cell(1,incr)="GOGO":incr++
symbolslistbox2.cell(1,incr)="GOL":incr++
symbolslistbox2.cell(1,incr)="GOLD":incr++
symbolslistbox2.cell(1,incr)="GOLF":incr++
symbolslistbox2.cell(1,incr)="GOOD":incr++
'symbolslistbox2.cell(1,incr)="GOODM":incr++
symbolslistbox2.cell(1,incr)="GOODO":incr++
'symbolslistbox2.cell(1,incr)="GOODP":incr++
symbolslistbox2.cell(1,incr)="GOOG":incr++
symbolslistbox2.cell(1,incr)="GOOGL":incr++
symbolslistbox2.cell(1,incr)="GOOS":incr++
symbolslistbox2.cell(1,incr)="GORO":incr++
symbolslistbox2.cell(1,incr)="GOSS":incr++
symbolslistbox2.cell(1,incr)="GOVT":incr++
'symbolslistbox2.cell(1,incr)="GPAQ":incr++
'symbolslistbox2.cell(1,incr)="GPAQU":incr++
'symbolslistbox2.cell(1,incr)="GPAQW":incr++
symbolslistbox2.cell(1,incr)="GPC":incr++
symbolslistbox2.cell(1,incr)="GPI":incr++
symbolslistbox2.cell(1,incr)="GPJA":incr++
symbolslistbox2.cell(1,incr)="GPK":incr++
symbolslistbox2.cell(1,incr)="GPL":incr++
'symbolslistbox2.cell(1,incr)="GPM":incr++
symbolslistbox2.cell(1,incr)="GPMT":incr++
symbolslistbox2.cell(1,incr)="GPN":incr++
symbolslistbox2.cell(1,incr)="GPOR":incr++
symbolslistbox2.cell(1,incr)="GPP":incr++
symbolslistbox2.cell(1,incr)="GPRE":incr++
symbolslistbox2.cell(1,incr)="GPRK":incr++
symbolslistbox2.cell(1,incr)="GPRO":incr++
symbolslistbox2.cell(1,incr)="GPS":incr++
'symbolslistbox2.cell(1,incr)="GPX":incr++
symbolslistbox2.cell(1,incr)="GQRE":incr++
'symbolslistbox2.cell(1,incr)="GRA":incr++
'symbolslistbox2.cell(1,incr)="GRAF":incr++
'symbolslistbox2.cell(1,incr)="GRAF.U":incr++
'symbolslistbox2.cell(1,incr)="GRAF.W":incr++
'symbolslistbox2.cell(1,incr)="GRAM":incr++
symbolslistbox2.cell(1,incr)="GRBK":incr++
symbolslistbox2.cell(1,incr)="GRC":incr++
symbolslistbox2.cell(1,incr)="GREK":incr++
symbolslistbox2.cell(1,incr)="GRES":incr++
symbolslistbox2.cell(1,incr)="GRF":incr++
symbolslistbox2.cell(1,incr)="GRFS":incr++
'symbolslistbox2.cell(1,incr)="GRI":incr++
symbolslistbox2.cell(1,incr)="GRID":incr++
'symbolslistbox2.cell(1,incr)="GRIF":incr++
symbolslistbox2.cell(1,incr)="GRIN":incr++
symbolslistbox2.cell(1,incr)="GRMN":incr++
'symbolslistbox2.cell(1,incr)="GRN":incr++
symbolslistbox2.cell(1,incr)="GRNB":incr++
symbolslistbox2.cell(1,incr)="GRNQ":incr++
symbolslistbox2.cell(1,incr)="GROW":incr++
'symbolslistbox2.cell(1,incr)="GRP.U":incr++
symbolslistbox2.cell(1,incr)="GRPN":incr++
'symbolslistbox2.cell(1,incr)="GRSH":incr++
'symbolslistbox2.cell(1,incr)="GRSHU":incr++
'symbolslistbox2.cell(1,incr)="GRSHW":incr++
symbolslistbox2.cell(1,incr)="GRTS":incr++
symbolslistbox2.cell(1,incr)="GRU":incr++
symbolslistbox2.cell(1,incr)="GRUB":incr++
symbolslistbox2.cell(1,incr)="GRVY":incr++
symbolslistbox2.cell(1,incr)="GRX":incr++
'symbolslistbox2.cell(1,incr)="GRX$A":incr++
'symbolslistbox2.cell(1,incr)="GRX$B":incr++
symbolslistbox2.cell(1,incr)="GS":incr++
'symbolslistbox2.cell(1,incr)="GS$A":incr++
'symbolslistbox2.cell(1,incr)="GS$C":incr++
'symbolslistbox2.cell(1,incr)="GS$D":incr++
'symbolslistbox2.cell(1,incr)="GS$J":incr++
'symbolslistbox2.cell(1,incr)="GS$K":incr++
'symbolslistbox2.cell(1,incr)="GS$N":incr++
'symbolslistbox2.cell(1,incr)="GSAH":incr++
'symbolslistbox2.cell(1,incr)="GSAH.U":incr++
'symbolslistbox2.cell(1,incr)="GSAH.W":incr++
symbolslistbox2.cell(1,incr)="GSAT":incr++
'symbolslistbox2.cell(1,incr)="GSB":incr++
symbolslistbox2.cell(1,incr)="GSBC":incr++
symbolslistbox2.cell(1,incr)="GSBD":incr++
'symbolslistbox2.cell(1,incr)="GSC":incr++
symbolslistbox2.cell(1,incr)="GSEU":incr++
symbolslistbox2.cell(1,incr)="GSEW":incr++
symbolslistbox2.cell(1,incr)="GSG":incr++
'symbolslistbox2.cell(1,incr)="GSH":incr++
symbolslistbox2.cell(1,incr)="GSHD":incr++
symbolslistbox2.cell(1,incr)="GSIE":incr++
symbolslistbox2.cell(1,incr)="GSIT":incr++
symbolslistbox2.cell(1,incr)="GSJY":incr++
symbolslistbox2.cell(1,incr)="GSK":incr++
symbolslistbox2.cell(1,incr)="GSKY":incr++
symbolslistbox2.cell(1,incr)="GSL":incr++
'symbolslistbox2.cell(1,incr)="GSL$B":incr++
symbolslistbox2.cell(1,incr)="GSLC":incr++
symbolslistbox2.cell(1,incr)="GSM":incr++
symbolslistbox2.cell(1,incr)="GSP":incr++
symbolslistbox2.cell(1,incr)="GSS":incr++
symbolslistbox2.cell(1,incr)="GSSC":incr++
symbolslistbox2.cell(1,incr)="GSST":incr++
'symbolslistbox2.cell(1,incr)="GSUM":incr++
symbolslistbox2.cell(1,incr)="GSV":incr++
'symbolslistbox2.cell(1,incr)="GSX":incr++
symbolslistbox2.cell(1,incr)="GSY":incr++
symbolslistbox2.cell(1,incr)="GT":incr++
symbolslistbox2.cell(1,incr)="GTE":incr++
symbolslistbox2.cell(1,incr)="GTES":incr++
symbolslistbox2.cell(1,incr)="GTHX":incr++
symbolslistbox2.cell(1,incr)="GTIM":incr++
symbolslistbox2.cell(1,incr)="GTIP":incr++
symbolslistbox2.cell(1,incr)="GTLS":incr++
symbolslistbox2.cell(1,incr)="GTN":incr++
'symbolslistbox2.cell(1,incr)="GTN.A":incr++
symbolslistbox2.cell(1,incr)="GTO":incr++
symbolslistbox2.cell(1,incr)="GTS":incr++
'symbolslistbox2.cell(1,incr)="GTT":incr++
symbolslistbox2.cell(1,incr)="GTX":incr++
symbolslistbox2.cell(1,incr)="GTY":incr++
symbolslistbox2.cell(1,incr)="GTYH":incr++
'symbolslistbox2.cell(1,incr)="GUDB":incr++
'symbolslistbox2.cell(1,incr)="GULF":incr++
symbolslistbox2.cell(1,incr)="GUNR":incr++
symbolslistbox2.cell(1,incr)="GURE":incr++
symbolslistbox2.cell(1,incr)="GURU":incr++
symbolslistbox2.cell(1,incr)="GUSH":incr++
symbolslistbox2.cell(1,incr)="GUT":incr++
'symbolslistbox2.cell(1,incr)="GUT$A":incr++
'symbolslistbox2.cell(1,incr)="GUT$C":incr++
'symbolslistbox2.cell(1,incr)="GV":incr++
symbolslistbox2.cell(1,incr)="GVA":incr++
symbolslistbox2.cell(1,incr)="GVAL":incr++
symbolslistbox2.cell(1,incr)="GVI":incr++
symbolslistbox2.cell(1,incr)="GVIP":incr++
symbolslistbox2.cell(1,incr)="GVP":incr++
symbolslistbox2.cell(1,incr)="GWB":incr++
symbolslistbox2.cell(1,incr)="GWGH":incr++
'symbolslistbox2.cell(1,incr)="GWPH":incr++
'symbolslistbox2.cell(1,incr)="GWR":incr++
symbolslistbox2.cell(1,incr)="GWRE":incr++
symbolslistbox2.cell(1,incr)="GWRS":incr++
symbolslistbox2.cell(1,incr)="GWW":incr++
symbolslistbox2.cell(1,incr)="GWX":incr++
symbolslistbox2.cell(1,incr)="GXC":incr++
symbolslistbox2.cell(1,incr)="GXF":incr++
symbolslistbox2.cell(1,incr)="GXG":incr++
'symbolslistbox2.cell(1,incr)="GXGX":incr++
'symbolslistbox2.cell(1,incr)="GXGXU":incr++
'symbolslistbox2.cell(1,incr)="GXGXW":incr++
'symbolslistbox2.cell(1,incr)="GYB":incr++
'symbolslistbox2.cell(1,incr)="GYC":incr++
symbolslistbox2.cell(1,incr)="GYLD":incr++
'symbolslistbox2.cell(1,incr)="GYRO":incr++
symbolslistbox2.cell(1,incr)="H":incr++
symbolslistbox2.cell(1,incr)="HA":incr++
'symbolslistbox2.cell(1,incr)="HABT":incr++
symbolslistbox2.cell(1,incr)="HACK":incr++
symbolslistbox2.cell(1,incr)="HAE":incr++
symbolslistbox2.cell(1,incr)="HAFC":incr++
symbolslistbox2.cell(1,incr)="HAIL":incr++
symbolslistbox2.cell(1,incr)="HAIN":incr++
'symbolslistbox2.cell(1,incr)="HAIR":incr++
symbolslistbox2.cell(1,incr)="HAL":incr++
symbolslistbox2.cell(1,incr)="HALL":incr++
symbolslistbox2.cell(1,incr)="HALO":incr++
'symbolslistbox2.cell(1,incr)="HAO":incr++
symbolslistbox2.cell(1,incr)="HAP":incr++
symbolslistbox2.cell(1,incr)="HARP":incr++
symbolslistbox2.cell(1,incr)="HAS":incr++
symbolslistbox2.cell(1,incr)="HASI":incr++
'symbolslistbox2.cell(1,incr)="HAUD":incr++
symbolslistbox2.cell(1,incr)="HAUZ":incr++
symbolslistbox2.cell(1,incr)="HAWX":incr++
symbolslistbox2.cell(1,incr)="HAYN":incr++
symbolslistbox2.cell(1,incr)="HBAN":incr++
'symbolslistbox2.cell(1,incr)="HBANN":incr++
'symbolslistbox2.cell(1,incr)="HBANO":incr++
symbolslistbox2.cell(1,incr)="HBB":incr++
symbolslistbox2.cell(1,incr)="HBCP":incr++
symbolslistbox2.cell(1,incr)="HBI":incr++
symbolslistbox2.cell(1,incr)="HBIO":incr++
symbolslistbox2.cell(1,incr)="HBM":incr++
symbolslistbox2.cell(1,incr)="HBMD":incr++
symbolslistbox2.cell(1,incr)="HBNC":incr++
symbolslistbox2.cell(1,incr)="HBP":incr++
symbolslistbox2.cell(1,incr)="HCA":incr++
'symbolslistbox2.cell(1,incr)="HCAC":incr++
'symbolslistbox2.cell(1,incr)="HCACU":incr++
'symbolslistbox2.cell(1,incr)="HCACW":incr++
'symbolslistbox2.cell(1,incr)="HCAP":incr++
'symbolslistbox2.cell(1,incr)="HCAPZ":incr++
symbolslistbox2.cell(1,incr)="HCAT":incr++
symbolslistbox2.cell(1,incr)="HCC":incr++
'symbolslistbox2.cell(1,incr)="HCCH":incr++
'symbolslistbox2.cell(1,incr)="HCCHR":incr++
'symbolslistbox2.cell(1,incr)="HCCHU":incr++
'symbolslistbox2.cell(1,incr)="HCCHW":incr++
symbolslistbox2.cell(1,incr)="HCCI":incr++
'symbolslistbox2.cell(1,incr)="HCFT":incr++
'symbolslistbox2.cell(1,incr)="HCHC":incr++
symbolslistbox2.cell(1,incr)="HCI":incr++
symbolslistbox2.cell(1,incr)="HCKT":incr++
symbolslistbox2.cell(1,incr)="HCM":incr++
symbolslistbox2.cell(1,incr)="HCP":incr++
'symbolslistbox2.cell(1,incr)="HCR":incr++
symbolslistbox2.cell(1,incr)="HCSG":incr++
'symbolslistbox2.cell(1,incr)="HCXY":incr++
symbolslistbox2.cell(1,incr)="HCXZ":incr++
symbolslistbox2.cell(1,incr)="HD":incr++
symbolslistbox2.cell(1,incr)="HDAW":incr++
symbolslistbox2.cell(1,incr)="HDB":incr++
symbolslistbox2.cell(1,incr)="HDEF":incr++
symbolslistbox2.cell(1,incr)="HDG":incr++
symbolslistbox2.cell(1,incr)="HDGE":incr++
'symbolslistbox2.cell(1,incr)="HDLV":incr++
symbolslistbox2.cell(1,incr)="HDMV":incr++
'symbolslistbox2.cell(1,incr)="HDS":incr++
symbolslistbox2.cell(1,incr)="HDSN":incr++
symbolslistbox2.cell(1,incr)="HDV":incr++
symbolslistbox2.cell(1,incr)="HE":incr++
symbolslistbox2.cell(1,incr)="HEAR":incr++
'symbolslistbox2.cell(1,incr)="HEBT":incr++
'symbolslistbox2.cell(1,incr)="HECO":incr++
symbolslistbox2.cell(1,incr)="HEDJ":incr++
symbolslistbox2.cell(1,incr)="HEEM":incr++
symbolslistbox2.cell(1,incr)="HEES":incr++
symbolslistbox2.cell(1,incr)="HEFA":incr++
symbolslistbox2.cell(1,incr)="HEI":incr++
'symbolslistbox2.cell(1,incr)="HEI.A":incr++
symbolslistbox2.cell(1,incr)="HELE":incr++
symbolslistbox2.cell(1,incr)="HEP":incr++
symbolslistbox2.cell(1,incr)="HEPA":incr++
symbolslistbox2.cell(1,incr)="HEQ":incr++
symbolslistbox2.cell(1,incr)="HERD":incr++
symbolslistbox2.cell(1,incr)="HES":incr++
symbolslistbox2.cell(1,incr)="HESM":incr++
symbolslistbox2.cell(1,incr)="HEWC":incr++
symbolslistbox2.cell(1,incr)="HEWG":incr++
'symbolslistbox2.cell(1,incr)="HEWI":incr++
symbolslistbox2.cell(1,incr)="HEWJ":incr++
'symbolslistbox2.cell(1,incr)="HEWL":incr++
'symbolslistbox2.cell(1,incr)="HEWP":incr++
symbolslistbox2.cell(1,incr)="HEWU":incr++
symbolslistbox2.cell(1,incr)="HEWW":incr++
'symbolslistbox2.cell(1,incr)="HEWY":incr++
symbolslistbox2.cell(1,incr)="HEXO":incr++
symbolslistbox2.cell(1,incr)="HEZU":incr++
'symbolslistbox2.cell(1,incr)="HFBL":incr++
symbolslistbox2.cell(1,incr)="HFC":incr++
symbolslistbox2.cell(1,incr)="HFFG":incr++
symbolslistbox2.cell(1,incr)="HFRO":incr++
'symbolslistbox2.cell(1,incr)="HFRO$A":incr++
symbolslistbox2.cell(1,incr)="HFWA":incr++
'symbolslistbox2.cell(1,incr)="HFXE":incr++
symbolslistbox2.cell(1,incr)="HFXI":incr++
'symbolslistbox2.cell(1,incr)="HFXJ":incr++
symbolslistbox2.cell(1,incr)="HGH":incr++
symbolslistbox2.cell(1,incr)="HGLB":incr++
symbolslistbox2.cell(1,incr)="HGSH":incr++
symbolslistbox2.cell(1,incr)="HGV":incr++
symbolslistbox2.cell(1,incr)="HHC":incr++
'symbolslistbox2.cell(1,incr)="HHHH":incr++
'symbolslistbox2.cell(1,incr)="HHHHR":incr++
'symbolslistbox2.cell(1,incr)="HHHHU":incr++
'symbolslistbox2.cell(1,incr)="HHHHW":incr++
symbolslistbox2.cell(1,incr)="HHR":incr++
symbolslistbox2.cell(1,incr)="HHS":incr++
'symbolslistbox2.cell(1,incr)="HHT":incr++
symbolslistbox2.cell(1,incr)="HI":incr++
symbolslistbox2.cell(1,incr)="HIBB":incr++
symbolslistbox2.cell(1,incr)="HIE":incr++
'symbolslistbox2.cell(1,incr)="HIFS":incr++
symbolslistbox2.cell(1,incr)="HIG":incr++
'symbolslistbox2.cell(1,incr)="HIG$G":incr++
symbolslistbox2.cell(1,incr)="HIHO":incr++
symbolslistbox2.cell(1,incr)="HII":incr++
'symbolslistbox2.cell(1,incr)="HIIQ":incr++
symbolslistbox2.cell(1,incr)="HIL":incr++
symbolslistbox2.cell(1,incr)="HIMX":incr++
symbolslistbox2.cell(1,incr)="HIO":incr++
symbolslistbox2.cell(1,incr)="HIPS":incr++
symbolslistbox2.cell(1,incr)="HIW":incr++
symbolslistbox2.cell(1,incr)="HIX":incr++
'symbolslistbox2.cell(1,incr)="HJLI":incr++
'symbolslistbox2.cell(1,incr)="HJLIW":incr++
symbolslistbox2.cell(1,incr)="HJPX":incr++
'symbolslistbox2.cell(1,incr)="HJV":incr++
symbolslistbox2.cell(1,incr)="HKIB":incr++
symbolslistbox2.cell(1,incr)="HL":incr++
'symbolslistbox2.cell(1,incr)="HL$B":incr++
symbolslistbox2.cell(1,incr)="HLAL":incr++
symbolslistbox2.cell(1,incr)="HLF":incr++
symbolslistbox2.cell(1,incr)="HLG":incr++
symbolslistbox2.cell(1,incr)="HLI":incr++
symbolslistbox2.cell(1,incr)="HLIO":incr++
symbolslistbox2.cell(1,incr)="HLIT":incr++
'symbolslistbox2.cell(1,incr)="HLM$":incr++
symbolslistbox2.cell(1,incr)="HLNE":incr++
symbolslistbox2.cell(1,incr)="HLT":incr++
symbolslistbox2.cell(1,incr)="HLX":incr++
symbolslistbox2.cell(1,incr)="HMC":incr++
'symbolslistbox2.cell(1,incr)="HMG":incr++
symbolslistbox2.cell(1,incr)="HMHC":incr++
'symbolslistbox2.cell(1,incr)="HMI":incr++
symbolslistbox2.cell(1,incr)="HMLP":incr++
'symbolslistbox2.cell(1,incr)="HMLP$A":incr++
symbolslistbox2.cell(1,incr)="HMN":incr++
symbolslistbox2.cell(1,incr)="HMNF":incr++
symbolslistbox2.cell(1,incr)="HMOP":incr++
symbolslistbox2.cell(1,incr)="HMST":incr++
'symbolslistbox2.cell(1,incr)="HMSY":incr++
symbolslistbox2.cell(1,incr)="HMTV":incr++
symbolslistbox2.cell(1,incr)="HMY":incr++
symbolslistbox2.cell(1,incr)="HNDL":incr++
symbolslistbox2.cell(1,incr)="HNGR":incr++
symbolslistbox2.cell(1,incr)="HNI":incr++
symbolslistbox2.cell(1,incr)="HNNA":incr++
symbolslistbox2.cell(1,incr)="HNP":incr++
symbolslistbox2.cell(1,incr)="HNRG":incr++
symbolslistbox2.cell(1,incr)="HNW":incr++
symbolslistbox2.cell(1,incr)="HOFT":incr++
symbolslistbox2.cell(1,incr)="HOG":incr++
symbolslistbox2.cell(1,incr)="HOLD":incr++
symbolslistbox2.cell(1,incr)="HOLI":incr++
symbolslistbox2.cell(1,incr)="HOLX":incr++
symbolslistbox2.cell(1,incr)="HOMB":incr++
'symbolslistbox2.cell(1,incr)="HOME":incr++
'symbolslistbox2.cell(1,incr)="HOML":incr++
symbolslistbox2.cell(1,incr)="HOMZ":incr++
symbolslistbox2.cell(1,incr)="HON":incr++
symbolslistbox2.cell(1,incr)="HONE":incr++
'symbolslistbox2.cell(1,incr)="HONR":incr++
symbolslistbox2.cell(1,incr)="HOOK":incr++
symbolslistbox2.cell(1,incr)="HOPE":incr++
'symbolslistbox2.cell(1,incr)="HOS":incr++
symbolslistbox2.cell(1,incr)="HOTH":incr++
symbolslistbox2.cell(1,incr)="HOV":incr++
'symbolslistbox2.cell(1,incr)="HOVNP":incr++
symbolslistbox2.cell(1,incr)="HP":incr++
symbolslistbox2.cell(1,incr)="HPE":incr++
symbolslistbox2.cell(1,incr)="HPF":incr++
symbolslistbox2.cell(1,incr)="HPI":incr++
'symbolslistbox2.cell(1,incr)="HPJ":incr++
symbolslistbox2.cell(1,incr)="HPP":incr++
symbolslistbox2.cell(1,incr)="HPQ":incr++
'symbolslistbox2.cell(1,incr)="HPR":incr++
symbolslistbox2.cell(1,incr)="HPS":incr++
symbolslistbox2.cell(1,incr)="HQH":incr++
symbolslistbox2.cell(1,incr)="HQI":incr++
symbolslistbox2.cell(1,incr)="HQL":incr++
symbolslistbox2.cell(1,incr)="HQY":incr++
symbolslistbox2.cell(1,incr)="HR":incr++
symbolslistbox2.cell(1,incr)="HRB":incr++
'symbolslistbox2.cell(1,incr)="HRC":incr++
symbolslistbox2.cell(1,incr)="HRI":incr++
symbolslistbox2.cell(1,incr)="HRL":incr++
symbolslistbox2.cell(1,incr)="HROW":incr++
symbolslistbox2.cell(1,incr)="HRTG":incr++
symbolslistbox2.cell(1,incr)="HRTX":incr++
symbolslistbox2.cell(1,incr)="HRZN":incr++
'symbolslistbox2.cell(1,incr)="HSAC":incr++
'symbolslistbox2.cell(1,incr)="HSACU":incr++
'symbolslistbox2.cell(1,incr)="HSACW":incr++
symbolslistbox2.cell(1,incr)="HSBC":incr++
'symbolslistbox2.cell(1,incr)="HSBC$A":incr++
symbolslistbox2.cell(1,incr)="HSC":incr++
symbolslistbox2.cell(1,incr)="HSCZ":incr++
symbolslistbox2.cell(1,incr)="HSDT":incr++
'symbolslistbox2.cell(1,incr)="HSGX":incr++
symbolslistbox2.cell(1,incr)="HSIC":incr++
symbolslistbox2.cell(1,incr)="HSII":incr++
symbolslistbox2.cell(1,incr)="HSKA":incr++
symbolslistbox2.cell(1,incr)="HSON":incr++
'symbolslistbox2.cell(1,incr)="HSPX":incr++
symbolslistbox2.cell(1,incr)="HSRT":incr++
symbolslistbox2.cell(1,incr)="HST":incr++
symbolslistbox2.cell(1,incr)="HSTM":incr++
symbolslistbox2.cell(1,incr)="HSY":incr++
symbolslistbox2.cell(1,incr)="HT":incr++
'symbolslistbox2.cell(1,incr)="HT$C":incr++
'symbolslistbox2.cell(1,incr)="HT$D":incr++
'symbolslistbox2.cell(1,incr)="HT$E":incr++
symbolslistbox2.cell(1,incr)="HTA":incr++
symbolslistbox2.cell(1,incr)="HTAB":incr++
symbolslistbox2.cell(1,incr)="HTBI":incr++
symbolslistbox2.cell(1,incr)="HTBK":incr++
symbolslistbox2.cell(1,incr)="HTBX":incr++
symbolslistbox2.cell(1,incr)="HTD":incr++
symbolslistbox2.cell(1,incr)="HTEC":incr++
'symbolslistbox2.cell(1,incr)="HTFA":incr++
symbolslistbox2.cell(1,incr)="HTGC":incr++
symbolslistbox2.cell(1,incr)="HTGM":incr++
symbolslistbox2.cell(1,incr)="HTH":incr++
symbolslistbox2.cell(1,incr)="HTHT":incr++
symbolslistbox2.cell(1,incr)="HTLD":incr++
symbolslistbox2.cell(1,incr)="HTLF":incr++
symbolslistbox2.cell(1,incr)="HTRB":incr++
symbolslistbox2.cell(1,incr)="HTUS":incr++
symbolslistbox2.cell(1,incr)="HTY":incr++
symbolslistbox2.cell(1,incr)="HTZ":incr++
symbolslistbox2.cell(1,incr)="HUBB":incr++
symbolslistbox2.cell(1,incr)="HUBG":incr++
symbolslistbox2.cell(1,incr)="HUBS":incr++
'symbolslistbox2.cell(1,incr)="HUD":incr++
symbolslistbox2.cell(1,incr)="HUM":incr++
symbolslistbox2.cell(1,incr)="HUN":incr++
symbolslistbox2.cell(1,incr)="HURC":incr++
symbolslistbox2.cell(1,incr)="HURN":incr++
symbolslistbox2.cell(1,incr)="HUSA":incr++
'symbolslistbox2.cell(1,incr)="HUSE":incr++
symbolslistbox2.cell(1,incr)="HUSV":incr++
symbolslistbox2.cell(1,incr)="HUYA":incr++
symbolslistbox2.cell(1,incr)="HVBC":incr++
symbolslistbox2.cell(1,incr)="HVT":incr++
'symbolslistbox2.cell(1,incr)="HVT.A":incr++
symbolslistbox2.cell(1,incr)="HWBK":incr++
symbolslistbox2.cell(1,incr)="HWC":incr++
'symbolslistbox2.cell(1,incr)="HWCC":incr++
'symbolslistbox2.cell(1,incr)="HWCPL":incr++
symbolslistbox2.cell(1,incr)="HWKN":incr++
'symbolslistbox2.cell(1,incr)="HX":incr++
symbolslistbox2.cell(1,incr)="HXL":incr++
symbolslistbox2.cell(1,incr)="HY":incr++
symbolslistbox2.cell(1,incr)="HYAC":incr++
symbolslistbox2.cell(1,incr)="HYACU":incr++
'symbolslistbox2.cell(1,incr)="HYACW":incr++
symbolslistbox2.cell(1,incr)="HYB":incr++
symbolslistbox2.cell(1,incr)="HYD":incr++
symbolslistbox2.cell(1,incr)="HYDB":incr++
'symbolslistbox2.cell(1,incr)="HYDD":incr++
symbolslistbox2.cell(1,incr)="HYDW":incr++
symbolslistbox2.cell(1,incr)="HYEM":incr++
symbolslistbox2.cell(1,incr)="HYG":incr++
symbolslistbox2.cell(1,incr)="HYGH":incr++
symbolslistbox2.cell(1,incr)="HYGV":incr++
symbolslistbox2.cell(1,incr)="HYHG":incr++
symbolslistbox2.cell(1,incr)="HYI":incr++
'symbolslistbox2.cell(1,incr)="HYIH":incr++
symbolslistbox2.cell(1,incr)="HYLB":incr++
symbolslistbox2.cell(1,incr)="HYLD":incr++
symbolslistbox2.cell(1,incr)="HYLS":incr++
symbolslistbox2.cell(1,incr)="HYLV":incr++
symbolslistbox2.cell(1,incr)="HYMB":incr++
'symbolslistbox2.cell(1,incr)="HYND":incr++
symbolslistbox2.cell(1,incr)="HYRE":incr++
symbolslistbox2.cell(1,incr)="HYS":incr++
symbolslistbox2.cell(1,incr)="HYT":incr++
symbolslistbox2.cell(1,incr)="HYUP":incr++
'symbolslistbox2.cell(1,incr)="HYXE":incr++
symbolslistbox2.cell(1,incr)="HYXU":incr++
symbolslistbox2.cell(1,incr)="HYZD":incr++
symbolslistbox2.cell(1,incr)="HZN":incr++
symbolslistbox2.cell(1,incr)="HZNP":incr++
symbolslistbox2.cell(1,incr)="HZO":incr++
'symbolslistbox2.cell(1,incr)="I":incr++
symbolslistbox2.cell(1,incr)="IAA":incr++
symbolslistbox2.cell(1,incr)="IAC":incr++
'symbolslistbox2.cell(1,incr)="IAE":incr++
symbolslistbox2.cell(1,incr)="IAF":incr++
symbolslistbox2.cell(1,incr)="IAG":incr++
symbolslistbox2.cell(1,incr)="IAGG":incr++
symbolslistbox2.cell(1,incr)="IAI":incr++
symbolslistbox2.cell(1,incr)="IAK":incr++
symbolslistbox2.cell(1,incr)="IART":incr++
symbolslistbox2.cell(1,incr)="IAT":incr++
symbolslistbox2.cell(1,incr)="IAU":incr++
symbolslistbox2.cell(1,incr)="IAUF":incr++
symbolslistbox2.cell(1,incr)="IBA":incr++
symbolslistbox2.cell(1,incr)="IBB":incr++
'symbolslistbox2.cell(1,incr)="IBCD":incr++
symbolslistbox2.cell(1,incr)="IBCE":incr++
symbolslistbox2.cell(1,incr)="IBCP":incr++
symbolslistbox2.cell(1,incr)="IBD":incr++
'symbolslistbox2.cell(1,incr)="IBDC":incr++
symbolslistbox2.cell(1,incr)="IBDD":incr++
'symbolslistbox2.cell(1,incr)="IBDK":incr++
'symbolslistbox2.cell(1,incr)="IBDL":incr++
symbolslistbox2.cell(1,incr)="IBDM":incr++
symbolslistbox2.cell(1,incr)="IBDN":incr++
symbolslistbox2.cell(1,incr)="IBDO":incr++
symbolslistbox2.cell(1,incr)="IBDP":incr++
symbolslistbox2.cell(1,incr)="IBDQ":incr++
symbolslistbox2.cell(1,incr)="IBDR":incr++
symbolslistbox2.cell(1,incr)="IBDS":incr++
symbolslistbox2.cell(1,incr)="IBDT":incr++
symbolslistbox2.cell(1,incr)="IBDU":incr++
symbolslistbox2.cell(1,incr)="IBHA":incr++
symbolslistbox2.cell(1,incr)="IBHB":incr++
symbolslistbox2.cell(1,incr)="IBHC":incr++
symbolslistbox2.cell(1,incr)="IBHD":incr++
symbolslistbox2.cell(1,incr)="IBHE":incr++
symbolslistbox2.cell(1,incr)="IBIO":incr++
'symbolslistbox2.cell(1,incr)="IBKC":incr++
'symbolslistbox2.cell(1,incr)="IBKCN":incr++
'symbolslistbox2.cell(1,incr)="IBKCO":incr++
'symbolslistbox2.cell(1,incr)="IBKCP":incr++
symbolslistbox2.cell(1,incr)="IBKR":incr++
symbolslistbox2.cell(1,incr)="IBM":incr++
'symbolslistbox2.cell(1,incr)="IBMI":incr++
symbolslistbox2.cell(1,incr)="IBMJ":incr++
symbolslistbox2.cell(1,incr)="IBMK":incr++
symbolslistbox2.cell(1,incr)="IBML":incr++
symbolslistbox2.cell(1,incr)="IBMM":incr++
symbolslistbox2.cell(1,incr)="IBMN":incr++
symbolslistbox2.cell(1,incr)="IBMO":incr++
symbolslistbox2.cell(1,incr)="IBMP":incr++
symbolslistbox2.cell(1,incr)="IBMQ":incr++
symbolslistbox2.cell(1,incr)="IBN":incr++
symbolslistbox2.cell(1,incr)="IBND":incr++
'symbolslistbox2.cell(1,incr)="IBO":incr++
symbolslistbox2.cell(1,incr)="IBOC":incr++
symbolslistbox2.cell(1,incr)="IBP":incr++
symbolslistbox2.cell(1,incr)="IBTX":incr++
symbolslistbox2.cell(1,incr)="IBUY":incr++
symbolslistbox2.cell(1,incr)="ICAD":incr++
'symbolslistbox2.cell(1,incr)="ICBK":incr++
symbolslistbox2.cell(1,incr)="ICCC":incr++
'symbolslistbox2.cell(1,incr)="ICCH":incr++
symbolslistbox2.cell(1,incr)="ICD":incr++
symbolslistbox2.cell(1,incr)="ICE":incr++
symbolslistbox2.cell(1,incr)="ICF":incr++
symbolslistbox2.cell(1,incr)="ICFI":incr++
symbolslistbox2.cell(1,incr)="ICHR":incr++
symbolslistbox2.cell(1,incr)="ICL":incr++
symbolslistbox2.cell(1,incr)="ICLK":incr++
symbolslistbox2.cell(1,incr)="ICLN":incr++
symbolslistbox2.cell(1,incr)="ICLR":incr++
symbolslistbox2.cell(1,incr)="ICMB":incr++
symbolslistbox2.cell(1,incr)="ICOL":incr++
'symbolslistbox2.cell(1,incr)="ICON":incr++
symbolslistbox2.cell(1,incr)="ICOW":incr++
symbolslistbox2.cell(1,incr)="ICPT":incr++
symbolslistbox2.cell(1,incr)="ICSH":incr++
symbolslistbox2.cell(1,incr)="ICUI":incr++
symbolslistbox2.cell(1,incr)="ICVT":incr++
symbolslistbox2.cell(1,incr)="IDA":incr++
symbolslistbox2.cell(1,incr)="IDCC":incr++
symbolslistbox2.cell(1,incr)="IDE":incr++
symbolslistbox2.cell(1,incr)="IDEV":incr++
symbolslistbox2.cell(1,incr)="IDEX":incr++
symbolslistbox2.cell(1,incr)="IDHD":incr++
symbolslistbox2.cell(1,incr)="IDHQ":incr++
symbolslistbox2.cell(1,incr)="IDIV":incr++
symbolslistbox2.cell(1,incr)="IDLB":incr++
symbolslistbox2.cell(1,incr)="IDLV":incr++
symbolslistbox2.cell(1,incr)="IDMO":incr++
symbolslistbox2.cell(1,incr)="IDN":incr++
symbolslistbox2.cell(1,incr)="IDNA":incr++
symbolslistbox2.cell(1,incr)="IDOG":incr++
symbolslistbox2.cell(1,incr)="IDRA":incr++
symbolslistbox2.cell(1,incr)="IDRV":incr++
'symbolslistbox2.cell(1,incr)="IDSA":incr++
'symbolslistbox2.cell(1,incr)="IDSY":incr++
symbolslistbox2.cell(1,incr)="IDT":incr++
symbolslistbox2.cell(1,incr)="IDU":incr++
symbolslistbox2.cell(1,incr)="IDV":incr++
symbolslistbox2.cell(1,incr)="IDX":incr++
symbolslistbox2.cell(1,incr)="IDXG":incr++
symbolslistbox2.cell(1,incr)="IDXX":incr++
symbolslistbox2.cell(1,incr)="IDYA":incr++
symbolslistbox2.cell(1,incr)="IEA":incr++
'symbolslistbox2.cell(1,incr)="IEAWW":incr++
'symbolslistbox2.cell(1,incr)="IEC":incr++
symbolslistbox2.cell(1,incr)="IECS":incr++
symbolslistbox2.cell(1,incr)="IEDI":incr++
symbolslistbox2.cell(1,incr)="IEF":incr++
symbolslistbox2.cell(1,incr)="IEFA":incr++
symbolslistbox2.cell(1,incr)="IEFN":incr++
symbolslistbox2.cell(1,incr)="IEHS":incr++
symbolslistbox2.cell(1,incr)="IEI":incr++
symbolslistbox2.cell(1,incr)="IEIH":incr++
'symbolslistbox2.cell(1,incr)="IEMD":incr++
symbolslistbox2.cell(1,incr)="IEME":incr++
symbolslistbox2.cell(1,incr)="IEMG":incr++
'symbolslistbox2.cell(1,incr)="IEMV":incr++
symbolslistbox2.cell(1,incr)="IEO":incr++
symbolslistbox2.cell(1,incr)="IEP":incr++
symbolslistbox2.cell(1,incr)="IESC":incr++
symbolslistbox2.cell(1,incr)="IETC":incr++
symbolslistbox2.cell(1,incr)="IEUR":incr++
symbolslistbox2.cell(1,incr)="IEUS":incr++
symbolslistbox2.cell(1,incr)="IEV":incr++
symbolslistbox2.cell(1,incr)="IEX":incr++
symbolslistbox2.cell(1,incr)="IEZ":incr++
'symbolslistbox2.cell(1,incr)="IFEU":incr++
symbolslistbox2.cell(1,incr)="IFF":incr++
'symbolslistbox2.cell(1,incr)="IFFT":incr++
symbolslistbox2.cell(1,incr)="IFGL":incr++
'symbolslistbox2.cell(1,incr)="IFIX":incr++
'symbolslistbox2.cell(1,incr)="IFLY":incr++
symbolslistbox2.cell(1,incr)="IFMK":incr++
symbolslistbox2.cell(1,incr)="IFN":incr++
symbolslistbox2.cell(1,incr)="IFRA":incr++
symbolslistbox2.cell(1,incr)="IFRX":incr++
symbolslistbox2.cell(1,incr)="IFS":incr++
symbolslistbox2.cell(1,incr)="IFV":incr++
symbolslistbox2.cell(1,incr)="IG":incr++
symbolslistbox2.cell(1,incr)="IGA":incr++
symbolslistbox2.cell(1,incr)="IGBH":incr++
symbolslistbox2.cell(1,incr)="IGC":incr++
symbolslistbox2.cell(1,incr)="IGD":incr++
symbolslistbox2.cell(1,incr)="IGE":incr++
symbolslistbox2.cell(1,incr)="IGEB":incr++
symbolslistbox2.cell(1,incr)="IGF":incr++
symbolslistbox2.cell(1,incr)="IGHG":incr++
symbolslistbox2.cell(1,incr)="IGI":incr++
symbolslistbox2.cell(1,incr)="IGIB":incr++
'symbolslistbox2.cell(1,incr)="IGIH":incr++
symbolslistbox2.cell(1,incr)="IGLB":incr++
symbolslistbox2.cell(1,incr)="IGLD":incr++
symbolslistbox2.cell(1,incr)="IGM":incr++
symbolslistbox2.cell(1,incr)="IGMS":incr++
symbolslistbox2.cell(1,incr)="IGN":incr++
symbolslistbox2.cell(1,incr)="IGOV":incr++
symbolslistbox2.cell(1,incr)="IGR":incr++
symbolslistbox2.cell(1,incr)="IGRO":incr++
symbolslistbox2.cell(1,incr)="IGSB":incr++
symbolslistbox2.cell(1,incr)="IGT":incr++
symbolslistbox2.cell(1,incr)="IGV":incr++
'symbolslistbox2.cell(1,incr)="IGVT":incr++
'symbolslistbox2.cell(1,incr)="IGZ":incr++
'symbolslistbox2.cell(1,incr)="IHAK":incr++
symbolslistbox2.cell(1,incr)="IHC":incr++
symbolslistbox2.cell(1,incr)="IHD":incr++
symbolslistbox2.cell(1,incr)="IHDG":incr++
symbolslistbox2.cell(1,incr)="IHE":incr++
symbolslistbox2.cell(1,incr)="IHF":incr++
symbolslistbox2.cell(1,incr)="IHG":incr++
symbolslistbox2.cell(1,incr)="IHI":incr++
symbolslistbox2.cell(1,incr)="IHIT":incr++
symbolslistbox2.cell(1,incr)="IHRT":incr++
symbolslistbox2.cell(1,incr)="IHT":incr++
symbolslistbox2.cell(1,incr)="IHTA":incr++
symbolslistbox2.cell(1,incr)="IHY":incr++
'symbolslistbox2.cell(1,incr)="IHYD":incr++
'symbolslistbox2.cell(1,incr)="IHYV":incr++
'symbolslistbox2.cell(1,incr)="IID":incr++
symbolslistbox2.cell(1,incr)="IIF":incr++
symbolslistbox2.cell(1,incr)="IIGD":incr++
symbolslistbox2.cell(1,incr)="IIGV":incr++
symbolslistbox2.cell(1,incr)="III":incr++
symbolslistbox2.cell(1,incr)="IIIN":incr++
symbolslistbox2.cell(1,incr)="IIIV":incr++
symbolslistbox2.cell(1,incr)="IIM":incr++
symbolslistbox2.cell(1,incr)="IIN":incr++
symbolslistbox2.cell(1,incr)="IIPR":incr++
'symbolslistbox2.cell(1,incr)="IIPR$A":incr++
symbolslistbox2.cell(1,incr)="IIVI":incr++
symbolslistbox2.cell(1,incr)="IJH":incr++
symbolslistbox2.cell(1,incr)="IJJ":incr++
symbolslistbox2.cell(1,incr)="IJK":incr++
symbolslistbox2.cell(1,incr)="IJR":incr++
symbolslistbox2.cell(1,incr)="IJS":incr++
symbolslistbox2.cell(1,incr)="IJT":incr++
symbolslistbox2.cell(1,incr)="IJUL":incr++
'symbolslistbox2.cell(1,incr)="IKNX":incr++
symbolslistbox2.cell(1,incr)="ILF":incr++
symbolslistbox2.cell(1,incr)="ILMN":incr++
symbolslistbox2.cell(1,incr)="ILPT":incr++
symbolslistbox2.cell(1,incr)="ILTB":incr++
symbolslistbox2.cell(1,incr)="IMAC":incr++
'symbolslistbox2.cell(1,incr)="IMACW":incr++
symbolslistbox2.cell(1,incr)="IMAX":incr++
symbolslistbox2.cell(1,incr)="IMBI":incr++
'symbolslistbox2.cell(1,incr)="IMFC":incr++
'symbolslistbox2.cell(1,incr)="IMFD":incr++
'symbolslistbox2.cell(1,incr)="IMFI":incr++
'symbolslistbox2.cell(1,incr)="IMFP":incr++
symbolslistbox2.cell(1,incr)="IMGN":incr++
symbolslistbox2.cell(1,incr)="IMH":incr++
symbolslistbox2.cell(1,incr)="IMKTA":incr++
symbolslistbox2.cell(1,incr)="IMLP":incr++
symbolslistbox2.cell(1,incr)="IMMP":incr++
symbolslistbox2.cell(1,incr)="IMMR":incr++
'symbolslistbox2.cell(1,incr)="IMMU":incr++
symbolslistbox2.cell(1,incr)="IMO":incr++
symbolslistbox2.cell(1,incr)="IMOM":incr++
symbolslistbox2.cell(1,incr)="IMOS":incr++
symbolslistbox2.cell(1,incr)="IMRN":incr++
'symbolslistbox2.cell(1,incr)="IMRNW":incr++
symbolslistbox2.cell(1,incr)="IMTB":incr++
symbolslistbox2.cell(1,incr)="IMTE":incr++
symbolslistbox2.cell(1,incr)="IMTM":incr++
symbolslistbox2.cell(1,incr)="IMUX":incr++
symbolslistbox2.cell(1,incr)="IMV":incr++
symbolslistbox2.cell(1,incr)="IMXI":incr++
'symbolslistbox2.cell(1,incr)="INAG":incr++
'symbolslistbox2.cell(1,incr)="INAP":incr++
'symbolslistbox2.cell(1,incr)="INAU":incr++
'symbolslistbox2.cell(1,incr)="INB":incr++
symbolslistbox2.cell(1,incr)="INBK":incr++
'symbolslistbox2.cell(1,incr)="INBKL":incr++
'symbolslistbox2.cell(1,incr)="INBKZ":incr++
symbolslistbox2.cell(1,incr)="INCO":incr++
symbolslistbox2.cell(1,incr)="INCY":incr++
symbolslistbox2.cell(1,incr)="INDA":incr++
symbolslistbox2.cell(1,incr)="INDB":incr++
symbolslistbox2.cell(1,incr)="INDL":incr++
symbolslistbox2.cell(1,incr)="INDS":incr++
symbolslistbox2.cell(1,incr)="INDY":incr++
'symbolslistbox2.cell(1,incr)="INF":incr++
symbolslistbox2.cell(1,incr)="INFI":incr++
symbolslistbox2.cell(1,incr)="INFN":incr++
symbolslistbox2.cell(1,incr)="INFO":incr++
symbolslistbox2.cell(1,incr)="INFR":incr++
symbolslistbox2.cell(1,incr)="INFU":incr++
symbolslistbox2.cell(1,incr)="INFY":incr++
symbolslistbox2.cell(1,incr)="ING":incr++
symbolslistbox2.cell(1,incr)="INGN":incr++
symbolslistbox2.cell(1,incr)="INGR":incr++
symbolslistbox2.cell(1,incr)="INKM":incr++
symbolslistbox2.cell(1,incr)="INMB":incr++
symbolslistbox2.cell(1,incr)="INMD":incr++
symbolslistbox2.cell(1,incr)="INN":incr++
'symbolslistbox2.cell(1,incr)="INN$D":incr++
'symbolslistbox2.cell(1,incr)="INN$E":incr++
'symbolslistbox2.cell(1,incr)="INNT":incr++
symbolslistbox2.cell(1,incr)="INO":incr++
symbolslistbox2.cell(1,incr)="INOD":incr++
'symbolslistbox2.cell(1,incr)="INOV":incr++
symbolslistbox2.cell(1,incr)="INPX":incr++
'symbolslistbox2.cell(1,incr)="INR":incr++
symbolslistbox2.cell(1,incr)="INS":incr++
symbolslistbox2.cell(1,incr)="INSE":incr++
symbolslistbox2.cell(1,incr)="INSG":incr++
symbolslistbox2.cell(1,incr)="INSI":incr++
symbolslistbox2.cell(1,incr)="INSM":incr++
symbolslistbox2.cell(1,incr)="INSP":incr++
symbolslistbox2.cell(1,incr)="INST":incr++
'symbolslistbox2.cell(1,incr)="INSU":incr++
'symbolslistbox2.cell(1,incr)="INSUU":incr++
'symbolslistbox2.cell(1,incr)="INSUW":incr++
symbolslistbox2.cell(1,incr)="INSW":incr++
'symbolslistbox2.cell(1,incr)="INSW$A":incr++
symbolslistbox2.cell(1,incr)="INT":incr++
symbolslistbox2.cell(1,incr)="INTC":incr++
symbolslistbox2.cell(1,incr)="INTF":incr++
'symbolslistbox2.cell(1,incr)="INTG":incr++
'symbolslistbox2.cell(1,incr)="INTL":incr++
symbolslistbox2.cell(1,incr)="INTT":incr++
symbolslistbox2.cell(1,incr)="INTU":incr++
symbolslistbox2.cell(1,incr)="INUV":incr++
symbolslistbox2.cell(1,incr)="INVA":incr++
symbolslistbox2.cell(1,incr)="INVE":incr++
symbolslistbox2.cell(1,incr)="INVH":incr++
'symbolslistbox2.cell(1,incr)="INWK":incr++
'symbolslistbox2.cell(1,incr)="INXN":incr++
symbolslistbox2.cell(1,incr)="IO":incr++
symbolslistbox2.cell(1,incr)="IONS":incr++
symbolslistbox2.cell(1,incr)="IOO":incr++
symbolslistbox2.cell(1,incr)="IOR":incr++
symbolslistbox2.cell(1,incr)="IOSP":incr++
'symbolslistbox2.cell(1,incr)="IOTS":incr++
symbolslistbox2.cell(1,incr)="IOVA":incr++
symbolslistbox2.cell(1,incr)="IP":incr++
symbolslistbox2.cell(1,incr)="IPAC":incr++
symbolslistbox2.cell(1,incr)="IPAR":incr++
symbolslistbox2.cell(1,incr)="IPAY":incr++
symbolslistbox2.cell(1,incr)="IPB":incr++
symbolslistbox2.cell(1,incr)="IPDN":incr++
symbolslistbox2.cell(1,incr)="IPFF":incr++
symbolslistbox2.cell(1,incr)="IPG":incr++
symbolslistbox2.cell(1,incr)="IPGP":incr++
'symbolslistbox2.cell(1,incr)="IPHI":incr++
'symbolslistbox2.cell(1,incr)="IPHS":incr++
symbolslistbox2.cell(1,incr)="IPI":incr++
symbolslistbox2.cell(1,incr)="IPKW":incr++
'symbolslistbox2.cell(1,incr)="IPLDP":incr++
symbolslistbox2.cell(1,incr)="IPO":incr++
'symbolslistbox2.cell(1,incr)="IPOA":incr++
'symbolslistbox2.cell(1,incr)="IPOA.U":incr++
'symbolslistbox2.cell(1,incr)="IPOA.W":incr++
symbolslistbox2.cell(1,incr)="IPOS":incr++
symbolslistbox2.cell(1,incr)="IPWR":incr++
symbolslistbox2.cell(1,incr)="IQ":incr++
symbolslistbox2.cell(1,incr)="IQDE":incr++
symbolslistbox2.cell(1,incr)="IQDF":incr++
symbolslistbox2.cell(1,incr)="IQDG":incr++
symbolslistbox2.cell(1,incr)="IQDY":incr++
symbolslistbox2.cell(1,incr)="IQI":incr++
symbolslistbox2.cell(1,incr)="IQIN":incr++
symbolslistbox2.cell(1,incr)="IQLT":incr++
symbolslistbox2.cell(1,incr)="IQV":incr++
symbolslistbox2.cell(1,incr)="IR":incr++
symbolslistbox2.cell(1,incr)="IRBO":incr++
symbolslistbox2.cell(1,incr)="IRBT":incr++
symbolslistbox2.cell(1,incr)="IRCP":incr++
symbolslistbox2.cell(1,incr)="IRDM":incr++
'symbolslistbox2.cell(1,incr)="IRET":incr++
'symbolslistbox2.cell(1,incr)="IRET$C":incr++
symbolslistbox2.cell(1,incr)="IRIX":incr++
symbolslistbox2.cell(1,incr)="IRL":incr++
symbolslistbox2.cell(1,incr)="IRM":incr++
symbolslistbox2.cell(1,incr)="IRMD":incr++
'symbolslistbox2.cell(1,incr)="IROQ":incr++
'symbolslistbox2.cell(1,incr)="IRR":incr++
symbolslistbox2.cell(1,incr)="IRS":incr++
symbolslistbox2.cell(1,incr)="IRT":incr++
symbolslistbox2.cell(1,incr)="IRTC":incr++
symbolslistbox2.cell(1,incr)="IRWD":incr++
symbolslistbox2.cell(1,incr)="ISBC":incr++
'symbolslistbox2.cell(1,incr)="ISCA":incr++
symbolslistbox2.cell(1,incr)="ISCF":incr++
symbolslistbox2.cell(1,incr)="ISD":incr++
symbolslistbox2.cell(1,incr)="ISDR":incr++
'symbolslistbox2.cell(1,incr)="ISDS":incr++
symbolslistbox2.cell(1,incr)="ISDX":incr++
symbolslistbox2.cell(1,incr)="ISEE":incr++
symbolslistbox2.cell(1,incr)="ISEM":incr++
'symbolslistbox2.cell(1,incr)="ISG":incr++
symbolslistbox2.cell(1,incr)="ISHG":incr++
symbolslistbox2.cell(1,incr)="ISIG":incr++
symbolslistbox2.cell(1,incr)="ISMD":incr++
'symbolslistbox2.cell(1,incr)="ISNS":incr++
symbolslistbox2.cell(1,incr)="ISR":incr++
symbolslistbox2.cell(1,incr)="ISRA":incr++
symbolslistbox2.cell(1,incr)="ISRG":incr++
'symbolslistbox2.cell(1,incr)="ISRL":incr++
symbolslistbox2.cell(1,incr)="ISSC":incr++
symbolslistbox2.cell(1,incr)="ISTB":incr++
symbolslistbox2.cell(1,incr)="ISTR":incr++
symbolslistbox2.cell(1,incr)="ISZE":incr++
symbolslistbox2.cell(1,incr)="IT":incr++
symbolslistbox2.cell(1,incr)="ITA":incr++
symbolslistbox2.cell(1,incr)="ITB":incr++
symbolslistbox2.cell(1,incr)="ITCB":incr++
symbolslistbox2.cell(1,incr)="ITCI":incr++
symbolslistbox2.cell(1,incr)="ITEQ":incr++
symbolslistbox2.cell(1,incr)="ITGR":incr++
symbolslistbox2.cell(1,incr)="ITI":incr++
symbolslistbox2.cell(1,incr)="ITIC":incr++
symbolslistbox2.cell(1,incr)="ITM":incr++
'symbolslistbox2.cell(1,incr)="ITMR":incr++
symbolslistbox2.cell(1,incr)="ITOT":incr++
symbolslistbox2.cell(1,incr)="ITP":incr++
symbolslistbox2.cell(1,incr)="ITRI":incr++
symbolslistbox2.cell(1,incr)="ITRM":incr++
symbolslistbox2.cell(1,incr)="ITRN":incr++
symbolslistbox2.cell(1,incr)="ITT":incr++
symbolslistbox2.cell(1,incr)="ITUB":incr++
symbolslistbox2.cell(1,incr)="ITW":incr++
symbolslistbox2.cell(1,incr)="IUS":incr++
symbolslistbox2.cell(1,incr)="IUSB":incr++
symbolslistbox2.cell(1,incr)="IUSG":incr++
symbolslistbox2.cell(1,incr)="IUSS":incr++
symbolslistbox2.cell(1,incr)="IUSV":incr++
symbolslistbox2.cell(1,incr)="IVAC":incr++
symbolslistbox2.cell(1,incr)="IVAL":incr++
symbolslistbox2.cell(1,incr)="IVC":incr++
symbolslistbox2.cell(1,incr)="IVE":incr++
symbolslistbox2.cell(1,incr)="IVH":incr++
symbolslistbox2.cell(1,incr)="IVLU":incr++
symbolslistbox2.cell(1,incr)="IVOG":incr++
symbolslistbox2.cell(1,incr)="IVOL":incr++
symbolslistbox2.cell(1,incr)="IVOO":incr++
symbolslistbox2.cell(1,incr)="IVOV":incr++
symbolslistbox2.cell(1,incr)="IVR":incr++
'symbolslistbox2.cell(1,incr)="IVR$A":incr++
'symbolslistbox2.cell(1,incr)="IVR$B":incr++
'symbolslistbox2.cell(1,incr)="IVR$C":incr++
symbolslistbox2.cell(1,incr)="IVV":incr++
symbolslistbox2.cell(1,incr)="IVW":incr++
symbolslistbox2.cell(1,incr)="IVZ":incr++
symbolslistbox2.cell(1,incr)="IWB":incr++
symbolslistbox2.cell(1,incr)="IWC":incr++
symbolslistbox2.cell(1,incr)="IWD":incr++
symbolslistbox2.cell(1,incr)="IWF":incr++
symbolslistbox2.cell(1,incr)="IWL":incr++
symbolslistbox2.cell(1,incr)="IWM":incr++
symbolslistbox2.cell(1,incr)="IWN":incr++
symbolslistbox2.cell(1,incr)="IWO":incr++
symbolslistbox2.cell(1,incr)="IWP":incr++
symbolslistbox2.cell(1,incr)="IWR":incr++
symbolslistbox2.cell(1,incr)="IWS":incr++
symbolslistbox2.cell(1,incr)="IWV":incr++
symbolslistbox2.cell(1,incr)="IWX":incr++
symbolslistbox2.cell(1,incr)="IWY":incr++
symbolslistbox2.cell(1,incr)="IX":incr++
symbolslistbox2.cell(1,incr)="IXC":incr++
symbolslistbox2.cell(1,incr)="IXG":incr++
symbolslistbox2.cell(1,incr)="IXJ":incr++
symbolslistbox2.cell(1,incr)="IXN":incr++
symbolslistbox2.cell(1,incr)="IXP":incr++
symbolslistbox2.cell(1,incr)="IXSE":incr++
symbolslistbox2.cell(1,incr)="IXUS":incr++
symbolslistbox2.cell(1,incr)="IYC":incr++
symbolslistbox2.cell(1,incr)="IYE":incr++
symbolslistbox2.cell(1,incr)="IYF":incr++
symbolslistbox2.cell(1,incr)="IYG":incr++
symbolslistbox2.cell(1,incr)="IYH":incr++
symbolslistbox2.cell(1,incr)="IYJ":incr++
symbolslistbox2.cell(1,incr)="IYK":incr++
symbolslistbox2.cell(1,incr)="IYLD":incr++
symbolslistbox2.cell(1,incr)="IYM":incr++
symbolslistbox2.cell(1,incr)="IYR":incr++
symbolslistbox2.cell(1,incr)="IYT":incr++
symbolslistbox2.cell(1,incr)="IYW":incr++
symbolslistbox2.cell(1,incr)="IYY":incr++
symbolslistbox2.cell(1,incr)="IYZ":incr++
symbolslistbox2.cell(1,incr)="IZEA":incr++
symbolslistbox2.cell(1,incr)="IZRL":incr++
symbolslistbox2.cell(1,incr)="JACK":incr++
'symbolslistbox2.cell(1,incr)="JAG":incr++
symbolslistbox2.cell(1,incr)="JAGG":incr++
symbolslistbox2.cell(1,incr)="JAGX":incr++
symbolslistbox2.cell(1,incr)="JAKK":incr++
'symbolslistbox2.cell(1,incr)="JAMF":incr++
symbolslistbox2.cell(1,incr)="JAN":incr++
'symbolslistbox2.cell(1,incr)="JASN":incr++
'symbolslistbox2.cell(1,incr)="JAX":incr++
symbolslistbox2.cell(1,incr)="JAZZ":incr++
symbolslistbox2.cell(1,incr)="JBGS":incr++
symbolslistbox2.cell(1,incr)="JBHT":incr++
symbolslistbox2.cell(1,incr)="JBK":incr++
symbolslistbox2.cell(1,incr)="JBL":incr++
symbolslistbox2.cell(1,incr)="JBLU":incr++
'symbolslistbox2.cell(1,incr)="JBN":incr++
'symbolslistbox2.cell(1,incr)="JBR":incr++
symbolslistbox2.cell(1,incr)="JBSS":incr++
symbolslistbox2.cell(1,incr)="JBT":incr++
'symbolslistbox2.cell(1,incr)="JCAP":incr++
'symbolslistbox2.cell(1,incr)="JCAP$B":incr++
symbolslistbox2.cell(1,incr)="JCE":incr++
symbolslistbox2.cell(1,incr)="JCI":incr++
symbolslistbox2.cell(1,incr)="JCO":incr++
'symbolslistbox2.cell(1,incr)="JCOM":incr++
'symbolslistbox2.cell(1,incr)="JCP":incr++
symbolslistbox2.cell(1,incr)="JCPB":incr++
symbolslistbox2.cell(1,incr)="JCS":incr++
symbolslistbox2.cell(1,incr)="JCTCF":incr++
symbolslistbox2.cell(1,incr)="JD":incr++
'symbolslistbox2.cell(1,incr)="JDD":incr++
symbolslistbox2.cell(1,incr)="JDIV":incr++
symbolslistbox2.cell(1,incr)="JDST":incr++
'symbolslistbox2.cell(1,incr)="JE":incr++
'symbolslistbox2.cell(1,incr)="JE$A":incr++
'symbolslistbox2.cell(1,incr)="JEC":incr++
symbolslistbox2.cell(1,incr)="JEF":incr++
symbolslistbox2.cell(1,incr)="JELD":incr++
symbolslistbox2.cell(1,incr)="JEMD":incr++
symbolslistbox2.cell(1,incr)="JEQ":incr++
symbolslistbox2.cell(1,incr)="JETS":incr++
symbolslistbox2.cell(1,incr)="JFIN":incr++
'symbolslistbox2.cell(1,incr)="JFK":incr++
'symbolslistbox2.cell(1,incr)="JFKKR":incr++
'symbolslistbox2.cell(1,incr)="JFKKU":incr++
'symbolslistbox2.cell(1,incr)="JFKKW":incr++
symbolslistbox2.cell(1,incr)="JFR":incr++
symbolslistbox2.cell(1,incr)="JFU":incr++
symbolslistbox2.cell(1,incr)="JG":incr++
symbolslistbox2.cell(1,incr)="JGH":incr++
symbolslistbox2.cell(1,incr)="JHAA":incr++
'symbolslistbox2.cell(1,incr)="JHB":incr++
symbolslistbox2.cell(1,incr)="JHCS":incr++
'symbolslistbox2.cell(1,incr)="JHD":incr++
symbolslistbox2.cell(1,incr)="JHEM":incr++
symbolslistbox2.cell(1,incr)="JHG":incr++
symbolslistbox2.cell(1,incr)="JHI":incr++
symbolslistbox2.cell(1,incr)="JHMA":incr++
symbolslistbox2.cell(1,incr)="JHMC":incr++
symbolslistbox2.cell(1,incr)="JHMD":incr++
symbolslistbox2.cell(1,incr)="JHME":incr++
symbolslistbox2.cell(1,incr)="JHMF":incr++
symbolslistbox2.cell(1,incr)="JHMH":incr++
symbolslistbox2.cell(1,incr)="JHMI":incr++
symbolslistbox2.cell(1,incr)="JHML":incr++
symbolslistbox2.cell(1,incr)="JHMM":incr++
symbolslistbox2.cell(1,incr)="JHMS":incr++
symbolslistbox2.cell(1,incr)="JHMT":incr++
symbolslistbox2.cell(1,incr)="JHMU":incr++
symbolslistbox2.cell(1,incr)="JHS":incr++
symbolslistbox2.cell(1,incr)="JHSC":incr++
symbolslistbox2.cell(1,incr)="JHX":incr++
'symbolslistbox2.cell(1,incr)="JHY":incr++
symbolslistbox2.cell(1,incr)="JIGB":incr++
symbolslistbox2.cell(1,incr)="JILL":incr++
symbolslistbox2.cell(1,incr)="JJA":incr++
symbolslistbox2.cell(1,incr)="JJC":incr++
'symbolslistbox2.cell(1,incr)="JJE":incr++
symbolslistbox2.cell(1,incr)="JJG":incr++
symbolslistbox2.cell(1,incr)="JJM":incr++
symbolslistbox2.cell(1,incr)="JJN":incr++
symbolslistbox2.cell(1,incr)="JJP":incr++
symbolslistbox2.cell(1,incr)="JJS":incr++
symbolslistbox2.cell(1,incr)="JJSF":incr++
'symbolslistbox2.cell(1,incr)="JJT":incr++
'symbolslistbox2.cell(1,incr)="JJU":incr++
'symbolslistbox2.cell(1,incr)="JKD":incr++
'symbolslistbox2.cell(1,incr)="JKE":incr++
'symbolslistbox2.cell(1,incr)="JKF":incr++
'symbolslistbox2.cell(1,incr)="JKG":incr++
'symbolslistbox2.cell(1,incr)="JKH":incr++
symbolslistbox2.cell(1,incr)="JKHY":incr++
'symbolslistbox2.cell(1,incr)="JKI":incr++
'symbolslistbox2.cell(1,incr)="JKJ":incr++
'symbolslistbox2.cell(1,incr)="JKK":incr++
'symbolslistbox2.cell(1,incr)="JKL":incr++
symbolslistbox2.cell(1,incr)="JKS":incr++
symbolslistbox2.cell(1,incr)="JLL":incr++
symbolslistbox2.cell(1,incr)="JLS":incr++
symbolslistbox2.cell(1,incr)="JMBS":incr++
'symbolslistbox2.cell(1,incr)="JMEI":incr++
'symbolslistbox2.cell(1,incr)="JMF":incr++
symbolslistbox2.cell(1,incr)="JMIA":incr++
symbolslistbox2.cell(1,incr)="JMIN":incr++
'symbolslistbox2.cell(1,incr)="JMLP":incr++
symbolslistbox2.cell(1,incr)="JMM":incr++
symbolslistbox2.cell(1,incr)="JMOM":incr++
'symbolslistbox2.cell(1,incr)="JMP":incr++
'symbolslistbox2.cell(1,incr)="JMPB":incr++
'symbolslistbox2.cell(1,incr)="JMPD":incr++
'symbolslistbox2.cell(1,incr)="JMPE":incr++
symbolslistbox2.cell(1,incr)="JMST":incr++
'symbolslistbox2.cell(1,incr)="JMT":incr++
'symbolslistbox2.cell(1,incr)="JMU":incr++
symbolslistbox2.cell(1,incr)="JMUB":incr++
symbolslistbox2.cell(1,incr)="JNCE":incr++
symbolslistbox2.cell(1,incr)="JNJ":incr++
symbolslistbox2.cell(1,incr)="JNK":incr++
symbolslistbox2.cell(1,incr)="JNPR":incr++
symbolslistbox2.cell(1,incr)="JNUG":incr++
symbolslistbox2.cell(1,incr)="JO":incr++
symbolslistbox2.cell(1,incr)="JOB":incr++
symbolslistbox2.cell(1,incr)="JOBS":incr++
symbolslistbox2.cell(1,incr)="JOE":incr++
symbolslistbox2.cell(1,incr)="JOF":incr++
symbolslistbox2.cell(1,incr)="JOUT":incr++
symbolslistbox2.cell(1,incr)="JP":incr++
symbolslistbox2.cell(1,incr)="JPC":incr++
'symbolslistbox2.cell(1,incr)="JPED":incr++
symbolslistbox2.cell(1,incr)="JPEM":incr++
'symbolslistbox2.cell(1,incr)="JPEU":incr++
'symbolslistbox2.cell(1,incr)="JPGB":incr++
'symbolslistbox2.cell(1,incr)="JPGE":incr++
'symbolslistbox2.cell(1,incr)="JPHF":incr++
symbolslistbox2.cell(1,incr)="JPHY":incr++
symbolslistbox2.cell(1,incr)="JPI":incr++
symbolslistbox2.cell(1,incr)="JPIN":incr++
'symbolslistbox2.cell(1,incr)="JPLS":incr++
symbolslistbox2.cell(1,incr)="JPM":incr++
'symbolslistbox2.cell(1,incr)="JPM$A":incr++
'symbolslistbox2.cell(1,incr)="JPM$C":incr++
'symbolslistbox2.cell(1,incr)="JPM$D":incr++
'symbolslistbox2.cell(1,incr)="JPM$F":incr++
'symbolslistbox2.cell(1,incr)="JPM$G":incr++
'symbolslistbox2.cell(1,incr)="JPM$H":incr++
symbolslistbox2.cell(1,incr)="JPMB":incr++
symbolslistbox2.cell(1,incr)="JPME":incr++
'symbolslistbox2.cell(1,incr)="JPMF":incr++
'symbolslistbox2.cell(1,incr)="JPMV":incr++
symbolslistbox2.cell(1,incr)="JPN":incr++
'symbolslistbox2.cell(1,incr)="JPNL":incr++
symbolslistbox2.cell(1,incr)="JPS":incr++
symbolslistbox2.cell(1,incr)="JPSE":incr++
symbolslistbox2.cell(1,incr)="JPST":incr++
symbolslistbox2.cell(1,incr)="JPT":incr++
symbolslistbox2.cell(1,incr)="JPUS":incr++
symbolslistbox2.cell(1,incr)="JPXN":incr++
symbolslistbox2.cell(1,incr)="JQC":incr++
symbolslistbox2.cell(1,incr)="JQUA":incr++
symbolslistbox2.cell(1,incr)="JRI":incr++
symbolslistbox2.cell(1,incr)="JRJC":incr++
symbolslistbox2.cell(1,incr)="JRO":incr++
symbolslistbox2.cell(1,incr)="JRS":incr++
symbolslistbox2.cell(1,incr)="JRSH":incr++
symbolslistbox2.cell(1,incr)="JRVR":incr++
symbolslistbox2.cell(1,incr)="JSD":incr++
symbolslistbox2.cell(1,incr)="JSM":incr++
symbolslistbox2.cell(1,incr)="JSMD":incr++
symbolslistbox2.cell(1,incr)="JSML":incr++
symbolslistbox2.cell(1,incr)="JT":incr++
'symbolslistbox2.cell(1,incr)="JTA":incr++
'symbolslistbox2.cell(1,incr)="JTD":incr++
symbolslistbox2.cell(1,incr)="JUST":incr++
symbolslistbox2.cell(1,incr)="JVA":incr++
symbolslistbox2.cell(1,incr)="JVAL":incr++
'symbolslistbox2.cell(1,incr)="JW.A":incr++
'symbolslistbox2.cell(1,incr)="JW.B":incr++
symbolslistbox2.cell(1,incr)="JWN":incr++
symbolslistbox2.cell(1,incr)="JXI":incr++
symbolslistbox2.cell(1,incr)="JYNT":incr++
symbolslistbox2.cell(1,incr)="K":incr++
symbolslistbox2.cell(1,incr)="KAI":incr++
symbolslistbox2.cell(1,incr)="KALA":incr++
symbolslistbox2.cell(1,incr)="KALL":incr++
symbolslistbox2.cell(1,incr)="KALU":incr++
symbolslistbox2.cell(1,incr)="KALV":incr++
symbolslistbox2.cell(1,incr)="KAMN":incr++
symbolslistbox2.cell(1,incr)="KAR":incr++
symbolslistbox2.cell(1,incr)="KARS":incr++
symbolslistbox2.cell(1,incr)="KB":incr++
symbolslistbox2.cell(1,incr)="KBA":incr++
symbolslistbox2.cell(1,incr)="KBAL":incr++
symbolslistbox2.cell(1,incr)="KBE":incr++
symbolslistbox2.cell(1,incr)="KBH":incr++
'symbolslistbox2.cell(1,incr)="KBLM":incr++
'symbolslistbox2.cell(1,incr)="KBLMR":incr++
'symbolslistbox2.cell(1,incr)="KBLMU":incr++
'symbolslistbox2.cell(1,incr)="KBLMW":incr++
symbolslistbox2.cell(1,incr)="KBR":incr++
'symbolslistbox2.cell(1,incr)="KBSF":incr++
symbolslistbox2.cell(1,incr)="KBWB":incr++
symbolslistbox2.cell(1,incr)="KBWD":incr++
symbolslistbox2.cell(1,incr)="KBWP":incr++
symbolslistbox2.cell(1,incr)="KBWR":incr++
symbolslistbox2.cell(1,incr)="KBWY":incr++
'symbolslistbox2.cell(1,incr)="KCAPL":incr++
symbolslistbox2.cell(1,incr)="KCCB":incr++
symbolslistbox2.cell(1,incr)="KCE":incr++
'symbolslistbox2.cell(1,incr)="KCNY":incr++
'symbolslistbox2.cell(1,incr)="KDMN":incr++
symbolslistbox2.cell(1,incr)="KDP":incr++
symbolslistbox2.cell(1,incr)="KE":incr++
'symbolslistbox2.cell(1,incr)="KEG":incr++
symbolslistbox2.cell(1,incr)="KELYA":incr++
symbolslistbox2.cell(1,incr)="KELYB":incr++
'symbolslistbox2.cell(1,incr)="KEM":incr++
symbolslistbox2.cell(1,incr)="KEMQ":incr++
symbolslistbox2.cell(1,incr)="KEMX":incr++
'symbolslistbox2.cell(1,incr)="KEN":incr++
symbolslistbox2.cell(1,incr)="KEP":incr++
symbolslistbox2.cell(1,incr)="KEQU":incr++
symbolslistbox2.cell(1,incr)="KERN":incr++
'symbolslistbox2.cell(1,incr)="KERNW":incr++
symbolslistbox2.cell(1,incr)="KEX":incr++
symbolslistbox2.cell(1,incr)="KEY":incr++
'symbolslistbox2.cell(1,incr)="KEY$I":incr++
'symbolslistbox2.cell(1,incr)="KEY$J":incr++
'symbolslistbox2.cell(1,incr)="KEY$K":incr++
symbolslistbox2.cell(1,incr)="KEYS":incr++
symbolslistbox2.cell(1,incr)="KF":incr++
'symbolslistbox2.cell(1,incr)="KFFB":incr++
symbolslistbox2.cell(1,incr)="KFRC":incr++
symbolslistbox2.cell(1,incr)="KFS":incr++
symbolslistbox2.cell(1,incr)="KFY":incr++
symbolslistbox2.cell(1,incr)="KFYP":incr++
symbolslistbox2.cell(1,incr)="KGC":incr++
symbolslistbox2.cell(1,incr)="KGJI":incr++
symbolslistbox2.cell(1,incr)="KGRN":incr++
symbolslistbox2.cell(1,incr)="KHC":incr++
symbolslistbox2.cell(1,incr)="KIDS":incr++
symbolslistbox2.cell(1,incr)="KIE":incr++
symbolslistbox2.cell(1,incr)="KIM":incr++
'symbolslistbox2.cell(1,incr)="KIM$J":incr++
'symbolslistbox2.cell(1,incr)="KIM$L":incr++
'symbolslistbox2.cell(1,incr)="KIM$M":incr++
'symbolslistbox2.cell(1,incr)="KIN":incr++
symbolslistbox2.cell(1,incr)="KINS":incr++
symbolslistbox2.cell(1,incr)="KIO":incr++
symbolslistbox2.cell(1,incr)="KIQ":incr++
symbolslistbox2.cell(1,incr)="KIRK":incr++
symbolslistbox2.cell(1,incr)="KKR":incr++
'symbolslistbox2.cell(1,incr)="KKR$A":incr++
'symbolslistbox2.cell(1,incr)="KKR$B":incr++
symbolslistbox2.cell(1,incr)="KL":incr++
symbolslistbox2.cell(1,incr)="KLAC":incr++
symbolslistbox2.cell(1,incr)="KLCD":incr++
symbolslistbox2.cell(1,incr)="KLDO":incr++
symbolslistbox2.cell(1,incr)="KLDW":incr++
symbolslistbox2.cell(1,incr)="KLIC":incr++
symbolslistbox2.cell(1,incr)="KLXE":incr++
symbolslistbox2.cell(1,incr)="KMB":incr++
symbolslistbox2.cell(1,incr)="KMDA":incr++
symbolslistbox2.cell(1,incr)="KMED":incr++
symbolslistbox2.cell(1,incr)="KMF":incr++
symbolslistbox2.cell(1,incr)="KMI":incr++
symbolslistbox2.cell(1,incr)="KMPH":incr++
symbolslistbox2.cell(1,incr)="KMPR":incr++
symbolslistbox2.cell(1,incr)="KMT":incr++
symbolslistbox2.cell(1,incr)="KMX":incr++
symbolslistbox2.cell(1,incr)="KN":incr++
'symbolslistbox2.cell(1,incr)="KNAB":incr++
symbolslistbox2.cell(1,incr)="KNDI":incr++
symbolslistbox2.cell(1,incr)="KNG":incr++
'symbolslistbox2.cell(1,incr)="KNL":incr++
symbolslistbox2.cell(1,incr)="KNOP":incr++
'symbolslistbox2.cell(1,incr)="KNOW":incr++
symbolslistbox2.cell(1,incr)="KNSA":incr++
symbolslistbox2.cell(1,incr)="KNSL":incr++
symbolslistbox2.cell(1,incr)="KNX":incr++
symbolslistbox2.cell(1,incr)="KO":incr++
symbolslistbox2.cell(1,incr)="KOD":incr++
symbolslistbox2.cell(1,incr)="KODK":incr++
symbolslistbox2.cell(1,incr)="KOF":incr++
symbolslistbox2.cell(1,incr)="KOIN":incr++
'symbolslistbox2.cell(1,incr)="KOL":incr++
symbolslistbox2.cell(1,incr)="KOLD":incr++
symbolslistbox2.cell(1,incr)="KOMP":incr++
'symbolslistbox2.cell(1,incr)="KOOL":incr++
symbolslistbox2.cell(1,incr)="KOP":incr++
symbolslistbox2.cell(1,incr)="KOPN":incr++
symbolslistbox2.cell(1,incr)="KORP":incr++
symbolslistbox2.cell(1,incr)="KORU":incr++
symbolslistbox2.cell(1,incr)="KOS":incr++
symbolslistbox2.cell(1,incr)="KOSS":incr++
symbolslistbox2.cell(1,incr)="KPTI":incr++
symbolslistbox2.cell(1,incr)="KR":incr++
symbolslistbox2.cell(1,incr)="KRA":incr++
symbolslistbox2.cell(1,incr)="KRC":incr++
symbolslistbox2.cell(1,incr)="KRE":incr++
symbolslistbox2.cell(1,incr)="KREF":incr++
symbolslistbox2.cell(1,incr)="KRG":incr++
symbolslistbox2.cell(1,incr)="KRMA":incr++
symbolslistbox2.cell(1,incr)="KRNT":incr++
symbolslistbox2.cell(1,incr)="KRNY":incr++
symbolslistbox2.cell(1,incr)="KRO":incr++
symbolslistbox2.cell(1,incr)="KRP":incr++
symbolslistbox2.cell(1,incr)="KRTX":incr++
symbolslistbox2.cell(1,incr)="KRUS":incr++
symbolslistbox2.cell(1,incr)="KRYS":incr++
symbolslistbox2.cell(1,incr)="KSA":incr++
symbolslistbox2.cell(1,incr)="KSCD":incr++
symbolslistbox2.cell(1,incr)="KSM":incr++
symbolslistbox2.cell(1,incr)="KSS":incr++
'symbolslistbox2.cell(1,incr)="KSU":incr++
'symbolslistbox2.cell(1,incr)="KSU$":incr++
symbolslistbox2.cell(1,incr)="KT":incr++
symbolslistbox2.cell(1,incr)="KTB":incr++
symbolslistbox2.cell(1,incr)="KTCC":incr++
symbolslistbox2.cell(1,incr)="KTF":incr++
'symbolslistbox2.cell(1,incr)="KTH":incr++
symbolslistbox2.cell(1,incr)="KTN":incr++
symbolslistbox2.cell(1,incr)="KTOS":incr++
'symbolslistbox2.cell(1,incr)="KTOV":incr++
'symbolslistbox2.cell(1,incr)="KTOVW":incr++
'symbolslistbox2.cell(1,incr)="KTP":incr++
symbolslistbox2.cell(1,incr)="KURA":incr++
symbolslistbox2.cell(1,incr)="KURE":incr++
symbolslistbox2.cell(1,incr)="KVHI":incr++
symbolslistbox2.cell(1,incr)="KW":incr++
symbolslistbox2.cell(1,incr)="KWEB":incr++
symbolslistbox2.cell(1,incr)="KWR":incr++
symbolslistbox2.cell(1,incr)="KXI":incr++
symbolslistbox2.cell(1,incr)="KXIN":incr++
symbolslistbox2.cell(1,incr)="KYN":incr++
'symbolslistbox2.cell(1,incr)="KYN$F":incr++
symbolslistbox2.cell(1,incr)="KZIA":incr++
symbolslistbox2.cell(1,incr)="KZR":incr++
symbolslistbox2.cell(1,incr)="L":incr++
symbolslistbox2.cell(1,incr)="LABD":incr++
symbolslistbox2.cell(1,incr)="LABU":incr++
symbolslistbox2.cell(1,incr)="LAC":incr++
'symbolslistbox2.cell(1,incr)="LACK":incr++
'symbolslistbox2.cell(1,incr)="LACQ":incr++
'symbolslistbox2.cell(1,incr)="LACQU":incr++
'symbolslistbox2.cell(1,incr)="LACQW":incr++
symbolslistbox2.cell(1,incr)="LAD":incr++
symbolslistbox2.cell(1,incr)="LADR":incr++
symbolslistbox2.cell(1,incr)="LAIX":incr++
symbolslistbox2.cell(1,incr)="LAKE":incr++
symbolslistbox2.cell(1,incr)="LAMR":incr++
symbolslistbox2.cell(1,incr)="LANC":incr++
symbolslistbox2.cell(1,incr)="LAND":incr++
'symbolslistbox2.cell(1,incr)="LANDP":incr++
symbolslistbox2.cell(1,incr)="LARK":incr++
symbolslistbox2.cell(1,incr)="LASR":incr++
symbolslistbox2.cell(1,incr)="LAUR":incr++
symbolslistbox2.cell(1,incr)="LAWS":incr++
symbolslistbox2.cell(1,incr)="LAZ":incr++
symbolslistbox2.cell(1,incr)="LAZY":incr++
'symbolslistbox2.cell(1,incr)="LB":incr++
symbolslistbox2.cell(1,incr)="LBAI":incr++
symbolslistbox2.cell(1,incr)="LBC":incr++
'symbolslistbox2.cell(1,incr)="LBDC":incr++
symbolslistbox2.cell(1,incr)="LBJ":incr++
symbolslistbox2.cell(1,incr)="LBRDA":incr++
symbolslistbox2.cell(1,incr)="LBRDK":incr++
symbolslistbox2.cell(1,incr)="LBRT":incr++
symbolslistbox2.cell(1,incr)="LBTYA":incr++
'symbolslistbox2.cell(1,incr)="LBTYB":incr++
symbolslistbox2.cell(1,incr)="LBTYK":incr++
'symbolslistbox2.cell(1,incr)="LBY":incr++
symbolslistbox2.cell(1,incr)="LC":incr++
symbolslistbox2.cell(1,incr)="LCA":incr++
symbolslistbox2.cell(1,incr)="LCAHU":incr++
symbolslistbox2.cell(1,incr)="LCAHW":incr++
symbolslistbox2.cell(1,incr)="LCI":incr++
symbolslistbox2.cell(1,incr)="LCII":incr++
symbolslistbox2.cell(1,incr)="LCNB":incr++
symbolslistbox2.cell(1,incr)="LCTX":incr++
symbolslistbox2.cell(1,incr)="LCUT":incr++
'symbolslistbox2.cell(1,incr)="LD":incr++
'symbolslistbox2.cell(1,incr)="LDL":incr++
symbolslistbox2.cell(1,incr)="LDOS":incr++
symbolslistbox2.cell(1,incr)="LDP":incr++
'symbolslistbox2.cell(1,incr)="LDRI":incr++
symbolslistbox2.cell(1,incr)="LDRS":incr++
symbolslistbox2.cell(1,incr)="LDSF":incr++
symbolslistbox2.cell(1,incr)="LDUR":incr++
symbolslistbox2.cell(1,incr)="LE":incr++
symbolslistbox2.cell(1,incr)="LEA":incr++
symbolslistbox2.cell(1,incr)="LEAD":incr++
'symbolslistbox2.cell(1,incr)="LEAF":incr++
symbolslistbox2.cell(1,incr)="LECO":incr++
symbolslistbox2.cell(1,incr)="LEDS":incr++
symbolslistbox2.cell(1,incr)="LEE":incr++
symbolslistbox2.cell(1,incr)="LEG":incr++
symbolslistbox2.cell(1,incr)="LEGH":incr++
symbolslistbox2.cell(1,incr)="LEGR":incr++
symbolslistbox2.cell(1,incr)="LEJU":incr++
symbolslistbox2.cell(1,incr)="LEMB":incr++
symbolslistbox2.cell(1,incr)="LEN":incr++
'symbolslistbox2.cell(1,incr)="LEN.B":incr++
symbolslistbox2.cell(1,incr)="LEND":incr++
symbolslistbox2.cell(1,incr)="LEO":incr++
symbolslistbox2.cell(1,incr)="LEU":incr++
symbolslistbox2.cell(1,incr)="LEVI":incr++
symbolslistbox2.cell(1,incr)="LEVL":incr++
symbolslistbox2.cell(1,incr)="LFAC":incr++
symbolslistbox2.cell(1,incr)="LFACU":incr++
'symbolslistbox2.cell(1,incr)="LFACW":incr++
symbolslistbox2.cell(1,incr)="LFC":incr++
symbolslistbox2.cell(1,incr)="LFEQ":incr++
symbolslistbox2.cell(1,incr)="LFUS":incr++
symbolslistbox2.cell(1,incr)="LFVN":incr++
'symbolslistbox2.cell(1,incr)="LGC":incr++
'symbolslistbox2.cell(1,incr)="LGC.U":incr++
'symbolslistbox2.cell(1,incr)="LGC.W":incr++
'symbolslistbox2.cell(1,incr)="LGF.A":incr++
'symbolslistbox2.cell(1,incr)="LGF.B":incr++
symbolslistbox2.cell(1,incr)="LGI":incr++
symbolslistbox2.cell(1,incr)="LGIH":incr++
symbolslistbox2.cell(1,incr)="LGL":incr++
symbolslistbox2.cell(1,incr)="LGLV":incr++
symbolslistbox2.cell(1,incr)="LGND":incr++
symbolslistbox2.cell(1,incr)="LGOV":incr++
symbolslistbox2.cell(1,incr)="LH":incr++
'symbolslistbox2.cell(1,incr)="LHC":incr++
'symbolslistbox2.cell(1,incr)="LHC.U":incr++
'symbolslistbox2.cell(1,incr)="LHC.W":incr++
symbolslistbox2.cell(1,incr)="LHCG":incr++
symbolslistbox2.cell(1,incr)="LHX":incr++
symbolslistbox2.cell(1,incr)="LIFE":incr++
symbolslistbox2.cell(1,incr)="LII":incr++
symbolslistbox2.cell(1,incr)="LILA":incr++
symbolslistbox2.cell(1,incr)="LILAK":incr++
symbolslistbox2.cell(1,incr)="LIN":incr++
symbolslistbox2.cell(1,incr)="LINC":incr++
symbolslistbox2.cell(1,incr)="LIND":incr++
'symbolslistbox2.cell(1,incr)="LINX":incr++
symbolslistbox2.cell(1,incr)="LIQT":incr++
symbolslistbox2.cell(1,incr)="LIT":incr++
symbolslistbox2.cell(1,incr)="LITB":incr++
symbolslistbox2.cell(1,incr)="LITE":incr++
symbolslistbox2.cell(1,incr)="LIVE":incr++
symbolslistbox2.cell(1,incr)="LIVN":incr++
'symbolslistbox2.cell(1,incr)="LIVX":incr++
symbolslistbox2.cell(1,incr)="LJPC":incr++
'symbolslistbox2.cell(1,incr)="LK":incr++
symbolslistbox2.cell(1,incr)="LKCO":incr++
symbolslistbox2.cell(1,incr)="LKFN":incr++
symbolslistbox2.cell(1,incr)="LKOR":incr++
symbolslistbox2.cell(1,incr)="LKQ":incr++
'symbolslistbox2.cell(1,incr)="LKSD":incr++
symbolslistbox2.cell(1,incr)="LL":incr++
'symbolslistbox2.cell(1,incr)="LLEX":incr++
'symbolslistbox2.cell(1,incr)="LLIT":incr++
symbolslistbox2.cell(1,incr)="LLNW":incr++
symbolslistbox2.cell(1,incr)="LLY":incr++
'symbolslistbox2.cell(1,incr)="LM":incr++
symbolslistbox2.cell(1,incr)="LMAT":incr++
symbolslistbox2.cell(1,incr)="LMB":incr++
symbolslistbox2.cell(1,incr)="LMBS":incr++
symbolslistbox2.cell(1,incr)="LMFA":incr++
'symbolslistbox2.cell(1,incr)="LMFAW":incr++
'symbolslistbox2.cell(1,incr)="LMHA":incr++
'symbolslistbox2.cell(1,incr)="LMHB":incr++
'symbolslistbox2.cell(1,incr)="LMLP":incr++
symbolslistbox2.cell(1,incr)="LMNR":incr++
'symbolslistbox2.cell(1,incr)="LMNX":incr++
symbolslistbox2.cell(1,incr)="LMRK":incr++
symbolslistbox2.cell(1,incr)="LMRKN":incr++
symbolslistbox2.cell(1,incr)="LMRKO":incr++
symbolslistbox2.cell(1,incr)="LMRKP":incr++
symbolslistbox2.cell(1,incr)="LMST":incr++
symbolslistbox2.cell(1,incr)="LMT":incr++
'symbolslistbox2.cell(1,incr)="LN":incr++
symbolslistbox2.cell(1,incr)="LNC":incr++
symbolslistbox2.cell(1,incr)="LND":incr++
symbolslistbox2.cell(1,incr)="LNDC":incr++
symbolslistbox2.cell(1,incr)="LNG":incr++
'symbolslistbox2.cell(1,incr)="LNGR":incr++
symbolslistbox2.cell(1,incr)="LNN":incr++
symbolslistbox2.cell(1,incr)="LNT":incr++
symbolslistbox2.cell(1,incr)="LNTH":incr++
'symbolslistbox2.cell(1,incr)="LOAC":incr++
'symbolslistbox2.cell(1,incr)="LOACR":incr++
'symbolslistbox2.cell(1,incr)="LOACU":incr++
'symbolslistbox2.cell(1,incr)="LOACW":incr++
symbolslistbox2.cell(1,incr)="LOAN":incr++
symbolslistbox2.cell(1,incr)="LOB":incr++
symbolslistbox2.cell(1,incr)="LOCO":incr++
symbolslistbox2.cell(1,incr)="LODE":incr++
symbolslistbox2.cell(1,incr)="LOGC":incr++
symbolslistbox2.cell(1,incr)="LOGI":incr++
'symbolslistbox2.cell(1,incr)="LOGM":incr++
symbolslistbox2.cell(1,incr)="LOMA":incr++
'symbolslistbox2.cell(1,incr)="LONE":incr++
symbolslistbox2.cell(1,incr)="LOOP":incr++
symbolslistbox2.cell(1,incr)="LOPE":incr++
'symbolslistbox2.cell(1,incr)="LOR":incr++
'symbolslistbox2.cell(1,incr)="LORL":incr++
symbolslistbox2.cell(1,incr)="LOUP":incr++
symbolslistbox2.cell(1,incr)="LOV":incr++
symbolslistbox2.cell(1,incr)="LOVE":incr++
symbolslistbox2.cell(1,incr)="LOW":incr++
symbolslistbox2.cell(1,incr)="LOWC":incr++
symbolslistbox2.cell(1,incr)="LPCN":incr++
symbolslistbox2.cell(1,incr)="LPG":incr++
symbolslistbox2.cell(1,incr)="LPI":incr++
symbolslistbox2.cell(1,incr)="LPL":incr++
symbolslistbox2.cell(1,incr)="LPLA":incr++
symbolslistbox2.cell(1,incr)="LPSN":incr++
'symbolslistbox2.cell(1,incr)="LPT":incr++
symbolslistbox2.cell(1,incr)="LPTH":incr++
symbolslistbox2.cell(1,incr)="LPTX":incr++
symbolslistbox2.cell(1,incr)="LPX":incr++
symbolslistbox2.cell(1,incr)="LQD":incr++
symbolslistbox2.cell(1,incr)="LQDA":incr++
symbolslistbox2.cell(1,incr)="LQDH":incr++
symbolslistbox2.cell(1,incr)="LQDI":incr++
symbolslistbox2.cell(1,incr)="LQDT":incr++
'symbolslistbox2.cell(1,incr)="LRAD":incr++
symbolslistbox2.cell(1,incr)="LRCX":incr++
'symbolslistbox2.cell(1,incr)="LRET":incr++
symbolslistbox2.cell(1,incr)="LRGE":incr++
symbolslistbox2.cell(1,incr)="LRGF":incr++
symbolslistbox2.cell(1,incr)="LRN":incr++
symbolslistbox2.cell(1,incr)="LSAF":incr++
symbolslistbox2.cell(1,incr)="LSBK":incr++
symbolslistbox2.cell(1,incr)="LSCC":incr++
symbolslistbox2.cell(1,incr)="LSI":incr++
symbolslistbox2.cell(1,incr)="LSLT":incr++
symbolslistbox2.cell(1,incr)="LSST":incr++
symbolslistbox2.cell(1,incr)="LSTR":incr++
symbolslistbox2.cell(1,incr)="LSXMA":incr++
'symbolslistbox2.cell(1,incr)="LSXMB":incr++
symbolslistbox2.cell(1,incr)="LSXMK":incr++
symbolslistbox2.cell(1,incr)="LTBR":incr++
symbolslistbox2.cell(1,incr)="LTC":incr++
symbolslistbox2.cell(1,incr)="LTHM":incr++
'symbolslistbox2.cell(1,incr)="LTL":incr++
'symbolslistbox2.cell(1,incr)="LTM":incr++
symbolslistbox2.cell(1,incr)="LTPZ":incr++
symbolslistbox2.cell(1,incr)="LTRPA":incr++
'symbolslistbox2.cell(1,incr)="LTRPB":incr++
symbolslistbox2.cell(1,incr)="LTRX":incr++
'symbolslistbox2.cell(1,incr)="LTS":incr++
'symbolslistbox2.cell(1,incr)="LTS$A":incr++
symbolslistbox2.cell(1,incr)="LTSF":incr++
'symbolslistbox2.cell(1,incr)="LTSH":incr++
'symbolslistbox2.cell(1,incr)="LTSK":incr++
'symbolslistbox2.cell(1,incr)="LTSL":incr++
'symbolslistbox2.cell(1,incr)="LTXB":incr++
symbolslistbox2.cell(1,incr)="LUB":incr++
symbolslistbox2.cell(1,incr)="LULU":incr++
symbolslistbox2.cell(1,incr)="LUNA":incr++
symbolslistbox2.cell(1,incr)="LUV":incr++
'symbolslistbox2.cell(1,incr)="LVGO":incr++
'symbolslistbox2.cell(1,incr)="LVHB":incr++
symbolslistbox2.cell(1,incr)="LVHD":incr++
'symbolslistbox2.cell(1,incr)="LVHE":incr++
symbolslistbox2.cell(1,incr)="LVHI":incr++
'symbolslistbox2.cell(1,incr)="LVIN":incr++
'symbolslistbox2.cell(1,incr)="LVL":incr++
symbolslistbox2.cell(1,incr)="LVS":incr++
'symbolslistbox2.cell(1,incr)="LVUS":incr++
symbolslistbox2.cell(1,incr)="LW":incr++
symbolslistbox2.cell(1,incr)="LWAY":incr++
symbolslistbox2.cell(1,incr)="LX":incr++
symbolslistbox2.cell(1,incr)="LXFR":incr++
symbolslistbox2.cell(1,incr)="LXP":incr++
'symbolslistbox2.cell(1,incr)="LXP$C":incr++
symbolslistbox2.cell(1,incr)="LXRX":incr++
symbolslistbox2.cell(1,incr)="LXU":incr++
symbolslistbox2.cell(1,incr)="LYB":incr++
symbolslistbox2.cell(1,incr)="LYFT":incr++
symbolslistbox2.cell(1,incr)="LYG":incr++
symbolslistbox2.cell(1,incr)="LYL":incr++
symbolslistbox2.cell(1,incr)="LYTS":incr++
symbolslistbox2.cell(1,incr)="LYV":incr++
symbolslistbox2.cell(1,incr)="LZB":incr++
symbolslistbox2.cell(1,incr)="M":incr++
symbolslistbox2.cell(1,incr)="MA":incr++
symbolslistbox2.cell(1,incr)="MAA":incr++
'symbolslistbox2.cell(1,incr)="MAA$I":incr++
symbolslistbox2.cell(1,incr)="MAAX":incr++
symbolslistbox2.cell(1,incr)="MAC":incr++
symbolslistbox2.cell(1,incr)="MACK":incr++
symbolslistbox2.cell(1,incr)="MAG":incr++
symbolslistbox2.cell(1,incr)="MAGA":incr++
'symbolslistbox2.cell(1,incr)="MAGS":incr++
symbolslistbox2.cell(1,incr)="MAIN":incr++
'symbolslistbox2.cell(1,incr)="MAMS":incr++
symbolslistbox2.cell(1,incr)="MAN":incr++
symbolslistbox2.cell(1,incr)="MANH":incr++
symbolslistbox2.cell(1,incr)="MANT":incr++
symbolslistbox2.cell(1,incr)="MANU":incr++
symbolslistbox2.cell(1,incr)="MAR":incr++
symbolslistbox2.cell(1,incr)="MARA":incr++
symbolslistbox2.cell(1,incr)="MARK":incr++
symbolslistbox2.cell(1,incr)="MARPS":incr++
symbolslistbox2.cell(1,incr)="MAS":incr++
symbolslistbox2.cell(1,incr)="MASI":incr++
symbolslistbox2.cell(1,incr)="MAT":incr++
symbolslistbox2.cell(1,incr)="MATW":incr++
symbolslistbox2.cell(1,incr)="MATX":incr++
symbolslistbox2.cell(1,incr)="MAV":incr++
symbolslistbox2.cell(1,incr)="MAXR":incr++
'symbolslistbox2.cell(1,incr)="MAYS":incr++
symbolslistbox2.cell(1,incr)="MBB":incr++
symbolslistbox2.cell(1,incr)="MBCN":incr++
symbolslistbox2.cell(1,incr)="MBI":incr++
symbolslistbox2.cell(1,incr)="MBII":incr++
symbolslistbox2.cell(1,incr)="MBIN":incr++
symbolslistbox2.cell(1,incr)="MBINO":incr++
symbolslistbox2.cell(1,incr)="MBINP":incr++
symbolslistbox2.cell(1,incr)="MBIO":incr++
symbolslistbox2.cell(1,incr)="MBOT":incr++
symbolslistbox2.cell(1,incr)="MBRX":incr++
symbolslistbox2.cell(1,incr)="MBSD":incr++
symbolslistbox2.cell(1,incr)="MBT":incr++
symbolslistbox2.cell(1,incr)="MBUU":incr++
symbolslistbox2.cell(1,incr)="MBWM":incr++
symbolslistbox2.cell(1,incr)="MC":incr++
symbolslistbox2.cell(1,incr)="MCA":incr++
symbolslistbox2.cell(1,incr)="MCB":incr++
symbolslistbox2.cell(1,incr)="MCBC":incr++
'symbolslistbox2.cell(1,incr)="MCC":incr++
symbolslistbox2.cell(1,incr)="MCD":incr++
symbolslistbox2.cell(1,incr)="MCEF":incr++
'symbolslistbox2.cell(1,incr)="MCEP":incr++
'symbolslistbox2.cell(1,incr)="MCF":incr++
symbolslistbox2.cell(1,incr)="MCFT":incr++
symbolslistbox2.cell(1,incr)="MCHI":incr++
symbolslistbox2.cell(1,incr)="MCHP":incr++
symbolslistbox2.cell(1,incr)="MCHX":incr++
symbolslistbox2.cell(1,incr)="MCI":incr++
symbolslistbox2.cell(1,incr)="MCK":incr++
symbolslistbox2.cell(1,incr)="MCN":incr++
symbolslistbox2.cell(1,incr)="MCO":incr++
symbolslistbox2.cell(1,incr)="MCR":incr++
symbolslistbox2.cell(1,incr)="MCRB":incr++
symbolslistbox2.cell(1,incr)="MCRI":incr++
'symbolslistbox2.cell(1,incr)="MCRN":incr++
symbolslistbox2.cell(1,incr)="MCRO":incr++
symbolslistbox2.cell(1,incr)="MCS":incr++
'symbolslistbox2.cell(1,incr)="MCV":incr++
'symbolslistbox2.cell(1,incr)="MCX":incr++
symbolslistbox2.cell(1,incr)="MCY":incr++
symbolslistbox2.cell(1,incr)="MD":incr++
symbolslistbox2.cell(1,incr)="MDB":incr++
symbolslistbox2.cell(1,incr)="MDC":incr++
'symbolslistbox2.cell(1,incr)="MDCA":incr++
'symbolslistbox2.cell(1,incr)="MDCO":incr++
symbolslistbox2.cell(1,incr)="MDGL":incr++
symbolslistbox2.cell(1,incr)="MDGS":incr++
'symbolslistbox2.cell(1,incr)="MDGSW":incr++
symbolslistbox2.cell(1,incr)="MDIV":incr++
symbolslistbox2.cell(1,incr)="MDJH":incr++
'symbolslistbox2.cell(1,incr)="MDLA":incr++
symbolslistbox2.cell(1,incr)="MDLQ":incr++
symbolslistbox2.cell(1,incr)="MDLX":incr++
'symbolslistbox2.cell(1,incr)="MDLY":incr++
symbolslistbox2.cell(1,incr)="MDLZ":incr++
symbolslistbox2.cell(1,incr)="MDP":incr++
'symbolslistbox2.cell(1,incr)="MDR":incr++
symbolslistbox2.cell(1,incr)="MDRR":incr++
symbolslistbox2.cell(1,incr)="MDRX":incr++
'symbolslistbox2.cell(1,incr)="MDSO":incr++
symbolslistbox2.cell(1,incr)="MDT":incr++
symbolslistbox2.cell(1,incr)="MDU":incr++
symbolslistbox2.cell(1,incr)="MDWD":incr++
symbolslistbox2.cell(1,incr)="MDY":incr++
symbolslistbox2.cell(1,incr)="MDYG":incr++
symbolslistbox2.cell(1,incr)="MDYV":incr++
symbolslistbox2.cell(1,incr)="MEAR":incr++
symbolslistbox2.cell(1,incr)="MEC":incr++
symbolslistbox2.cell(1,incr)="MED":incr++
symbolslistbox2.cell(1,incr)="MEDP":incr++
'symbolslistbox2.cell(1,incr)="MEET":incr++
symbolslistbox2.cell(1,incr)="MEI":incr++
symbolslistbox2.cell(1,incr)="MEIP":incr++
symbolslistbox2.cell(1,incr)="MELI":incr++
'symbolslistbox2.cell(1,incr)="MEN":incr++
symbolslistbox2.cell(1,incr)="MEOH":incr++
'symbolslistbox2.cell(1,incr)="MER$K":incr++
symbolslistbox2.cell(1,incr)="MERC":incr++
symbolslistbox2.cell(1,incr)="MESA":incr++
symbolslistbox2.cell(1,incr)="MESO":incr++
symbolslistbox2.cell(1,incr)="MET":incr++
'symbolslistbox2.cell(1,incr)="MET$A":incr++
'symbolslistbox2.cell(1,incr)="MET$E":incr++
symbolslistbox2.cell(1,incr)="METC":incr++
symbolslistbox2.cell(1,incr)="MEXX":incr++
symbolslistbox2.cell(1,incr)="MFA":incr++
'symbolslistbox2.cell(1,incr)="MFA$B":incr++
'symbolslistbox2.cell(1,incr)="MFAC":incr++
'symbolslistbox2.cell(1,incr)="MFAC.U":incr++
'symbolslistbox2.cell(1,incr)="MFAC.W":incr++
symbolslistbox2.cell(1,incr)="MFC":incr++
symbolslistbox2.cell(1,incr)="MFD":incr++
symbolslistbox2.cell(1,incr)="MFDX":incr++
symbolslistbox2.cell(1,incr)="MFEM":incr++
symbolslistbox2.cell(1,incr)="MFG":incr++
symbolslistbox2.cell(1,incr)="MFGP":incr++
symbolslistbox2.cell(1,incr)="MFIN":incr++
'symbolslistbox2.cell(1,incr)="MFINL":incr++
symbolslistbox2.cell(1,incr)="MFL":incr++
symbolslistbox2.cell(1,incr)="MFM":incr++
symbolslistbox2.cell(1,incr)="MFMS":incr++
'symbolslistbox2.cell(1,incr)="MFNC":incr++
'symbolslistbox2.cell(1,incr)="MFO":incr++
'symbolslistbox2.cell(1,incr)="MFSF":incr++
'symbolslistbox2.cell(1,incr)="MFT":incr++
symbolslistbox2.cell(1,incr)="MFUS":incr++
symbolslistbox2.cell(1,incr)="MFV":incr++
symbolslistbox2.cell(1,incr)="MG":incr++
symbolslistbox2.cell(1,incr)="MGA":incr++
symbolslistbox2.cell(1,incr)="MGC":incr++
symbolslistbox2.cell(1,incr)="MGEE":incr++
'symbolslistbox2.cell(1,incr)="MGEN":incr++
symbolslistbox2.cell(1,incr)="MGF":incr++
symbolslistbox2.cell(1,incr)="MGI":incr++
symbolslistbox2.cell(1,incr)="MGIC":incr++
symbolslistbox2.cell(1,incr)="MGK":incr++
symbolslistbox2.cell(1,incr)="MGLN":incr++
symbolslistbox2.cell(1,incr)="MGM":incr++
symbolslistbox2.cell(1,incr)="MGNX":incr++
symbolslistbox2.cell(1,incr)="MGP":incr++
symbolslistbox2.cell(1,incr)="MGPI":incr++
symbolslistbox2.cell(1,incr)="MGR":incr++
symbolslistbox2.cell(1,incr)="MGRC":incr++
symbolslistbox2.cell(1,incr)="MGTA":incr++
symbolslistbox2.cell(1,incr)="MGTX":incr++
symbolslistbox2.cell(1,incr)="MGU":incr++
symbolslistbox2.cell(1,incr)="MGV":incr++
symbolslistbox2.cell(1,incr)="MGY":incr++
symbolslistbox2.cell(1,incr)="MGYR":incr++
'symbolslistbox2.cell(1,incr)="MH$A":incr++
'symbolslistbox2.cell(1,incr)="MH$C":incr++
'symbolslistbox2.cell(1,incr)="MH$D":incr++
symbolslistbox2.cell(1,incr)="MHD":incr++
'symbolslistbox2.cell(1,incr)="MHE":incr++
symbolslistbox2.cell(1,incr)="MHF":incr++
symbolslistbox2.cell(1,incr)="MHH":incr++
symbolslistbox2.cell(1,incr)="MHI":incr++
symbolslistbox2.cell(1,incr)="MHK":incr++
symbolslistbox2.cell(1,incr)="MHLA":incr++
symbolslistbox2.cell(1,incr)="MHLD":incr++
symbolslistbox2.cell(1,incr)="MHN":incr++
symbolslistbox2.cell(1,incr)="MHNC":incr++
symbolslistbox2.cell(1,incr)="MHO":incr++
symbolslistbox2.cell(1,incr)="MIC":incr++
symbolslistbox2.cell(1,incr)="MICR":incr++
symbolslistbox2.cell(1,incr)="MICT":incr++
symbolslistbox2.cell(1,incr)="MIDD":incr++
'symbolslistbox2.cell(1,incr)="MIDF":incr++
symbolslistbox2.cell(1,incr)="MIDU":incr++
'symbolslistbox2.cell(1,incr)="MIDZ":incr++
'symbolslistbox2.cell(1,incr)="MIE":incr++
'symbolslistbox2.cell(1,incr)="MIK":incr++
symbolslistbox2.cell(1,incr)="MILN":incr++
symbolslistbox2.cell(1,incr)="MIME":incr++
symbolslistbox2.cell(1,incr)="MIN":incr++
symbolslistbox2.cell(1,incr)="MINC":incr++
symbolslistbox2.cell(1,incr)="MIND":incr++
symbolslistbox2.cell(1,incr)="MINDP":incr++
'symbolslistbox2.cell(1,incr)="MINI":incr++
symbolslistbox2.cell(1,incr)="MINT":incr++
symbolslistbox2.cell(1,incr)="MIRM":incr++
symbolslistbox2.cell(1,incr)="MIST":incr++
symbolslistbox2.cell(1,incr)="MITK":incr++
symbolslistbox2.cell(1,incr)="MITO":incr++
symbolslistbox2.cell(1,incr)="MITT":incr++
'symbolslistbox2.cell(1,incr)="MITT$A":incr++
'symbolslistbox2.cell(1,incr)="MITT$B":incr++
'symbolslistbox2.cell(1,incr)="MITT$C":incr++
symbolslistbox2.cell(1,incr)="MIXT":incr++
symbolslistbox2.cell(1,incr)="MIY":incr++
symbolslistbox2.cell(1,incr)="MJ":incr++
'symbolslistbox2.cell(1,incr)="MJCO":incr++
symbolslistbox2.cell(1,incr)="MKC":incr++
'symbolslistbox2.cell(1,incr)="MKC.V":incr++
'symbolslistbox2.cell(1,incr)="MKGI":incr++
symbolslistbox2.cell(1,incr)="MKL":incr++
symbolslistbox2.cell(1,incr)="MKSI":incr++
symbolslistbox2.cell(1,incr)="MKTX":incr++
symbolslistbox2.cell(1,incr)="MLAB":incr++
symbolslistbox2.cell(1,incr)="MLCO":incr++
'symbolslistbox2.cell(1,incr)="MLHR":incr++
symbolslistbox2.cell(1,incr)="MLI":incr++
symbolslistbox2.cell(1,incr)="MLM":incr++
symbolslistbox2.cell(1,incr)="MLN":incr++
'symbolslistbox2.cell(1,incr)="MLND":incr++
'symbolslistbox2.cell(1,incr)="MLNT":incr++
'symbolslistbox2.cell(1,incr)="MLNX":incr++
symbolslistbox2.cell(1,incr)="MLP":incr++
symbolslistbox2.cell(1,incr)="MLPA":incr++
symbolslistbox2.cell(1,incr)="MLPB":incr++
'symbolslistbox2.cell(1,incr)="MLPC":incr++
'symbolslistbox2.cell(1,incr)="MLPE":incr++
'symbolslistbox2.cell(1,incr)="MLPG":incr++
'symbolslistbox2.cell(1,incr)="MLPI":incr++
'symbolslistbox2.cell(1,incr)="MLPO":incr++
'symbolslistbox2.cell(1,incr)="MLPQ":incr++
symbolslistbox2.cell(1,incr)="MLPX":incr++
symbolslistbox2.cell(1,incr)="MLPY":incr++
'symbolslistbox2.cell(1,incr)="MLPZ":incr++
symbolslistbox2.cell(1,incr)="MLR":incr++
symbolslistbox2.cell(1,incr)="MLSS":incr++
'symbolslistbox2.cell(1,incr)="MLTI":incr++
symbolslistbox2.cell(1,incr)="MLVF":incr++
'symbolslistbox2.cell(1,incr)="MMAC":incr++
symbolslistbox2.cell(1,incr)="MMC":incr++
symbolslistbox2.cell(1,incr)="MMD":incr++
symbolslistbox2.cell(1,incr)="MMI":incr++
symbolslistbox2.cell(1,incr)="MMIN":incr++
symbolslistbox2.cell(1,incr)="MMIT":incr++
symbolslistbox2.cell(1,incr)="MMLP":incr++
symbolslistbox2.cell(1,incr)="MMM":incr++
symbolslistbox2.cell(1,incr)="MMP":incr++
symbolslistbox2.cell(1,incr)="MMS":incr++
symbolslistbox2.cell(1,incr)="MMSI":incr++
symbolslistbox2.cell(1,incr)="MMT":incr++
symbolslistbox2.cell(1,incr)="MMTM":incr++
symbolslistbox2.cell(1,incr)="MMU":incr++
symbolslistbox2.cell(1,incr)="MMX":incr++
symbolslistbox2.cell(1,incr)="MMYT":incr++
symbolslistbox2.cell(1,incr)="MN":incr++
symbolslistbox2.cell(1,incr)="MNA":incr++
'symbolslistbox2.cell(1,incr)="MNCL":incr++
'symbolslistbox2.cell(1,incr)="MNCLU":incr++
'symbolslistbox2.cell(1,incr)="MNCLW":incr++
symbolslistbox2.cell(1,incr)="MNDO":incr++
'symbolslistbox2.cell(1,incr)="MNE":incr++
'symbolslistbox2.cell(1,incr)="MNI":incr++
'symbolslistbox2.cell(1,incr)="MNK":incr++
symbolslistbox2.cell(1,incr)="MNKD":incr++
'symbolslistbox2.cell(1,incr)="MNLO":incr++
symbolslistbox2.cell(1,incr)="MNOV":incr++
symbolslistbox2.cell(1,incr)="MNP":incr++
symbolslistbox2.cell(1,incr)="MNR":incr++
'symbolslistbox2.cell(1,incr)="MNR$C":incr++
symbolslistbox2.cell(1,incr)="MNRL":incr++
symbolslistbox2.cell(1,incr)="MNRO":incr++
symbolslistbox2.cell(1,incr)="MNSB":incr++
symbolslistbox2.cell(1,incr)="MNST":incr++
'symbolslistbox2.cell(1,incr)="MNTA":incr++
symbolslistbox2.cell(1,incr)="MNTX":incr++
symbolslistbox2.cell(1,incr)="MO":incr++
symbolslistbox2.cell(1,incr)="MOAT":incr++
'symbolslistbox2.cell(1,incr)="MOBL":incr++
symbolslistbox2.cell(1,incr)="MOD":incr++
symbolslistbox2.cell(1,incr)="MODN":incr++
symbolslistbox2.cell(1,incr)="MOFG":incr++
'symbolslistbox2.cell(1,incr)="MOG.A":incr++
'symbolslistbox2.cell(1,incr)="MOG.B":incr++
symbolslistbox2.cell(1,incr)="MOGO":incr++
symbolslistbox2.cell(1,incr)="MOGU":incr++
symbolslistbox2.cell(1,incr)="MOH":incr++
'symbolslistbox2.cell(1,incr)="MOM":incr++
symbolslistbox2.cell(1,incr)="MOMO":incr++
symbolslistbox2.cell(1,incr)="MOO":incr++
symbolslistbox2.cell(1,incr)="MOR":incr++
symbolslistbox2.cell(1,incr)="MORF":incr++
'symbolslistbox2.cell(1,incr)="MORL":incr++
symbolslistbox2.cell(1,incr)="MORN":incr++
symbolslistbox2.cell(1,incr)="MORT":incr++
symbolslistbox2.cell(1,incr)="MOS":incr++
'symbolslistbox2.cell(1,incr)="MOSC":incr++
'symbolslistbox2.cell(1,incr)="MOSC.U":incr++
'symbolslistbox2.cell(1,incr)="MOSC.W":incr++
'symbolslistbox2.cell(1,incr)="MOSY":incr++
symbolslistbox2.cell(1,incr)="MOTI":incr++
symbolslistbox2.cell(1,incr)="MOTS":incr++
symbolslistbox2.cell(1,incr)="MOV":incr++
symbolslistbox2.cell(1,incr)="MOXC":incr++
symbolslistbox2.cell(1,incr)="MPA":incr++
symbolslistbox2.cell(1,incr)="MPAA":incr++
symbolslistbox2.cell(1,incr)="MPB":incr++
symbolslistbox2.cell(1,incr)="MPC":incr++
symbolslistbox2.cell(1,incr)="MPLX":incr++
symbolslistbox2.cell(1,incr)="MPV":incr++
'symbolslistbox2.cell(1,incr)="MPVD":incr++
symbolslistbox2.cell(1,incr)="MPW":incr++
symbolslistbox2.cell(1,incr)="MPWR":incr++
symbolslistbox2.cell(1,incr)="MPX":incr++
symbolslistbox2.cell(1,incr)="MQT":incr++
symbolslistbox2.cell(1,incr)="MQY":incr++
'symbolslistbox2.cell(1,incr)="MR":incr++
symbolslistbox2.cell(1,incr)="MRAM":incr++
symbolslistbox2.cell(1,incr)="MRBK":incr++
symbolslistbox2.cell(1,incr)="MRC":incr++
symbolslistbox2.cell(1,incr)="MRCC":incr++
'symbolslistbox2.cell(1,incr)="MRCCL":incr++
symbolslistbox2.cell(1,incr)="MRCY":incr++
symbolslistbox2.cell(1,incr)="MREO":incr++
symbolslistbox2.cell(1,incr)="MRGR":incr++
'symbolslistbox2.cell(1,incr)="MRIC":incr++
symbolslistbox2.cell(1,incr)="MRIN":incr++
symbolslistbox2.cell(1,incr)="MRK":incr++
symbolslistbox2.cell(1,incr)="MRKR":incr++
symbolslistbox2.cell(1,incr)="MRLN":incr++
symbolslistbox2.cell(1,incr)="MRNA":incr++
symbolslistbox2.cell(1,incr)="MRNS":incr++
symbolslistbox2.cell(1,incr)="MRO":incr++
'symbolslistbox2.cell(1,incr)="MRRL":incr++
symbolslistbox2.cell(1,incr)="MRSN":incr++
symbolslistbox2.cell(1,incr)="MRTN":incr++
symbolslistbox2.cell(1,incr)="MRTX":incr++
symbolslistbox2.cell(1,incr)="MRUS":incr++
symbolslistbox2.cell(1,incr)="MRVL":incr++
symbolslistbox2.cell(1,incr)="MS":incr++
'symbolslistbox2.cell(1,incr)="MS$A":incr++
'symbolslistbox2.cell(1,incr)="MS$E":incr++
'symbolslistbox2.cell(1,incr)="MS$F":incr++
'symbolslistbox2.cell(1,incr)="MS$G":incr++
'symbolslistbox2.cell(1,incr)="MS$I":incr++
'symbolslistbox2.cell(1,incr)="MS$K":incr++
symbolslistbox2.cell(1,incr)="MSA":incr++
symbolslistbox2.cell(1,incr)="MSB":incr++
'symbolslistbox2.cell(1,incr)="MSBF":incr++
symbolslistbox2.cell(1,incr)="MSBI":incr++
'symbolslistbox2.cell(1,incr)="MSC":incr++
symbolslistbox2.cell(1,incr)="MSCI":incr++
symbolslistbox2.cell(1,incr)="MSD":incr++
symbolslistbox2.cell(1,incr)="MSEX":incr++
symbolslistbox2.cell(1,incr)="MSFT":incr++
'symbolslistbox2.cell(1,incr)="MSG":incr++
'symbolslistbox2.cell(1,incr)="MSGN":incr++
symbolslistbox2.cell(1,incr)="MSI":incr++
symbolslistbox2.cell(1,incr)="MSM":incr++
symbolslistbox2.cell(1,incr)="MSN":incr++
'symbolslistbox2.cell(1,incr)="MSON":incr++
symbolslistbox2.cell(1,incr)="MSTR":incr++
'symbolslistbox2.cell(1,incr)="MSUS":incr++
symbolslistbox2.cell(1,incr)="MSVB":incr++
symbolslistbox2.cell(1,incr)="MT":incr++
symbolslistbox2.cell(1,incr)="MTB":incr++
symbolslistbox2.cell(1,incr)="MTBC":incr++
symbolslistbox2.cell(1,incr)="MTBCP":incr++
symbolslistbox2.cell(1,incr)="MTC":incr++
symbolslistbox2.cell(1,incr)="MTCH":incr++
symbolslistbox2.cell(1,incr)="MTD":incr++
symbolslistbox2.cell(1,incr)="MTDR":incr++
symbolslistbox2.cell(1,incr)="MTEM":incr++
symbolslistbox2.cell(1,incr)="MTEX":incr++
'symbolslistbox2.cell(1,incr)="MTFB":incr++
'symbolslistbox2.cell(1,incr)="MTFBW":incr++
symbolslistbox2.cell(1,incr)="MTG":incr++
symbolslistbox2.cell(1,incr)="MTH":incr++
symbolslistbox2.cell(1,incr)="MTL":incr++
'symbolslistbox2.cell(1,incr)="MTL$":incr++
symbolslistbox2.cell(1,incr)="MTLS":incr++
symbolslistbox2.cell(1,incr)="MTN":incr++
symbolslistbox2.cell(1,incr)="MTNB":incr++
symbolslistbox2.cell(1,incr)="MTOR":incr++
symbolslistbox2.cell(1,incr)="MTP":incr++
symbolslistbox2.cell(1,incr)="MTR":incr++
symbolslistbox2.cell(1,incr)="MTRN":incr++
symbolslistbox2.cell(1,incr)="MTRX":incr++
'symbolslistbox2.cell(1,incr)="MTSC":incr++
symbolslistbox2.cell(1,incr)="MTSI":incr++
'symbolslistbox2.cell(1,incr)="MTSL":incr++
'symbolslistbox2.cell(1,incr)="MTT":incr++
symbolslistbox2.cell(1,incr)="MTUM":incr++
symbolslistbox2.cell(1,incr)="MTW":incr++
symbolslistbox2.cell(1,incr)="MTX":incr++
symbolslistbox2.cell(1,incr)="MTZ":incr++
symbolslistbox2.cell(1,incr)="MU":incr++
symbolslistbox2.cell(1,incr)="MUA":incr++
symbolslistbox2.cell(1,incr)="MUB":incr++
symbolslistbox2.cell(1,incr)="MUC":incr++
symbolslistbox2.cell(1,incr)="MUDS":incr++
symbolslistbox2.cell(1,incr)="MUDSU":incr++
symbolslistbox2.cell(1,incr)="MUDSW":incr++
symbolslistbox2.cell(1,incr)="MUE":incr++
symbolslistbox2.cell(1,incr)="MUFG":incr++
'symbolslistbox2.cell(1,incr)="MUH":incr++
symbolslistbox2.cell(1,incr)="MUI":incr++
symbolslistbox2.cell(1,incr)="MUJ":incr++
symbolslistbox2.cell(1,incr)="MUNI":incr++
symbolslistbox2.cell(1,incr)="MUR":incr++
'symbolslistbox2.cell(1,incr)="MUS":incr++
symbolslistbox2.cell(1,incr)="MUSA":incr++
symbolslistbox2.cell(1,incr)="MUST":incr++
'symbolslistbox2.cell(1,incr)="MUTE":incr++
symbolslistbox2.cell(1,incr)="MUX":incr++
symbolslistbox2.cell(1,incr)="MVBF":incr++
'symbolslistbox2.cell(1,incr)="MVC":incr++
'symbolslistbox2.cell(1,incr)="MVCD":incr++
symbolslistbox2.cell(1,incr)="MVF":incr++
'symbolslistbox2.cell(1,incr)="MVIN":incr++
symbolslistbox2.cell(1,incr)="MVIS":incr++
symbolslistbox2.cell(1,incr)="MVO":incr++
symbolslistbox2.cell(1,incr)="MVT":incr++
symbolslistbox2.cell(1,incr)="MVV":incr++
symbolslistbox2.cell(1,incr)="MWA":incr++
'symbolslistbox2.cell(1,incr)="MWK":incr++
symbolslistbox2.cell(1,incr)="MX":incr++
symbolslistbox2.cell(1,incr)="MXC":incr++
'symbolslistbox2.cell(1,incr)="MXDE":incr++
'symbolslistbox2.cell(1,incr)="MXDU":incr++
symbolslistbox2.cell(1,incr)="MXE":incr++
symbolslistbox2.cell(1,incr)="MXF":incr++
symbolslistbox2.cell(1,incr)="MXI":incr++
'symbolslistbox2.cell(1,incr)="MXIM":incr++
symbolslistbox2.cell(1,incr)="MXL":incr++
symbolslistbox2.cell(1,incr)="MYC":incr++
symbolslistbox2.cell(1,incr)="MYD":incr++
symbolslistbox2.cell(1,incr)="MYE":incr++
'symbolslistbox2.cell(1,incr)="MYF":incr++
symbolslistbox2.cell(1,incr)="MYFW":incr++
symbolslistbox2.cell(1,incr)="MYGN":incr++
symbolslistbox2.cell(1,incr)="MYI":incr++
symbolslistbox2.cell(1,incr)="MYJ":incr++
'symbolslistbox2.cell(1,incr)="MYL":incr++
symbolslistbox2.cell(1,incr)="MYN":incr++
symbolslistbox2.cell(1,incr)="MYO":incr++
'symbolslistbox2.cell(1,incr)="MYOK":incr++
'symbolslistbox2.cell(1,incr)="MYOS":incr++
symbolslistbox2.cell(1,incr)="MYOV":incr++
symbolslistbox2.cell(1,incr)="MYRG":incr++
symbolslistbox2.cell(1,incr)="MYSZ":incr++
'symbolslistbox2.cell(1,incr)="MYT":incr++
symbolslistbox2.cell(1,incr)="MYY":incr++
'symbolslistbox2.cell(1,incr)="MZA":incr++
symbolslistbox2.cell(1,incr)="MZZ":incr++
symbolslistbox2.cell(1,incr)="NAC":incr++
symbolslistbox2.cell(1,incr)="NACP":incr++
symbolslistbox2.cell(1,incr)="NAD":incr++
symbolslistbox2.cell(1,incr)="NAII":incr++
symbolslistbox2.cell(1,incr)="NAIL":incr++
symbolslistbox2.cell(1,incr)="NAK":incr++
symbolslistbox2.cell(1,incr)="NAKD":incr++
symbolslistbox2.cell(1,incr)="NAN":incr++
'symbolslistbox2.cell(1,incr)="NANO":incr++
symbolslistbox2.cell(1,incr)="NANR":incr++
symbolslistbox2.cell(1,incr)="NAOV":incr++
symbolslistbox2.cell(1,incr)="NAT":incr++
symbolslistbox2.cell(1,incr)="NATH":incr++
symbolslistbox2.cell(1,incr)="NATI":incr++
symbolslistbox2.cell(1,incr)="NATR":incr++
'symbolslistbox2.cell(1,incr)="NAV":incr++
'symbolslistbox2.cell(1,incr)="NAV$D":incr++
symbolslistbox2.cell(1,incr)="NAVB":incr++
symbolslistbox2.cell(1,incr)="NAVI":incr++
symbolslistbox2.cell(1,incr)="NAZ":incr++
symbolslistbox2.cell(1,incr)="NBB":incr++
symbolslistbox2.cell(1,incr)="NBEV":incr++
symbolslistbox2.cell(1,incr)="NBH":incr++
symbolslistbox2.cell(1,incr)="NBHC":incr++
symbolslistbox2.cell(1,incr)="NBIX":incr++
'symbolslistbox2.cell(1,incr)="NBL":incr++
'symbolslistbox2.cell(1,incr)="NBLX":incr++
symbolslistbox2.cell(1,incr)="NBN":incr++
symbolslistbox2.cell(1,incr)="NBO":incr++
symbolslistbox2.cell(1,incr)="NBR":incr++
'symbolslistbox2.cell(1,incr)="NBR$A":incr++
symbolslistbox2.cell(1,incr)="NBRV":incr++
symbolslistbox2.cell(1,incr)="NBSE":incr++
symbolslistbox2.cell(1,incr)="NBTB":incr++
symbolslistbox2.cell(1,incr)="NBW":incr++
symbolslistbox2.cell(1,incr)="NBY":incr++
symbolslistbox2.cell(1,incr)="NC":incr++
symbolslistbox2.cell(1,incr)="NCA":incr++
'symbolslistbox2.cell(1,incr)="NCB":incr++
symbolslistbox2.cell(1,incr)="NCBS":incr++
'symbolslistbox2.cell(1,incr)="NCI":incr++
symbolslistbox2.cell(1,incr)="NCLH":incr++
symbolslistbox2.cell(1,incr)="NCMI":incr++
symbolslistbox2.cell(1,incr)="NCNA":incr++
symbolslistbox2.cell(1,incr)="NCR":incr++
symbolslistbox2.cell(1,incr)="NCSM":incr++
symbolslistbox2.cell(1,incr)="NCTY":incr++
symbolslistbox2.cell(1,incr)="NCV":incr++
'symbolslistbox2.cell(1,incr)="NCV$A":incr++
symbolslistbox2.cell(1,incr)="NCZ":incr++
'symbolslistbox2.cell(1,incr)="NCZ$A":incr++
symbolslistbox2.cell(1,incr)="NDAQ":incr++
symbolslistbox2.cell(1,incr)="NDLS":incr++
symbolslistbox2.cell(1,incr)="NDP":incr++
symbolslistbox2.cell(1,incr)="NDRA":incr++
'symbolslistbox2.cell(1,incr)="NDRAW":incr++
symbolslistbox2.cell(1,incr)="NDSN":incr++
symbolslistbox2.cell(1,incr)="NE":incr++
symbolslistbox2.cell(1,incr)="NEA":incr++
symbolslistbox2.cell(1,incr)="NEAR":incr++
'symbolslistbox2.cell(1,incr)="NEBU":incr++
'symbolslistbox2.cell(1,incr)="NEBUU":incr++
'symbolslistbox2.cell(1,incr)="NEBUW":incr++
symbolslistbox2.cell(1,incr)="NEE":incr++
'symbolslistbox2.cell(1,incr)="NEE$I":incr++
'symbolslistbox2.cell(1,incr)="NEE$J":incr++
'symbolslistbox2.cell(1,incr)="NEE$K":incr++
'symbolslistbox2.cell(1,incr)="NEE$N":incr++
'symbolslistbox2.cell(1,incr)="NEE$O":incr++
'symbolslistbox2.cell(1,incr)="NEED":incr++
symbolslistbox2.cell(1,incr)="NEM":incr++
'symbolslistbox2.cell(1,incr)="NEN":incr++
symbolslistbox2.cell(1,incr)="NEO":incr++
symbolslistbox2.cell(1,incr)="NEOG":incr++
symbolslistbox2.cell(1,incr)="NEON":incr++
'symbolslistbox2.cell(1,incr)="NEOS":incr++
symbolslistbox2.cell(1,incr)="NEP":incr++
symbolslistbox2.cell(1,incr)="NEPH":incr++
symbolslistbox2.cell(1,incr)="NEPT":incr++
symbolslistbox2.cell(1,incr)="NERD":incr++
symbolslistbox2.cell(1,incr)="NERV":incr++
symbolslistbox2.cell(1,incr)="NES":incr++
symbolslistbox2.cell(1,incr)="NESR":incr++
'symbolslistbox2.cell(1,incr)="NESRW":incr++
symbolslistbox2.cell(1,incr)="NET":incr++
'symbolslistbox2.cell(1,incr)="NETE":incr++
symbolslistbox2.cell(1,incr)="NETL":incr++
symbolslistbox2.cell(1,incr)="NEU":incr++
symbolslistbox2.cell(1,incr)="NEV":incr++
symbolslistbox2.cell(1,incr)="NEW":incr++
'symbolslistbox2.cell(1,incr)="NEWA":incr++
'symbolslistbox2.cell(1,incr)="NEWM":incr++
symbolslistbox2.cell(1,incr)="NEWR":incr++
symbolslistbox2.cell(1,incr)="NEWT":incr++
'symbolslistbox2.cell(1,incr)="NEWTI":incr++
symbolslistbox2.cell(1,incr)="NEWTL":incr++
symbolslistbox2.cell(1,incr)="NEXA":incr++
symbolslistbox2.cell(1,incr)="NEXT":incr++
symbolslistbox2.cell(1,incr)="NFBK":incr++
'symbolslistbox2.cell(1,incr)="NFC":incr++
'symbolslistbox2.cell(1,incr)="NFC.U":incr++
'symbolslistbox2.cell(1,incr)="NFC.W":incr++
symbolslistbox2.cell(1,incr)="NFE":incr++
symbolslistbox2.cell(1,incr)="NFG":incr++
'symbolslistbox2.cell(1,incr)="NFIN":incr++
'symbolslistbox2.cell(1,incr)="NFINU":incr++
'symbolslistbox2.cell(1,incr)="NFINW":incr++
symbolslistbox2.cell(1,incr)="NFJ":incr++
symbolslistbox2.cell(1,incr)="NFLT":incr++
symbolslistbox2.cell(1,incr)="NFLX":incr++
'symbolslistbox2.cell(1,incr)="NFO":incr++
symbolslistbox2.cell(1,incr)="NFRA":incr++
symbolslistbox2.cell(1,incr)="NFTY":incr++
symbolslistbox2.cell(1,incr)="NG":incr++
symbolslistbox2.cell(1,incr)="NGD":incr++
symbolslistbox2.cell(1,incr)="NGE":incr++
symbolslistbox2.cell(1,incr)="NGG":incr++
'symbolslistbox2.cell(1,incr)="NGHC":incr++
'symbolslistbox2.cell(1,incr)="NGHCN":incr++
'symbolslistbox2.cell(1,incr)="NGHCO":incr++
'symbolslistbox2.cell(1,incr)="NGHCP":incr++
'symbolslistbox2.cell(1,incr)="NGHCZ":incr++
symbolslistbox2.cell(1,incr)="NGL":incr++
'symbolslistbox2.cell(1,incr)="NGL$B":incr++
'symbolslistbox2.cell(1,incr)="NGL$C":incr++
'symbolslistbox2.cell(1,incr)="NGLS$A":incr++
symbolslistbox2.cell(1,incr)="NGM":incr++
symbolslistbox2.cell(1,incr)="NGS":incr++
symbolslistbox2.cell(1,incr)="NGVC":incr++
symbolslistbox2.cell(1,incr)="NGVT":incr++
symbolslistbox2.cell(1,incr)="NH":incr++
'symbolslistbox2.cell(1,incr)="NHA":incr++
symbolslistbox2.cell(1,incr)="NHC":incr++
'symbolslistbox2.cell(1,incr)="NHF":incr++
symbolslistbox2.cell(1,incr)="NHI":incr++
'symbolslistbox2.cell(1,incr)="NHLD":incr++
'symbolslistbox2.cell(1,incr)="NHLDW":incr++
symbolslistbox2.cell(1,incr)="NHS":incr++
symbolslistbox2.cell(1,incr)="NHTC":incr++
symbolslistbox2.cell(1,incr)="NI":incr++
'symbolslistbox2.cell(1,incr)="NI$B":incr++
symbolslistbox2.cell(1,incr)="NIB":incr++
symbolslistbox2.cell(1,incr)="NICE":incr++
symbolslistbox2.cell(1,incr)="NICK":incr++
symbolslistbox2.cell(1,incr)="NID":incr++
symbolslistbox2.cell(1,incr)="NIE":incr++
'symbolslistbox2.cell(1,incr)="NIHD":incr++
symbolslistbox2.cell(1,incr)="NIM":incr++
symbolslistbox2.cell(1,incr)="NINE":incr++
symbolslistbox2.cell(1,incr)="NIO":incr++
symbolslistbox2.cell(1,incr)="NIQ":incr++
symbolslistbox2.cell(1,incr)="NIU":incr++
symbolslistbox2.cell(1,incr)="NJR":incr++
'symbolslistbox2.cell(1,incr)="NJV":incr++
'symbolslistbox2.cell(1,incr)="NK":incr++
symbolslistbox2.cell(1,incr)="NKE":incr++
symbolslistbox2.cell(1,incr)="NKG":incr++
symbolslistbox2.cell(1,incr)="NKSH":incr++
symbolslistbox2.cell(1,incr)="NKTR":incr++
symbolslistbox2.cell(1,incr)="NKX":incr++
symbolslistbox2.cell(1,incr)="NL":incr++
'symbolslistbox2.cell(1,incr)="NLNK":incr++
symbolslistbox2.cell(1,incr)="NLR":incr++
symbolslistbox2.cell(1,incr)="NLS":incr++
symbolslistbox2.cell(1,incr)="NLSN":incr++
symbolslistbox2.cell(1,incr)="NLTX":incr++
symbolslistbox2.cell(1,incr)="NLY":incr++
'symbolslistbox2.cell(1,incr)="NLY$D":incr++
'symbolslistbox2.cell(1,incr)="NLY$F":incr++
'symbolslistbox2.cell(1,incr)="NLY$G":incr++
'symbolslistbox2.cell(1,incr)="NLY$I":incr++
symbolslistbox2.cell(1,incr)="NM":incr++
'symbolslistbox2.cell(1,incr)="NM$G":incr++
'symbolslistbox2.cell(1,incr)="NM$H":incr++
'symbolslistbox2.cell(1,incr)="NMCI":incr++
symbolslistbox2.cell(1,incr)="NMCO":incr++
symbolslistbox2.cell(1,incr)="NMFC":incr++
'symbolslistbox2.cell(1,incr)="NMFX":incr++
symbolslistbox2.cell(1,incr)="NMI":incr++
symbolslistbox2.cell(1,incr)="NMIH":incr++
'symbolslistbox2.cell(1,incr)="NMK$B":incr++
'symbolslistbox2.cell(1,incr)="NMK$C":incr++
symbolslistbox2.cell(1,incr)="NML":incr++
symbolslistbox2.cell(1,incr)="NMM":incr++
symbolslistbox2.cell(1,incr)="NMR":incr++
symbolslistbox2.cell(1,incr)="NMRD":incr++
symbolslistbox2.cell(1,incr)="NMRK":incr++
symbolslistbox2.cell(1,incr)="NMS":incr++
symbolslistbox2.cell(1,incr)="NMT":incr++
'symbolslistbox2.cell(1,incr)="NMY":incr++
symbolslistbox2.cell(1,incr)="NMZ":incr++
'symbolslistbox2.cell(1,incr)="NNA":incr++
symbolslistbox2.cell(1,incr)="NNBR":incr++
'symbolslistbox2.cell(1,incr)="NNC":incr++
symbolslistbox2.cell(1,incr)="NNDM":incr++
symbolslistbox2.cell(1,incr)="NNI":incr++
symbolslistbox2.cell(1,incr)="NNN":incr++
'symbolslistbox2.cell(1,incr)="NNN$E":incr++
'symbolslistbox2.cell(1,incr)="NNN$F":incr++
symbolslistbox2.cell(1,incr)="NNVC":incr++
symbolslistbox2.cell(1,incr)="NNY":incr++
symbolslistbox2.cell(1,incr)="NOA":incr++
symbolslistbox2.cell(1,incr)="NOAH":incr++
symbolslistbox2.cell(1,incr)="NOBL":incr++
symbolslistbox2.cell(1,incr)="NOC":incr++
symbolslistbox2.cell(1,incr)="NODK":incr++
symbolslistbox2.cell(1,incr)="NOG":incr++
symbolslistbox2.cell(1,incr)="NOK":incr++
symbolslistbox2.cell(1,incr)="NOM":incr++
symbolslistbox2.cell(1,incr)="NOMD":incr++
symbolslistbox2.cell(1,incr)="NORW":incr++
symbolslistbox2.cell(1,incr)="NOV":incr++
symbolslistbox2.cell(1,incr)="NOVA":incr++
symbolslistbox2.cell(1,incr)="NOVN":incr++
symbolslistbox2.cell(1,incr)="NOVT":incr++
symbolslistbox2.cell(1,incr)="NOW":incr++
symbolslistbox2.cell(1,incr)="NP":incr++
'symbolslistbox2.cell(1,incr)="NPAUU":incr++
symbolslistbox2.cell(1,incr)="NPK":incr++
'symbolslistbox2.cell(1,incr)="NPN":incr++
symbolslistbox2.cell(1,incr)="NPO":incr++
symbolslistbox2.cell(1,incr)="NPTN":incr++
symbolslistbox2.cell(1,incr)="NPV":incr++
symbolslistbox2.cell(1,incr)="NQP":incr++
symbolslistbox2.cell(1,incr)="NR":incr++
symbolslistbox2.cell(1,incr)="NRC":incr++
'symbolslistbox2.cell(1,incr)="NRCG":incr++
'symbolslistbox2.cell(1,incr)="NRCG.W":incr++
'symbolslistbox2.cell(1,incr)="NRE":incr++
symbolslistbox2.cell(1,incr)="NRG":incr++
symbolslistbox2.cell(1,incr)="NRGD":incr++
'symbolslistbox2.cell(1,incr)="NRGO":incr++
symbolslistbox2.cell(1,incr)="NRGU":incr++
symbolslistbox2.cell(1,incr)="NRGX":incr++
'symbolslistbox2.cell(1,incr)="NRGZ":incr++
symbolslistbox2.cell(1,incr)="NRIM":incr++
symbolslistbox2.cell(1,incr)="NRK":incr++
symbolslistbox2.cell(1,incr)="NRO":incr++
symbolslistbox2.cell(1,incr)="NRP":incr++
symbolslistbox2.cell(1,incr)="NRT":incr++
symbolslistbox2.cell(1,incr)="NRUC":incr++
symbolslistbox2.cell(1,incr)="NRZ":incr++
'symbolslistbox2.cell(1,incr)="NRZ$A":incr++
'symbolslistbox2.cell(1,incr)="NRZ$B":incr++
symbolslistbox2.cell(1,incr)="NS":incr++
'symbolslistbox2.cell(1,incr)="NS$A":incr++
'symbolslistbox2.cell(1,incr)="NS$B":incr++
'symbolslistbox2.cell(1,incr)="NS$C":incr++
symbolslistbox2.cell(1,incr)="NSA":incr++
'symbolslistbox2.cell(1,incr)="NSA$A":incr++
symbolslistbox2.cell(1,incr)="NSC":incr++
'symbolslistbox2.cell(1,incr)="NSCO":incr++
'symbolslistbox2.cell(1,incr)="NSCO.W":incr++
symbolslistbox2.cell(1,incr)="NSEC":incr++
symbolslistbox2.cell(1,incr)="NSIT":incr++
symbolslistbox2.cell(1,incr)="NSL":incr++
symbolslistbox2.cell(1,incr)="NSP":incr++
symbolslistbox2.cell(1,incr)="NSPR":incr++
'symbolslistbox2.cell(1,incr)="NSPR.B":incr++
'symbolslistbox2.cell(1,incr)="NSPR.W":incr++
symbolslistbox2.cell(1,incr)="NSS":incr++
symbolslistbox2.cell(1,incr)="NSSC":incr++
symbolslistbox2.cell(1,incr)="NSTG":incr++
symbolslistbox2.cell(1,incr)="NSYS":incr++
symbolslistbox2.cell(1,incr)="NTAP":incr++
symbolslistbox2.cell(1,incr)="NTB":incr++
'symbolslistbox2.cell(1,incr)="NTC":incr++
symbolslistbox2.cell(1,incr)="NTCT":incr++
'symbolslistbox2.cell(1,incr)="NTEC":incr++
symbolslistbox2.cell(1,incr)="NTES":incr++
'symbolslistbox2.cell(1,incr)="NTEST":incr++
'symbolslistbox2.cell(1,incr)="NTEST.A":incr++
'symbolslistbox2.cell(1,incr)="NTEST.B":incr++
'symbolslistbox2.cell(1,incr)="NTEST.C":incr++
symbolslistbox2.cell(1,incr)="NTG":incr++
'symbolslistbox2.cell(1,incr)="NTGN":incr++
symbolslistbox2.cell(1,incr)="NTGR":incr++
symbolslistbox2.cell(1,incr)="NTIC":incr++
symbolslistbox2.cell(1,incr)="NTIP":incr++
symbolslistbox2.cell(1,incr)="NTLA":incr++
'symbolslistbox2.cell(1,incr)="NTN":incr++
symbolslistbox2.cell(1,incr)="NTNX":incr++
symbolslistbox2.cell(1,incr)="NTP":incr++
symbolslistbox2.cell(1,incr)="NTR":incr++
symbolslistbox2.cell(1,incr)="NTRA":incr++
'symbolslistbox2.cell(1,incr)="NTRP":incr++
symbolslistbox2.cell(1,incr)="NTRS":incr++
'symbolslistbox2.cell(1,incr)="NTRSP":incr++
symbolslistbox2.cell(1,incr)="NTSX":incr++
symbolslistbox2.cell(1,incr)="NTUS":incr++
symbolslistbox2.cell(1,incr)="NTWK":incr++
'symbolslistbox2.cell(1,incr)="NTX":incr++
symbolslistbox2.cell(1,incr)="NTZ":incr++
symbolslistbox2.cell(1,incr)="NUAG":incr++
symbolslistbox2.cell(1,incr)="NUAN":incr++
'symbolslistbox2.cell(1,incr)="NUANV":incr++
symbolslistbox2.cell(1,incr)="NUBD":incr++
symbolslistbox2.cell(1,incr)="NUDM":incr++
symbolslistbox2.cell(1,incr)="NUE":incr++
symbolslistbox2.cell(1,incr)="NUEM":incr++
symbolslistbox2.cell(1,incr)="NUGT":incr++
symbolslistbox2.cell(1,incr)="NUHY":incr++
symbolslistbox2.cell(1,incr)="NULC":incr++
symbolslistbox2.cell(1,incr)="NULG":incr++
symbolslistbox2.cell(1,incr)="NULV":incr++
'symbolslistbox2.cell(1,incr)="NUM":incr++
symbolslistbox2.cell(1,incr)="NUMG":incr++
symbolslistbox2.cell(1,incr)="NUMV":incr++
symbolslistbox2.cell(1,incr)="NUO":incr++
symbolslistbox2.cell(1,incr)="NURE":incr++
symbolslistbox2.cell(1,incr)="NURO":incr++
'symbolslistbox2.cell(1,incr)="NUROW":incr++
symbolslistbox2.cell(1,incr)="NUS":incr++
symbolslistbox2.cell(1,incr)="NUSA":incr++
symbolslistbox2.cell(1,incr)="NUSC":incr++
symbolslistbox2.cell(1,incr)="NUV":incr++
symbolslistbox2.cell(1,incr)="NUVA":incr++
symbolslistbox2.cell(1,incr)="NUW":incr++
symbolslistbox2.cell(1,incr)="NVAX":incr++
symbolslistbox2.cell(1,incr)="NVCN":incr++
symbolslistbox2.cell(1,incr)="NVCR":incr++
symbolslistbox2.cell(1,incr)="NVDA":incr++
symbolslistbox2.cell(1,incr)="NVEC":incr++
symbolslistbox2.cell(1,incr)="NVEE":incr++
symbolslistbox2.cell(1,incr)="NVFY":incr++
symbolslistbox2.cell(1,incr)="NVG":incr++
symbolslistbox2.cell(1,incr)="NVGS":incr++
symbolslistbox2.cell(1,incr)="NVIV":incr++
'symbolslistbox2.cell(1,incr)="NVLN":incr++
symbolslistbox2.cell(1,incr)="NVMI":incr++
symbolslistbox2.cell(1,incr)="NVO":incr++
symbolslistbox2.cell(1,incr)="NVR":incr++
symbolslistbox2.cell(1,incr)="NVRO":incr++
symbolslistbox2.cell(1,incr)="NVS":incr++
symbolslistbox2.cell(1,incr)="NVST":incr++
symbolslistbox2.cell(1,incr)="NVT":incr++
symbolslistbox2.cell(1,incr)="NVTA":incr++
'symbolslistbox2.cell(1,incr)="NVTR":incr++
'symbolslistbox2.cell(1,incr)="NVUS":incr++
symbolslistbox2.cell(1,incr)="NWBI":incr++
symbolslistbox2.cell(1,incr)="NWE":incr++
symbolslistbox2.cell(1,incr)="NWFL":incr++
'symbolslistbox2.cell(1,incr)="NWHM":incr++
symbolslistbox2.cell(1,incr)="NWL":incr++
symbolslistbox2.cell(1,incr)="NWLI":incr++
symbolslistbox2.cell(1,incr)="NWN":incr++
symbolslistbox2.cell(1,incr)="NWPX":incr++
symbolslistbox2.cell(1,incr)="NWS":incr++
symbolslistbox2.cell(1,incr)="NWSA":incr++
symbolslistbox2.cell(1,incr)="NX":incr++
symbolslistbox2.cell(1,incr)="NXC":incr++
symbolslistbox2.cell(1,incr)="NXE":incr++
symbolslistbox2.cell(1,incr)="NXGN":incr++
symbolslistbox2.cell(1,incr)="NXJ":incr++
symbolslistbox2.cell(1,incr)="NXN":incr++
symbolslistbox2.cell(1,incr)="NXP":incr++
symbolslistbox2.cell(1,incr)="NXPI":incr++
'symbolslistbox2.cell(1,incr)="NXQ":incr++
'symbolslistbox2.cell(1,incr)="NXR":incr++
symbolslistbox2.cell(1,incr)="NXRT":incr++
symbolslistbox2.cell(1,incr)="NXST":incr++
symbolslistbox2.cell(1,incr)="NXTC":incr++
symbolslistbox2.cell(1,incr)="NXTD":incr++
symbolslistbox2.cell(1,incr)="NXTG":incr++
symbolslistbox2.cell(1,incr)="NYCB":incr++
'symbolslistbox2.cell(1,incr)="NYCB$A":incr++
'symbolslistbox2.cell(1,incr)="NYCB$U":incr++
symbolslistbox2.cell(1,incr)="NYF":incr++
symbolslistbox2.cell(1,incr)="NYMT":incr++
symbolslistbox2.cell(1,incr)="NYMTN":incr++
symbolslistbox2.cell(1,incr)="NYMTO":incr++
'symbolslistbox2.cell(1,incr)="NYMTP":incr++
symbolslistbox2.cell(1,incr)="NYMX":incr++
'symbolslistbox2.cell(1,incr)="NYNY":incr++
symbolslistbox2.cell(1,incr)="NYT":incr++
'symbolslistbox2.cell(1,incr)="NYV":incr++
symbolslistbox2.cell(1,incr)="NZF":incr++
symbolslistbox2.cell(1,incr)="O":incr++
'symbolslistbox2.cell(1,incr)="OAC":incr++
'symbolslistbox2.cell(1,incr)="OAC.U":incr++
'symbolslistbox2.cell(1,incr)="OAC.W":incr++
'symbolslistbox2.cell(1,incr)="OAK":incr++
'symbolslistbox2.cell(1,incr)="OAK$A":incr++
'symbolslistbox2.cell(1,incr)="OAK$B":incr++
symbolslistbox2.cell(1,incr)="OAS":incr++
'symbolslistbox2.cell(1,incr)="OBAS":incr++
symbolslistbox2.cell(1,incr)="OBCI":incr++
symbolslistbox2.cell(1,incr)="OBE":incr++
'symbolslistbox2.cell(1,incr)="OBLN":incr++
symbolslistbox2.cell(1,incr)="OBNK":incr++
symbolslistbox2.cell(1,incr)="OBOR":incr++
symbolslistbox2.cell(1,incr)="OBSV":incr++
symbolslistbox2.cell(1,incr)="OC":incr++
symbolslistbox2.cell(1,incr)="OCC":incr++
symbolslistbox2.cell(1,incr)="OCCI":incr++
'symbolslistbox2.cell(1,incr)="OCCIP":incr++
symbolslistbox2.cell(1,incr)="OCFC":incr++
symbolslistbox2.cell(1,incr)="OCIO":incr++
symbolslistbox2.cell(1,incr)="OCN":incr++
'symbolslistbox2.cell(1,incr)="OCSI":incr++
symbolslistbox2.cell(1,incr)="OCSL":incr++
'symbolslistbox2.cell(1,incr)="OCSLL":incr++
symbolslistbox2.cell(1,incr)="OCUL":incr++
symbolslistbox2.cell(1,incr)="OCX":incr++
symbolslistbox2.cell(1,incr)="ODC":incr++
symbolslistbox2.cell(1,incr)="ODFL":incr++
symbolslistbox2.cell(1,incr)="ODP":incr++
symbolslistbox2.cell(1,incr)="ODT":incr++
symbolslistbox2.cell(1,incr)="OEC":incr++
symbolslistbox2.cell(1,incr)="OEF":incr++
symbolslistbox2.cell(1,incr)="OESX":incr++
symbolslistbox2.cell(1,incr)="OEUR":incr++
symbolslistbox2.cell(1,incr)="OFC":incr++
symbolslistbox2.cell(1,incr)="OFED":incr++
symbolslistbox2.cell(1,incr)="OFG":incr++
'symbolslistbox2.cell(1,incr)="OFG$A":incr++
'symbolslistbox2.cell(1,incr)="OFG$B":incr++
'symbolslistbox2.cell(1,incr)="OFG$D":incr++
symbolslistbox2.cell(1,incr)="OFIX":incr++
'symbolslistbox2.cell(1,incr)="OFLX":incr++
symbolslistbox2.cell(1,incr)="OFS":incr++
'symbolslistbox2.cell(1,incr)="OFSSL":incr++
'symbolslistbox2.cell(1,incr)="OFSSZ":incr++
symbolslistbox2.cell(1,incr)="OGCP":incr++
symbolslistbox2.cell(1,incr)="OGE":incr++
symbolslistbox2.cell(1,incr)="OGEN":incr++
symbolslistbox2.cell(1,incr)="OGI":incr++
symbolslistbox2.cell(1,incr)="OGIG":incr++
symbolslistbox2.cell(1,incr)="OGS":incr++
'symbolslistbox2.cell(1,incr)="OHAI":incr++
symbolslistbox2.cell(1,incr)="OHI":incr++
symbolslistbox2.cell(1,incr)="OI":incr++
symbolslistbox2.cell(1,incr)="OIA":incr++
'symbolslistbox2.cell(1,incr)="OIBR.C":incr++
symbolslistbox2.cell(1,incr)="OIH":incr++
symbolslistbox2.cell(1,incr)="OII":incr++
symbolslistbox2.cell(1,incr)="OIIM":incr++
'symbolslistbox2.cell(1,incr)="OIL":incr++
symbolslistbox2.cell(1,incr)="OILD":incr++
symbolslistbox2.cell(1,incr)="OILK":incr++
symbolslistbox2.cell(1,incr)="OILU":incr++
'symbolslistbox2.cell(1,incr)="OILX":incr++
symbolslistbox2.cell(1,incr)="OIS":incr++
symbolslistbox2.cell(1,incr)="OKE":incr++
symbolslistbox2.cell(1,incr)="OKTA":incr++
'symbolslistbox2.cell(1,incr)="OLBK":incr++
symbolslistbox2.cell(1,incr)="OLD":incr++
symbolslistbox2.cell(1,incr)="OLED":incr++
'symbolslistbox2.cell(1,incr)="OLEM":incr++
symbolslistbox2.cell(1,incr)="OLLI":incr++
symbolslistbox2.cell(1,incr)="OLN":incr++
symbolslistbox2.cell(1,incr)="OLP":incr++
symbolslistbox2.cell(1,incr)="OMAB":incr++
symbolslistbox2.cell(1,incr)="OMC":incr++
symbolslistbox2.cell(1,incr)="OMCL":incr++
symbolslistbox2.cell(1,incr)="OMER":incr++
symbolslistbox2.cell(1,incr)="OMEX":incr++
symbolslistbox2.cell(1,incr)="OMF":incr++
symbolslistbox2.cell(1,incr)="OMFL":incr++
symbolslistbox2.cell(1,incr)="OMFS":incr++
symbolslistbox2.cell(1,incr)="OMI":incr++
'symbolslistbox2.cell(1,incr)="OMN":incr++
'symbolslistbox2.cell(1,incr)="OMOM":incr++
symbolslistbox2.cell(1,incr)="OMP":incr++
symbolslistbox2.cell(1,incr)="ON":incr++
symbolslistbox2.cell(1,incr)="ONB":incr++
'symbolslistbox2.cell(1,incr)="ONCE":incr++
symbolslistbox2.cell(1,incr)="ONCS":incr++
symbolslistbox2.cell(1,incr)="ONCT":incr++
symbolslistbox2.cell(1,incr)="ONCY":incr++
'symbolslistbox2.cell(1,incr)="ONDK":incr++
symbolslistbox2.cell(1,incr)="ONE":incr++
symbolslistbox2.cell(1,incr)="ONEO":incr++
symbolslistbox2.cell(1,incr)="ONEQ":incr++
symbolslistbox2.cell(1,incr)="ONEV":incr++
symbolslistbox2.cell(1,incr)="ONEY":incr++
symbolslistbox2.cell(1,incr)="ONLN":incr++
symbolslistbox2.cell(1,incr)="ONTX":incr++
'symbolslistbox2.cell(1,incr)="ONTXW":incr++
symbolslistbox2.cell(1,incr)="ONVO":incr++
symbolslistbox2.cell(1,incr)="OOMA":incr++
'symbolslistbox2.cell(1,incr)="OPB":incr++
symbolslistbox2.cell(1,incr)="OPBK":incr++
symbolslistbox2.cell(1,incr)="OPER":incr++
'symbolslistbox2.cell(1,incr)="OPES":incr++
'symbolslistbox2.cell(1,incr)="OPESU":incr++
'symbolslistbox2.cell(1,incr)="OPESW":incr++
symbolslistbox2.cell(1,incr)="OPGN":incr++
'symbolslistbox2.cell(1,incr)="OPGNW":incr++
symbolslistbox2.cell(1,incr)="OPHC":incr++
symbolslistbox2.cell(1,incr)="OPI":incr++
'symbolslistbox2.cell(1,incr)="OPINI":incr++
symbolslistbox2.cell(1,incr)="OPK":incr++
symbolslistbox2.cell(1,incr)="OPNT":incr++
symbolslistbox2.cell(1,incr)="OPOF":incr++
symbolslistbox2.cell(1,incr)="OPP":incr++
symbolslistbox2.cell(1,incr)="OPRA":incr++
symbolslistbox2.cell(1,incr)="OPRT":incr++
symbolslistbox2.cell(1,incr)="OPRX":incr++
symbolslistbox2.cell(1,incr)="OPTN":incr++
symbolslistbox2.cell(1,incr)="OPTT":incr++
symbolslistbox2.cell(1,incr)="OPY":incr++
'symbolslistbox2.cell(1,incr)="OQAL":incr++
symbolslistbox2.cell(1,incr)="OR":incr++
symbolslistbox2.cell(1,incr)="ORA":incr++
symbolslistbox2.cell(1,incr)="ORAN":incr++
'symbolslistbox2.cell(1,incr)="ORBC":incr++
symbolslistbox2.cell(1,incr)="ORC":incr++
symbolslistbox2.cell(1,incr)="ORCC":incr++
symbolslistbox2.cell(1,incr)="ORCL":incr++
'symbolslistbox2.cell(1,incr)="ORG":incr++
symbolslistbox2.cell(1,incr)="ORGO":incr++
symbolslistbox2.cell(1,incr)="ORGS":incr++
symbolslistbox2.cell(1,incr)="ORI":incr++
'symbolslistbox2.cell(1,incr)="ORIT":incr++
symbolslistbox2.cell(1,incr)="ORLY":incr++
symbolslistbox2.cell(1,incr)="ORMP":incr++
symbolslistbox2.cell(1,incr)="ORN":incr++
symbolslistbox2.cell(1,incr)="ORRF":incr++
'symbolslistbox2.cell(1,incr)="ORSNU":incr++
symbolslistbox2.cell(1,incr)="ORTX":incr++
'symbolslistbox2.cell(1,incr)="OSB":incr++
symbolslistbox2.cell(1,incr)="OSBC":incr++
'symbolslistbox2.cell(1,incr)="OSBCP":incr++
symbolslistbox2.cell(1,incr)="OSCV":incr++
symbolslistbox2.cell(1,incr)="OSG":incr++
symbolslistbox2.cell(1,incr)="OSIS":incr++
'symbolslistbox2.cell(1,incr)="OSIZ":incr++
symbolslistbox2.cell(1,incr)="OSK":incr++
'symbolslistbox2.cell(1,incr)="OSLE":incr++
symbolslistbox2.cell(1,incr)="OSMT":incr++
'symbolslistbox2.cell(1,incr)="OSN":incr++
symbolslistbox2.cell(1,incr)="OSPN":incr++
symbolslistbox2.cell(1,incr)="OSS":incr++
symbolslistbox2.cell(1,incr)="OSTK":incr++
symbolslistbox2.cell(1,incr)="OSUR":incr++
symbolslistbox2.cell(1,incr)="OSW":incr++
'symbolslistbox2.cell(1,incr)="OTEL":incr++
symbolslistbox2.cell(1,incr)="OTEX":incr++
symbolslistbox2.cell(1,incr)="OTIC":incr++
'symbolslistbox2.cell(1,incr)="OTIV":incr++
symbolslistbox2.cell(1,incr)="OTLK":incr++
'symbolslistbox2.cell(1,incr)="OTLKW":incr++
symbolslistbox2.cell(1,incr)="OTTR":incr++
symbolslistbox2.cell(1,incr)="OTTW":incr++
symbolslistbox2.cell(1,incr)="OUNZ":incr++
symbolslistbox2.cell(1,incr)="OUSA":incr++
symbolslistbox2.cell(1,incr)="OUSM":incr++
symbolslistbox2.cell(1,incr)="OUT":incr++
symbolslistbox2.cell(1,incr)="OVBC":incr++
symbolslistbox2.cell(1,incr)="OVID":incr++
'symbolslistbox2.cell(1,incr)="OVLU":incr++
symbolslistbox2.cell(1,incr)="OVLY":incr++
'symbolslistbox2.cell(1,incr)="OVOL":incr++
symbolslistbox2.cell(1,incr)="OXBR":incr++
'symbolslistbox2.cell(1,incr)="OXBRW":incr++
'symbolslistbox2.cell(1,incr)="OXFD":incr++
symbolslistbox2.cell(1,incr)="OXLC":incr++
symbolslistbox2.cell(1,incr)="OXLCM":incr++
symbolslistbox2.cell(1,incr)="OXLCO":incr++
symbolslistbox2.cell(1,incr)="OXM":incr++
symbolslistbox2.cell(1,incr)="OXSQ":incr++
'symbolslistbox2.cell(1,incr)="OXSQL":incr++
'symbolslistbox2.cell(1,incr)="OXSQZ":incr++
symbolslistbox2.cell(1,incr)="OXY":incr++
'symbolslistbox2.cell(1,incr)="OYLD":incr++
symbolslistbox2.cell(1,incr)="OZK":incr++
symbolslistbox2.cell(1,incr)="PAA":incr++
'symbolslistbox2.cell(1,incr)="PAAC":incr++
'symbolslistbox2.cell(1,incr)="PAACR":incr++
'symbolslistbox2.cell(1,incr)="PAACU":incr++
'symbolslistbox2.cell(1,incr)="PAACW":incr++
symbolslistbox2.cell(1,incr)="PAAS":incr++
symbolslistbox2.cell(1,incr)="PAC":incr++
'symbolslistbox2.cell(1,incr)="PACA":incr++
symbolslistbox2.cell(1,incr)="PACB":incr++
'symbolslistbox2.cell(1,incr)="PACD":incr++
symbolslistbox2.cell(1,incr)="PACK":incr++
'symbolslistbox2.cell(1,incr)="PACK.W":incr++
'symbolslistbox2.cell(1,incr)="PACQ":incr++
'symbolslistbox2.cell(1,incr)="PACQU":incr++
'symbolslistbox2.cell(1,incr)="PACQW":incr++
symbolslistbox2.cell(1,incr)="PACW":incr++
'symbolslistbox2.cell(1,incr)="PAG":incr++
symbolslistbox2.cell(1,incr)="PAGP":incr++
symbolslistbox2.cell(1,incr)="PAGS":incr++
symbolslistbox2.cell(1,incr)="PAHC":incr++
symbolslistbox2.cell(1,incr)="PAI":incr++
symbolslistbox2.cell(1,incr)="PAK":incr++
symbolslistbox2.cell(1,incr)="PALL":incr++
symbolslistbox2.cell(1,incr)="PAM":incr++
symbolslistbox2.cell(1,incr)="PANL":incr++
symbolslistbox2.cell(1,incr)="PANW":incr++
symbolslistbox2.cell(1,incr)="PAPR":incr++
symbolslistbox2.cell(1,incr)="PAR":incr++
symbolslistbox2.cell(1,incr)="PARR":incr++
'symbolslistbox2.cell(1,incr)="PASS":incr++
symbolslistbox2.cell(1,incr)="PATI":incr++
symbolslistbox2.cell(1,incr)="PATK":incr++
symbolslistbox2.cell(1,incr)="PAUG":incr++
symbolslistbox2.cell(1,incr)="PAVE":incr++
symbolslistbox2.cell(1,incr)="PAVM":incr++
'symbolslistbox2.cell(1,incr)="PAVMW":incr++
'symbolslistbox2.cell(1,incr)="PAVMZ":incr++
symbolslistbox2.cell(1,incr)="PAWZ":incr++
symbolslistbox2.cell(1,incr)="PAYC":incr++
symbolslistbox2.cell(1,incr)="PAYS":incr++
symbolslistbox2.cell(1,incr)="PAYX":incr++
symbolslistbox2.cell(1,incr)="PB":incr++
symbolslistbox2.cell(1,incr)="PBA":incr++
'symbolslistbox2.cell(1,incr)="PBB":incr++
'symbolslistbox2.cell(1,incr)="PBBI":incr++
symbolslistbox2.cell(1,incr)="PBC":incr++
symbolslistbox2.cell(1,incr)="PBCT":incr++
symbolslistbox2.cell(1,incr)="PBCTP":incr++
symbolslistbox2.cell(1,incr)="PBD":incr++
symbolslistbox2.cell(1,incr)="PBDM":incr++
symbolslistbox2.cell(1,incr)="PBE":incr++
symbolslistbox2.cell(1,incr)="PBEE":incr++
symbolslistbox2.cell(1,incr)="PBF":incr++
symbolslistbox2.cell(1,incr)="PBFS":incr++
symbolslistbox2.cell(1,incr)="PBFX":incr++
symbolslistbox2.cell(1,incr)="PBH":incr++
'symbolslistbox2.cell(1,incr)="PBHC":incr++
symbolslistbox2.cell(1,incr)="PBI":incr++
'symbolslistbox2.cell(1,incr)="PBI$B":incr++
symbolslistbox2.cell(1,incr)="PBIP":incr++
symbolslistbox2.cell(1,incr)="PBJ":incr++
symbolslistbox2.cell(1,incr)="PBND":incr++
symbolslistbox2.cell(1,incr)="PBP":incr++
symbolslistbox2.cell(1,incr)="PBPB":incr++
symbolslistbox2.cell(1,incr)="PBR":incr++
'symbolslistbox2.cell(1,incr)="PBR.A":incr++
symbolslistbox2.cell(1,incr)="PBS":incr++
symbolslistbox2.cell(1,incr)="PBSM":incr++
symbolslistbox2.cell(1,incr)="PBT":incr++
symbolslistbox2.cell(1,incr)="PBTP":incr++
symbolslistbox2.cell(1,incr)="PBTS":incr++
symbolslistbox2.cell(1,incr)="PBUS":incr++
symbolslistbox2.cell(1,incr)="PBW":incr++
symbolslistbox2.cell(1,incr)="PBY":incr++
symbolslistbox2.cell(1,incr)="PBYI":incr++
symbolslistbox2.cell(1,incr)="PCAR":incr++
symbolslistbox2.cell(1,incr)="PCB":incr++
symbolslistbox2.cell(1,incr)="PCEF":incr++
symbolslistbox2.cell(1,incr)="PCF":incr++
symbolslistbox2.cell(1,incr)="PCG":incr++
'symbolslistbox2.cell(1,incr)="PCG$A":incr++
'symbolslistbox2.cell(1,incr)="PCG$B":incr++
'symbolslistbox2.cell(1,incr)="PCG$C":incr++
'symbolslistbox2.cell(1,incr)="PCG$D":incr++
'symbolslistbox2.cell(1,incr)="PCG$E":incr++
'symbolslistbox2.cell(1,incr)="PCG$G":incr++
'symbolslistbox2.cell(1,incr)="PCG$H":incr++
'symbolslistbox2.cell(1,incr)="PCG$I":incr++
symbolslistbox2.cell(1,incr)="PCH":incr++
'symbolslistbox2.cell(1,incr)="PCI":incr++
symbolslistbox2.cell(1,incr)="PCK":incr++
symbolslistbox2.cell(1,incr)="PCM":incr++
symbolslistbox2.cell(1,incr)="PCN":incr++
symbolslistbox2.cell(1,incr)="PCOM":incr++
symbolslistbox2.cell(1,incr)="PCQ":incr++
symbolslistbox2.cell(1,incr)="PCRX":incr++
symbolslistbox2.cell(1,incr)="PCSB":incr++
symbolslistbox2.cell(1,incr)="PCTI":incr++
symbolslistbox2.cell(1,incr)="PCTY":incr++
symbolslistbox2.cell(1,incr)="PCY":incr++
symbolslistbox2.cell(1,incr)="PCYG":incr++
symbolslistbox2.cell(1,incr)="PCYO":incr++
symbolslistbox2.cell(1,incr)="PD":incr++
symbolslistbox2.cell(1,incr)="PDBC":incr++
symbolslistbox2.cell(1,incr)="PDCE":incr++
symbolslistbox2.cell(1,incr)="PDCO":incr++
symbolslistbox2.cell(1,incr)="PDD":incr++
symbolslistbox2.cell(1,incr)="PDEV":incr++
symbolslistbox2.cell(1,incr)="PDEX":incr++
symbolslistbox2.cell(1,incr)="PDFS":incr++
symbolslistbox2.cell(1,incr)="PDI":incr++
symbolslistbox2.cell(1,incr)="PDLB":incr++
'symbolslistbox2.cell(1,incr)="PDLI":incr++
symbolslistbox2.cell(1,incr)="PDM":incr++
symbolslistbox2.cell(1,incr)="PDN":incr++
symbolslistbox2.cell(1,incr)="PDP":incr++
symbolslistbox2.cell(1,incr)="PDS":incr++
symbolslistbox2.cell(1,incr)="PDSB":incr++
symbolslistbox2.cell(1,incr)="PDT":incr++
'symbolslistbox2.cell(1,incr)="PE":incr++
symbolslistbox2.cell(1,incr)="PEB":incr++
'symbolslistbox2.cell(1,incr)="PEB$C":incr++
'symbolslistbox2.cell(1,incr)="PEB$D":incr++
'symbolslistbox2.cell(1,incr)="PEB$E":incr++
'symbolslistbox2.cell(1,incr)="PEB$F":incr++
symbolslistbox2.cell(1,incr)="PEBK":incr++
symbolslistbox2.cell(1,incr)="PEBO":incr++
'symbolslistbox2.cell(1,incr)="PECK":incr++
symbolslistbox2.cell(1,incr)="PED":incr++
symbolslistbox2.cell(1,incr)="PEG":incr++
symbolslistbox2.cell(1,incr)="PEGA":incr++
'symbolslistbox2.cell(1,incr)="PEGI":incr++
symbolslistbox2.cell(1,incr)="PEI":incr++
'symbolslistbox2.cell(1,incr)="PEI$B":incr++
'symbolslistbox2.cell(1,incr)="PEI$C":incr++
'symbolslistbox2.cell(1,incr)="PEI$D":incr++
'symbolslistbox2.cell(1,incr)="PEIX":incr++
symbolslistbox2.cell(1,incr)="PEJ":incr++
'symbolslistbox2.cell(1,incr)="PEK":incr++
symbolslistbox2.cell(1,incr)="PEN":incr++
symbolslistbox2.cell(1,incr)="PENN":incr++
symbolslistbox2.cell(1,incr)="PEO":incr++
symbolslistbox2.cell(1,incr)="PEP":incr++
'symbolslistbox2.cell(1,incr)="PER":incr++
symbolslistbox2.cell(1,incr)="PERI":incr++
symbolslistbox2.cell(1,incr)="PESI":incr++
symbolslistbox2.cell(1,incr)="PETQ":incr++
symbolslistbox2.cell(1,incr)="PETS":incr++
symbolslistbox2.cell(1,incr)="PETZ":incr++
symbolslistbox2.cell(1,incr)="PEX":incr++
'symbolslistbox2.cell(1,incr)="PEXL":incr++
symbolslistbox2.cell(1,incr)="PEY":incr++
symbolslistbox2.cell(1,incr)="PEZ":incr++
symbolslistbox2.cell(1,incr)="PFBC":incr++
'symbolslistbox2.cell(1,incr)="PFBI":incr++
symbolslistbox2.cell(1,incr)="PFD":incr++
symbolslistbox2.cell(1,incr)="PFE":incr++
symbolslistbox2.cell(1,incr)="PFF":incr++
symbolslistbox2.cell(1,incr)="PFFA":incr++
symbolslistbox2.cell(1,incr)="PFFD":incr++
symbolslistbox2.cell(1,incr)="PFFL":incr++
symbolslistbox2.cell(1,incr)="PFFR":incr++
symbolslistbox2.cell(1,incr)="PFG":incr++
symbolslistbox2.cell(1,incr)="PFGC":incr++
'symbolslistbox2.cell(1,incr)="PFH":incr++
symbolslistbox2.cell(1,incr)="PFI":incr++
symbolslistbox2.cell(1,incr)="PFIE":incr++
symbolslistbox2.cell(1,incr)="PFIG":incr++
symbolslistbox2.cell(1,incr)="PFIN":incr++
symbolslistbox2.cell(1,incr)="PFIS":incr++
symbolslistbox2.cell(1,incr)="PFL":incr++
symbolslistbox2.cell(1,incr)="PFLT":incr++
symbolslistbox2.cell(1,incr)="PFM":incr++
symbolslistbox2.cell(1,incr)="PFMT":incr++
symbolslistbox2.cell(1,incr)="PFN":incr++
'symbolslistbox2.cell(1,incr)="PFNX":incr++
symbolslistbox2.cell(1,incr)="PFO":incr++
'symbolslistbox2.cell(1,incr)="PFPT":incr++
symbolslistbox2.cell(1,incr)="PFS":incr++
symbolslistbox2.cell(1,incr)="PFSI":incr++
symbolslistbox2.cell(1,incr)="PFSW":incr++
symbolslistbox2.cell(1,incr)="PFXF":incr++
symbolslistbox2.cell(1,incr)="PG":incr++
symbolslistbox2.cell(1,incr)="PGAL":incr++
symbolslistbox2.cell(1,incr)="PGC":incr++
symbolslistbox2.cell(1,incr)="PGF":incr++
symbolslistbox2.cell(1,incr)="PGHY":incr++
symbolslistbox2.cell(1,incr)="PGJ":incr++
symbolslistbox2.cell(1,incr)="PGM":incr++
'symbolslistbox2.cell(1,incr)="PGNX":incr++
symbolslistbox2.cell(1,incr)="PGP":incr++
symbolslistbox2.cell(1,incr)="PGR":incr++
symbolslistbox2.cell(1,incr)="PGRE":incr++
symbolslistbox2.cell(1,incr)="PGTI":incr++
symbolslistbox2.cell(1,incr)="PGX":incr++
symbolslistbox2.cell(1,incr)="PGZ":incr++
symbolslistbox2.cell(1,incr)="PH":incr++
symbolslistbox2.cell(1,incr)="PHAS":incr++
symbolslistbox2.cell(1,incr)="PHB":incr++
symbolslistbox2.cell(1,incr)="PHCF":incr++
symbolslistbox2.cell(1,incr)="PHD":incr++
symbolslistbox2.cell(1,incr)="PHDG":incr++
symbolslistbox2.cell(1,incr)="PHG":incr++
symbolslistbox2.cell(1,incr)="PHI":incr++
symbolslistbox2.cell(1,incr)="PHIO":incr++
'symbolslistbox2.cell(1,incr)="PHIOW":incr++
symbolslistbox2.cell(1,incr)="PHK":incr++
symbolslistbox2.cell(1,incr)="PHM":incr++
symbolslistbox2.cell(1,incr)="PHO":incr++
symbolslistbox2.cell(1,incr)="PHR":incr++
symbolslistbox2.cell(1,incr)="PHT":incr++
symbolslistbox2.cell(1,incr)="PHUN":incr++
symbolslistbox2.cell(1,incr)="PHUNW":incr++
symbolslistbox2.cell(1,incr)="PHX":incr++
symbolslistbox2.cell(1,incr)="PHYL":incr++
symbolslistbox2.cell(1,incr)="PHYS":incr++
symbolslistbox2.cell(1,incr)="PI":incr++
'symbolslistbox2.cell(1,incr)="PIC":incr++
'symbolslistbox2.cell(1,incr)="PIC.U":incr++
'symbolslistbox2.cell(1,incr)="PIC.W":incr++
symbolslistbox2.cell(1,incr)="PICB":incr++
symbolslistbox2.cell(1,incr)="PICK":incr++
'symbolslistbox2.cell(1,incr)="PICO":incr++
symbolslistbox2.cell(1,incr)="PID":incr++
symbolslistbox2.cell(1,incr)="PIE":incr++
'symbolslistbox2.cell(1,incr)="PIH":incr++
'symbolslistbox2.cell(1,incr)="PIHPP":incr++
symbolslistbox2.cell(1,incr)="PII":incr++
symbolslistbox2.cell(1,incr)="PILL":incr++
symbolslistbox2.cell(1,incr)="PIM":incr++
symbolslistbox2.cell(1,incr)="PIN":incr++
symbolslistbox2.cell(1,incr)="PINC":incr++
symbolslistbox2.cell(1,incr)="PING":incr++
symbolslistbox2.cell(1,incr)="PINS":incr++
symbolslistbox2.cell(1,incr)="PIO":incr++
'symbolslistbox2.cell(1,incr)="PIR":incr++
symbolslistbox2.cell(1,incr)="PIRS":incr++
symbolslistbox2.cell(1,incr)="PIXY":incr++
'symbolslistbox2.cell(1,incr)="PIY":incr++
symbolslistbox2.cell(1,incr)="PIZ":incr++
symbolslistbox2.cell(1,incr)="PJAN":incr++
'symbolslistbox2.cell(1,incr)="PJC":incr++
'symbolslistbox2.cell(1,incr)="PJH":incr++
symbolslistbox2.cell(1,incr)="PJP":incr++
symbolslistbox2.cell(1,incr)="PJT":incr++
symbolslistbox2.cell(1,incr)="PJUL":incr++
symbolslistbox2.cell(1,incr)="PJUN":incr++
symbolslistbox2.cell(1,incr)="PK":incr++
symbolslistbox2.cell(1,incr)="PKB":incr++
symbolslistbox2.cell(1,incr)="PKBK":incr++
'symbolslistbox2.cell(1,incr)="PKD":incr++
symbolslistbox2.cell(1,incr)="PKE":incr++
symbolslistbox2.cell(1,incr)="PKG":incr++
symbolslistbox2.cell(1,incr)="PKI":incr++
'symbolslistbox2.cell(1,incr)="PKO":incr++
symbolslistbox2.cell(1,incr)="PKOH":incr++
symbolslistbox2.cell(1,incr)="PKW":incr++
symbolslistbox2.cell(1,incr)="PKX":incr++
symbolslistbox2.cell(1,incr)="PLAB":incr++
symbolslistbox2.cell(1,incr)="PLAG":incr++
symbolslistbox2.cell(1,incr)="PLAN":incr++
symbolslistbox2.cell(1,incr)="PLAT":incr++
symbolslistbox2.cell(1,incr)="PLAY":incr++
symbolslistbox2.cell(1,incr)="PLBC":incr++
'symbolslistbox2.cell(1,incr)="PLC":incr++
symbolslistbox2.cell(1,incr)="PLCE":incr++
'symbolslistbox2.cell(1,incr)="PLCY":incr++
symbolslistbox2.cell(1,incr)="PLD":incr++
symbolslistbox2.cell(1,incr)="PLG":incr++
symbolslistbox2.cell(1,incr)="PLIN":incr++
symbolslistbox2.cell(1,incr)="PLL":incr++
symbolslistbox2.cell(1,incr)="PLM":incr++
symbolslistbox2.cell(1,incr)="PLMR":incr++
symbolslistbox2.cell(1,incr)="PLNT":incr++
symbolslistbox2.cell(1,incr)="PLOW":incr++
symbolslistbox2.cell(1,incr)="PLPC":incr++
symbolslistbox2.cell(1,incr)="PLSE":incr++
'symbolslistbox2.cell(1,incr)="PLT":incr++
symbolslistbox2.cell(1,incr)="PLTM":incr++
symbolslistbox2.cell(1,incr)="PLTR":incr++
symbolslistbox2.cell(1,incr)="PLUG":incr++
symbolslistbox2.cell(1,incr)="PLUS":incr++
symbolslistbox2.cell(1,incr)="PLW":incr++
symbolslistbox2.cell(1,incr)="PLX":incr++
symbolslistbox2.cell(1,incr)="PLXP":incr++
symbolslistbox2.cell(1,incr)="PLXS":incr++
symbolslistbox2.cell(1,incr)="PLYA":incr++
symbolslistbox2.cell(1,incr)="PLYM":incr++
'symbolslistbox2.cell(1,incr)="PLYM$A":incr++
symbolslistbox2.cell(1,incr)="PM":incr++
'symbolslistbox2.cell(1,incr)="PMBC":incr++
symbolslistbox2.cell(1,incr)="PMD":incr++
symbolslistbox2.cell(1,incr)="PME":incr++
symbolslistbox2.cell(1,incr)="PMF":incr++
symbolslistbox2.cell(1,incr)="PML":incr++
symbolslistbox2.cell(1,incr)="PMM":incr++
symbolslistbox2.cell(1,incr)="PMO":incr++
'symbolslistbox2.cell(1,incr)="PMOM":incr++
'symbolslistbox2.cell(1,incr)="PMR":incr++
symbolslistbox2.cell(1,incr)="PMT":incr++
'symbolslistbox2.cell(1,incr)="PMT$A":incr++
'symbolslistbox2.cell(1,incr)="PMT$B":incr++
symbolslistbox2.cell(1,incr)="PMTS":incr++
symbolslistbox2.cell(1,incr)="PMX":incr++
symbolslistbox2.cell(1,incr)="PNBK":incr++
symbolslistbox2.cell(1,incr)="PNC":incr++
'symbolslistbox2.cell(1,incr)="PNC$P":incr++
'symbolslistbox2.cell(1,incr)="PNC$Q":incr++
symbolslistbox2.cell(1,incr)="PNF":incr++
symbolslistbox2.cell(1,incr)="PNFP":incr++
symbolslistbox2.cell(1,incr)="PNI":incr++
symbolslistbox2.cell(1,incr)="PNM":incr++
symbolslistbox2.cell(1,incr)="PNNT":incr++
symbolslistbox2.cell(1,incr)="PNQI":incr++
symbolslistbox2.cell(1,incr)="PNR":incr++
'symbolslistbox2.cell(1,incr)="PNRG":incr++
'symbolslistbox2.cell(1,incr)="PNRL":incr++
'symbolslistbox2.cell(1,incr)="PNTGV":incr++
'symbolslistbox2.cell(1,incr)="PNTR":incr++
symbolslistbox2.cell(1,incr)="PNW":incr++
symbolslistbox2.cell(1,incr)="POAI":incr++
symbolslistbox2.cell(1,incr)="POCT":incr++
symbolslistbox2.cell(1,incr)="PODD":incr++
'symbolslistbox2.cell(1,incr)="POL":incr++
symbolslistbox2.cell(1,incr)="POLA":incr++
symbolslistbox2.cell(1,incr)="POOL":incr++
'symbolslistbox2.cell(1,incr)="POPE":incr++
symbolslistbox2.cell(1,incr)="POR":incr++
symbolslistbox2.cell(1,incr)="POST":incr++
symbolslistbox2.cell(1,incr)="POTX":incr++
symbolslistbox2.cell(1,incr)="POWI":incr++
symbolslistbox2.cell(1,incr)="POWL":incr++
symbolslistbox2.cell(1,incr)="PPA":incr++
symbolslistbox2.cell(1,incr)="PPBI":incr++
symbolslistbox2.cell(1,incr)="PPC":incr++
'symbolslistbox2.cell(1,incr)="PPDF":incr++
'symbolslistbox2.cell(1,incr)="PPDM":incr++
'symbolslistbox2.cell(1,incr)="PPEM":incr++
symbolslistbox2.cell(1,incr)="PPG":incr++
symbolslistbox2.cell(1,incr)="PPH":incr++
'symbolslistbox2.cell(1,incr)="PPHI":incr++
symbolslistbox2.cell(1,incr)="PPIH":incr++
symbolslistbox2.cell(1,incr)="PPL":incr++
'symbolslistbox2.cell(1,incr)="PPLC":incr++
'symbolslistbox2.cell(1,incr)="PPLN":incr++
symbolslistbox2.cell(1,incr)="PPLT":incr++
'symbolslistbox2.cell(1,incr)="PPMC":incr++
'symbolslistbox2.cell(1,incr)="PPR":incr++
'symbolslistbox2.cell(1,incr)="PPSC":incr++
symbolslistbox2.cell(1,incr)="PPSI":incr++
symbolslistbox2.cell(1,incr)="PPT":incr++
symbolslistbox2.cell(1,incr)="PPTY":incr++
'symbolslistbox2.cell(1,incr)="PPX":incr++
'symbolslistbox2.cell(1,incr)="PQG":incr++
'symbolslistbox2.cell(1,incr)="PQIN":incr++
'symbolslistbox2.cell(1,incr)="PQLC":incr++
'symbolslistbox2.cell(1,incr)="PQSG":incr++
'symbolslistbox2.cell(1,incr)="PQSV":incr++
symbolslistbox2.cell(1,incr)="PRA":incr++
symbolslistbox2.cell(1,incr)="PRAA":incr++
'symbolslistbox2.cell(1,incr)="PRAH":incr++
'symbolslistbox2.cell(1,incr)="PRCP":incr++
'symbolslistbox2.cell(1,incr)="PRE$F":incr++
'symbolslistbox2.cell(1,incr)="PRE$G":incr++
'symbolslistbox2.cell(1,incr)="PRE$H":incr++
'symbolslistbox2.cell(1,incr)="PRE$I":incr++
symbolslistbox2.cell(1,incr)="PREF":incr++
symbolslistbox2.cell(1,incr)="PRF":incr++
symbolslistbox2.cell(1,incr)="PRFT":incr++
symbolslistbox2.cell(1,incr)="PRFZ":incr++
symbolslistbox2.cell(1,incr)="PRGO":incr++
symbolslistbox2.cell(1,incr)="PRGS":incr++
'symbolslistbox2.cell(1,incr)="PRGX":incr++
'symbolslistbox2.cell(1,incr)="PRH":incr++
symbolslistbox2.cell(1,incr)="PRI":incr++
'symbolslistbox2.cell(1,incr)="PRID":incr++
'symbolslistbox2.cell(1,incr)="PRIF$A":incr++
'symbolslistbox2.cell(1,incr)="PRIF$B":incr++
'symbolslistbox2.cell(1,incr)="PRIF$C":incr++
'symbolslistbox2.cell(1,incr)="PRIF$D":incr++
symbolslistbox2.cell(1,incr)="PRIM":incr++
symbolslistbox2.cell(1,incr)="PRK":incr++
symbolslistbox2.cell(1,incr)="PRLB":incr++
symbolslistbox2.cell(1,incr)="PRMW":incr++
symbolslistbox2.cell(1,incr)="PRN":incr++
'symbolslistbox2.cell(1,incr)="PRNB":incr++
symbolslistbox2.cell(1,incr)="PRNT":incr++
symbolslistbox2.cell(1,incr)="PRO":incr++
'symbolslistbox2.cell(1,incr)="PROS":incr++
symbolslistbox2.cell(1,incr)="PROV":incr++
symbolslistbox2.cell(1,incr)="PRPH":incr++
symbolslistbox2.cell(1,incr)="PRPL":incr++
symbolslistbox2.cell(1,incr)="PRPO":incr++
symbolslistbox2.cell(1,incr)="PRQR":incr++
symbolslistbox2.cell(1,incr)="PRS":incr++
'symbolslistbox2.cell(1,incr)="PRSC":incr++
'symbolslistbox2.cell(1,incr)="PRSP":incr++
symbolslistbox2.cell(1,incr)="PRT":incr++
symbolslistbox2.cell(1,incr)="PRTA":incr++
symbolslistbox2.cell(1,incr)="PRTH":incr++
symbolslistbox2.cell(1,incr)="PRTK":incr++
'symbolslistbox2.cell(1,incr)="PRTO":incr++
symbolslistbox2.cell(1,incr)="PRTS":incr++
symbolslistbox2.cell(1,incr)="PRTY":incr++
symbolslistbox2.cell(1,incr)="PRU":incr++
symbolslistbox2.cell(1,incr)="PRVB":incr++
'symbolslistbox2.cell(1,incr)="PRVL":incr++
'symbolslistbox2.cell(1,incr)="PS":incr++
symbolslistbox2.cell(1,incr)="PSA":incr++
'symbolslistbox2.cell(1,incr)="PSA$A":incr++
'symbolslistbox2.cell(1,incr)="PSA$B":incr++
'symbolslistbox2.cell(1,incr)="PSA$C":incr++
'symbolslistbox2.cell(1,incr)="PSA$D":incr++
'symbolslistbox2.cell(1,incr)="PSA$E":incr++
'symbolslistbox2.cell(1,incr)="PSA$F":incr++
'symbolslistbox2.cell(1,incr)="PSA$G":incr++
'symbolslistbox2.cell(1,incr)="PSA$H":incr++
'symbolslistbox2.cell(1,incr)="PSA$I":incr++
'symbolslistbox2.cell(1,incr)="PSA$U":incr++
'symbolslistbox2.cell(1,incr)="PSA$V":incr++
'symbolslistbox2.cell(1,incr)="PSA$W":incr++
'symbolslistbox2.cell(1,incr)="PSA$X":incr++
symbolslistbox2.cell(1,incr)="PSB":incr++
'symbolslistbox2.cell(1,incr)="PSB$U":incr++
'symbolslistbox2.cell(1,incr)="PSB$V":incr++
'symbolslistbox2.cell(1,incr)="PSB$W":incr++
'symbolslistbox2.cell(1,incr)="PSB$X":incr++
'symbolslistbox2.cell(1,incr)="PSB$Y":incr++
symbolslistbox2.cell(1,incr)="PSC":incr++
symbolslistbox2.cell(1,incr)="PSCC":incr++
symbolslistbox2.cell(1,incr)="PSCD":incr++
symbolslistbox2.cell(1,incr)="PSCE":incr++
symbolslistbox2.cell(1,incr)="PSCF":incr++
symbolslistbox2.cell(1,incr)="PSCH":incr++
symbolslistbox2.cell(1,incr)="PSCI":incr++
symbolslistbox2.cell(1,incr)="PSCM":incr++
symbolslistbox2.cell(1,incr)="PSCT":incr++
symbolslistbox2.cell(1,incr)="PSCU":incr++
'symbolslistbox2.cell(1,incr)="PSDO":incr++
symbolslistbox2.cell(1,incr)="PSEC":incr++
symbolslistbox2.cell(1,incr)="PSEP":incr++
symbolslistbox2.cell(1,incr)="PSET":incr++
symbolslistbox2.cell(1,incr)="PSF":incr++
symbolslistbox2.cell(1,incr)="PSI":incr++
symbolslistbox2.cell(1,incr)="PSJ":incr++
symbolslistbox2.cell(1,incr)="PSK":incr++
symbolslistbox2.cell(1,incr)="PSL":incr++
symbolslistbox2.cell(1,incr)="PSLV":incr++
'symbolslistbox2.cell(1,incr)="PSM":incr++
symbolslistbox2.cell(1,incr)="PSMB":incr++
symbolslistbox2.cell(1,incr)="PSMC":incr++
symbolslistbox2.cell(1,incr)="PSMG":incr++
symbolslistbox2.cell(1,incr)="PSMM":incr++
symbolslistbox2.cell(1,incr)="PSMT":incr++
symbolslistbox2.cell(1,incr)="PSN":incr++
symbolslistbox2.cell(1,incr)="PSNL":incr++
symbolslistbox2.cell(1,incr)="PSO":incr++
symbolslistbox2.cell(1,incr)="PSP":incr++
symbolslistbox2.cell(1,incr)="PSQ":incr++
symbolslistbox2.cell(1,incr)="PSR":incr++
symbolslistbox2.cell(1,incr)="PST":incr++
symbolslistbox2.cell(1,incr)="PSTG":incr++
symbolslistbox2.cell(1,incr)="PSTI":incr++
symbolslistbox2.cell(1,incr)="PSTL":incr++
symbolslistbox2.cell(1,incr)="PSTV":incr++
'symbolslistbox2.cell(1,incr)="PSTVZ":incr++
'symbolslistbox2.cell(1,incr)="PSV":incr++
symbolslistbox2.cell(1,incr)="PSX":incr++
symbolslistbox2.cell(1,incr)="PSXP":incr++
symbolslistbox2.cell(1,incr)="PT":incr++
symbolslistbox2.cell(1,incr)="PTC":incr++
symbolslistbox2.cell(1,incr)="PTCT":incr++
symbolslistbox2.cell(1,incr)="PTE":incr++
symbolslistbox2.cell(1,incr)="PTEN":incr++
symbolslistbox2.cell(1,incr)="PTEU":incr++
symbolslistbox2.cell(1,incr)="PTF":incr++
symbolslistbox2.cell(1,incr)="PTGX":incr++
symbolslistbox2.cell(1,incr)="PTH":incr++
'symbolslistbox2.cell(1,incr)="PTI":incr++
symbolslistbox2.cell(1,incr)="PTIN":incr++
'symbolslistbox2.cell(1,incr)="PTLA":incr++
symbolslistbox2.cell(1,incr)="PTLC":incr++
symbolslistbox2.cell(1,incr)="PTMC":incr++
symbolslistbox2.cell(1,incr)="PTMN":incr++
symbolslistbox2.cell(1,incr)="PTN":incr++
symbolslistbox2.cell(1,incr)="PTNQ":incr++
symbolslistbox2.cell(1,incr)="PTNR":incr++
symbolslistbox2.cell(1,incr)="PTON":incr++
symbolslistbox2.cell(1,incr)="PTR":incr++
symbolslistbox2.cell(1,incr)="PTSI":incr++
'symbolslistbox2.cell(1,incr)="PTVCA":incr++
'symbolslistbox2.cell(1,incr)="PTVCB":incr++
symbolslistbox2.cell(1,incr)="PTY":incr++
'symbolslistbox2.cell(1,incr)="PUB":incr++
symbolslistbox2.cell(1,incr)="PUI":incr++
symbolslistbox2.cell(1,incr)="PUK":incr++
'symbolslistbox2.cell(1,incr)="PUK$":incr++
'symbolslistbox2.cell(1,incr)="PUK$A":incr++
symbolslistbox2.cell(1,incr)="PULM":incr++
symbolslistbox2.cell(1,incr)="PULS":incr++
symbolslistbox2.cell(1,incr)="PUMP":incr++
symbolslistbox2.cell(1,incr)="PUTW":incr++
symbolslistbox2.cell(1,incr)="PUYI":incr++
'symbolslistbox2.cell(1,incr)="PVAC":incr++
'symbolslistbox2.cell(1,incr)="PVAL":incr++
symbolslistbox2.cell(1,incr)="PVBC":incr++
symbolslistbox2.cell(1,incr)="PVG":incr++
symbolslistbox2.cell(1,incr)="PVH":incr++
symbolslistbox2.cell(1,incr)="PVI":incr++
symbolslistbox2.cell(1,incr)="PVL":incr++
'symbolslistbox2.cell(1,incr)="PVT":incr++
'symbolslistbox2.cell(1,incr)="PVT.U":incr++
'symbolslistbox2.cell(1,incr)="PVT.W":incr++
'symbolslistbox2.cell(1,incr)="PVTL":incr++
symbolslistbox2.cell(1,incr)="PW":incr++
'symbolslistbox2.cell(1,incr)="PW$A":incr++
symbolslistbox2.cell(1,incr)="PWB":incr++
symbolslistbox2.cell(1,incr)="PWC":incr++
symbolslistbox2.cell(1,incr)="PWOD":incr++
symbolslistbox2.cell(1,incr)="PWR":incr++
symbolslistbox2.cell(1,incr)="PWS":incr++
symbolslistbox2.cell(1,incr)="PWV":incr++
symbolslistbox2.cell(1,incr)="PWZ":incr++
symbolslistbox2.cell(1,incr)="PXD":incr++
symbolslistbox2.cell(1,incr)="PXE":incr++
symbolslistbox2.cell(1,incr)="PXF":incr++
symbolslistbox2.cell(1,incr)="PXH":incr++
symbolslistbox2.cell(1,incr)="PXI":incr++
symbolslistbox2.cell(1,incr)="PXJ":incr++
symbolslistbox2.cell(1,incr)="PXLW":incr++
symbolslistbox2.cell(1,incr)="PXQ":incr++
symbolslistbox2.cell(1,incr)="PXS":incr++
symbolslistbox2.cell(1,incr)="PY":incr++
symbolslistbox2.cell(1,incr)="PYN":incr++
symbolslistbox2.cell(1,incr)="PYPE":incr++
symbolslistbox2.cell(1,incr)="PYPL":incr++
symbolslistbox2.cell(1,incr)="PYS":incr++
symbolslistbox2.cell(1,incr)="PYT":incr++
'symbolslistbox2.cell(1,incr)="PYX":incr++
symbolslistbox2.cell(1,incr)="PYZ":incr++
symbolslistbox2.cell(1,incr)="PZA":incr++
symbolslistbox2.cell(1,incr)="PZC":incr++
'symbolslistbox2.cell(1,incr)="PZD":incr++
symbolslistbox2.cell(1,incr)="PZG":incr++
symbolslistbox2.cell(1,incr)="PZN":incr++
symbolslistbox2.cell(1,incr)="PZT":incr++
symbolslistbox2.cell(1,incr)="PZZA":incr++
symbolslistbox2.cell(1,incr)="QABA":incr++
'symbolslistbox2.cell(1,incr)="QADA":incr++
'symbolslistbox2.cell(1,incr)="QADB":incr++
symbolslistbox2.cell(1,incr)="QAI":incr++
symbolslistbox2.cell(1,incr)="QARP":incr++
symbolslistbox2.cell(1,incr)="QAT":incr++
'symbolslistbox2.cell(1,incr)="QBAK":incr++
symbolslistbox2.cell(1,incr)="QCLN":incr++
symbolslistbox2.cell(1,incr)="QCOM":incr++
symbolslistbox2.cell(1,incr)="QCRH":incr++
symbolslistbox2.cell(1,incr)="QD":incr++
symbolslistbox2.cell(1,incr)="QDEF":incr++
symbolslistbox2.cell(1,incr)="QDEL":incr++
symbolslistbox2.cell(1,incr)="QDF":incr++
symbolslistbox2.cell(1,incr)="QDIV":incr++
symbolslistbox2.cell(1,incr)="QDYN":incr++
symbolslistbox2.cell(1,incr)="QED":incr++
symbolslistbox2.cell(1,incr)="QEFA":incr++
symbolslistbox2.cell(1,incr)="QEMM":incr++
'symbolslistbox2.cell(1,incr)="QEP":incr++
'symbolslistbox2.cell(1,incr)="QES":incr++
symbolslistbox2.cell(1,incr)="QFIN":incr++
symbolslistbox2.cell(1,incr)="QGEN":incr++
symbolslistbox2.cell(1,incr)="QGRO":incr++
'symbolslistbox2.cell(1,incr)="QGTA":incr++
'symbolslistbox2.cell(1,incr)="QHC":incr++
symbolslistbox2.cell(1,incr)="QID":incr++
symbolslistbox2.cell(1,incr)="QINT":incr++
symbolslistbox2.cell(1,incr)="QIWI":incr++
symbolslistbox2.cell(1,incr)="QLC":incr++
symbolslistbox2.cell(1,incr)="QLD":incr++
symbolslistbox2.cell(1,incr)="QLS":incr++
symbolslistbox2.cell(1,incr)="QLTA":incr++
symbolslistbox2.cell(1,incr)="QLV":incr++
symbolslistbox2.cell(1,incr)="QLVD":incr++
symbolslistbox2.cell(1,incr)="QLVE":incr++
symbolslistbox2.cell(1,incr)="QLYS":incr++
symbolslistbox2.cell(1,incr)="QMN":incr++
symbolslistbox2.cell(1,incr)="QMOM":incr++
symbolslistbox2.cell(1,incr)="QNST":incr++
symbolslistbox2.cell(1,incr)="QQEW":incr++
symbolslistbox2.cell(1,incr)="QQQ":incr++
symbolslistbox2.cell(1,incr)="QQQE":incr++
symbolslistbox2.cell(1,incr)="QQQX":incr++
symbolslistbox2.cell(1,incr)="QQXT":incr++
symbolslistbox2.cell(1,incr)="QRFT":incr++
symbolslistbox2.cell(1,incr)="QRHC":incr++
symbolslistbox2.cell(1,incr)="QRTEA":incr++
symbolslistbox2.cell(1,incr)="QRTEB":incr++
symbolslistbox2.cell(1,incr)="QRVO":incr++
symbolslistbox2.cell(1,incr)="QSR":incr++
symbolslistbox2.cell(1,incr)="QSY":incr++
symbolslistbox2.cell(1,incr)="QTEC":incr++
symbolslistbox2.cell(1,incr)="QTNT":incr++
'symbolslistbox2.cell(1,incr)="QTRH":incr++
symbolslistbox2.cell(1,incr)="QTRX":incr++
'symbolslistbox2.cell(1,incr)="QTS":incr++
'symbolslistbox2.cell(1,incr)="QTS$A":incr++
'symbolslistbox2.cell(1,incr)="QTS$B":incr++
symbolslistbox2.cell(1,incr)="QTT":incr++
symbolslistbox2.cell(1,incr)="QTUM":incr++
symbolslistbox2.cell(1,incr)="QTWO":incr++
symbolslistbox2.cell(1,incr)="QUAD":incr++
symbolslistbox2.cell(1,incr)="QUAL":incr++
symbolslistbox2.cell(1,incr)="QUIK":incr++
symbolslistbox2.cell(1,incr)="QUMU":incr++
symbolslistbox2.cell(1,incr)="QUOT":incr++
symbolslistbox2.cell(1,incr)="QURE":incr++
symbolslistbox2.cell(1,incr)="QUS":incr++
symbolslistbox2.cell(1,incr)="QVAL":incr++
symbolslistbox2.cell(1,incr)="QVCD":incr++
'symbolslistbox2.cell(1,incr)="QVM":incr++
symbolslistbox2.cell(1,incr)="QWLD":incr++
symbolslistbox2.cell(1,incr)="QYLD":incr++
symbolslistbox2.cell(1,incr)="R":incr++
symbolslistbox2.cell(1,incr)="RA":incr++
symbolslistbox2.cell(1,incr)="RAAX":incr++
symbolslistbox2.cell(1,incr)="RACE":incr++
symbolslistbox2.cell(1,incr)="RAD":incr++
symbolslistbox2.cell(1,incr)="RADA":incr++
symbolslistbox2.cell(1,incr)="RAIL":incr++
symbolslistbox2.cell(1,incr)="RALS":incr++
symbolslistbox2.cell(1,incr)="RAMP":incr++
symbolslistbox2.cell(1,incr)="RAND":incr++
symbolslistbox2.cell(1,incr)="RARE":incr++
'symbolslistbox2.cell(1,incr)="RARX":incr++
symbolslistbox2.cell(1,incr)="RAVE":incr++
symbolslistbox2.cell(1,incr)="RAVI":incr++
'symbolslistbox2.cell(1,incr)="RAVN":incr++
symbolslistbox2.cell(1,incr)="RBA":incr++
symbolslistbox2.cell(1,incr)="RBB":incr++
symbolslistbox2.cell(1,incr)="RBBN":incr++
'symbolslistbox2.cell(1,incr)="RBC":incr++
symbolslistbox2.cell(1,incr)="RBCAA":incr++
symbolslistbox2.cell(1,incr)="RBCN":incr++
'symbolslistbox2.cell(1,incr)="RBIN":incr++
symbolslistbox2.cell(1,incr)="RBKB":incr++
symbolslistbox2.cell(1,incr)="RBNC":incr++
'symbolslistbox2.cell(1,incr)="RBS":incr++
'symbolslistbox2.cell(1,incr)="RBUS":incr++
'symbolslistbox2.cell(1,incr)="RBZ":incr++
symbolslistbox2.cell(1,incr)="RC":incr++
symbolslistbox2.cell(1,incr)="RCA":incr++
symbolslistbox2.cell(1,incr)="RCB":incr++
symbolslistbox2.cell(1,incr)="RCD":incr++
symbolslistbox2.cell(1,incr)="RCG":incr++
symbolslistbox2.cell(1,incr)="RCI":incr++
symbolslistbox2.cell(1,incr)="RCII":incr++
symbolslistbox2.cell(1,incr)="RCKT":incr++
symbolslistbox2.cell(1,incr)="RCKY":incr++
symbolslistbox2.cell(1,incr)="RCL":incr++
symbolslistbox2.cell(1,incr)="RCM":incr++
symbolslistbox2.cell(1,incr)="RCMT":incr++
symbolslistbox2.cell(1,incr)="RCON":incr++
'symbolslistbox2.cell(1,incr)="RCP":incr++
symbolslistbox2.cell(1,incr)="RCS":incr++
symbolslistbox2.cell(1,incr)="RCUS":incr++
symbolslistbox2.cell(1,incr)="RDCM":incr++
symbolslistbox2.cell(1,incr)="RDFN":incr++
symbolslistbox2.cell(1,incr)="RDHL":incr++
symbolslistbox2.cell(1,incr)="RDI":incr++
'symbolslistbox2.cell(1,incr)="RDIB":incr++
symbolslistbox2.cell(1,incr)="RDIV":incr++
symbolslistbox2.cell(1,incr)="RDN":incr++
symbolslistbox2.cell(1,incr)="RDNT":incr++
'symbolslistbox2.cell(1,incr)="RDS.A":incr++
'symbolslistbox2.cell(1,incr)="RDS.B":incr++
symbolslistbox2.cell(1,incr)="RDUS":incr++
symbolslistbox2.cell(1,incr)="RDVT":incr++
symbolslistbox2.cell(1,incr)="RDVY":incr++
symbolslistbox2.cell(1,incr)="RDWR":incr++
symbolslistbox2.cell(1,incr)="RDY":incr++
symbolslistbox2.cell(1,incr)="RE":incr++
symbolslistbox2.cell(1,incr)="REAL":incr++
'symbolslistbox2.cell(1,incr)="RECN":incr++
'symbolslistbox2.cell(1,incr)="RECS":incr++
symbolslistbox2.cell(1,incr)="REDU":incr++
'symbolslistbox2.cell(1,incr)="REDV":incr++
symbolslistbox2.cell(1,incr)="REED":incr++
'symbolslistbox2.cell(1,incr)="REEM":incr++
symbolslistbox2.cell(1,incr)="REET":incr++
'symbolslistbox2.cell(1,incr)="REFA":incr++
symbolslistbox2.cell(1,incr)="REFR":incr++
symbolslistbox2.cell(1,incr)="REG":incr++
symbolslistbox2.cell(1,incr)="REGI":incr++
symbolslistbox2.cell(1,incr)="REGL":incr++
symbolslistbox2.cell(1,incr)="REGN":incr++
symbolslistbox2.cell(1,incr)="REI":incr++
symbolslistbox2.cell(1,incr)="REK":incr++
symbolslistbox2.cell(1,incr)="REKR":incr++
symbolslistbox2.cell(1,incr)="RELL":incr++
symbolslistbox2.cell(1,incr)="RELV":incr++
symbolslistbox2.cell(1,incr)="RELX":incr++
symbolslistbox2.cell(1,incr)="REM":incr++
symbolslistbox2.cell(1,incr)="REML":incr++
symbolslistbox2.cell(1,incr)="REMX":incr++
symbolslistbox2.cell(1,incr)="RENN":incr++
'symbolslistbox2.cell(1,incr)="RENW":incr++
symbolslistbox2.cell(1,incr)="REPH":incr++
symbolslistbox2.cell(1,incr)="REPL":incr++
symbolslistbox2.cell(1,incr)="RES":incr++
symbolslistbox2.cell(1,incr)="RESI":incr++
symbolslistbox2.cell(1,incr)="RESN":incr++
symbolslistbox2.cell(1,incr)="RETA":incr++
symbolslistbox2.cell(1,incr)="RETL":incr++
symbolslistbox2.cell(1,incr)="RETO":incr++
symbolslistbox2.cell(1,incr)="REV":incr++
symbolslistbox2.cell(1,incr)="REVG":incr++
symbolslistbox2.cell(1,incr)="REVS":incr++
symbolslistbox2.cell(1,incr)="REW":incr++
symbolslistbox2.cell(1,incr)="REX":incr++
'symbolslistbox2.cell(1,incr)="REXN":incr++
symbolslistbox2.cell(1,incr)="REXR":incr++
'symbolslistbox2.cell(1,incr)="REXR$A":incr++
'symbolslistbox2.cell(1,incr)="REXR$B":incr++
'symbolslistbox2.cell(1,incr)="REXR$C":incr++
symbolslistbox2.cell(1,incr)="REZ":incr++
symbolslistbox2.cell(1,incr)="REZI":incr++
symbolslistbox2.cell(1,incr)="RF":incr++
'symbolslistbox2.cell(1,incr)="RF$A":incr++
'symbolslistbox2.cell(1,incr)="RF$B":incr++
'symbolslistbox2.cell(1,incr)="RF$C":incr++
symbolslistbox2.cell(1,incr)="RFAP":incr++
symbolslistbox2.cell(1,incr)="RFCI":incr++
symbolslistbox2.cell(1,incr)="RFDA":incr++
symbolslistbox2.cell(1,incr)="RFDI":incr++
symbolslistbox2.cell(1,incr)="RFEM":incr++
symbolslistbox2.cell(1,incr)="RFEU":incr++
symbolslistbox2.cell(1,incr)="RFFC":incr++
symbolslistbox2.cell(1,incr)="RFG":incr++
symbolslistbox2.cell(1,incr)="RFI":incr++
symbolslistbox2.cell(1,incr)="RFIL":incr++
symbolslistbox2.cell(1,incr)="RFL":incr++
symbolslistbox2.cell(1,incr)="RFP":incr++
symbolslistbox2.cell(1,incr)="RFUN":incr++
symbolslistbox2.cell(1,incr)="RFV":incr++
symbolslistbox2.cell(1,incr)="RGA":incr++
symbolslistbox2.cell(1,incr)="RGCO":incr++
symbolslistbox2.cell(1,incr)="RGEN":incr++
symbolslistbox2.cell(1,incr)="RGI":incr++
'symbolslistbox2.cell(1,incr)="RGLB":incr++
symbolslistbox2.cell(1,incr)="RGLD":incr++
symbolslistbox2.cell(1,incr)="RGLS":incr++
symbolslistbox2.cell(1,incr)="RGNX":incr++
symbolslistbox2.cell(1,incr)="RGR":incr++
symbolslistbox2.cell(1,incr)="RGS":incr++
symbolslistbox2.cell(1,incr)="RGT":incr++
symbolslistbox2.cell(1,incr)="RH":incr++
symbolslistbox2.cell(1,incr)="RHE":incr++
'symbolslistbox2.cell(1,incr)="RHE$A":incr++
symbolslistbox2.cell(1,incr)="RHI":incr++
symbolslistbox2.cell(1,incr)="RHP":incr++
symbolslistbox2.cell(1,incr)="RHS":incr++
symbolslistbox2.cell(1,incr)="RIBT":incr++
symbolslistbox2.cell(1,incr)="RICK":incr++
'symbolslistbox2.cell(1,incr)="RIDV":incr++
'symbolslistbox2.cell(1,incr)="RIF":incr++
symbolslistbox2.cell(1,incr)="RIG":incr++
symbolslistbox2.cell(1,incr)="RIGL":incr++
symbolslistbox2.cell(1,incr)="RIGS":incr++
symbolslistbox2.cell(1,incr)="RILY":incr++
symbolslistbox2.cell(1,incr)="RILYG":incr++
'symbolslistbox2.cell(1,incr)="RILYH":incr++
symbolslistbox2.cell(1,incr)="RILYI":incr++
'symbolslistbox2.cell(1,incr)="RILYL":incr++
symbolslistbox2.cell(1,incr)="RILYN":incr++
symbolslistbox2.cell(1,incr)="RILYO":incr++
'symbolslistbox2.cell(1,incr)="RILYZ":incr++
symbolslistbox2.cell(1,incr)="RINF":incr++
symbolslistbox2.cell(1,incr)="RING":incr++
symbolslistbox2.cell(1,incr)="RIO":incr++
symbolslistbox2.cell(1,incr)="RIOT":incr++
'symbolslistbox2.cell(1,incr)="RISE":incr++
symbolslistbox2.cell(1,incr)="RIV":incr++
'symbolslistbox2.cell(1,incr)="RIVE":incr++
symbolslistbox2.cell(1,incr)="RJA":incr++
symbolslistbox2.cell(1,incr)="RJF":incr++
symbolslistbox2.cell(1,incr)="RJI":incr++
symbolslistbox2.cell(1,incr)="RJN":incr++
symbolslistbox2.cell(1,incr)="RJZ":incr++
symbolslistbox2.cell(1,incr)="RKDA":incr++
symbolslistbox2.cell(1,incr)="RL":incr++
symbolslistbox2.cell(1,incr)="RLGT":incr++
symbolslistbox2.cell(1,incr)="RLGY":incr++
'symbolslistbox2.cell(1,incr)="RLH":incr++
symbolslistbox2.cell(1,incr)="RLI":incr++
symbolslistbox2.cell(1,incr)="RLJ":incr++
'symbolslistbox2.cell(1,incr)="RLJ$A":incr++
symbolslistbox2.cell(1,incr)="RLY":incr++
symbolslistbox2.cell(1,incr)="RM":incr++
symbolslistbox2.cell(1,incr)="RMAX":incr++
symbolslistbox2.cell(1,incr)="RMBI":incr++
symbolslistbox2.cell(1,incr)="RMBL":incr++
symbolslistbox2.cell(1,incr)="RMBS":incr++
symbolslistbox2.cell(1,incr)="RMCF":incr++
symbolslistbox2.cell(1,incr)="RMD":incr++
symbolslistbox2.cell(1,incr)="RMED":incr++
'symbolslistbox2.cell(1,incr)="RMG":incr++
'symbolslistbox2.cell(1,incr)="RMG.U":incr++
'symbolslistbox2.cell(1,incr)="RMG.W":incr++
symbolslistbox2.cell(1,incr)="RMI":incr++
symbolslistbox2.cell(1,incr)="RMM":incr++
symbolslistbox2.cell(1,incr)="RMNI":incr++
'symbolslistbox2.cell(1,incr)="RMPL$":incr++
symbolslistbox2.cell(1,incr)="RMR":incr++
symbolslistbox2.cell(1,incr)="RMT":incr++
symbolslistbox2.cell(1,incr)="RMTI":incr++
symbolslistbox2.cell(1,incr)="RNDB":incr++
symbolslistbox2.cell(1,incr)="RNDM":incr++
symbolslistbox2.cell(1,incr)="RNDV":incr++
symbolslistbox2.cell(1,incr)="RNEM":incr++
'symbolslistbox2.cell(1,incr)="RNET":incr++
symbolslistbox2.cell(1,incr)="RNG":incr++
symbolslistbox2.cell(1,incr)="RNGR":incr++
symbolslistbox2.cell(1,incr)="RNLC":incr++
symbolslistbox2.cell(1,incr)="RNMC":incr++
symbolslistbox2.cell(1,incr)="RNP":incr++
symbolslistbox2.cell(1,incr)="RNR":incr++
'symbolslistbox2.cell(1,incr)="RNR$C":incr++
'symbolslistbox2.cell(1,incr)="RNR$E":incr++
'symbolslistbox2.cell(1,incr)="RNR$F":incr++
symbolslistbox2.cell(1,incr)="RNSC":incr++
symbolslistbox2.cell(1,incr)="RNST":incr++
symbolslistbox2.cell(1,incr)="RNWK":incr++
symbolslistbox2.cell(1,incr)="ROAD":incr++
symbolslistbox2.cell(1,incr)="ROAM":incr++
'symbolslistbox2.cell(1,incr)="ROAN":incr++
symbolslistbox2.cell(1,incr)="ROBO":incr++
symbolslistbox2.cell(1,incr)="ROBT":incr++
symbolslistbox2.cell(1,incr)="ROCK":incr++
'symbolslistbox2.cell(1,incr)="RODI":incr++
symbolslistbox2.cell(1,incr)="RODM":incr++
symbolslistbox2.cell(1,incr)="ROG":incr++
'symbolslistbox2.cell(1,incr)="ROGS":incr++
symbolslistbox2.cell(1,incr)="ROIC":incr++
symbolslistbox2.cell(1,incr)="ROK":incr++
symbolslistbox2.cell(1,incr)="ROKT":incr++
symbolslistbox2.cell(1,incr)="ROKU":incr++
symbolslistbox2.cell(1,incr)="ROL":incr++
symbolslistbox2.cell(1,incr)="ROLL":incr++
symbolslistbox2.cell(1,incr)="ROM":incr++
symbolslistbox2.cell(1,incr)="ROOF":incr++
symbolslistbox2.cell(1,incr)="ROP":incr++
'symbolslistbox2.cell(1,incr)="RORE":incr++
'symbolslistbox2.cell(1,incr)="ROSE":incr++
'symbolslistbox2.cell(1,incr)="ROSEU":incr++
symbolslistbox2.cell(1,incr)="ROSEW":incr++
symbolslistbox2.cell(1,incr)="ROST":incr++
symbolslistbox2.cell(1,incr)="ROUS":incr++
'symbolslistbox2.cell(1,incr)="ROX":incr++
'symbolslistbox2.cell(1,incr)="ROYT":incr++
'symbolslistbox2.cell(1,incr)="RP":incr++
'symbolslistbox2.cell(1,incr)="RPAI":incr++
symbolslistbox2.cell(1,incr)="RPAY":incr++
symbolslistbox2.cell(1,incr)="RPD":incr++
symbolslistbox2.cell(1,incr)="RPG":incr++
'symbolslistbox2.cell(1,incr)="RPLA":incr++
'symbolslistbox2.cell(1,incr)="RPLA.U":incr++
'symbolslistbox2.cell(1,incr)="RPLA.W":incr++
symbolslistbox2.cell(1,incr)="RPM":incr++
symbolslistbox2.cell(1,incr)="RPT":incr++
'symbolslistbox2.cell(1,incr)="RPT$D":incr++
'symbolslistbox2.cell(1,incr)="RPUT":incr++
symbolslistbox2.cell(1,incr)="RPV":incr++
symbolslistbox2.cell(1,incr)="RQI":incr++
symbolslistbox2.cell(1,incr)="RRBI":incr++
symbolslistbox2.cell(1,incr)="RRC":incr++
symbolslistbox2.cell(1,incr)="RRD":incr++
symbolslistbox2.cell(1,incr)="RRGB":incr++
symbolslistbox2.cell(1,incr)="RRR":incr++
symbolslistbox2.cell(1,incr)="RRTS":incr++
symbolslistbox2.cell(1,incr)="RS":incr++
symbolslistbox2.cell(1,incr)="RSF":incr++
symbolslistbox2.cell(1,incr)="RSG":incr++
symbolslistbox2.cell(1,incr)="RSP":incr++
'symbolslistbox2.cell(1,incr)="RST":incr++
symbolslistbox2.cell(1,incr)="RSX":incr++
symbolslistbox2.cell(1,incr)="RSXJ":incr++
'symbolslistbox2.cell(1,incr)="RTEC":incr++
symbolslistbox2.cell(1,incr)="RTH":incr++
'symbolslistbox2.cell(1,incr)="RTIX":incr++
symbolslistbox2.cell(1,incr)="RTL":incr++
symbolslistbox2.cell(1,incr)="RTLR":incr++
symbolslistbox2.cell(1,incr)="RTM":incr++
'symbolslistbox2.cell(1,incr)="RTN":incr++
'symbolslistbox2.cell(1,incr)="RTRX":incr++
'symbolslistbox2.cell(1,incr)="RTTR":incr++
'symbolslistbox2.cell(1,incr)="RTW":incr++
'symbolslistbox2.cell(1,incr)="RUBI":incr++
symbolslistbox2.cell(1,incr)="RUBY":incr++
'symbolslistbox2.cell(1,incr)="RUHN":incr++
symbolslistbox2.cell(1,incr)="RUN":incr++
symbolslistbox2.cell(1,incr)="RUSHA":incr++
symbolslistbox2.cell(1,incr)="RUSHB":incr++
symbolslistbox2.cell(1,incr)="RUSL":incr++
'symbolslistbox2.cell(1,incr)="RUSS":incr++
symbolslistbox2.cell(1,incr)="RUTH":incr++
'symbolslistbox2.cell(1,incr)="RVEN":incr++
symbolslistbox2.cell(1,incr)="RVI":incr++
'symbolslistbox2.cell(1,incr)="RVLT":incr++
symbolslistbox2.cell(1,incr)="RVLV":incr++
symbolslistbox2.cell(1,incr)="RVNC":incr++
symbolslistbox2.cell(1,incr)="RVNU":incr++
symbolslistbox2.cell(1,incr)="RVP":incr++
'symbolslistbox2.cell(1,incr)="RVRS":incr++
symbolslistbox2.cell(1,incr)="RVSB":incr++
symbolslistbox2.cell(1,incr)="RVT":incr++
'symbolslistbox2.cell(1,incr)="RWCD":incr++
'symbolslistbox2.cell(1,incr)="RWDC":incr++
'symbolslistbox2.cell(1,incr)="RWDE":incr++
'symbolslistbox2.cell(1,incr)="RWED":incr++
'symbolslistbox2.cell(1,incr)="RWGE":incr++
'symbolslistbox2.cell(1,incr)="RWGE.U":incr++
'symbolslistbox2.cell(1,incr)="RWGE.W":incr++
symbolslistbox2.cell(1,incr)="RWGV":incr++
'symbolslistbox2.cell(1,incr)="RWIU":incr++
symbolslistbox2.cell(1,incr)="RWJ":incr++
symbolslistbox2.cell(1,incr)="RWK":incr++
symbolslistbox2.cell(1,incr)="RWL":incr++
symbolslistbox2.cell(1,incr)="RWLK":incr++
'symbolslistbox2.cell(1,incr)="RWLS":incr++
symbolslistbox2.cell(1,incr)="RWM":incr++
symbolslistbox2.cell(1,incr)="RWO":incr++
symbolslistbox2.cell(1,incr)="RWR":incr++
'symbolslistbox2.cell(1,incr)="RWSL":incr++
symbolslistbox2.cell(1,incr)="RWT":incr++
'symbolslistbox2.cell(1,incr)="RWUI":incr++
symbolslistbox2.cell(1,incr)="RWVG":incr++
'symbolslistbox2.cell(1,incr)="RWW":incr++
symbolslistbox2.cell(1,incr)="RWX":incr++
symbolslistbox2.cell(1,incr)="RXD":incr++
symbolslistbox2.cell(1,incr)="RXI":incr++
symbolslistbox2.cell(1,incr)="RXL":incr++
'symbolslistbox2.cell(1,incr)="RXN":incr++
'symbolslistbox2.cell(1,incr)="RXN$A":incr++
symbolslistbox2.cell(1,incr)="RY":incr++
'symbolslistbox2.cell(1,incr)="RY$T":incr++
symbolslistbox2.cell(1,incr)="RYAAY":incr++
symbolslistbox2.cell(1,incr)="RYAM":incr++
symbolslistbox2.cell(1,incr)="RYB":incr++
symbolslistbox2.cell(1,incr)="RYE":incr++
symbolslistbox2.cell(1,incr)="RYF":incr++
symbolslistbox2.cell(1,incr)="RYH":incr++
symbolslistbox2.cell(1,incr)="RYI":incr++
symbolslistbox2.cell(1,incr)="RYJ":incr++
symbolslistbox2.cell(1,incr)="RYLD":incr++
symbolslistbox2.cell(1,incr)="RYN":incr++
symbolslistbox2.cell(1,incr)="RYT":incr++
symbolslistbox2.cell(1,incr)="RYTM":incr++
symbolslistbox2.cell(1,incr)="RYU":incr++
'symbolslistbox2.cell(1,incr)="RYZZ":incr++
symbolslistbox2.cell(1,incr)="RZA":incr++
symbolslistbox2.cell(1,incr)="RZB":incr++
symbolslistbox2.cell(1,incr)="RZG":incr++
symbolslistbox2.cell(1,incr)="RZV":incr++
'symbolslistbox2.cell(1,incr)="S":incr++
symbolslistbox2.cell(1,incr)="SA":incr++
symbolslistbox2.cell(1,incr)="SAA":incr++
'symbolslistbox2.cell(1,incr)="SAB":incr++
symbolslistbox2.cell(1,incr)="SABR":incr++
symbolslistbox2.cell(1,incr)="SACH":incr++
'symbolslistbox2.cell(1,incr)="SAEX":incr++
symbolslistbox2.cell(1,incr)="SAF":incr++
symbolslistbox2.cell(1,incr)="SAFE":incr++
symbolslistbox2.cell(1,incr)="SAFM":incr++
symbolslistbox2.cell(1,incr)="SAFT":incr++
symbolslistbox2.cell(1,incr)="SAGE":incr++
'symbolslistbox2.cell(1,incr)="SAGG":incr++
symbolslistbox2.cell(1,incr)="SAH":incr++
symbolslistbox2.cell(1,incr)="SAIA":incr++
symbolslistbox2.cell(1,incr)="SAIC":incr++
symbolslistbox2.cell(1,incr)="SAIL":incr++
symbolslistbox2.cell(1,incr)="SAL":incr++
symbolslistbox2.cell(1,incr)="SALM":incr++
'symbolslistbox2.cell(1,incr)="SALT":incr++
symbolslistbox2.cell(1,incr)="SAM":incr++
symbolslistbox2.cell(1,incr)="SAMA":incr++
'symbolslistbox2.cell(1,incr)="SAMAU":incr++
'symbolslistbox2.cell(1,incr)="SAMAW":incr++
symbolslistbox2.cell(1,incr)="SAMG":incr++
symbolslistbox2.cell(1,incr)="SAN":incr++
'symbolslistbox2.cell(1,incr)="SAN$B":incr++
symbolslistbox2.cell(1,incr)="SAND":incr++
symbolslistbox2.cell(1,incr)="SANM":incr++
symbolslistbox2.cell(1,incr)="SANW":incr++
symbolslistbox2.cell(1,incr)="SAP":incr++
symbolslistbox2.cell(1,incr)="SAR":incr++
symbolslistbox2.cell(1,incr)="SASR":incr++
symbolslistbox2.cell(1,incr)="SATS":incr++
'symbolslistbox2.cell(1,incr)="SAUC":incr++
symbolslistbox2.cell(1,incr)="SAVA":incr++
symbolslistbox2.cell(1,incr)="SAVE":incr++
symbolslistbox2.cell(1,incr)="SB":incr++
'symbolslistbox2.cell(1,incr)="SB$C":incr++
'symbolslistbox2.cell(1,incr)="SB$D":incr++
symbolslistbox2.cell(1,incr)="SBAC":incr++
symbolslistbox2.cell(1,incr)="SBB":incr++
'symbolslistbox2.cell(1,incr)="SBBP":incr++
'symbolslistbox2.cell(1,incr)="SBBX":incr++
symbolslistbox2.cell(1,incr)="SBCF":incr++
'symbolslistbox2.cell(1,incr)="SBE":incr++
'symbolslistbox2.cell(1,incr)="SBE.U":incr++
'symbolslistbox2.cell(1,incr)="SBE.W":incr++
symbolslistbox2.cell(1,incr)="SBFG":incr++
'symbolslistbox2.cell(1,incr)="SBFGP":incr++
symbolslistbox2.cell(1,incr)="SBGI":incr++
'symbolslistbox2.cell(1,incr)="SBGL":incr++
symbolslistbox2.cell(1,incr)="SBH":incr++
symbolslistbox2.cell(1,incr)="SBI":incr++
symbolslistbox2.cell(1,incr)="SBIO":incr++
symbolslistbox2.cell(1,incr)="SBLK":incr++
'symbolslistbox2.cell(1,incr)="SBLKZ":incr++
symbolslistbox2.cell(1,incr)="SBM":incr++
'symbolslistbox2.cell(1,incr)="SBNA":incr++
symbolslistbox2.cell(1,incr)="SBNY":incr++
symbolslistbox2.cell(1,incr)="SBOW":incr++
'symbolslistbox2.cell(1,incr)="SBPH":incr++
symbolslistbox2.cell(1,incr)="SBR":incr++
symbolslistbox2.cell(1,incr)="SBRA":incr++
symbolslistbox2.cell(1,incr)="SBS":incr++
symbolslistbox2.cell(1,incr)="SBSI":incr++
symbolslistbox2.cell(1,incr)="SBT":incr++
symbolslistbox2.cell(1,incr)="SBUX":incr++
symbolslistbox2.cell(1,incr)="SC":incr++
'symbolslistbox2.cell(1,incr)="SCA":incr++
'symbolslistbox2.cell(1,incr)="SCAP":incr++
symbolslistbox2.cell(1,incr)="SCC":incr++
symbolslistbox2.cell(1,incr)="SCCB":incr++
symbolslistbox2.cell(1,incr)="SCCO":incr++
symbolslistbox2.cell(1,incr)="SCD":incr++
'symbolslistbox2.cell(1,incr)="SCE$B":incr++
'symbolslistbox2.cell(1,incr)="SCE$C":incr++
'symbolslistbox2.cell(1,incr)="SCE$D":incr++
'symbolslistbox2.cell(1,incr)="SCE$E":incr++
'symbolslistbox2.cell(1,incr)="SCE$G":incr++
'symbolslistbox2.cell(1,incr)="SCE$H":incr++
'symbolslistbox2.cell(1,incr)="SCE$J":incr++
'symbolslistbox2.cell(1,incr)="SCE$K":incr++
'symbolslistbox2.cell(1,incr)="SCE$L":incr++
symbolslistbox2.cell(1,incr)="SCHA":incr++
symbolslistbox2.cell(1,incr)="SCHB":incr++
symbolslistbox2.cell(1,incr)="SCHC":incr++
symbolslistbox2.cell(1,incr)="SCHD":incr++
symbolslistbox2.cell(1,incr)="SCHE":incr++
symbolslistbox2.cell(1,incr)="SCHF":incr++
symbolslistbox2.cell(1,incr)="SCHG":incr++
symbolslistbox2.cell(1,incr)="SCHH":incr++
symbolslistbox2.cell(1,incr)="SCHK":incr++
symbolslistbox2.cell(1,incr)="SCHL":incr++
symbolslistbox2.cell(1,incr)="SCHM":incr++
symbolslistbox2.cell(1,incr)="SCHN":incr++
symbolslistbox2.cell(1,incr)="SCHO":incr++
symbolslistbox2.cell(1,incr)="SCHP":incr++
symbolslistbox2.cell(1,incr)="SCHR":incr++
symbolslistbox2.cell(1,incr)="SCHV":incr++
symbolslistbox2.cell(1,incr)="SCHW":incr++
'symbolslistbox2.cell(1,incr)="SCHW$C":incr++
'symbolslistbox2.cell(1,incr)="SCHW$D":incr++
symbolslistbox2.cell(1,incr)="SCHX":incr++
symbolslistbox2.cell(1,incr)="SCHZ":incr++
symbolslistbox2.cell(1,incr)="SCI":incr++
'symbolslistbox2.cell(1,incr)="SCID":incr++
'symbolslistbox2.cell(1,incr)="SCIF":incr++
'symbolslistbox2.cell(1,incr)="SCIJ":incr++
'symbolslistbox2.cell(1,incr)="SCIU":incr++
'symbolslistbox2.cell(1,incr)="SCIX":incr++
symbolslistbox2.cell(1,incr)="SCJ":incr++
symbolslistbox2.cell(1,incr)="SCKT":incr++
symbolslistbox2.cell(1,incr)="SCL":incr++
symbolslistbox2.cell(1,incr)="SCM":incr++
symbolslistbox2.cell(1,incr)="SCO":incr++
'symbolslistbox2.cell(1,incr)="SCOM":incr++
'symbolslistbox2.cell(1,incr)="SCON":incr++
symbolslistbox2.cell(1,incr)="SCOR":incr++
'symbolslistbox2.cell(1,incr)="SCPE":incr++
'symbolslistbox2.cell(1,incr)="SCPE.U":incr++
'symbolslistbox2.cell(1,incr)="SCPE.W":incr++
symbolslistbox2.cell(1,incr)="SCPH":incr++
symbolslistbox2.cell(1,incr)="SCPL":incr++
symbolslistbox2.cell(1,incr)="SCS":incr++
symbolslistbox2.cell(1,incr)="SCSC":incr++
symbolslistbox2.cell(1,incr)="SCU":incr++
symbolslistbox2.cell(1,incr)="SCVL":incr++
symbolslistbox2.cell(1,incr)="SCWX":incr++
symbolslistbox2.cell(1,incr)="SCX":incr++
symbolslistbox2.cell(1,incr)="SCYX":incr++
symbolslistbox2.cell(1,incr)="SCZ":incr++
symbolslistbox2.cell(1,incr)="SD":incr++
'symbolslistbox2.cell(1,incr)="SDAG":incr++
symbolslistbox2.cell(1,incr)="SDC":incr++
'symbolslistbox2.cell(1,incr)="SDCI":incr++
symbolslistbox2.cell(1,incr)="SDD":incr++
symbolslistbox2.cell(1,incr)="SDEM":incr++
symbolslistbox2.cell(1,incr)="SDG":incr++
symbolslistbox2.cell(1,incr)="SDGA":incr++
'symbolslistbox2.cell(1,incr)="SDI":incr++
symbolslistbox2.cell(1,incr)="SDIV":incr++
symbolslistbox2.cell(1,incr)="SDOG":incr++
symbolslistbox2.cell(1,incr)="SDOW":incr++
symbolslistbox2.cell(1,incr)="SDP":incr++
symbolslistbox2.cell(1,incr)="SDPI":incr++
'symbolslistbox2.cell(1,incr)="SDR":incr++
'symbolslistbox2.cell(1,incr)="SDRL":incr++
symbolslistbox2.cell(1,incr)="SDS":incr++
'symbolslistbox2.cell(1,incr)="SDT":incr++
symbolslistbox2.cell(1,incr)="SDVY":incr++
symbolslistbox2.cell(1,incr)="SDY":incr++
'symbolslistbox2.cell(1,incr)="SDYL":incr++
symbolslistbox2.cell(1,incr)="SE":incr++
symbolslistbox2.cell(1,incr)="SEA":incr++
symbolslistbox2.cell(1,incr)="SEAC":incr++
symbolslistbox2.cell(1,incr)="SEAS":incr++
'symbolslistbox2.cell(1,incr)="SEB":incr++
symbolslistbox2.cell(1,incr)="SECO":incr++
symbolslistbox2.cell(1,incr)="SECT":incr++
symbolslistbox2.cell(1,incr)="SEDG":incr++
symbolslistbox2.cell(1,incr)="SEE":incr++
symbolslistbox2.cell(1,incr)="SEED":incr++
symbolslistbox2.cell(1,incr)="SEEL":incr++
symbolslistbox2.cell(1,incr)="SEF":incr++
symbolslistbox2.cell(1,incr)="SEIC":incr++
'symbolslistbox2.cell(1,incr)="SEIX":incr++
symbolslistbox2.cell(1,incr)="SELB":incr++
symbolslistbox2.cell(1,incr)="SELF":incr++
symbolslistbox2.cell(1,incr)="SEM":incr++
'symbolslistbox2.cell(1,incr)="SEMG":incr++
symbolslistbox2.cell(1,incr)="SENEA":incr++
'symbolslistbox2.cell(1,incr)="SENEB":incr++
symbolslistbox2.cell(1,incr)="SENS":incr++
'symbolslistbox2.cell(1,incr)="SERV":incr++
symbolslistbox2.cell(1,incr)="SES":incr++
symbolslistbox2.cell(1,incr)="SESN":incr++
symbolslistbox2.cell(1,incr)="SF":incr++
'symbolslistbox2.cell(1,incr)="SF$A":incr++
'symbolslistbox2.cell(1,incr)="SF$B":incr++
symbolslistbox2.cell(1,incr)="SFB":incr++
'symbolslistbox2.cell(1,incr)="SFBC":incr++
symbolslistbox2.cell(1,incr)="SFBS":incr++
symbolslistbox2.cell(1,incr)="SFE":incr++
symbolslistbox2.cell(1,incr)="SFET":incr++
symbolslistbox2.cell(1,incr)="SFHY":incr++
symbolslistbox2.cell(1,incr)="SFIG":incr++
symbolslistbox2.cell(1,incr)="SFIX":incr++
symbolslistbox2.cell(1,incr)="SFL":incr++
symbolslistbox2.cell(1,incr)="SFM":incr++
symbolslistbox2.cell(1,incr)="SFNC":incr++
symbolslistbox2.cell(1,incr)="SFST":incr++
symbolslistbox2.cell(1,incr)="SFUN":incr++
symbolslistbox2.cell(1,incr)="SFY":incr++
symbolslistbox2.cell(1,incr)="SFYF":incr++
symbolslistbox2.cell(1,incr)="SFYX":incr++
symbolslistbox2.cell(1,incr)="SG":incr++
symbolslistbox2.cell(1,incr)="SGA":incr++
'symbolslistbox2.cell(1,incr)="SGB":incr++
symbolslistbox2.cell(1,incr)="SGBX":incr++
symbolslistbox2.cell(1,incr)="SGC":incr++
symbolslistbox2.cell(1,incr)="SGDJ":incr++
symbolslistbox2.cell(1,incr)="SGDM":incr++
symbolslistbox2.cell(1,incr)="SGEN":incr++
symbolslistbox2.cell(1,incr)="SGG":incr++
symbolslistbox2.cell(1,incr)="SGH":incr++
symbolslistbox2.cell(1,incr)="SGLB":incr++
symbolslistbox2.cell(1,incr)="SGLBW":incr++
symbolslistbox2.cell(1,incr)="SGMA":incr++
symbolslistbox2.cell(1,incr)="SGMO":incr++
symbolslistbox2.cell(1,incr)="SGMS":incr++
'symbolslistbox2.cell(1,incr)="SGOC":incr++
symbolslistbox2.cell(1,incr)="SGOL":incr++
symbolslistbox2.cell(1,incr)="SGRP":incr++
symbolslistbox2.cell(1,incr)="SGRY":incr++
symbolslistbox2.cell(1,incr)="SGU":incr++
symbolslistbox2.cell(1,incr)="SH":incr++
symbolslistbox2.cell(1,incr)="SHAG":incr++
symbolslistbox2.cell(1,incr)="SHAK":incr++
symbolslistbox2.cell(1,incr)="SHBI":incr++
symbolslistbox2.cell(1,incr)="SHE":incr++
symbolslistbox2.cell(1,incr)="SHEN":incr++
symbolslistbox2.cell(1,incr)="SHG":incr++
symbolslistbox2.cell(1,incr)="SHI":incr++
symbolslistbox2.cell(1,incr)="SHIP":incr++
'symbolslistbox2.cell(1,incr)="SHIPW":incr++
symbolslistbox2.cell(1,incr)="SHIPZ":incr++
'symbolslistbox2.cell(1,incr)="SHLL":incr++
'symbolslistbox2.cell(1,incr)="SHLL.U":incr++
'symbolslistbox2.cell(1,incr)="SHLL.W":incr++
'symbolslistbox2.cell(1,incr)="SHLO":incr++
symbolslistbox2.cell(1,incr)="SHLX":incr++
symbolslistbox2.cell(1,incr)="SHM":incr++
symbolslistbox2.cell(1,incr)="SHO":incr++
'symbolslistbox2.cell(1,incr)="SHO$E":incr++
'symbolslistbox2.cell(1,incr)="SHO$F":incr++
symbolslistbox2.cell(1,incr)="SHOO":incr++
symbolslistbox2.cell(1,incr)="SHOP":incr++
'symbolslistbox2.cell(1,incr)="SHOS":incr++
'symbolslistbox2.cell(1,incr)="SHSP":incr++
symbolslistbox2.cell(1,incr)="SHV":incr++
symbolslistbox2.cell(1,incr)="SHW":incr++
symbolslistbox2.cell(1,incr)="SHY":incr++
symbolslistbox2.cell(1,incr)="SHYD":incr++
symbolslistbox2.cell(1,incr)="SHYG":incr++
symbolslistbox2.cell(1,incr)="SHYL":incr++
symbolslistbox2.cell(1,incr)="SIBN":incr++
symbolslistbox2.cell(1,incr)="SIC":incr++
symbolslistbox2.cell(1,incr)="SID":incr++
symbolslistbox2.cell(1,incr)="SIEB":incr++
symbolslistbox2.cell(1,incr)="SIEN":incr++
symbolslistbox2.cell(1,incr)="SIF":incr++
symbolslistbox2.cell(1,incr)="SIFY":incr++
symbolslistbox2.cell(1,incr)="SIG":incr++
symbolslistbox2.cell(1,incr)="SIGA":incr++
symbolslistbox2.cell(1,incr)="SIGI":incr++
symbolslistbox2.cell(1,incr)="SIJ":incr++
symbolslistbox2.cell(1,incr)="SIL":incr++
symbolslistbox2.cell(1,incr)="SILC":incr++
symbolslistbox2.cell(1,incr)="SILJ":incr++
symbolslistbox2.cell(1,incr)="SILK":incr++
symbolslistbox2.cell(1,incr)="SILV":incr++
'symbolslistbox2.cell(1,incr)="SIM":incr++
symbolslistbox2.cell(1,incr)="SIMO":incr++
symbolslistbox2.cell(1,incr)="SIMS":incr++
'symbolslistbox2.cell(1,incr)="SINA":incr++
symbolslistbox2.cell(1,incr)="SINO":incr++
symbolslistbox2.cell(1,incr)="SINT":incr++
symbolslistbox2.cell(1,incr)="SIRI":incr++
symbolslistbox2.cell(1,incr)="SITC":incr++
'symbolslistbox2.cell(1,incr)="SITC$A":incr++
'symbolslistbox2.cell(1,incr)="SITC$J":incr++
'symbolslistbox2.cell(1,incr)="SITC$K":incr++
symbolslistbox2.cell(1,incr)="SITE":incr++
'symbolslistbox2.cell(1,incr)="SITO":incr++
symbolslistbox2.cell(1,incr)="SIVB":incr++
symbolslistbox2.cell(1,incr)="SIVR":incr++
symbolslistbox2.cell(1,incr)="SIX":incr++
'symbolslistbox2.cell(1,incr)="SIZ":incr++
symbolslistbox2.cell(1,incr)="SIZE":incr++
symbolslistbox2.cell(1,incr)="SJB":incr++
symbolslistbox2.cell(1,incr)="SJI":incr++
symbolslistbox2.cell(1,incr)="SJIJ":incr++
'symbolslistbox2.cell(1,incr)="SJIU":incr++
symbolslistbox2.cell(1,incr)="SJM":incr++
symbolslistbox2.cell(1,incr)="SJNK":incr++
symbolslistbox2.cell(1,incr)="SJR":incr++
symbolslistbox2.cell(1,incr)="SJT":incr++
symbolslistbox2.cell(1,incr)="SJW":incr++
symbolslistbox2.cell(1,incr)="SKF":incr++
symbolslistbox2.cell(1,incr)="SKM":incr++
symbolslistbox2.cell(1,incr)="SKOR":incr++
symbolslistbox2.cell(1,incr)="SKT":incr++
symbolslistbox2.cell(1,incr)="SKX":incr++
symbolslistbox2.cell(1,incr)="SKY":incr++
'symbolslistbox2.cell(1,incr)="SKYS":incr++
symbolslistbox2.cell(1,incr)="SKYW":incr++
symbolslistbox2.cell(1,incr)="SKYY":incr++
symbolslistbox2.cell(1,incr)="SLAB":incr++
symbolslistbox2.cell(1,incr)="SLB":incr++
symbolslistbox2.cell(1,incr)="SLCA":incr++
'symbolslistbox2.cell(1,incr)="SLCT":incr++
symbolslistbox2.cell(1,incr)="SLDB":incr++
symbolslistbox2.cell(1,incr)="SLF":incr++
symbolslistbox2.cell(1,incr)="SLG":incr++
'symbolslistbox2.cell(1,incr)="SLG$I":incr++
symbolslistbox2.cell(1,incr)="SLGG":incr++
symbolslistbox2.cell(1,incr)="SLGL":incr++
symbolslistbox2.cell(1,incr)="SLGN":incr++
'symbolslistbox2.cell(1,incr)="SLIM":incr++
symbolslistbox2.cell(1,incr)="SLM":incr++
'symbolslistbox2.cell(1,incr)="SLMBP":incr++
'symbolslistbox2.cell(1,incr)="SLNG":incr++
symbolslistbox2.cell(1,incr)="SLNO":incr++
'symbolslistbox2.cell(1,incr)="SLNOW":incr++
symbolslistbox2.cell(1,incr)="SLP":incr++
symbolslistbox2.cell(1,incr)="SLQD":incr++
symbolslistbox2.cell(1,incr)="SLRC":incr++
symbolslistbox2.cell(1,incr)="SLRX":incr++
symbolslistbox2.cell(1,incr)="SLS":incr++
symbolslistbox2.cell(1,incr)="SLT":incr++
symbolslistbox2.cell(1,incr)="SLV":incr++
symbolslistbox2.cell(1,incr)="SLVO":incr++
symbolslistbox2.cell(1,incr)="SLVP":incr++
symbolslistbox2.cell(1,incr)="SLX":incr++
symbolslistbox2.cell(1,incr)="SLY":incr++
symbolslistbox2.cell(1,incr)="SLYG":incr++
symbolslistbox2.cell(1,incr)="SLYV":incr++
symbolslistbox2.cell(1,incr)="SM":incr++
symbolslistbox2.cell(1,incr)="SMAR":incr++
symbolslistbox2.cell(1,incr)="SMB":incr++
symbolslistbox2.cell(1,incr)="SMBC":incr++
symbolslistbox2.cell(1,incr)="SMBK":incr++
symbolslistbox2.cell(1,incr)="SMCP":incr++
symbolslistbox2.cell(1,incr)="SMDD":incr++
symbolslistbox2.cell(1,incr)="SMDV":incr++
symbolslistbox2.cell(1,incr)="SMED":incr++
'symbolslistbox2.cell(1,incr)="SMEZ":incr++
symbolslistbox2.cell(1,incr)="SMFG":incr++
symbolslistbox2.cell(1,incr)="SMG":incr++
symbolslistbox2.cell(1,incr)="SMH":incr++
symbolslistbox2.cell(1,incr)="SMHB":incr++
'symbolslistbox2.cell(1,incr)="SMHD":incr++
symbolslistbox2.cell(1,incr)="SMHI":incr++
symbolslistbox2.cell(1,incr)="SMIN":incr++
symbolslistbox2.cell(1,incr)="SMIT":incr++
symbolslistbox2.cell(1,incr)="SMLF":incr++
'symbolslistbox2.cell(1,incr)="SMLL":incr++
symbolslistbox2.cell(1,incr)="SMLP":incr++
symbolslistbox2.cell(1,incr)="SMLV":incr++
symbolslistbox2.cell(1,incr)="SMM":incr++
'symbolslistbox2.cell(1,incr)="SMMC":incr++
'symbolslistbox2.cell(1,incr)="SMMCU":incr++
'symbolslistbox2.cell(1,incr)="SMMCW":incr++
symbolslistbox2.cell(1,incr)="SMMD":incr++
symbolslistbox2.cell(1,incr)="SMMF":incr++
symbolslistbox2.cell(1,incr)="SMMT":incr++
symbolslistbox2.cell(1,incr)="SMMU":incr++
symbolslistbox2.cell(1,incr)="SMMV":incr++
symbolslistbox2.cell(1,incr)="SMN":incr++
symbolslistbox2.cell(1,incr)="SMOG":incr++
symbolslistbox2.cell(1,incr)="SMP":incr++
symbolslistbox2.cell(1,incr)="SMPL":incr++
'symbolslistbox2.cell(1,incr)="SMRT":incr++
symbolslistbox2.cell(1,incr)="SMSI":incr++
'symbolslistbox2.cell(1,incr)="SMTA":incr++
symbolslistbox2.cell(1,incr)="SMTC":incr++
symbolslistbox2.cell(1,incr)="SMTS":incr++
'symbolslistbox2.cell(1,incr)="SMTX":incr++
symbolslistbox2.cell(1,incr)="SNA":incr++
symbolslistbox2.cell(1,incr)="SNAP":incr++
symbolslistbox2.cell(1,incr)="SNBR":incr++
symbolslistbox2.cell(1,incr)="SNCR":incr++
symbolslistbox2.cell(1,incr)="SND":incr++
'symbolslistbox2.cell(1,incr)="SNDE":incr++
symbolslistbox2.cell(1,incr)="SNDL":incr++
symbolslistbox2.cell(1,incr)="SNDR":incr++
symbolslistbox2.cell(1,incr)="SNDX":incr++
'symbolslistbox2.cell(1,incr)="SNE":incr++
symbolslistbox2.cell(1,incr)="SNES":incr++
symbolslistbox2.cell(1,incr)="SNFCA":incr++
symbolslistbox2.cell(1,incr)="SNGX":incr++
'symbolslistbox2.cell(1,incr)="SNGXW":incr++
'symbolslistbox2.cell(1,incr)="SNH":incr++
'symbolslistbox2.cell(1,incr)="SNHNI":incr++
'symbolslistbox2.cell(1,incr)="SNHNL":incr++
symbolslistbox2.cell(1,incr)="SNLN":incr++
symbolslistbox2.cell(1,incr)="SNMP":incr++
symbolslistbox2.cell(1,incr)="SNN":incr++
'symbolslistbox2.cell(1,incr)="SNNA":incr++
symbolslistbox2.cell(1,incr)="SNOA":incr++
'symbolslistbox2.cell(1,incr)="SNOAW":incr++
symbolslistbox2.cell(1,incr)="SNOW":incr++
symbolslistbox2.cell(1,incr)="SNP":incr++
symbolslistbox2.cell(1,incr)="SNPE":incr++
symbolslistbox2.cell(1,incr)="SNPS":incr++
'symbolslistbox2.cell(1,incr)="SNR":incr++
symbolslistbox2.cell(1,incr)="SNSR":incr++
'symbolslistbox2.cell(1,incr)="SNSS":incr++
symbolslistbox2.cell(1,incr)="SNV":incr++
'symbolslistbox2.cell(1,incr)="SNV$D":incr++
'symbolslistbox2.cell(1,incr)="SNV$E":incr++
symbolslistbox2.cell(1,incr)="SNX":incr++
symbolslistbox2.cell(1,incr)="SNY":incr++
symbolslistbox2.cell(1,incr)="SO":incr++
symbolslistbox2.cell(1,incr)="SOCL":incr++
'symbolslistbox2.cell(1,incr)="SOGO":incr++
symbolslistbox2.cell(1,incr)="SOHO":incr++
symbolslistbox2.cell(1,incr)="SOHOB":incr++
symbolslistbox2.cell(1,incr)="SOHON":incr++
symbolslistbox2.cell(1,incr)="SOHOO":incr++
symbolslistbox2.cell(1,incr)="SOHU":incr++
symbolslistbox2.cell(1,incr)="SOI":incr++
'symbolslistbox2.cell(1,incr)="SOIL":incr++
'symbolslistbox2.cell(1,incr)="SOJA":incr++
symbolslistbox2.cell(1,incr)="SOJB":incr++
symbolslistbox2.cell(1,incr)="SOJC":incr++
symbolslistbox2.cell(1,incr)="SOL":incr++
symbolslistbox2.cell(1,incr)="SOLN":incr++
symbolslistbox2.cell(1,incr)="SOLO":incr++
'symbolslistbox2.cell(1,incr)="SOLOW":incr++
'symbolslistbox2.cell(1,incr)="SOLY":incr++
symbolslistbox2.cell(1,incr)="SON":incr++
'symbolslistbox2.cell(1,incr)="SONA":incr++
'symbolslistbox2.cell(1,incr)="SONG":incr++
'symbolslistbox2.cell(1,incr)="SONGW":incr++
symbolslistbox2.cell(1,incr)="SONM":incr++
symbolslistbox2.cell(1,incr)="SONO":incr++
symbolslistbox2.cell(1,incr)="SOR":incr++
'symbolslistbox2.cell(1,incr)="SORL":incr++
'symbolslistbox2.cell(1,incr)="SOVB":incr++
symbolslistbox2.cell(1,incr)="SOXL":incr++
symbolslistbox2.cell(1,incr)="SOXS":incr++
symbolslistbox2.cell(1,incr)="SOXX":incr++
symbolslistbox2.cell(1,incr)="SOYB":incr++
symbolslistbox2.cell(1,incr)="SP":incr++
symbolslistbox2.cell(1,incr)="SPAB":incr++
symbolslistbox2.cell(1,incr)="SPAQ":incr++
'symbolslistbox2.cell(1,incr)="SPAQ.U":incr++
'symbolslistbox2.cell(1,incr)="SPAQ.W":incr++
'symbolslistbox2.cell(1,incr)="SPAR":incr++
symbolslistbox2.cell(1,incr)="SPB":incr++
symbolslistbox2.cell(1,incr)="SPBO":incr++
symbolslistbox2.cell(1,incr)="SPCB":incr++
symbolslistbox2.cell(1,incr)="SPDN":incr++
symbolslistbox2.cell(1,incr)="SPDV":incr++
symbolslistbox2.cell(1,incr)="SPDW":incr++
symbolslistbox2.cell(1,incr)="SPE":incr++
'symbolslistbox2.cell(1,incr)="SPE$B":incr++
symbolslistbox2.cell(1,incr)="SPEM":incr++
symbolslistbox2.cell(1,incr)="SPEU":incr++
'symbolslistbox2.cell(1,incr)="SPEX":incr++
symbolslistbox2.cell(1,incr)="SPFF":incr++
symbolslistbox2.cell(1,incr)="SPFI":incr++
symbolslistbox2.cell(1,incr)="SPG":incr++
'symbolslistbox2.cell(1,incr)="SPG$J":incr++
symbolslistbox2.cell(1,incr)="SPGI":incr++
symbolslistbox2.cell(1,incr)="SPGM":incr++
symbolslistbox2.cell(1,incr)="SPGP":incr++
symbolslistbox2.cell(1,incr)="SPH":incr++
symbolslistbox2.cell(1,incr)="SPHB":incr++
symbolslistbox2.cell(1,incr)="SPHD":incr++
symbolslistbox2.cell(1,incr)="SPHQ":incr++
symbolslistbox2.cell(1,incr)="SPHS":incr++
symbolslistbox2.cell(1,incr)="SPHY":incr++
symbolslistbox2.cell(1,incr)="SPI":incr++
symbolslistbox2.cell(1,incr)="SPIB":incr++
symbolslistbox2.cell(1,incr)="SPIP":incr++
'symbolslistbox2.cell(1,incr)="SPKE":incr++
'symbolslistbox2.cell(1,incr)="SPKEP":incr++
symbolslistbox2.cell(1,incr)="SPLB":incr++
symbolslistbox2.cell(1,incr)="SPLG":incr++
symbolslistbox2.cell(1,incr)="SPLK":incr++
symbolslistbox2.cell(1,incr)="SPLP":incr++
'symbolslistbox2.cell(1,incr)="SPLP$A":incr++
symbolslistbox2.cell(1,incr)="SPLV":incr++
symbolslistbox2.cell(1,incr)="SPMB":incr++
symbolslistbox2.cell(1,incr)="SPMD":incr++
symbolslistbox2.cell(1,incr)="SPMO":incr++
symbolslistbox2.cell(1,incr)="SPMV":incr++
symbolslistbox2.cell(1,incr)="SPNE":incr++
symbolslistbox2.cell(1,incr)="SPNS":incr++
symbolslistbox2.cell(1,incr)="SPOK":incr++
symbolslistbox2.cell(1,incr)="SPOT":incr++
symbolslistbox2.cell(1,incr)="SPPI":incr++
symbolslistbox2.cell(1,incr)="SPPP":incr++
symbolslistbox2.cell(1,incr)="SPR":incr++
symbolslistbox2.cell(1,incr)="SPRO":incr++
'symbolslistbox2.cell(1,incr)="SPRT":incr++
symbolslistbox2.cell(1,incr)="SPSB":incr++
symbolslistbox2.cell(1,incr)="SPSC":incr++
symbolslistbox2.cell(1,incr)="SPSM":incr++
symbolslistbox2.cell(1,incr)="SPTI":incr++
symbolslistbox2.cell(1,incr)="SPTL":incr++
symbolslistbox2.cell(1,incr)="SPTM":incr++
symbolslistbox2.cell(1,incr)="SPTN":incr++
symbolslistbox2.cell(1,incr)="SPTS":incr++
symbolslistbox2.cell(1,incr)="SPUU":incr++
symbolslistbox2.cell(1,incr)="SPVM":incr++
symbolslistbox2.cell(1,incr)="SPVU":incr++
symbolslistbox2.cell(1,incr)="SPWH":incr++
symbolslistbox2.cell(1,incr)="SPWR":incr++
symbolslistbox2.cell(1,incr)="SPXB":incr++
symbolslistbox2.cell(1,incr)="SPXC":incr++
symbolslistbox2.cell(1,incr)="SPXE":incr++
symbolslistbox2.cell(1,incr)="SPXL":incr++
symbolslistbox2.cell(1,incr)="SPXN":incr++
symbolslistbox2.cell(1,incr)="SPXS":incr++
symbolslistbox2.cell(1,incr)="SPXT":incr++
symbolslistbox2.cell(1,incr)="SPXU":incr++
'symbolslistbox2.cell(1,incr)="SPXV":incr++
symbolslistbox2.cell(1,incr)="SPXX":incr++
symbolslistbox2.cell(1,incr)="SPY":incr++
'symbolslistbox2.cell(1,incr)="SPYB":incr++
symbolslistbox2.cell(1,incr)="SPYD":incr++
symbolslistbox2.cell(1,incr)="SPYG":incr++
symbolslistbox2.cell(1,incr)="SPYV":incr++
symbolslistbox2.cell(1,incr)="SPYX":incr++
symbolslistbox2.cell(1,incr)="SQ":incr++
'symbolslistbox2.cell(1,incr)="SQBG":incr++
symbolslistbox2.cell(1,incr)="SQLV":incr++
symbolslistbox2.cell(1,incr)="SQM":incr++
symbolslistbox2.cell(1,incr)="SQNS":incr++
symbolslistbox2.cell(1,incr)="SQQQ":incr++
symbolslistbox2.cell(1,incr)="SR":incr++
'symbolslistbox2.cell(1,incr)="SR$A":incr++
symbolslistbox2.cell(1,incr)="SRAX":incr++
symbolslistbox2.cell(1,incr)="SRC":incr++
'symbolslistbox2.cell(1,incr)="SRC$A":incr++
symbolslistbox2.cell(1,incr)="SRCE":incr++
'symbolslistbox2.cell(1,incr)="SRCI":incr++
symbolslistbox2.cell(1,incr)="SRCL":incr++
symbolslistbox2.cell(1,incr)="SRDX":incr++
symbolslistbox2.cell(1,incr)="SRE":incr++
'symbolslistbox2.cell(1,incr)="SRE$A":incr++
'symbolslistbox2.cell(1,incr)="SRE$B":incr++
symbolslistbox2.cell(1,incr)="SREA":incr++
symbolslistbox2.cell(1,incr)="SRET":incr++
symbolslistbox2.cell(1,incr)="SREV":incr++
'symbolslistbox2.cell(1,incr)="SRF":incr++
symbolslistbox2.cell(1,incr)="SRG":incr++
'symbolslistbox2.cell(1,incr)="SRG$A":incr++
symbolslistbox2.cell(1,incr)="SRI":incr++
symbolslistbox2.cell(1,incr)="SRL":incr++
symbolslistbox2.cell(1,incr)="SRLN":incr++
symbolslistbox2.cell(1,incr)="SRLP":incr++
symbolslistbox2.cell(1,incr)="SRNE":incr++
symbolslistbox2.cell(1,incr)="SRPT":incr++
symbolslistbox2.cell(1,incr)="SRRA":incr++
symbolslistbox2.cell(1,incr)="SRRK":incr++
symbolslistbox2.cell(1,incr)="SRS":incr++
symbolslistbox2.cell(1,incr)="SRT":incr++
symbolslistbox2.cell(1,incr)="SRTS":incr++
'symbolslistbox2.cell(1,incr)="SRTSW":incr++
symbolslistbox2.cell(1,incr)="SRTY":incr++
symbolslistbox2.cell(1,incr)="SRV":incr++
symbolslistbox2.cell(1,incr)="SRVR":incr++
symbolslistbox2.cell(1,incr)="SSB":incr++
symbolslistbox2.cell(1,incr)="SSBI":incr++
symbolslistbox2.cell(1,incr)="SSD":incr++
'symbolslistbox2.cell(1,incr)="SSFN":incr++
symbolslistbox2.cell(1,incr)="SSG":incr++
'symbolslistbox2.cell(1,incr)="SSI":incr++
symbolslistbox2.cell(1,incr)="SSKN":incr++
symbolslistbox2.cell(1,incr)="SSL":incr++
symbolslistbox2.cell(1,incr)="SSNC":incr++
symbolslistbox2.cell(1,incr)="SSNT":incr++
symbolslistbox2.cell(1,incr)="SSO":incr++
symbolslistbox2.cell(1,incr)="SSP":incr++
'symbolslistbox2.cell(1,incr)="SSPKU":incr++
symbolslistbox2.cell(1,incr)="SSPY":incr++
symbolslistbox2.cell(1,incr)="SSRM":incr++
symbolslistbox2.cell(1,incr)="SSSS":incr++
symbolslistbox2.cell(1,incr)="SSTI":incr++
symbolslistbox2.cell(1,incr)="SSTK":incr++
'symbolslistbox2.cell(1,incr)="SSW":incr++
'symbolslistbox2.cell(1,incr)="SSW$D":incr++
'symbolslistbox2.cell(1,incr)="SSW$E":incr++
'symbolslistbox2.cell(1,incr)="SSW$G":incr++
'symbolslistbox2.cell(1,incr)="SSW$H":incr++
'symbolslistbox2.cell(1,incr)="SSW$I":incr++
'symbolslistbox2.cell(1,incr)="SSWA":incr++
symbolslistbox2.cell(1,incr)="SSY":incr++
symbolslistbox2.cell(1,incr)="SSYS":incr++
symbolslistbox2.cell(1,incr)="ST":incr++
symbolslistbox2.cell(1,incr)="STAA":incr++
symbolslistbox2.cell(1,incr)="STAF":incr++
symbolslistbox2.cell(1,incr)="STAG":incr++
'symbolslistbox2.cell(1,incr)="STAG$C":incr++
symbolslistbox2.cell(1,incr)="STAR":incr++
'symbolslistbox2.cell(1,incr)="STAR$D":incr++
'symbolslistbox2.cell(1,incr)="STAR$G":incr++
'symbolslistbox2.cell(1,incr)="STAR$I":incr++
'symbolslistbox2.cell(1,incr)="STAY":incr++
symbolslistbox2.cell(1,incr)="STBA":incr++
symbolslistbox2.cell(1,incr)="STC":incr++
symbolslistbox2.cell(1,incr)="STCN":incr++
symbolslistbox2.cell(1,incr)="STE":incr++
symbolslistbox2.cell(1,incr)="STFC":incr++
symbolslistbox2.cell(1,incr)="STG":incr++
'symbolslistbox2.cell(1,incr)="STI":incr++
'symbolslistbox2.cell(1,incr)="STI$A":incr++
symbolslistbox2.cell(1,incr)="STIM":incr++
symbolslistbox2.cell(1,incr)="STIP":incr++
symbolslistbox2.cell(1,incr)="STK":incr++
symbolslistbox2.cell(1,incr)="STKL":incr++
symbolslistbox2.cell(1,incr)="STKS":incr++
symbolslistbox2.cell(1,incr)="STL":incr++
'symbolslistbox2.cell(1,incr)="STL$A":incr++
symbolslistbox2.cell(1,incr)="STLD":incr++
symbolslistbox2.cell(1,incr)="STM":incr++
'symbolslistbox2.cell(1,incr)="STML":incr++
'symbolslistbox2.cell(1,incr)="STMP":incr++
symbolslistbox2.cell(1,incr)="STN":incr++
'symbolslistbox2.cell(1,incr)="STND":incr++
symbolslistbox2.cell(1,incr)="STNE":incr++
symbolslistbox2.cell(1,incr)="STNG":incr++
'symbolslistbox2.cell(1,incr)="STNL":incr++
'symbolslistbox2.cell(1,incr)="STNLU":incr++
'symbolslistbox2.cell(1,incr)="STNLW":incr++
symbolslistbox2.cell(1,incr)="STOK":incr++
symbolslistbox2.cell(1,incr)="STON":incr++
symbolslistbox2.cell(1,incr)="STOR":incr++
symbolslistbox2.cell(1,incr)="STOT":incr++
'symbolslistbox2.cell(1,incr)="STPP":incr++
symbolslistbox2.cell(1,incr)="STPZ":incr++
symbolslistbox2.cell(1,incr)="STRA":incr++
symbolslistbox2.cell(1,incr)="STRL":incr++
symbolslistbox2.cell(1,incr)="STRM":incr++
symbolslistbox2.cell(1,incr)="STRO":incr++
symbolslistbox2.cell(1,incr)="STRS":incr++
symbolslistbox2.cell(1,incr)="STRT":incr++
symbolslistbox2.cell(1,incr)="STSA":incr++
symbolslistbox2.cell(1,incr)="STT":incr++
'symbolslistbox2.cell(1,incr)="STT$C":incr++
'symbolslistbox2.cell(1,incr)="STT$D":incr++
'symbolslistbox2.cell(1,incr)="STT$E":incr++
'symbolslistbox2.cell(1,incr)="STT$G":incr++
symbolslistbox2.cell(1,incr)="STWD":incr++
symbolslistbox2.cell(1,incr)="STX":incr++
symbolslistbox2.cell(1,incr)="STXB":incr++
symbolslistbox2.cell(1,incr)="STXS":incr++
symbolslistbox2.cell(1,incr)="STZ":incr++
'symbolslistbox2.cell(1,incr)="STZ.B":incr++
symbolslistbox2.cell(1,incr)="SU":incr++
symbolslistbox2.cell(1,incr)="SUB":incr++
symbolslistbox2.cell(1,incr)="SUI":incr++
symbolslistbox2.cell(1,incr)="SUM":incr++
symbolslistbox2.cell(1,incr)="SUMO":incr++
symbolslistbox2.cell(1,incr)="SUMR":incr++
symbolslistbox2.cell(1,incr)="SUN":incr++
symbolslistbox2.cell(1,incr)="SUNS":incr++
symbolslistbox2.cell(1,incr)="SUNW":incr++
symbolslistbox2.cell(1,incr)="SUP":incr++
symbolslistbox2.cell(1,incr)="SUPN":incr++
symbolslistbox2.cell(1,incr)="SUPV":incr++
symbolslistbox2.cell(1,incr)="SURF":incr++
symbolslistbox2.cell(1,incr)="SUSA":incr++
symbolslistbox2.cell(1,incr)="SUSB":incr++
symbolslistbox2.cell(1,incr)="SUSC":incr++
symbolslistbox2.cell(1,incr)="SUSL":incr++
symbolslistbox2.cell(1,incr)="SUZ":incr++
'symbolslistbox2.cell(1,incr)="SVA":incr++
'symbolslistbox2.cell(1,incr)="SVBI":incr++
symbolslistbox2.cell(1,incr)="SVC":incr++
symbolslistbox2.cell(1,incr)="SVM":incr++
'symbolslistbox2.cell(1,incr)="SVMK":incr++
symbolslistbox2.cell(1,incr)="SVRA":incr++
symbolslistbox2.cell(1,incr)="SVT":incr++
symbolslistbox2.cell(1,incr)="SVVC":incr++
symbolslistbox2.cell(1,incr)="SVXY":incr++
symbolslistbox2.cell(1,incr)="SWAN":incr++
symbolslistbox2.cell(1,incr)="SWAV":incr++
symbolslistbox2.cell(1,incr)="SWCH":incr++
symbolslistbox2.cell(1,incr)="SWI":incr++
symbolslistbox2.cell(1,incr)="SWIR":incr++
'symbolslistbox2.cell(1,incr)="SWJ":incr++
symbolslistbox2.cell(1,incr)="SWK":incr++
symbolslistbox2.cell(1,incr)="SWKS":incr++
symbolslistbox2.cell(1,incr)="SWM":incr++
symbolslistbox2.cell(1,incr)="SWN":incr++
'symbolslistbox2.cell(1,incr)="SWP":incr++
symbolslistbox2.cell(1,incr)="SWTX":incr++
symbolslistbox2.cell(1,incr)="SWX":incr++
symbolslistbox2.cell(1,incr)="SWZ":incr++
symbolslistbox2.cell(1,incr)="SXC":incr++
symbolslistbox2.cell(1,incr)="SXI":incr++
symbolslistbox2.cell(1,incr)="SXT":incr++
symbolslistbox2.cell(1,incr)="SXTC":incr++
symbolslistbox2.cell(1,incr)="SY":incr++
symbolslistbox2.cell(1,incr)="SYBT":incr++
symbolslistbox2.cell(1,incr)="SYBX":incr++
'symbolslistbox2.cell(1,incr)="SYE":incr++
symbolslistbox2.cell(1,incr)="SYF":incr++
'symbolslistbox2.cell(1,incr)="SYG":incr++
symbolslistbox2.cell(1,incr)="SYK":incr++
'symbolslistbox2.cell(1,incr)="SYKE":incr++
symbolslistbox2.cell(1,incr)="SYLD":incr++
'symbolslistbox2.cell(1,incr)="SYMC":incr++
symbolslistbox2.cell(1,incr)="SYN":incr++
symbolslistbox2.cell(1,incr)="SYNA":incr++
'symbolslistbox2.cell(1,incr)="SYNC":incr++
symbolslistbox2.cell(1,incr)="SYNH":incr++
symbolslistbox2.cell(1,incr)="SYNL":incr++
symbolslistbox2.cell(1,incr)="SYPR":incr++
symbolslistbox2.cell(1,incr)="SYRS":incr++
'symbolslistbox2.cell(1,incr)="SYV":incr++
'symbolslistbox2.cell(1,incr)="SYX":incr++
symbolslistbox2.cell(1,incr)="SYY":incr++
symbolslistbox2.cell(1,incr)="SZC":incr++
symbolslistbox2.cell(1,incr)="SZK":incr++
symbolslistbox2.cell(1,incr)="SZNE":incr++
symbolslistbox2.cell(1,incr)="T":incr++
symbolslistbox2.cell(1,incr)="TA":incr++
symbolslistbox2.cell(1,incr)="TAC":incr++
symbolslistbox2.cell(1,incr)="TACO":incr++
'symbolslistbox2.cell(1,incr)="TACOW":incr++
symbolslistbox2.cell(1,incr)="TACT":incr++
symbolslistbox2.cell(1,incr)="TAGS":incr++
symbolslistbox2.cell(1,incr)="TAIL":incr++
symbolslistbox2.cell(1,incr)="TAIT":incr++
symbolslistbox2.cell(1,incr)="TAK":incr++
symbolslistbox2.cell(1,incr)="TAL":incr++
symbolslistbox2.cell(1,incr)="TALO":incr++
'symbolslistbox2.cell(1,incr)="TALO.W":incr++
symbolslistbox2.cell(1,incr)="TAN":incr++
symbolslistbox2.cell(1,incr)="TANH":incr++
symbolslistbox2.cell(1,incr)="TANNI":incr++
symbolslistbox2.cell(1,incr)="TANNL":incr++
symbolslistbox2.cell(1,incr)="TANNZ":incr++
'symbolslistbox2.cell(1,incr)="TAO":incr++
symbolslistbox2.cell(1,incr)="TAOP":incr++
symbolslistbox2.cell(1,incr)="TAP":incr++
'symbolslistbox2.cell(1,incr)="TAP.A":incr++
'symbolslistbox2.cell(1,incr)="TAPR":incr++
symbolslistbox2.cell(1,incr)="TARO":incr++
symbolslistbox2.cell(1,incr)="TAST":incr++
'symbolslistbox2.cell(1,incr)="TAT":incr++
symbolslistbox2.cell(1,incr)="TATT":incr++
'symbolslistbox2.cell(1,incr)="TAWK":incr++
symbolslistbox2.cell(1,incr)="TAXF":incr++
symbolslistbox2.cell(1,incr)="TAYD":incr++
symbolslistbox2.cell(1,incr)="TBB":incr++
symbolslistbox2.cell(1,incr)="TBBK":incr++
symbolslistbox2.cell(1,incr)="TBC":incr++
symbolslistbox2.cell(1,incr)="TBF":incr++
symbolslistbox2.cell(1,incr)="TBI":incr++
'symbolslistbox2.cell(1,incr)="TBIO":incr++
symbolslistbox2.cell(1,incr)="TBK":incr++
symbolslistbox2.cell(1,incr)="TBLT":incr++
'symbolslistbox2.cell(1,incr)="TBLTU":incr++
'symbolslistbox2.cell(1,incr)="TBLTW":incr++
'symbolslistbox2.cell(1,incr)="TBLU":incr++
'symbolslistbox2.cell(1,incr)="TBND":incr++
symbolslistbox2.cell(1,incr)="TBNK":incr++
symbolslistbox2.cell(1,incr)="TBPH":incr++
symbolslistbox2.cell(1,incr)="TBT":incr++
symbolslistbox2.cell(1,incr)="TBX":incr++
symbolslistbox2.cell(1,incr)="TC":incr++
symbolslistbox2.cell(1,incr)="TCBI":incr++
'symbolslistbox2.cell(1,incr)="TCBIL":incr++
'symbolslistbox2.cell(1,incr)="TCBIP":incr++
symbolslistbox2.cell(1,incr)="TCBK":incr++
symbolslistbox2.cell(1,incr)="TCCO":incr++
symbolslistbox2.cell(1,incr)="TCDA":incr++
'symbolslistbox2.cell(1,incr)="TCF":incr++
symbolslistbox2.cell(1,incr)="TCFC":incr++
'symbolslistbox2.cell(1,incr)="TCFCP":incr++
'symbolslistbox2.cell(1,incr)="TCGP":incr++
symbolslistbox2.cell(1,incr)="TCI":incr++
'symbolslistbox2.cell(1,incr)="TCLD":incr++
symbolslistbox2.cell(1,incr)="TCMD":incr++
'symbolslistbox2.cell(1,incr)="TCO":incr++
'symbolslistbox2.cell(1,incr)="TCO$J":incr++
'symbolslistbox2.cell(1,incr)="TCO$K":incr++
symbolslistbox2.cell(1,incr)="TCON":incr++
'symbolslistbox2.cell(1,incr)="TCP":incr++
symbolslistbox2.cell(1,incr)="TCPC":incr++
'symbolslistbox2.cell(1,incr)="TCRD":incr++
symbolslistbox2.cell(1,incr)="TCRR":incr++
'symbolslistbox2.cell(1,incr)="TCRW":incr++
'symbolslistbox2.cell(1,incr)="TCRZ":incr++
symbolslistbox2.cell(1,incr)="TCS":incr++
symbolslistbox2.cell(1,incr)="TCTL":incr++
symbolslistbox2.cell(1,incr)="TCX":incr++
symbolslistbox2.cell(1,incr)="TD":incr++
'symbolslistbox2.cell(1,incr)="TDA":incr++
'symbolslistbox2.cell(1,incr)="TDAC":incr++
'symbolslistbox2.cell(1,incr)="TDACU":incr++
'symbolslistbox2.cell(1,incr)="TDACW":incr++
symbolslistbox2.cell(1,incr)="TDC":incr++
'symbolslistbox2.cell(1,incr)="TDE":incr++
symbolslistbox2.cell(1,incr)="TDF":incr++
symbolslistbox2.cell(1,incr)="TDG":incr++
'symbolslistbox2.cell(1,incr)="TDI":incr++
symbolslistbox2.cell(1,incr)="TDIV":incr++
'symbolslistbox2.cell(1,incr)="TDJ":incr++
symbolslistbox2.cell(1,incr)="TDOC":incr++
symbolslistbox2.cell(1,incr)="TDS":incr++
symbolslistbox2.cell(1,incr)="TDTF":incr++
symbolslistbox2.cell(1,incr)="TDTT":incr++
symbolslistbox2.cell(1,incr)="TDW":incr++
'symbolslistbox2.cell(1,incr)="TDW.A":incr++
'symbolslistbox2.cell(1,incr)="TDW.B":incr++
'symbolslistbox2.cell(1,incr)="TDW.W":incr++
symbolslistbox2.cell(1,incr)="TDY":incr++
symbolslistbox2.cell(1,incr)="TEAF":incr++
symbolslistbox2.cell(1,incr)="TEAM":incr++
'symbolslistbox2.cell(1,incr)="TECD":incr++
symbolslistbox2.cell(1,incr)="TECH":incr++
symbolslistbox2.cell(1,incr)="TECK":incr++
symbolslistbox2.cell(1,incr)="TECL":incr++
symbolslistbox2.cell(1,incr)="TECS":incr++
symbolslistbox2.cell(1,incr)="TECTP":incr++
symbolslistbox2.cell(1,incr)="TEDU":incr++
symbolslistbox2.cell(1,incr)="TEF":incr++
symbolslistbox2.cell(1,incr)="TEI":incr++
symbolslistbox2.cell(1,incr)="TEL":incr++
symbolslistbox2.cell(1,incr)="TELL":incr++
symbolslistbox2.cell(1,incr)="TEN":incr++
symbolslistbox2.cell(1,incr)="TENB":incr++
symbolslistbox2.cell(1,incr)="TENX":incr++
symbolslistbox2.cell(1,incr)="TEO":incr++
symbolslistbox2.cell(1,incr)="TER":incr++
symbolslistbox2.cell(1,incr)="TERM":incr++
'symbolslistbox2.cell(1,incr)="TERP":incr++
symbolslistbox2.cell(1,incr)="TESS":incr++
symbolslistbox2.cell(1,incr)="TEUM":incr++
symbolslistbox2.cell(1,incr)="TEVA":incr++
symbolslistbox2.cell(1,incr)="TEX":incr++
symbolslistbox2.cell(1,incr)="TFI":incr++
symbolslistbox2.cell(1,incr)="TFIV":incr++
symbolslistbox2.cell(1,incr)="TFLO":incr++
symbolslistbox2.cell(1,incr)="TFLT":incr++
symbolslistbox2.cell(1,incr)="TFSL":incr++
symbolslistbox2.cell(1,incr)="TFX":incr++
symbolslistbox2.cell(1,incr)="TG":incr++
symbolslistbox2.cell(1,incr)="TGA":incr++
symbolslistbox2.cell(1,incr)="TGB":incr++
'symbolslistbox2.cell(1,incr)="TGC":incr++
'symbolslistbox2.cell(1,incr)="TGE":incr++
symbolslistbox2.cell(1,incr)="TGEN":incr++
symbolslistbox2.cell(1,incr)="TGH":incr++
symbolslistbox2.cell(1,incr)="TGI":incr++
symbolslistbox2.cell(1,incr)="TGLS":incr++
symbolslistbox2.cell(1,incr)="TGNA":incr++
symbolslistbox2.cell(1,incr)="TGP":incr++
'symbolslistbox2.cell(1,incr)="TGP$A":incr++
'symbolslistbox2.cell(1,incr)="TGP$B":incr++
symbolslistbox2.cell(1,incr)="TGS":incr++
symbolslistbox2.cell(1,incr)="TGT":incr++
symbolslistbox2.cell(1,incr)="TGTX":incr++
symbolslistbox2.cell(1,incr)="TH":incr++
'symbolslistbox2.cell(1,incr)="THBRU":incr++
symbolslistbox2.cell(1,incr)="THC":incr++
symbolslistbox2.cell(1,incr)="THCA":incr++
'symbolslistbox2.cell(1,incr)="THCAU":incr++
'symbolslistbox2.cell(1,incr)="THCAW":incr++
'symbolslistbox2.cell(1,incr)="THCB":incr++
'symbolslistbox2.cell(1,incr)="THCBU":incr++
'symbolslistbox2.cell(1,incr)="THCBW":incr++
symbolslistbox2.cell(1,incr)="THCX":incr++
symbolslistbox2.cell(1,incr)="THD":incr++
symbolslistbox2.cell(1,incr)="THFF":incr++
symbolslistbox2.cell(1,incr)="THG":incr++
'symbolslistbox2.cell(1,incr)="THGA":incr++
symbolslistbox2.cell(1,incr)="THM":incr++
symbolslistbox2.cell(1,incr)="THO":incr++
'symbolslistbox2.cell(1,incr)="THOR":incr++
symbolslistbox2.cell(1,incr)="THQ":incr++
symbolslistbox2.cell(1,incr)="THR":incr++
symbolslistbox2.cell(1,incr)="THRM":incr++
symbolslistbox2.cell(1,incr)="THS":incr++
symbolslistbox2.cell(1,incr)="THW":incr++
symbolslistbox2.cell(1,incr)="THWWW":incr++
'symbolslistbox2.cell(1,incr)="TIBR":incr++
'symbolslistbox2.cell(1,incr)="TIBRU":incr++
'symbolslistbox2.cell(1,incr)="TIBRW":incr++
'symbolslistbox2.cell(1,incr)="TIF":incr++
symbolslistbox2.cell(1,incr)="TIGO":incr++
symbolslistbox2.cell(1,incr)="TIGR":incr++
symbolslistbox2.cell(1,incr)="TILE":incr++
symbolslistbox2.cell(1,incr)="TILT":incr++
symbolslistbox2.cell(1,incr)="TIP":incr++
symbolslistbox2.cell(1,incr)="TIPT":incr++
symbolslistbox2.cell(1,incr)="TIPX":incr++
symbolslistbox2.cell(1,incr)="TIPZ":incr++
symbolslistbox2.cell(1,incr)="TISI":incr++
symbolslistbox2.cell(1,incr)="TITN":incr++
'symbolslistbox2.cell(1,incr)="TIVO":incr++
symbolslistbox2.cell(1,incr)="TJX":incr++
symbolslistbox2.cell(1,incr)="TK":incr++
symbolslistbox2.cell(1,incr)="TKAT":incr++
symbolslistbox2.cell(1,incr)="TKC":incr++
'symbolslistbox2.cell(1,incr)="TKKS":incr++
'symbolslistbox2.cell(1,incr)="TKKSR":incr++
'symbolslistbox2.cell(1,incr)="TKKSU":incr++
'symbolslistbox2.cell(1,incr)="TKKSW":incr++
symbolslistbox2.cell(1,incr)="TKR":incr++
'symbolslistbox2.cell(1,incr)="TLC":incr++
'symbolslistbox2.cell(1,incr)="TLDH":incr++
'symbolslistbox2.cell(1,incr)="TLEH":incr++
'symbolslistbox2.cell(1,incr)="TLF":incr++
'symbolslistbox2.cell(1,incr)="TLGT":incr++
symbolslistbox2.cell(1,incr)="TLH":incr++
'symbolslistbox2.cell(1,incr)="TLI":incr++
symbolslistbox2.cell(1,incr)="TLK":incr++
'symbolslistbox2.cell(1,incr)="TLND":incr++
'symbolslistbox2.cell(1,incr)="TLRA":incr++
'symbolslistbox2.cell(1,incr)="TLRD":incr++
symbolslistbox2.cell(1,incr)="TLRY":incr++
symbolslistbox2.cell(1,incr)="TLSA":incr++
symbolslistbox2.cell(1,incr)="TLT":incr++
symbolslistbox2.cell(1,incr)="TLTD":incr++
symbolslistbox2.cell(1,incr)="TLTE":incr++
symbolslistbox2.cell(1,incr)="TLYS":incr++
symbolslistbox2.cell(1,incr)="TM":incr++
'symbolslistbox2.cell(1,incr)="TMCX":incr++
'symbolslistbox2.cell(1,incr)="TMCXU":incr++
'symbolslistbox2.cell(1,incr)="TMCXW":incr++
symbolslistbox2.cell(1,incr)="TMDI":incr++
symbolslistbox2.cell(1,incr)="TMDX":incr++
symbolslistbox2.cell(1,incr)="TME":incr++
symbolslistbox2.cell(1,incr)="TMF":incr++
symbolslistbox2.cell(1,incr)="TMFC":incr++
symbolslistbox2.cell(1,incr)="TMHC":incr++
symbolslistbox2.cell(1,incr)="TMO":incr++
symbolslistbox2.cell(1,incr)="TMP":incr++
symbolslistbox2.cell(1,incr)="TMQ":incr++
'symbolslistbox2.cell(1,incr)="TMSR":incr++
symbolslistbox2.cell(1,incr)="TMST":incr++
symbolslistbox2.cell(1,incr)="TMUS":incr++
symbolslistbox2.cell(1,incr)="TMV":incr++
symbolslistbox2.cell(1,incr)="TNA":incr++
'symbolslistbox2.cell(1,incr)="TNAV":incr++
symbolslistbox2.cell(1,incr)="TNC":incr++
symbolslistbox2.cell(1,incr)="TNDM":incr++
symbolslistbox2.cell(1,incr)="TNET":incr++
symbolslistbox2.cell(1,incr)="TNK":incr++
symbolslistbox2.cell(1,incr)="TNP":incr++
'symbolslistbox2.cell(1,incr)="TNP$C":incr++
'symbolslistbox2.cell(1,incr)="TNP$D":incr++
'symbolslistbox2.cell(1,incr)="TNP$E":incr++
'symbolslistbox2.cell(1,incr)="TNP$F":incr++
symbolslistbox2.cell(1,incr)="TNXP":incr++
'symbolslistbox2.cell(1,incr)="TOCA":incr++
symbolslistbox2.cell(1,incr)="TOK":incr++
symbolslistbox2.cell(1,incr)="TOKE":incr++
symbolslistbox2.cell(1,incr)="TOL":incr++
symbolslistbox2.cell(1,incr)="TOLZ":incr++
'symbolslistbox2.cell(1,incr)="TOO":incr++
'symbolslistbox2.cell(1,incr)="TOO$A":incr++
'symbolslistbox2.cell(1,incr)="TOO$B":incr++
'symbolslistbox2.cell(1,incr)="TOO$E":incr++
symbolslistbox2.cell(1,incr)="TOPS":incr++
'symbolslistbox2.cell(1,incr)="TORC":incr++
'symbolslistbox2.cell(1,incr)="TOT":incr++
'symbolslistbox2.cell(1,incr)="TOTA":incr++
'symbolslistbox2.cell(1,incr)="TOTAR":incr++
'symbolslistbox2.cell(1,incr)="TOTAU":incr++
'symbolslistbox2.cell(1,incr)="TOTAW":incr++
symbolslistbox2.cell(1,incr)="TOTL":incr++
symbolslistbox2.cell(1,incr)="TOUR":incr++
symbolslistbox2.cell(1,incr)="TOWN":incr++
'symbolslistbox2.cell(1,incr)="TOWR":incr++
symbolslistbox2.cell(1,incr)="TPAY":incr++
symbolslistbox2.cell(1,incr)="TPB":incr++
symbolslistbox2.cell(1,incr)="TPC":incr++
'symbolslistbox2.cell(1,incr)="TPCO":incr++
'symbolslistbox2.cell(1,incr)="TPGH":incr++
'symbolslistbox2.cell(1,incr)="TPGH.U":incr++
'symbolslistbox2.cell(1,incr)="TPGH.W":incr++
symbolslistbox2.cell(1,incr)="TPH":incr++
symbolslistbox2.cell(1,incr)="TPHD":incr++
symbolslistbox2.cell(1,incr)="TPHS":incr++
symbolslistbox2.cell(1,incr)="TPIC":incr++
symbolslistbox2.cell(1,incr)="TPL":incr++
symbolslistbox2.cell(1,incr)="TPLC":incr++
symbolslistbox2.cell(1,incr)="TPOR":incr++
symbolslistbox2.cell(1,incr)="TPR":incr++
'symbolslistbox2.cell(1,incr)="TPRE":incr++
symbolslistbox2.cell(1,incr)="TPTX":incr++
symbolslistbox2.cell(1,incr)="TPVG":incr++
'symbolslistbox2.cell(1,incr)="TPVY":incr++
symbolslistbox2.cell(1,incr)="TPX":incr++
symbolslistbox2.cell(1,incr)="TPYP":incr++
symbolslistbox2.cell(1,incr)="TPZ":incr++
symbolslistbox2.cell(1,incr)="TQQQ":incr++
symbolslistbox2.cell(1,incr)="TR":incr++
symbolslistbox2.cell(1,incr)="TRC":incr++
'symbolslistbox2.cell(1,incr)="TRCB":incr++
'symbolslistbox2.cell(1,incr)="TRCH":incr++
symbolslistbox2.cell(1,incr)="TREC":incr++
symbolslistbox2.cell(1,incr)="TREE":incr++
symbolslistbox2.cell(1,incr)="TREX":incr++
symbolslistbox2.cell(1,incr)="TRGP":incr++
symbolslistbox2.cell(1,incr)="TRHC":incr++
symbolslistbox2.cell(1,incr)="TRI":incr++
symbolslistbox2.cell(1,incr)="TRIB":incr++
'symbolslistbox2.cell(1,incr)="TRIL":incr++
symbolslistbox2.cell(1,incr)="TRIP":incr++
symbolslistbox2.cell(1,incr)="TRMB":incr++
symbolslistbox2.cell(1,incr)="TRMD":incr++
symbolslistbox2.cell(1,incr)="TRMK":incr++
'symbolslistbox2.cell(1,incr)="TRMT":incr++
symbolslistbox2.cell(1,incr)="TRN":incr++
symbolslistbox2.cell(1,incr)="TRND":incr++
'symbolslistbox2.cell(1,incr)="TRNE":incr++
'symbolslistbox2.cell(1,incr)="TRNE.U":incr++
'symbolslistbox2.cell(1,incr)="TRNE.W":incr++
symbolslistbox2.cell(1,incr)="TRNO":incr++
symbolslistbox2.cell(1,incr)="TRNS":incr++
symbolslistbox2.cell(1,incr)="TRNX":incr++
'symbolslistbox2.cell(1,incr)="TROV":incr++
symbolslistbox2.cell(1,incr)="TROW":incr++
symbolslistbox2.cell(1,incr)="TROX":incr++
'symbolslistbox2.cell(1,incr)="TRP":incr++
'symbolslistbox2.cell(1,incr)="TRPX":incr++
symbolslistbox2.cell(1,incr)="TRQ":incr++
symbolslistbox2.cell(1,incr)="TRS":incr++
symbolslistbox2.cell(1,incr)="TRST":incr++
symbolslistbox2.cell(1,incr)="TRT":incr++
symbolslistbox2.cell(1,incr)="TRTN":incr++
'symbolslistbox2.cell(1,incr)="TRTN$A":incr++
'symbolslistbox2.cell(1,incr)="TRTN$B":incr++
symbolslistbox2.cell(1,incr)="TRTX":incr++
symbolslistbox2.cell(1,incr)="TRTY":incr++
symbolslistbox2.cell(1,incr)="TRU":incr++
symbolslistbox2.cell(1,incr)="TRUE":incr++
symbolslistbox2.cell(1,incr)="TRUP":incr++
symbolslistbox2.cell(1,incr)="TRV":incr++
'symbolslistbox2.cell(1,incr)="TRVG":incr++
symbolslistbox2.cell(1,incr)="TRVI":incr++
symbolslistbox2.cell(1,incr)="TRVN":incr++
'symbolslistbox2.cell(1,incr)="TRWH":incr++
symbolslistbox2.cell(1,incr)="TRX":incr++
'symbolslistbox2.cell(1,incr)="TRXC":incr++
symbolslistbox2.cell(1,incr)="TS":incr++
symbolslistbox2.cell(1,incr)="TSBK":incr++
symbolslistbox2.cell(1,incr)="TSC":incr++
symbolslistbox2.cell(1,incr)="TSCAP":incr++
symbolslistbox2.cell(1,incr)="TSCBP":incr++
symbolslistbox2.cell(1,incr)="TSCO":incr++
symbolslistbox2.cell(1,incr)="TSE":incr++
symbolslistbox2.cell(1,incr)="TSEM":incr++
'symbolslistbox2.cell(1,incr)="TSG":incr++
symbolslistbox2.cell(1,incr)="TSI":incr++
symbolslistbox2.cell(1,incr)="TSLA":incr++
'symbolslistbox2.cell(1,incr)="TSLF":incr++
symbolslistbox2.cell(1,incr)="TSLX":incr++
symbolslistbox2.cell(1,incr)="TSM":incr++
symbolslistbox2.cell(1,incr)="TSN":incr++
symbolslistbox2.cell(1,incr)="TSQ":incr++
symbolslistbox2.cell(1,incr)="TSRI":incr++
'symbolslistbox2.cell(1,incr)="TSU":incr++
symbolslistbox2.cell(1,incr)="TTAC":incr++
symbolslistbox2.cell(1,incr)="TTAI":incr++
symbolslistbox2.cell(1,incr)="TTC":incr++
symbolslistbox2.cell(1,incr)="TTD":incr++
symbolslistbox2.cell(1,incr)="TTEC":incr++
symbolslistbox2.cell(1,incr)="TTEK":incr++
symbolslistbox2.cell(1,incr)="TTGT":incr++
symbolslistbox2.cell(1,incr)="TTI":incr++
symbolslistbox2.cell(1,incr)="TTM":incr++
symbolslistbox2.cell(1,incr)="TTMI":incr++
symbolslistbox2.cell(1,incr)="TTNP":incr++
symbolslistbox2.cell(1,incr)="TTOO":incr++
symbolslistbox2.cell(1,incr)="TTP":incr++
'symbolslistbox2.cell(1,incr)="TTPH":incr++
'symbolslistbox2.cell(1,incr)="TTS":incr++
symbolslistbox2.cell(1,incr)="TTT":incr++
'symbolslistbox2.cell(1,incr)="TTTN":incr++
symbolslistbox2.cell(1,incr)="TTWO":incr++
symbolslistbox2.cell(1,incr)="TU":incr++
'symbolslistbox2.cell(1,incr)="TUES":incr++
symbolslistbox2.cell(1,incr)="TUFN":incr++
symbolslistbox2.cell(1,incr)="TUP":incr++
symbolslistbox2.cell(1,incr)="TUR":incr++
symbolslistbox2.cell(1,incr)="TURN":incr++
symbolslistbox2.cell(1,incr)="TUSA":incr++
symbolslistbox2.cell(1,incr)="TUSK":incr++
'symbolslistbox2.cell(1,incr)="TUZ":incr++
symbolslistbox2.cell(1,incr)="TV":incr++
symbolslistbox2.cell(1,incr)="TVC":incr++
symbolslistbox2.cell(1,incr)="TVE":incr++
'symbolslistbox2.cell(1,incr)="TVIX":incr++
symbolslistbox2.cell(1,incr)="TVTY":incr++
symbolslistbox2.cell(1,incr)="TW":incr++
'symbolslistbox2.cell(1,incr)="TWAR":incr++
symbolslistbox2.cell(1,incr)="TWI":incr++
symbolslistbox2.cell(1,incr)="TWIN":incr++
symbolslistbox2.cell(1,incr)="TWLO":incr++
symbolslistbox2.cell(1,incr)="TWM":incr++
'symbolslistbox2.cell(1,incr)="TWMC":incr++
symbolslistbox2.cell(1,incr)="TWN":incr++
symbolslistbox2.cell(1,incr)="TWNK":incr++
symbolslistbox2.cell(1,incr)="TWNKW":incr++
symbolslistbox2.cell(1,incr)="TWO":incr++
'symbolslistbox2.cell(1,incr)="TWO$A":incr++
'symbolslistbox2.cell(1,incr)="TWO$B":incr++
'symbolslistbox2.cell(1,incr)="TWO$C":incr++
'symbolslistbox2.cell(1,incr)="TWO$D":incr++
'symbolslistbox2.cell(1,incr)="TWO$E":incr++
symbolslistbox2.cell(1,incr)="TWOU":incr++
symbolslistbox2.cell(1,incr)="TWST":incr++
symbolslistbox2.cell(1,incr)="TWTR":incr++
symbolslistbox2.cell(1,incr)="TX":incr++
symbolslistbox2.cell(1,incr)="TXG":incr++
symbolslistbox2.cell(1,incr)="TXMD":incr++
symbolslistbox2.cell(1,incr)="TXN":incr++
symbolslistbox2.cell(1,incr)="TXRH":incr++
symbolslistbox2.cell(1,incr)="TXT":incr++
symbolslistbox2.cell(1,incr)="TY":incr++
'symbolslistbox2.cell(1,incr)="TY$":incr++
'symbolslistbox2.cell(1,incr)="TYBS":incr++
symbolslistbox2.cell(1,incr)="TYD":incr++
symbolslistbox2.cell(1,incr)="TYG":incr++
'symbolslistbox2.cell(1,incr)="TYHT":incr++
symbolslistbox2.cell(1,incr)="TYL":incr++
symbolslistbox2.cell(1,incr)="TYME":incr++
'symbolslistbox2.cell(1,incr)="TYNS":incr++
symbolslistbox2.cell(1,incr)="TYO":incr++
'symbolslistbox2.cell(1,incr)="TYPE":incr++
symbolslistbox2.cell(1,incr)="TZA":incr++
'symbolslistbox2.cell(1,incr)="TZAC":incr++
'symbolslistbox2.cell(1,incr)="TZACU":incr++
'symbolslistbox2.cell(1,incr)="TZACW":incr++
symbolslistbox2.cell(1,incr)="TZOO":incr++
symbolslistbox2.cell(1,incr)="U":incr++
symbolslistbox2.cell(1,incr)="UA":incr++
symbolslistbox2.cell(1,incr)="UAA":incr++
symbolslistbox2.cell(1,incr)="UAE":incr++
'symbolslistbox2.cell(1,incr)="UAG":incr++
symbolslistbox2.cell(1,incr)="UAL":incr++
symbolslistbox2.cell(1,incr)="UAMY":incr++
symbolslistbox2.cell(1,incr)="UAN":incr++
symbolslistbox2.cell(1,incr)="UAPR":incr++
'symbolslistbox2.cell(1,incr)="UAUD":incr++
symbolslistbox2.cell(1,incr)="UAUG":incr++
symbolslistbox2.cell(1,incr)="UAVS":incr++
symbolslistbox2.cell(1,incr)="UBA":incr++
symbolslistbox2.cell(1,incr)="UBCP":incr++
symbolslistbox2.cell(1,incr)="UBER":incr++
symbolslistbox2.cell(1,incr)="UBFO":incr++
'symbolslistbox2.cell(1,incr)="UBG":incr++
'symbolslistbox2.cell(1,incr)="UBIO":incr++
'symbolslistbox2.cell(1,incr)="UBNK":incr++
symbolslistbox2.cell(1,incr)="UBOH":incr++
symbolslistbox2.cell(1,incr)="UBOT":incr++
symbolslistbox2.cell(1,incr)="UBP":incr++
'symbolslistbox2.cell(1,incr)="UBP$G":incr++
'symbolslistbox2.cell(1,incr)="UBP$H":incr++
symbolslistbox2.cell(1,incr)="UBR":incr++
symbolslistbox2.cell(1,incr)="UBS":incr++
symbolslistbox2.cell(1,incr)="UBSI":incr++
symbolslistbox2.cell(1,incr)="UBT":incr++
symbolslistbox2.cell(1,incr)="UBX":incr++
symbolslistbox2.cell(1,incr)="UCBI":incr++
symbolslistbox2.cell(1,incr)="UCC":incr++
'symbolslistbox2.cell(1,incr)="UCFC":incr++
'symbolslistbox2.cell(1,incr)="UCHF":incr++
'symbolslistbox2.cell(1,incr)="UCI":incr++
symbolslistbox2.cell(1,incr)="UCIB":incr++
symbolslistbox2.cell(1,incr)="UCO":incr++
'symbolslistbox2.cell(1,incr)="UCOM":incr++
symbolslistbox2.cell(1,incr)="UCON":incr++
symbolslistbox2.cell(1,incr)="UCTT":incr++
symbolslistbox2.cell(1,incr)="UDN":incr++
symbolslistbox2.cell(1,incr)="UDOW":incr++
symbolslistbox2.cell(1,incr)="UDR":incr++
symbolslistbox2.cell(1,incr)="UE":incr++
symbolslistbox2.cell(1,incr)="UEC":incr++
symbolslistbox2.cell(1,incr)="UEIC":incr++
symbolslistbox2.cell(1,incr)="UEPS":incr++
'symbolslistbox2.cell(1,incr)="UEUR":incr++
symbolslistbox2.cell(1,incr)="UEVM":incr++
symbolslistbox2.cell(1,incr)="UFAB":incr++
symbolslistbox2.cell(1,incr)="UFCS":incr++
symbolslistbox2.cell(1,incr)="UFI":incr++
symbolslistbox2.cell(1,incr)="UFO":incr++
symbolslistbox2.cell(1,incr)="UFPI":incr++
symbolslistbox2.cell(1,incr)="UFPT":incr++
'symbolslistbox2.cell(1,incr)="UFS":incr++
symbolslistbox2.cell(1,incr)="UG":incr++
symbolslistbox2.cell(1,incr)="UGA":incr++
'symbolslistbox2.cell(1,incr)="UGAZ":incr++
'symbolslistbox2.cell(1,incr)="UGBP":incr++
symbolslistbox2.cell(1,incr)="UGE":incr++
symbolslistbox2.cell(1,incr)="UGI":incr++
symbolslistbox2.cell(1,incr)="UGL":incr++
'symbolslistbox2.cell(1,incr)="UGLD":incr++
symbolslistbox2.cell(1,incr)="UGP":incr++
symbolslistbox2.cell(1,incr)="UHAL":incr++
symbolslistbox2.cell(1,incr)="UHS":incr++
symbolslistbox2.cell(1,incr)="UHT":incr++
symbolslistbox2.cell(1,incr)="UI":incr++
symbolslistbox2.cell(1,incr)="UIHC":incr++
symbolslistbox2.cell(1,incr)="UIS":incr++
symbolslistbox2.cell(1,incr)="UITB":incr++
symbolslistbox2.cell(1,incr)="UIVM":incr++
symbolslistbox2.cell(1,incr)="UJAN":incr++
symbolslistbox2.cell(1,incr)="UJB":incr++
'symbolslistbox2.cell(1,incr)="UJPY":incr++
symbolslistbox2.cell(1,incr)="UJUL":incr++
symbolslistbox2.cell(1,incr)="UJUN":incr++
symbolslistbox2.cell(1,incr)="UL":incr++
symbolslistbox2.cell(1,incr)="ULBI":incr++
'symbolslistbox2.cell(1,incr)="ULBR":incr++
symbolslistbox2.cell(1,incr)="ULE":incr++
symbolslistbox2.cell(1,incr)="ULH":incr++
symbolslistbox2.cell(1,incr)="ULST":incr++
symbolslistbox2.cell(1,incr)="ULTA":incr++
symbolslistbox2.cell(1,incr)="ULTR":incr++
symbolslistbox2.cell(1,incr)="ULVM":incr++
symbolslistbox2.cell(1,incr)="UMBF":incr++
symbolslistbox2.cell(1,incr)="UMC":incr++
symbolslistbox2.cell(1,incr)="UMDD":incr++
symbolslistbox2.cell(1,incr)="UMH":incr++
'symbolslistbox2.cell(1,incr)="UMH$B":incr++
'symbolslistbox2.cell(1,incr)="UMH$C":incr++
'symbolslistbox2.cell(1,incr)="UMH$D":incr++
symbolslistbox2.cell(1,incr)="UMPQ":incr++
'symbolslistbox2.cell(1,incr)="UMRX":incr++
'symbolslistbox2.cell(1,incr)="UN":incr++
symbolslistbox2.cell(1,incr)="UNAM":incr++
symbolslistbox2.cell(1,incr)="UNB":incr++
symbolslistbox2.cell(1,incr)="UNF":incr++
symbolslistbox2.cell(1,incr)="UNFI":incr++
symbolslistbox2.cell(1,incr)="UNG":incr++
symbolslistbox2.cell(1,incr)="UNH":incr++
symbolslistbox2.cell(1,incr)="UNIT":incr++
symbolslistbox2.cell(1,incr)="UNL":incr++
symbolslistbox2.cell(1,incr)="UNM":incr++
symbolslistbox2.cell(1,incr)="UNMA":incr++
symbolslistbox2.cell(1,incr)="UNP":incr++
'symbolslistbox2.cell(1,incr)="UNT":incr++
symbolslistbox2.cell(1,incr)="UNTY":incr++
symbolslistbox2.cell(1,incr)="UNVR":incr++
symbolslistbox2.cell(1,incr)="UOCT":incr++
symbolslistbox2.cell(1,incr)="UONE":incr++
symbolslistbox2.cell(1,incr)="UONEK":incr++
symbolslistbox2.cell(1,incr)="UPLD":incr++
symbolslistbox2.cell(1,incr)="UPRO":incr++
symbolslistbox2.cell(1,incr)="UPS":incr++
symbolslistbox2.cell(1,incr)="UPV":incr++
symbolslistbox2.cell(1,incr)="UPW":incr++
symbolslistbox2.cell(1,incr)="UPWK":incr++
symbolslistbox2.cell(1,incr)="URA":incr++
symbolslistbox2.cell(1,incr)="URBN":incr++
symbolslistbox2.cell(1,incr)="URE":incr++
symbolslistbox2.cell(1,incr)="URG":incr++
symbolslistbox2.cell(1,incr)="URGN":incr++
symbolslistbox2.cell(1,incr)="URI":incr++
'symbolslistbox2.cell(1,incr)="UROV":incr++
'symbolslistbox2.cell(1,incr)="URR":incr++
symbolslistbox2.cell(1,incr)="URTH":incr++
symbolslistbox2.cell(1,incr)="URTY":incr++
symbolslistbox2.cell(1,incr)="USA":incr++
symbolslistbox2.cell(1,incr)="USAC":incr++
symbolslistbox2.cell(1,incr)="USAI":incr++
symbolslistbox2.cell(1,incr)="USAK":incr++
symbolslistbox2.cell(1,incr)="USAP":incr++
symbolslistbox2.cell(1,incr)="USAS":incr++
symbolslistbox2.cell(1,incr)="USAU":incr++
symbolslistbox2.cell(1,incr)="USB":incr++
'symbolslistbox2.cell(1,incr)="USB$A":incr++
'symbolslistbox2.cell(1,incr)="USB$H":incr++
'symbolslistbox2.cell(1,incr)="USB$M":incr++
'symbolslistbox2.cell(1,incr)="USB$O":incr++
'symbolslistbox2.cell(1,incr)="USB$P":incr++
symbolslistbox2.cell(1,incr)="USCI":incr++
'symbolslistbox2.cell(1,incr)="USCR":incr++
symbolslistbox2.cell(1,incr)="USD":incr++
symbolslistbox2.cell(1,incr)="USDP":incr++
symbolslistbox2.cell(1,incr)="USDU":incr++
'symbolslistbox2.cell(1,incr)="USDY":incr++
symbolslistbox2.cell(1,incr)="USEG":incr++
symbolslistbox2.cell(1,incr)="USEP":incr++
symbolslistbox2.cell(1,incr)="USEQ":incr++
symbolslistbox2.cell(1,incr)="USFD":incr++
symbolslistbox2.cell(1,incr)="USFR":incr++
'symbolslistbox2.cell(1,incr)="USHG":incr++
symbolslistbox2.cell(1,incr)="USHY":incr++
symbolslistbox2.cell(1,incr)="USI":incr++
symbolslistbox2.cell(1,incr)="USIG":incr++
symbolslistbox2.cell(1,incr)="USIO":incr++
symbolslistbox2.cell(1,incr)="USL":incr++
symbolslistbox2.cell(1,incr)="USLB":incr++
symbolslistbox2.cell(1,incr)="USLM":incr++
'symbolslistbox2.cell(1,incr)="USLV":incr++
symbolslistbox2.cell(1,incr)="USM":incr++
symbolslistbox2.cell(1,incr)="USMC":incr++
symbolslistbox2.cell(1,incr)="USMF":incr++
symbolslistbox2.cell(1,incr)="USMV":incr++
symbolslistbox2.cell(1,incr)="USNA":incr++
symbolslistbox2.cell(1,incr)="USO":incr++
'symbolslistbox2.cell(1,incr)="USOD":incr++
symbolslistbox2.cell(1,incr)="USOI":incr++
'symbolslistbox2.cell(1,incr)="USOU":incr++
symbolslistbox2.cell(1,incr)="USPH":incr++
symbolslistbox2.cell(1,incr)="USRT":incr++
symbolslistbox2.cell(1,incr)="USSG":incr++
symbolslistbox2.cell(1,incr)="UST":incr++
symbolslistbox2.cell(1,incr)="USTB":incr++
'symbolslistbox2.cell(1,incr)="USV":incr++
symbolslistbox2.cell(1,incr)="USVM":incr++
symbolslistbox2.cell(1,incr)="USWS":incr++
symbolslistbox2.cell(1,incr)="USWSW":incr++
symbolslistbox2.cell(1,incr)="USX":incr++
symbolslistbox2.cell(1,incr)="UTES":incr++
symbolslistbox2.cell(1,incr)="UTF":incr++
symbolslistbox2.cell(1,incr)="UTG":incr++
symbolslistbox2.cell(1,incr)="UTHR":incr++
symbolslistbox2.cell(1,incr)="UTI":incr++
symbolslistbox2.cell(1,incr)="UTL":incr++
symbolslistbox2.cell(1,incr)="UTMD":incr++
symbolslistbox2.cell(1,incr)="UTRN":incr++
symbolslistbox2.cell(1,incr)="UTSI":incr++
symbolslistbox2.cell(1,incr)="UTSL":incr++
'symbolslistbox2.cell(1,incr)="UTX":incr++
symbolslistbox2.cell(1,incr)="UUP":incr++
symbolslistbox2.cell(1,incr)="UUU":incr++
symbolslistbox2.cell(1,incr)="UUUU":incr++
'symbolslistbox2.cell(1,incr)="UUUU.W":incr++
symbolslistbox2.cell(1,incr)="UVE":incr++
symbolslistbox2.cell(1,incr)="UVSP":incr++
symbolslistbox2.cell(1,incr)="UVV":incr++
symbolslistbox2.cell(1,incr)="UVXY":incr++
symbolslistbox2.cell(1,incr)="UWM":incr++
'symbolslistbox2.cell(1,incr)="UWT":incr++
symbolslistbox2.cell(1,incr)="UXI":incr++
symbolslistbox2.cell(1,incr)="UXIN":incr++
symbolslistbox2.cell(1,incr)="UYG":incr++
symbolslistbox2.cell(1,incr)="UYM":incr++
'symbolslistbox2.cell(1,incr)="UZA":incr++
'symbolslistbox2.cell(1,incr)="UZB":incr++
'symbolslistbox2.cell(1,incr)="UZC":incr++
symbolslistbox2.cell(1,incr)="V":incr++
symbolslistbox2.cell(1,incr)="VAC":incr++
symbolslistbox2.cell(1,incr)="VAL":incr++
symbolslistbox2.cell(1,incr)="VALE":incr++
symbolslistbox2.cell(1,incr)="VALQ":incr++
symbolslistbox2.cell(1,incr)="VALU":incr++
'symbolslistbox2.cell(1,incr)="VALX":incr++
'symbolslistbox2.cell(1,incr)="VAM":incr++
symbolslistbox2.cell(1,incr)="VAMO":incr++
symbolslistbox2.cell(1,incr)="VAPO":incr++
'symbolslistbox2.cell(1,incr)="VAR":incr++
symbolslistbox2.cell(1,incr)="VAW":incr++
symbolslistbox2.cell(1,incr)="VB":incr++
symbolslistbox2.cell(1,incr)="VBF":incr++
symbolslistbox2.cell(1,incr)="VBFC":incr++
symbolslistbox2.cell(1,incr)="VBIV":incr++
symbolslistbox2.cell(1,incr)="VBK":incr++
symbolslistbox2.cell(1,incr)="VBLT":incr++
symbolslistbox2.cell(1,incr)="VBND":incr++
symbolslistbox2.cell(1,incr)="VBR":incr++
symbolslistbox2.cell(1,incr)="VBTX":incr++
symbolslistbox2.cell(1,incr)="VC":incr++
symbolslistbox2.cell(1,incr)="VCEL":incr++
symbolslistbox2.cell(1,incr)="VCF":incr++
symbolslistbox2.cell(1,incr)="VCIF":incr++
symbolslistbox2.cell(1,incr)="VCIT":incr++
symbolslistbox2.cell(1,incr)="VCLT":incr++
symbolslistbox2.cell(1,incr)="VCNX":incr++
symbolslistbox2.cell(1,incr)="VCR":incr++
symbolslistbox2.cell(1,incr)="VCRA":incr++
symbolslistbox2.cell(1,incr)="VCSH":incr++
symbolslistbox2.cell(1,incr)="VCTR":incr++
symbolslistbox2.cell(1,incr)="VCV":incr++
symbolslistbox2.cell(1,incr)="VCYT":incr++
symbolslistbox2.cell(1,incr)="VDC":incr++
symbolslistbox2.cell(1,incr)="VDE":incr++
symbolslistbox2.cell(1,incr)="VEA":incr++
symbolslistbox2.cell(1,incr)="VEC":incr++
symbolslistbox2.cell(1,incr)="VECO":incr++
'symbolslistbox2.cell(1,incr)="VEDL":incr++
symbolslistbox2.cell(1,incr)="VEEV":incr++
symbolslistbox2.cell(1,incr)="VEGA":incr++
symbolslistbox2.cell(1,incr)="VEGI":incr++
symbolslistbox2.cell(1,incr)="VEGN":incr++
symbolslistbox2.cell(1,incr)="VEON":incr++
'symbolslistbox2.cell(1,incr)="VER":incr++
'symbolslistbox2.cell(1,incr)="VER$F":incr++
symbolslistbox2.cell(1,incr)="VERB":incr++
symbolslistbox2.cell(1,incr)="VERBW":incr++
symbolslistbox2.cell(1,incr)="VERI":incr++
symbolslistbox2.cell(1,incr)="VERU":incr++
symbolslistbox2.cell(1,incr)="VERY":incr++
symbolslistbox2.cell(1,incr)="VET":incr++
symbolslistbox2.cell(1,incr)="VETS":incr++
symbolslistbox2.cell(1,incr)="VEU":incr++
symbolslistbox2.cell(1,incr)="VFC":incr++
symbolslistbox2.cell(1,incr)="VFF":incr++
symbolslistbox2.cell(1,incr)="VFH":incr++
symbolslistbox2.cell(1,incr)="VFL":incr++
symbolslistbox2.cell(1,incr)="VFLQ":incr++
symbolslistbox2.cell(1,incr)="VFMF":incr++
symbolslistbox2.cell(1,incr)="VFMO":incr++
symbolslistbox2.cell(1,incr)="VFMV":incr++
symbolslistbox2.cell(1,incr)="VFQY":incr++
symbolslistbox2.cell(1,incr)="VFVA":incr++
symbolslistbox2.cell(1,incr)="VG":incr++
'symbolslistbox2.cell(1,incr)="VGFO":incr++
symbolslistbox2.cell(1,incr)="VGI":incr++
symbolslistbox2.cell(1,incr)="VGIT":incr++
symbolslistbox2.cell(1,incr)="VGK":incr++
symbolslistbox2.cell(1,incr)="VGLT":incr++
symbolslistbox2.cell(1,incr)="VGM":incr++
symbolslistbox2.cell(1,incr)="VGR":incr++
symbolslistbox2.cell(1,incr)="VGSH":incr++
symbolslistbox2.cell(1,incr)="VGT":incr++
symbolslistbox2.cell(1,incr)="VGZ":incr++
symbolslistbox2.cell(1,incr)="VHC":incr++
symbolslistbox2.cell(1,incr)="VHI":incr++
symbolslistbox2.cell(1,incr)="VHT":incr++
symbolslistbox2.cell(1,incr)="VIA":incr++
'symbolslistbox2.cell(1,incr)="VIAB":incr++
symbolslistbox2.cell(1,incr)="VIAV":incr++
symbolslistbox2.cell(1,incr)="VICI":incr++
symbolslistbox2.cell(1,incr)="VICR":incr++
'symbolslistbox2.cell(1,incr)="VIDG":incr++
symbolslistbox2.cell(1,incr)="VIDI":incr++
symbolslistbox2.cell(1,incr)="VIG":incr++
symbolslistbox2.cell(1,incr)="VIGI":incr++
'symbolslistbox2.cell(1,incr)="VIIX":incr++
symbolslistbox2.cell(1,incr)="VIOG":incr++
symbolslistbox2.cell(1,incr)="VIOO":incr++
symbolslistbox2.cell(1,incr)="VIOT":incr++
symbolslistbox2.cell(1,incr)="VIOV":incr++
symbolslistbox2.cell(1,incr)="VIPS":incr++
symbolslistbox2.cell(1,incr)="VIRC":incr++
symbolslistbox2.cell(1,incr)="VIRT":incr++
symbolslistbox2.cell(1,incr)="VIS":incr++
symbolslistbox2.cell(1,incr)="VISL":incr++
symbolslistbox2.cell(1,incr)="VIST":incr++
symbolslistbox2.cell(1,incr)="VIV":incr++
symbolslistbox2.cell(1,incr)="VIVE":incr++
symbolslistbox2.cell(1,incr)="VIVO":incr++
symbolslistbox2.cell(1,incr)="VIXM":incr++
symbolslistbox2.cell(1,incr)="VIXY":incr++
symbolslistbox2.cell(1,incr)="VJET":incr++
symbolslistbox2.cell(1,incr)="VKI":incr++
symbolslistbox2.cell(1,incr)="VKQ":incr++
symbolslistbox2.cell(1,incr)="VKTX":incr++
'symbolslistbox2.cell(1,incr)="VKTXW":incr++
symbolslistbox2.cell(1,incr)="VLGEA":incr++
symbolslistbox2.cell(1,incr)="VLO":incr++
symbolslistbox2.cell(1,incr)="VLRS":incr++
'symbolslistbox2.cell(1,incr)="VLRX":incr++
symbolslistbox2.cell(1,incr)="VLT":incr++
symbolslistbox2.cell(1,incr)="VLU":incr++
symbolslistbox2.cell(1,incr)="VLUE":incr++
symbolslistbox2.cell(1,incr)="VLY":incr++
symbolslistbox2.cell(1,incr)="VLYPO":incr++
symbolslistbox2.cell(1,incr)="VLYPP":incr++
symbolslistbox2.cell(1,incr)="VMBS":incr++
symbolslistbox2.cell(1,incr)="VMC":incr++
symbolslistbox2.cell(1,incr)="VMD":incr++
symbolslistbox2.cell(1,incr)="VMI":incr++
symbolslistbox2.cell(1,incr)="VMM":incr++
symbolslistbox2.cell(1,incr)="VMO":incr++
symbolslistbox2.cell(1,incr)="VMOT":incr++
symbolslistbox2.cell(1,incr)="VMW":incr++
symbolslistbox2.cell(1,incr)="VNCE":incr++
symbolslistbox2.cell(1,incr)="VNDA":incr++
symbolslistbox2.cell(1,incr)="VNE":incr++
symbolslistbox2.cell(1,incr)="VNET":incr++
symbolslistbox2.cell(1,incr)="VNLA":incr++
symbolslistbox2.cell(1,incr)="VNM":incr++
symbolslistbox2.cell(1,incr)="VNO":incr++
'symbolslistbox2.cell(1,incr)="VNO$K":incr++
'symbolslistbox2.cell(1,incr)="VNO$L":incr++
'symbolslistbox2.cell(1,incr)="VNO$M":incr++
symbolslistbox2.cell(1,incr)="VNOM":incr++
symbolslistbox2.cell(1,incr)="VNQ":incr++
symbolslistbox2.cell(1,incr)="VNQI":incr++
symbolslistbox2.cell(1,incr)="VNRX":incr++
symbolslistbox2.cell(1,incr)="VNTR":incr++
symbolslistbox2.cell(1,incr)="VO":incr++
symbolslistbox2.cell(1,incr)="VOC":incr++
symbolslistbox2.cell(1,incr)="VOD":incr++
symbolslistbox2.cell(1,incr)="VOE":incr++
symbolslistbox2.cell(1,incr)="VOLT":incr++
symbolslistbox2.cell(1,incr)="VONE":incr++
symbolslistbox2.cell(1,incr)="VONG":incr++
symbolslistbox2.cell(1,incr)="VONV":incr++
symbolslistbox2.cell(1,incr)="VOO":incr++
symbolslistbox2.cell(1,incr)="VOOG":incr++
symbolslistbox2.cell(1,incr)="VOOV":incr++
symbolslistbox2.cell(1,incr)="VOT":incr++
symbolslistbox2.cell(1,incr)="VOX":incr++
symbolslistbox2.cell(1,incr)="VOXX":incr++
symbolslistbox2.cell(1,incr)="VOYA":incr++
'symbolslistbox2.cell(1,incr)="VOYA$B":incr++
symbolslistbox2.cell(1,incr)="VPC":incr++
symbolslistbox2.cell(1,incr)="VPG":incr++
symbolslistbox2.cell(1,incr)="VPL":incr++
symbolslistbox2.cell(1,incr)="VPU":incr++
symbolslistbox2.cell(1,incr)="VPV":incr++
'symbolslistbox2.cell(1,incr)="VQT":incr++
symbolslistbox2.cell(1,incr)="VRA":incr++
symbolslistbox2.cell(1,incr)="VRAI":incr++
symbolslistbox2.cell(1,incr)="VRAY":incr++
symbolslistbox2.cell(1,incr)="VRCA":incr++
symbolslistbox2.cell(1,incr)="VREX":incr++
symbolslistbox2.cell(1,incr)="VRIG":incr++
'symbolslistbox2.cell(1,incr)="VRML":incr++
symbolslistbox2.cell(1,incr)="VRNA":incr++
symbolslistbox2.cell(1,incr)="VRNS":incr++
symbolslistbox2.cell(1,incr)="VRNT":incr++
symbolslistbox2.cell(1,incr)="VRP":incr++
symbolslistbox2.cell(1,incr)="VRRM":incr++
symbolslistbox2.cell(1,incr)="VRS":incr++
symbolslistbox2.cell(1,incr)="VRSK":incr++
symbolslistbox2.cell(1,incr)="VRSN":incr++
symbolslistbox2.cell(1,incr)="VRTS":incr++
'symbolslistbox2.cell(1,incr)="VRTSP":incr++
'symbolslistbox2.cell(1,incr)="VRTU":incr++
symbolslistbox2.cell(1,incr)="VRTV":incr++
symbolslistbox2.cell(1,incr)="VRTX":incr++
symbolslistbox2.cell(1,incr)="VSAT":incr++
symbolslistbox2.cell(1,incr)="VSDA":incr++
symbolslistbox2.cell(1,incr)="VSEC":incr++
symbolslistbox2.cell(1,incr)="VSGX":incr++
symbolslistbox2.cell(1,incr)="VSH":incr++
'symbolslistbox2.cell(1,incr)="VSI":incr++
symbolslistbox2.cell(1,incr)="VSL":incr++
'symbolslistbox2.cell(1,incr)="VSLR":incr++
'symbolslistbox2.cell(1,incr)="VSM":incr++
symbolslistbox2.cell(1,incr)="VSMV":incr++
symbolslistbox2.cell(1,incr)="VSS":incr++
symbolslistbox2.cell(1,incr)="VST":incr++
'symbolslistbox2.cell(1,incr)="VST.A":incr++
symbolslistbox2.cell(1,incr)="VSTM":incr++
symbolslistbox2.cell(1,incr)="VSTO":incr++
symbolslistbox2.cell(1,incr)="VT":incr++
'symbolslistbox2.cell(1,incr)="VTA":incr++
symbolslistbox2.cell(1,incr)="VTC":incr++
symbolslistbox2.cell(1,incr)="VTEB":incr++
symbolslistbox2.cell(1,incr)="VTGN":incr++
symbolslistbox2.cell(1,incr)="VTHR":incr++
symbolslistbox2.cell(1,incr)="VTI":incr++
symbolslistbox2.cell(1,incr)="VTIP":incr++
'symbolslistbox2.cell(1,incr)="VTIQ":incr++
'symbolslistbox2.cell(1,incr)="VTIQU":incr++
'symbolslistbox2.cell(1,incr)="VTIQW":incr++
symbolslistbox2.cell(1,incr)="VTN":incr++
symbolslistbox2.cell(1,incr)="VTNR":incr++
symbolslistbox2.cell(1,incr)="VTR":incr++
symbolslistbox2.cell(1,incr)="VTRU":incr++
symbolslistbox2.cell(1,incr)="VTSI":incr++
symbolslistbox2.cell(1,incr)="VTV":incr++
symbolslistbox2.cell(1,incr)="VTVT":incr++
symbolslistbox2.cell(1,incr)="VTWG":incr++
symbolslistbox2.cell(1,incr)="VTWO":incr++
symbolslistbox2.cell(1,incr)="VTWV":incr++
symbolslistbox2.cell(1,incr)="VUG":incr++
symbolslistbox2.cell(1,incr)="VUSE":incr++
symbolslistbox2.cell(1,incr)="VUZI":incr++
symbolslistbox2.cell(1,incr)="VV":incr++
symbolslistbox2.cell(1,incr)="VVI":incr++
symbolslistbox2.cell(1,incr)="VVPR":incr++
symbolslistbox2.cell(1,incr)="VVR":incr++
'symbolslistbox2.cell(1,incr)="VVUS":incr++
symbolslistbox2.cell(1,incr)="VVV":incr++
symbolslistbox2.cell(1,incr)="VWO":incr++
symbolslistbox2.cell(1,incr)="VWOB":incr++
symbolslistbox2.cell(1,incr)="VXF":incr++
symbolslistbox2.cell(1,incr)="VXRT":incr++
symbolslistbox2.cell(1,incr)="VXUS":incr++
symbolslistbox2.cell(1,incr)="VXX":incr++
symbolslistbox2.cell(1,incr)="VXZ":incr++
symbolslistbox2.cell(1,incr)="VYGR":incr++
symbolslistbox2.cell(1,incr)="VYM":incr++
symbolslistbox2.cell(1,incr)="VYMI":incr++
symbolslistbox2.cell(1,incr)="VZ":incr++
symbolslistbox2.cell(1,incr)="W":incr++
'symbolslistbox2.cell(1,incr)="WAAS":incr++
symbolslistbox2.cell(1,incr)="WAB":incr++
symbolslistbox2.cell(1,incr)="WABC":incr++
symbolslistbox2.cell(1,incr)="WAFD":incr++
symbolslistbox2.cell(1,incr)="WAFU":incr++
'symbolslistbox2.cell(1,incr)="WAIR":incr++
symbolslistbox2.cell(1,incr)="WAL":incr++
symbolslistbox2.cell(1,incr)="WALA":incr++
symbolslistbox2.cell(1,incr)="WANT":incr++
symbolslistbox2.cell(1,incr)="WASH":incr++
symbolslistbox2.cell(1,incr)="WAT":incr++
symbolslistbox2.cell(1,incr)="WATT":incr++
symbolslistbox2.cell(1,incr)="WB":incr++
symbolslistbox2.cell(1,incr)="WBA":incr++
'symbolslistbox2.cell(1,incr)="WBAI":incr++
'symbolslistbox2.cell(1,incr)="WBAL":incr++
'symbolslistbox2.cell(1,incr)="WBC":incr++
'symbolslistbox2.cell(1,incr)="WBIA":incr++
'symbolslistbox2.cell(1,incr)="WBIB":incr++
'symbolslistbox2.cell(1,incr)="WBIC":incr++
'symbolslistbox2.cell(1,incr)="WBID":incr++
'symbolslistbox2.cell(1,incr)="WBIE":incr++
symbolslistbox2.cell(1,incr)="WBIF":incr++
symbolslistbox2.cell(1,incr)="WBIG":incr++
symbolslistbox2.cell(1,incr)="WBII":incr++
symbolslistbox2.cell(1,incr)="WBIL":incr++
'symbolslistbox2.cell(1,incr)="WBIN":incr++
symbolslistbox2.cell(1,incr)="WBIT":incr++
symbolslistbox2.cell(1,incr)="WBIY":incr++
symbolslistbox2.cell(1,incr)="WBK":incr++
symbolslistbox2.cell(1,incr)="WBND":incr++
symbolslistbox2.cell(1,incr)="WBS":incr++
'symbolslistbox2.cell(1,incr)="WBS$F":incr++
symbolslistbox2.cell(1,incr)="WBT":incr++
symbolslistbox2.cell(1,incr)="WCC":incr++
'symbolslistbox2.cell(1,incr)="WCG":incr++
'symbolslistbox2.cell(1,incr)="WCHN":incr++
symbolslistbox2.cell(1,incr)="WCLD":incr++
symbolslistbox2.cell(1,incr)="WCN":incr++
symbolslistbox2.cell(1,incr)="WD":incr++
symbolslistbox2.cell(1,incr)="WDAY":incr++
symbolslistbox2.cell(1,incr)="WDC":incr++
symbolslistbox2.cell(1,incr)="WDFC":incr++
symbolslistbox2.cell(1,incr)="WDIV":incr++
'symbolslistbox2.cell(1,incr)="WDR":incr++
'symbolslistbox2.cell(1,incr)="WDRW":incr++
symbolslistbox2.cell(1,incr)="WEA":incr++
symbolslistbox2.cell(1,incr)="WEAT":incr++
'symbolslistbox2.cell(1,incr)="WEBK":incr++
symbolslistbox2.cell(1,incr)="WEC":incr++
symbolslistbox2.cell(1,incr)="WEI":incr++
symbolslistbox2.cell(1,incr)="WELL":incr++
symbolslistbox2.cell(1,incr)="WEN":incr++
symbolslistbox2.cell(1,incr)="WERN":incr++
symbolslistbox2.cell(1,incr)="WES":incr++
symbolslistbox2.cell(1,incr)="WETF":incr++
symbolslistbox2.cell(1,incr)="WEX":incr++
symbolslistbox2.cell(1,incr)="WEYS":incr++
symbolslistbox2.cell(1,incr)="WF":incr++
symbolslistbox2.cell(1,incr)="WFC":incr++
'symbolslistbox2.cell(1,incr)="WFC$L":incr++
'symbolslistbox2.cell(1,incr)="WFC$N":incr++
'symbolslistbox2.cell(1,incr)="WFC$O":incr++
'symbolslistbox2.cell(1,incr)="WFC$P":incr++
'symbolslistbox2.cell(1,incr)="WFC$Q":incr++
'symbolslistbox2.cell(1,incr)="WFC$R":incr++
'symbolslistbox2.cell(1,incr)="WFC$T":incr++
'symbolslistbox2.cell(1,incr)="WFC$V":incr++
'symbolslistbox2.cell(1,incr)="WFC$W":incr++
'symbolslistbox2.cell(1,incr)="WFC$X":incr++
'symbolslistbox2.cell(1,incr)="WFC$Y":incr++
'symbolslistbox2.cell(1,incr)="WFE$A":incr++
symbolslistbox2.cell(1,incr)="WFHY":incr++
symbolslistbox2.cell(1,incr)="WFIG":incr++
symbolslistbox2.cell(1,incr)="WGO":incr++
symbolslistbox2.cell(1,incr)="WH":incr++
symbolslistbox2.cell(1,incr)="WHD":incr++
symbolslistbox2.cell(1,incr)="WHF":incr++
symbolslistbox2.cell(1,incr)="WHFBZ":incr++
symbolslistbox2.cell(1,incr)="WHG":incr++
symbolslistbox2.cell(1,incr)="WHLM":incr++
'symbolslistbox2.cell(1,incr)="WHLR":incr++
symbolslistbox2.cell(1,incr)="WHLRD":incr++
symbolslistbox2.cell(1,incr)="WHLRP":incr++
symbolslistbox2.cell(1,incr)="WHR":incr++
symbolslistbox2.cell(1,incr)="WIA":incr++
'symbolslistbox2.cell(1,incr)="WIFI":incr++
'symbolslistbox2.cell(1,incr)="WIL":incr++
symbolslistbox2.cell(1,incr)="WILC":incr++
symbolslistbox2.cell(1,incr)="WINA":incr++
symbolslistbox2.cell(1,incr)="WINC":incr++
symbolslistbox2.cell(1,incr)="WING":incr++
'symbolslistbox2.cell(1,incr)="WINS":incr++
symbolslistbox2.cell(1,incr)="WIP":incr++
symbolslistbox2.cell(1,incr)="WIRE":incr++
symbolslistbox2.cell(1,incr)="WISA":incr++
symbolslistbox2.cell(1,incr)="WIT":incr++
symbolslistbox2.cell(1,incr)="WIW":incr++
symbolslistbox2.cell(1,incr)="WIX":incr++
symbolslistbox2.cell(1,incr)="WK":incr++
symbolslistbox2.cell(1,incr)="WKHS":incr++
symbolslistbox2.cell(1,incr)="WLDN":incr++
symbolslistbox2.cell(1,incr)="WLDR":incr++
symbolslistbox2.cell(1,incr)="WLFC":incr++
'symbolslistbox2.cell(1,incr)="WLH":incr++
symbolslistbox2.cell(1,incr)="WLK":incr++
symbolslistbox2.cell(1,incr)="WLKP":incr++
symbolslistbox2.cell(1,incr)="WLL":incr++
symbolslistbox2.cell(1,incr)="WLTW":incr++
symbolslistbox2.cell(1,incr)="WM":incr++
symbolslistbox2.cell(1,incr)="WMB":incr++
symbolslistbox2.cell(1,incr)="WMC":incr++
'symbolslistbox2.cell(1,incr)="WMGI":incr++
symbolslistbox2.cell(1,incr)="WMK":incr++
symbolslistbox2.cell(1,incr)="WMS":incr++
symbolslistbox2.cell(1,incr)="WMT":incr++
symbolslistbox2.cell(1,incr)="WNC":incr++
symbolslistbox2.cell(1,incr)="WNEB":incr++
symbolslistbox2.cell(1,incr)="WNS":incr++
symbolslistbox2.cell(1,incr)="WOMN":incr++
symbolslistbox2.cell(1,incr)="WOOD":incr++
symbolslistbox2.cell(1,incr)="WOR":incr++
'symbolslistbox2.cell(1,incr)="WORK":incr++
'symbolslistbox2.cell(1,incr)="WORX":incr++
symbolslistbox2.cell(1,incr)="WOW":incr++
symbolslistbox2.cell(1,incr)="WPC":incr++
'symbolslistbox2.cell(1,incr)="WPG":incr++
'symbolslistbox2.cell(1,incr)="WPG$H":incr++
'symbolslistbox2.cell(1,incr)="WPG$I":incr++
symbolslistbox2.cell(1,incr)="WPM":incr++
symbolslistbox2.cell(1,incr)="WPP":incr++
symbolslistbox2.cell(1,incr)="WPRT":incr++
symbolslistbox2.cell(1,incr)="WPS":incr++
'symbolslistbox2.cell(1,incr)="WPX":incr++
symbolslistbox2.cell(1,incr)="WRB":incr++
'symbolslistbox2.cell(1,incr)="WRB$B":incr++
'symbolslistbox2.cell(1,incr)="WRB$C":incr++
'symbolslistbox2.cell(1,incr)="WRB$D":incr++
'symbolslistbox2.cell(1,incr)="WRB$E":incr++
symbolslistbox2.cell(1,incr)="WRE":incr++
'symbolslistbox2.cell(1,incr)="WRI":incr++
symbolslistbox2.cell(1,incr)="WRK":incr++
symbolslistbox2.cell(1,incr)="WRLD":incr++
'symbolslistbox2.cell(1,incr)="WRLS":incr++
'symbolslistbox2.cell(1,incr)="WRLSR":incr++
'symbolslistbox2.cell(1,incr)="WRLSU":incr++
'symbolslistbox2.cell(1,incr)="WRLSW":incr++
symbolslistbox2.cell(1,incr)="WRN":incr++
'symbolslistbox2.cell(1,incr)="WRTC":incr++
symbolslistbox2.cell(1,incr)="WSBC":incr++
symbolslistbox2.cell(1,incr)="WSBF":incr++
symbolslistbox2.cell(1,incr)="WSC":incr++
symbolslistbox2.cell(1,incr)="WSFS":incr++
'symbolslistbox2.cell(1,incr)="WSG":incr++
symbolslistbox2.cell(1,incr)="WSM":incr++
symbolslistbox2.cell(1,incr)="WSO":incr++
'symbolslistbox2.cell(1,incr)="WSO.B":incr++
symbolslistbox2.cell(1,incr)="WSR":incr++
symbolslistbox2.cell(1,incr)="WST":incr++
symbolslistbox2.cell(1,incr)="WSTG":incr++
symbolslistbox2.cell(1,incr)="WSTL":incr++
symbolslistbox2.cell(1,incr)="WTBA":incr++
symbolslistbox2.cell(1,incr)="WTER":incr++
symbolslistbox2.cell(1,incr)="WTFC":incr++
symbolslistbox2.cell(1,incr)="WTFCM":incr++
symbolslistbox2.cell(1,incr)="WTI":incr++
'symbolslistbox2.cell(1,incr)="WTID":incr++
'symbolslistbox2.cell(1,incr)="WTIU":incr++
symbolslistbox2.cell(1,incr)="WTM":incr++
symbolslistbox2.cell(1,incr)="WTMF":incr++
'symbolslistbox2.cell(1,incr)="WTR":incr++
'symbolslistbox2.cell(1,incr)="WTRE":incr++
'symbolslistbox2.cell(1,incr)="WTREP":incr++
symbolslistbox2.cell(1,incr)="WTRH":incr++
symbolslistbox2.cell(1,incr)="WTRU":incr++
symbolslistbox2.cell(1,incr)="WTS":incr++
symbolslistbox2.cell(1,incr)="WTT":incr++
symbolslistbox2.cell(1,incr)="WTTR":incr++
symbolslistbox2.cell(1,incr)="WU":incr++
'symbolslistbox2.cell(1,incr)="WUBA":incr++
symbolslistbox2.cell(1,incr)="WVE":incr++
symbolslistbox2.cell(1,incr)="WVFC":incr++
symbolslistbox2.cell(1,incr)="WVVI":incr++
'symbolslistbox2.cell(1,incr)="WVVIP":incr++
symbolslistbox2.cell(1,incr)="WW":incr++
symbolslistbox2.cell(1,incr)="WWD":incr++
symbolslistbox2.cell(1,incr)="WWE":incr++
symbolslistbox2.cell(1,incr)="WWR":incr++
symbolslistbox2.cell(1,incr)="WWW":incr++
symbolslistbox2.cell(1,incr)="WY":incr++
'symbolslistbox2.cell(1,incr)="WYND":incr++
symbolslistbox2.cell(1,incr)="WYNN":incr++
symbolslistbox2.cell(1,incr)="WYY":incr++
symbolslistbox2.cell(1,incr)="X":incr++
symbolslistbox2.cell(1,incr)="XAIR":incr++
'symbolslistbox2.cell(1,incr)="XAN":incr++
'symbolslistbox2.cell(1,incr)="XAN$C":incr++
symbolslistbox2.cell(1,incr)="XAR":incr++
symbolslistbox2.cell(1,incr)="XBI":incr++
symbolslistbox2.cell(1,incr)="XBIO":incr++
'symbolslistbox2.cell(1,incr)="XBIOW":incr++
symbolslistbox2.cell(1,incr)="XBIT":incr++
symbolslistbox2.cell(1,incr)="XBUY":incr++
symbolslistbox2.cell(1,incr)="XCEM":incr++
'symbolslistbox2.cell(1,incr)="XCOM":incr++
symbolslistbox2.cell(1,incr)="XCUR":incr++
'symbolslistbox2.cell(1,incr)="XDIV":incr++
'symbolslistbox2.cell(1,incr)="XEC":incr++
symbolslistbox2.cell(1,incr)="XEL":incr++
symbolslistbox2.cell(1,incr)="XELA":incr++
symbolslistbox2.cell(1,incr)="XELB":incr++
symbolslistbox2.cell(1,incr)="XENE":incr++
symbolslistbox2.cell(1,incr)="XENT":incr++
symbolslistbox2.cell(1,incr)="XERS":incr++
symbolslistbox2.cell(1,incr)="XES":incr++
symbolslistbox2.cell(1,incr)="XFLT":incr++
symbolslistbox2.cell(1,incr)="XFOR":incr++
symbolslistbox2.cell(1,incr)="XGN":incr++
symbolslistbox2.cell(1,incr)="XHB":incr++
symbolslistbox2.cell(1,incr)="XHE":incr++
symbolslistbox2.cell(1,incr)="XHR":incr++
symbolslistbox2.cell(1,incr)="XHS":incr++
symbolslistbox2.cell(1,incr)="XIN":incr++
symbolslistbox2.cell(1,incr)="XITK":incr++
symbolslistbox2.cell(1,incr)="XLB":incr++
symbolslistbox2.cell(1,incr)="XLC":incr++
symbolslistbox2.cell(1,incr)="XLE":incr++
'symbolslistbox2.cell(1,incr)="XLEY":incr++
symbolslistbox2.cell(1,incr)="XLF":incr++
symbolslistbox2.cell(1,incr)="XLG":incr++
symbolslistbox2.cell(1,incr)="XLI":incr++
symbolslistbox2.cell(1,incr)="XLK":incr++
symbolslistbox2.cell(1,incr)="XLNX":incr++
symbolslistbox2.cell(1,incr)="XLP":incr++
symbolslistbox2.cell(1,incr)="XLRE":incr++
'symbolslistbox2.cell(1,incr)="XLRN":incr++
symbolslistbox2.cell(1,incr)="XLSR":incr++
'symbolslistbox2.cell(1,incr)="XLSY":incr++
'symbolslistbox2.cell(1,incr)="XLTY":incr++
symbolslistbox2.cell(1,incr)="XLU":incr++
'symbolslistbox2.cell(1,incr)="XLUY":incr++
symbolslistbox2.cell(1,incr)="XLV":incr++
symbolslistbox2.cell(1,incr)="XLY":incr++
symbolslistbox2.cell(1,incr)="XME":incr++
symbolslistbox2.cell(1,incr)="XMHQ":incr++
symbolslistbox2.cell(1,incr)="XMLV":incr++
symbolslistbox2.cell(1,incr)="XMMO":incr++
symbolslistbox2.cell(1,incr)="XMPT":incr++
symbolslistbox2.cell(1,incr)="XMVM":incr++
'symbolslistbox2.cell(1,incr)="XMX":incr++
symbolslistbox2.cell(1,incr)="XNCR":incr++
symbolslistbox2.cell(1,incr)="XNET":incr++
symbolslistbox2.cell(1,incr)="XNTK":incr++
'symbolslistbox2.cell(1,incr)="XOG":incr++
symbolslistbox2.cell(1,incr)="XOM":incr++
symbolslistbox2.cell(1,incr)="XOMA":incr++
'symbolslistbox2.cell(1,incr)="XON":incr++
'symbolslistbox2.cell(1,incr)="XONE":incr++
symbolslistbox2.cell(1,incr)="XOP":incr++
symbolslistbox2.cell(1,incr)="XPEL":incr++
symbolslistbox2.cell(1,incr)="XPER":incr++
symbolslistbox2.cell(1,incr)="XPH":incr++
symbolslistbox2.cell(1,incr)="XPL":incr++
symbolslistbox2.cell(1,incr)="XPO":incr++
symbolslistbox2.cell(1,incr)="XPP":incr++
symbolslistbox2.cell(1,incr)="XRAY":incr++
'symbolslistbox2.cell(1,incr)="XRF":incr++
symbolslistbox2.cell(1,incr)="XRLV":incr++
symbolslistbox2.cell(1,incr)="XRT":incr++
symbolslistbox2.cell(1,incr)="XRX":incr++
symbolslistbox2.cell(1,incr)="XSD":incr++
symbolslistbox2.cell(1,incr)="XSHD":incr++
symbolslistbox2.cell(1,incr)="XSHQ":incr++
symbolslistbox2.cell(1,incr)="XSLV":incr++
symbolslistbox2.cell(1,incr)="XSMO":incr++
symbolslistbox2.cell(1,incr)="XSOE":incr++
symbolslistbox2.cell(1,incr)="XSPA":incr++
symbolslistbox2.cell(1,incr)="XSVM":incr++
symbolslistbox2.cell(1,incr)="XSW":incr++
symbolslistbox2.cell(1,incr)="XT":incr++
'symbolslistbox2.cell(1,incr)="XTH":incr++
symbolslistbox2.cell(1,incr)="XTL":incr++
symbolslistbox2.cell(1,incr)="XTLB":incr++
symbolslistbox2.cell(1,incr)="XTN":incr++
symbolslistbox2.cell(1,incr)="XTNT":incr++
symbolslistbox2.cell(1,incr)="XVZ":incr++
symbolslistbox2.cell(1,incr)="XWEB":incr++
symbolslistbox2.cell(1,incr)="XXII":incr++
symbolslistbox2.cell(1,incr)="XYF":incr++
symbolslistbox2.cell(1,incr)="XYL":incr++
symbolslistbox2.cell(1,incr)="Y":incr++
symbolslistbox2.cell(1,incr)="YANG":incr++
symbolslistbox2.cell(1,incr)="YCBD":incr++
symbolslistbox2.cell(1,incr)="YCL":incr++
'symbolslistbox2.cell(1,incr)="YCOM":incr++
symbolslistbox2.cell(1,incr)="YCS":incr++
symbolslistbox2.cell(1,incr)="YELP":incr++
symbolslistbox2.cell(1,incr)="YETI":incr++
symbolslistbox2.cell(1,incr)="YEXT":incr++
'symbolslistbox2.cell(1,incr)="YGRN":incr++
symbolslistbox2.cell(1,incr)="YGYI":incr++
symbolslistbox2.cell(1,incr)="YGYIP":incr++
symbolslistbox2.cell(1,incr)="YI":incr++
'symbolslistbox2.cell(1,incr)="YIN":incr++
symbolslistbox2.cell(1,incr)="YINN":incr++
symbolslistbox2.cell(1,incr)="YJ":incr++
'symbolslistbox2.cell(1,incr)="YLCO":incr++
symbolslistbox2.cell(1,incr)="YLD":incr++
symbolslistbox2.cell(1,incr)="YLDE":incr++
symbolslistbox2.cell(1,incr)="YMAB":incr++
'symbolslistbox2.cell(1,incr)="YMLI":incr++
'symbolslistbox2.cell(1,incr)="YMLP":incr++
symbolslistbox2.cell(1,incr)="YNDX":incr++
symbolslistbox2.cell(1,incr)="YOLO":incr++
symbolslistbox2.cell(1,incr)="YORW":incr++
symbolslistbox2.cell(1,incr)="YPF":incr++
'symbolslistbox2.cell(1,incr)="YRCW":incr++
symbolslistbox2.cell(1,incr)="YRD":incr++
symbolslistbox2.cell(1,incr)="YTEN":incr++
symbolslistbox2.cell(1,incr)="YTRA":incr++
symbolslistbox2.cell(1,incr)="YUM":incr++
'symbolslistbox2.cell(1,incr)="YUMA":incr++
symbolslistbox2.cell(1,incr)="YUMC":incr++
symbolslistbox2.cell(1,incr)="YVR":incr++
symbolslistbox2.cell(1,incr)="YXI":incr++
symbolslistbox2.cell(1,incr)="YY":incr++
symbolslistbox2.cell(1,incr)="YYY":incr++
symbolslistbox2.cell(1,incr)="Z":incr++
'symbolslistbox2.cell(1,incr)="ZAGG":incr++
'symbolslistbox2.cell(1,incr)="ZAYO":incr++
'symbolslistbox2.cell(1,incr)="ZAZZT":incr++
'symbolslistbox2.cell(1,incr)="ZB$A":incr++
'symbolslistbox2.cell(1,incr)="ZB$G":incr++
'symbolslistbox2.cell(1,incr)="ZB$H":incr++
symbolslistbox2.cell(1,incr)="ZBH":incr++
'symbolslistbox2.cell(1,incr)="ZBIO":incr++
'symbolslistbox2.cell(1,incr)="ZBK":incr++
symbolslistbox2.cell(1,incr)="ZBRA":incr++
'symbolslistbox2.cell(1,incr)="ZBZX":incr++
'symbolslistbox2.cell(1,incr)="ZBZZT":incr++
'symbolslistbox2.cell(1,incr)="ZCAN":incr++
'symbolslistbox2.cell(1,incr)="ZCZZT":incr++
'symbolslistbox2.cell(1,incr)="ZDEU":incr++
symbolslistbox2.cell(1,incr)="ZDGE":incr++
symbolslistbox2.cell(1,incr)="ZEAL":incr++
symbolslistbox2.cell(1,incr)="ZEN":incr++
symbolslistbox2.cell(1,incr)="ZEUS":incr++
'symbolslistbox2.cell(1,incr)="ZEXIT":incr++
'symbolslistbox2.cell(1,incr)="ZF":incr++
'symbolslistbox2.cell(1,incr)="ZFGN":incr++
symbolslistbox2.cell(1,incr)="ZG":incr++
'symbolslistbox2.cell(1,incr)="ZGBR":incr++
symbolslistbox2.cell(1,incr)="ZGNX":incr++
'symbolslistbox2.cell(1,incr)="ZHOK":incr++
'symbolslistbox2.cell(1,incr)="ZIEXT":incr++
symbolslistbox2.cell(1,incr)="ZIG":incr++
symbolslistbox2.cell(1,incr)="ZION":incr++
'symbolslistbox2.cell(1,incr)="ZIONW":incr++
symbolslistbox2.cell(1,incr)="ZIOP":incr++
'symbolslistbox2.cell(1,incr)="ZIV":incr++
symbolslistbox2.cell(1,incr)="ZIXI":incr++
'symbolslistbox2.cell(1,incr)="ZJPN":incr++
'symbolslistbox2.cell(1,incr)="ZJZZT":incr++
symbolslistbox2.cell(1,incr)="ZKIN":incr++
symbolslistbox2.cell(1,incr)="ZLAB":incr++
symbolslistbox2.cell(1,incr)="ZM":incr++
'symbolslistbox2.cell(1,incr)="ZMLP":incr++
'symbolslistbox2.cell(1,incr)="ZN":incr++
symbolslistbox2.cell(1,incr)="ZNGA":incr++
symbolslistbox2.cell(1,incr)="ZNH":incr++
'symbolslistbox2.cell(1,incr)="ZNWAA":incr++
symbolslistbox2.cell(1,incr)="ZOM":incr++
symbolslistbox2.cell(1,incr)="ZROZ":incr++
symbolslistbox2.cell(1,incr)="ZS":incr++
symbolslistbox2.cell(1,incr)="ZSAN":incr++
symbolslistbox2.cell(1,incr)="ZSL":incr++
'symbolslistbox2.cell(1,incr)="ZTEST":incr++
symbolslistbox2.cell(1,incr)="ZTO":incr++
symbolslistbox2.cell(1,incr)="ZTR":incr++
symbolslistbox2.cell(1,incr)="ZTS":incr++
symbolslistbox2.cell(1,incr)="ZUMZ":incr++
symbolslistbox2.cell(1,incr)="ZUO":incr++
symbolslistbox2.cell(1,incr)="ZVO":incr++
'symbolslistbox2.cell(1,incr)="ZVV":incr++
'symbolslistbox2.cell(1,incr)="ZVZZC":incr++
symbolslistbox2.cell(1,incr)="ZVZZT":incr++
'symbolslistbox2.cell(1,incr)="ZWZZT":incr++
'symbolslistbox2.cell(1,incr)="ZXIET":incr++
'symbolslistbox2.cell(1,incr)="ZXYZ.A":incr++
'symbolslistbox2.cell(1,incr)="ZXZZT":incr++
'symbolslistbox2.cell(1,incr)="ZYME":incr++
symbolslistbox2.cell(1,incr)="ZYNE":incr++
symbolslistbox2.cell(1,incr)="ZYXI"

defint usanasdaqstocksincr=incr

'showmessage str$(incr)

    ' 7985 NASDAQ stocks incr 0 - 7984
    ' incr=7984
          
    incr++
    
    ' Paris
        
'symbolslistbox2.cell(1,incr)="100H.PA":incr++
symbolslistbox2.cell(1,incr)="2CRSI.PA":incr++
symbolslistbox2.cell(1,incr)="50E.PA":incr++
'symbolslistbox2.cell(1,incr)="AA13.PA":incr++
symbolslistbox2.cell(1,incr)="AASU.PA":incr++
symbolslistbox2.cell(1,incr)="AB.PA":incr++
symbolslistbox2.cell(1,incr)="ABCA.PA":incr++
symbolslistbox2.cell(1,incr)="ABEO.PA":incr++
symbolslistbox2.cell(1,incr)="ABIO.PA":incr++
symbolslistbox2.cell(1,incr)="ABNX.PA":incr++
symbolslistbox2.cell(1,incr)="ABVX.PA":incr++
'symbolslistbox2.cell(1,incr)="AC.PA":incr++
symbolslistbox2.cell(1,incr)="ACA.PA":incr++
symbolslistbox2.cell(1,incr)="ACAN.PA":incr++
symbolslistbox2.cell(1,incr)="ACWE.PA":incr++
symbolslistbox2.cell(1,incr)="ACWI.PA":incr++
symbolslistbox2.cell(1,incr)="ADOC.PA":incr++
symbolslistbox2.cell(1,incr)="ADP.PA":incr++
symbolslistbox2.cell(1,incr)="ADUX.PA":incr++
symbolslistbox2.cell(1,incr)="ADV.PA":incr++
symbolslistbox2.cell(1,incr)="ADVI.PA":incr++
symbolslistbox2.cell(1,incr)="ADVIC.PA":incr++
symbolslistbox2.cell(1,incr)="AEEM.PA":incr++
symbolslistbox2.cell(1,incr)="AEJ.PA":incr++
symbolslistbox2.cell(1,incr)="AF.PA":incr++
symbolslistbox2.cell(1,incr)="AFIN.PA":incr++
symbolslistbox2.cell(1,incr)="AFLE.PA":incr++
symbolslistbox2.cell(1,incr)="AFLT.PA":incr++
symbolslistbox2.cell(1,incr)="AFRN.PA":incr++
'symbolslistbox2.cell(1,incr)="AFS.PA":incr++
symbolslistbox2.cell(1,incr)="AGEB.PA":incr++
'symbolslistbox2.cell(1,incr)="AGTA.PA":incr++
symbolslistbox2.cell(1,incr)="AHYE.PA":incr++
symbolslistbox2.cell(1,incr)="AI.PA":incr++
symbolslistbox2.cell(1,incr)="AIR.PA":incr++
symbolslistbox2.cell(1,incr)="AKA.PA":incr++
symbolslistbox2.cell(1,incr)="AKE.PA":incr++
symbolslistbox2.cell(1,incr)="AKW.PA":incr++
symbolslistbox2.cell(1,incr)="ALACT.PA":incr++
symbolslistbox2.cell(1,incr)="ALADA.PA":incr++
symbolslistbox2.cell(1,incr)="ALADM.PA":incr++
symbolslistbox2.cell(1,incr)="ALADO.PA":incr++
symbolslistbox2.cell(1,incr)="ALAGR.PA":incr++
symbolslistbox2.cell(1,incr)="ALALO.PA":incr++
'symbolslistbox2.cell(1,incr)="ALANT.PA":incr++
'symbolslistbox2.cell(1,incr)="ALANV.PA":incr++
symbolslistbox2.cell(1,incr)="ALAQU.PA":incr++
symbolslistbox2.cell(1,incr)="ALARF.PA":incr++
'symbolslistbox2.cell(1,incr)="ALATF.PA":incr++
symbolslistbox2.cell(1,incr)="ALAVY.PA":incr++
symbolslistbox2.cell(1,incr)="ALBDM.PA":incr++
'symbolslistbox2.cell(1,incr)="ALBFR.PA":incr++
symbolslistbox2.cell(1,incr)="ALBI.PA":incr++
symbolslistbox2.cell(1,incr)="ALBIO.PA":incr++
symbolslistbox2.cell(1,incr)="ALBKK.PA":incr++
symbolslistbox2.cell(1,incr)="ALBLD.PA":incr++
symbolslistbox2.cell(1,incr)="ALBLU.PA":incr++
symbolslistbox2.cell(1,incr)="ALBPS.PA":incr++
symbolslistbox2.cell(1,incr)="ALBUD.PA":incr++
symbolslistbox2.cell(1,incr)="ALCAR.PA":incr++
symbolslistbox2.cell(1,incr)="ALCES.PA":incr++
symbolslistbox2.cell(1,incr)="ALCJ.PA":incr++
symbolslistbox2.cell(1,incr)="ALCLA.PA":incr++
symbolslistbox2.cell(1,incr)="ALCLS.PA":incr++
'symbolslistbox2.cell(1,incr)="ALCOF.PA":incr++
symbolslistbox2.cell(1,incr)="ALCOG.PA":incr++
symbolslistbox2.cell(1,incr)="ALCOI.PA":incr++
symbolslistbox2.cell(1,incr)="ALCOR.PA":incr++
symbolslistbox2.cell(1,incr)="ALCRB.PA":incr++
symbolslistbox2.cell(1,incr)="ALCUR.PA":incr++
symbolslistbox2.cell(1,incr)="ALCYB.PA":incr++
symbolslistbox2.cell(1,incr)="ALD.PA":incr++
symbolslistbox2.cell(1,incr)="ALDAR.PA":incr++
symbolslistbox2.cell(1,incr)="ALDBL.PA":incr++
symbolslistbox2.cell(1,incr)="ALDBT.PA":incr++
symbolslistbox2.cell(1,incr)="ALDEI.PA":incr++
symbolslistbox2.cell(1,incr)="ALDEL.PA":incr++
'symbolslistbox2.cell(1,incr)="ALDEV.PA":incr++
'symbolslistbox2.cell(1,incr)="ALDIE.PA":incr++
symbolslistbox2.cell(1,incr)="ALDLS.PA":incr++
symbolslistbox2.cell(1,incr)="ALDNE.PA":incr++
symbolslistbox2.cell(1,incr)="ALDNX.PA":incr++
symbolslistbox2.cell(1,incr)="ALDR.PA":incr++
symbolslistbox2.cell(1,incr)="ALDRV.PA":incr++
symbolslistbox2.cell(1,incr)="ALDUB.PA":incr++
symbolslistbox2.cell(1,incr)="ALDV.PA":incr++
symbolslistbox2.cell(1,incr)="ALEAC.PA":incr++
'symbolslistbox2.cell(1,incr)="ALECR.PA":incr++
symbolslistbox2.cell(1,incr)="ALEMV.PA":incr++
symbolslistbox2.cell(1,incr)="ALENE.PA":incr++
symbolslistbox2.cell(1,incr)="ALENT.PA":incr++
symbolslistbox2.cell(1,incr)="ALEO2.PA":incr++
symbolslistbox2.cell(1,incr)="ALERS.PA":incr++
symbolslistbox2.cell(1,incr)="ALESA.PA":incr++
symbolslistbox2.cell(1,incr)="ALESK.PA":incr++
symbolslistbox2.cell(1,incr)="ALEUP.PA":incr++
'symbolslistbox2.cell(1,incr)="ALEZV.PA":incr++
symbolslistbox2.cell(1,incr)="ALFBA.PA":incr++
'symbolslistbox2.cell(1,incr)="ALFIL.PA":incr++
symbolslistbox2.cell(1,incr)="ALFOC.PA":incr++
symbolslistbox2.cell(1,incr)="ALFPC.PA":incr++
symbolslistbox2.cell(1,incr)="ALFRE.PA":incr++
symbolslistbox2.cell(1,incr)="ALGAU.PA":incr++
symbolslistbox2.cell(1,incr)="ALGBE.PA":incr++
'symbolslistbox2.cell(1,incr)="ALGEM.PA":incr++
symbolslistbox2.cell(1,incr)="ALGEN.PA":incr++
'symbolslistbox2.cell(1,incr)="ALGEP.PA":incr++
'symbolslistbox2.cell(1,incr)="ALGEV.PA":incr++
symbolslistbox2.cell(1,incr)="ALGIL.PA":incr++
symbolslistbox2.cell(1,incr)="ALGLD.PA":incr++
symbolslistbox2.cell(1,incr)="ALHEO.PA":incr++
symbolslistbox2.cell(1,incr)="ALHIO.PA":incr++
symbolslistbox2.cell(1,incr)="ALHIT.PA":incr++
symbolslistbox2.cell(1,incr)="ALHRG.PA":incr++
'symbolslistbox2.cell(1,incr)="ALHSW.PA":incr++
symbolslistbox2.cell(1,incr)="ALHYG.PA":incr++
symbolslistbox2.cell(1,incr)="ALI2S.PA":incr++
symbolslistbox2.cell(1,incr)="ALICR.PA":incr++
symbolslistbox2.cell(1,incr)="ALIDS.PA":incr++
symbolslistbox2.cell(1,incr)="ALIMO.PA":incr++
symbolslistbox2.cell(1,incr)="ALIMP.PA":incr++
symbolslistbox2.cell(1,incr)="ALIMR.PA":incr++
symbolslistbox2.cell(1,incr)="ALINS.PA":incr++
symbolslistbox2.cell(1,incr)="ALINT.PA":incr++
symbolslistbox2.cell(1,incr)="ALINV.PA":incr++
symbolslistbox2.cell(1,incr)="ALKAL.PA":incr++
symbolslistbox2.cell(1,incr)="ALKKO.PA":incr++
symbolslistbox2.cell(1,incr)="ALKLK.PA":incr++
symbolslistbox2.cell(1,incr)="ALLDL.PA":incr++
symbolslistbox2.cell(1,incr)="ALLEX.PA":incr++
'symbolslistbox2.cell(1,incr)="ALLHB.PA":incr++
symbolslistbox2.cell(1,incr)="ALLIX.PA":incr++
symbolslistbox2.cell(1,incr)="ALLLN.PA":incr++
symbolslistbox2.cell(1,incr)="ALLOG.PA":incr++
symbolslistbox2.cell(1,incr)="ALM.PA":incr++
symbolslistbox2.cell(1,incr)="ALMAK.PA":incr++
symbolslistbox2.cell(1,incr)="ALMAS.PA":incr++
symbolslistbox2.cell(1,incr)="ALMDG.PA":incr++
symbolslistbox2.cell(1,incr)="ALMDT.PA":incr++
'symbolslistbox2.cell(1,incr)="ALMEC.PA":incr++
'symbolslistbox2.cell(1,incr)="ALMED.PA":incr++
symbolslistbox2.cell(1,incr)="ALMER.PA":incr++
symbolslistbox2.cell(1,incr)="ALMET.PA":incr++
symbolslistbox2.cell(1,incr)="ALMGI.PA":incr++
'symbolslistbox2.cell(1,incr)="ALMIC.PA":incr++
symbolslistbox2.cell(1,incr)="ALMII.PA":incr++
symbolslistbox2.cell(1,incr)="ALMIL.PA":incr++
symbolslistbox2.cell(1,incr)="ALMLB.PA":incr++
symbolslistbox2.cell(1,incr)="ALMNG.PA":incr++
symbolslistbox2.cell(1,incr)="ALMOU.PA":incr++
symbolslistbox2.cell(1,incr)="ALNEV.PA":incr++
symbolslistbox2.cell(1,incr)="ALNLF.PA":incr++
symbolslistbox2.cell(1,incr)="ALNN6.PA":incr++
symbolslistbox2.cell(1,incr)="ALNOV.PA":incr++
symbolslistbox2.cell(1,incr)="ALNOX.PA":incr++
symbolslistbox2.cell(1,incr)="ALNSC.PA":incr++
symbolslistbox2.cell(1,incr)="ALNSE.PA":incr++
symbolslistbox2.cell(1,incr)="ALNXT.PA":incr++
symbolslistbox2.cell(1,incr)="ALO.PA":incr++
symbolslistbox2.cell(1,incr)="ALOBR.PA":incr++
'symbolslistbox2.cell(1,incr)="ALODI.PA":incr++
symbolslistbox2.cell(1,incr)="ALONC.PA":incr++
symbolslistbox2.cell(1,incr)="ALORD.PA":incr++
symbolslistbox2.cell(1,incr)="ALOSM.PA":incr++
'symbolslistbox2.cell(1,incr)="ALP.PA":incr++
symbolslistbox2.cell(1,incr)="ALPAR.PA":incr++
symbolslistbox2.cell(1,incr)="ALPAT.PA":incr++
symbolslistbox2.cell(1,incr)="ALPAU.PA":incr++
symbolslistbox2.cell(1,incr)="ALPCV.PA":incr++
symbolslistbox2.cell(1,incr)="ALPDX.PA":incr++
symbolslistbox2.cell(1,incr)="ALPHA.PA":incr++
symbolslistbox2.cell(1,incr)="ALPHS.PA":incr++
'symbolslistbox2.cell(1,incr)="ALPHY.PA":incr++
symbolslistbox2.cell(1,incr)="ALPIX.PA":incr++
symbolslistbox2.cell(1,incr)="ALPJT.PA":incr++
symbolslistbox2.cell(1,incr)="ALPLA.PA":incr++
symbolslistbox2.cell(1,incr)="ALPOU.PA":incr++
symbolslistbox2.cell(1,incr)="ALPRE.PA":incr++
symbolslistbox2.cell(1,incr)="ALPRI.PA":incr++
symbolslistbox2.cell(1,incr)="ALPRO.PA":incr++
symbolslistbox2.cell(1,incr)="ALQGC.PA":incr++
symbolslistbox2.cell(1,incr)="ALQWA.PA":incr++
symbolslistbox2.cell(1,incr)="ALREA.PA":incr++
symbolslistbox2.cell(1,incr)="ALREW.PA":incr++
symbolslistbox2.cell(1,incr)="ALROC.PA":incr++
'symbolslistbox2.cell(1,incr)="ALS30.PA":incr++
symbolslistbox2.cell(1,incr)="ALSAF.PA":incr++
symbolslistbox2.cell(1,incr)="ALSAS.PA":incr++
symbolslistbox2.cell(1,incr)="ALSEN.PA":incr++
'symbolslistbox2.cell(1,incr)="ALSER.PA":incr++
symbolslistbox2.cell(1,incr)="ALSGD.PA":incr++
'symbolslistbox2.cell(1,incr)="ALSIP.PA":incr++
symbolslistbox2.cell(1,incr)="ALSPW.PA":incr++
symbolslistbox2.cell(1,incr)="ALSTW.PA":incr++
symbolslistbox2.cell(1,incr)="ALTA.PA":incr++
symbolslistbox2.cell(1,incr)="ALTBG.PA":incr++
symbolslistbox2.cell(1,incr)="ALTER.PA":incr++
'symbolslistbox2.cell(1,incr)="ALTEV.PA":incr++
symbolslistbox2.cell(1,incr)="ALTHE.PA":incr++
symbolslistbox2.cell(1,incr)="ALTHX.PA":incr++
symbolslistbox2.cell(1,incr)="ALTRI.PA":incr++
'symbolslistbox2.cell(1,incr)="ALTRO.PA":incr++
symbolslistbox2.cell(1,incr)="ALTTI.PA":incr++
symbolslistbox2.cell(1,incr)="ALTUR.PA":incr++
symbolslistbox2.cell(1,incr)="ALTUV.PA":incr++
'symbolslistbox2.cell(1,incr)="ALTVO.PA":incr++
symbolslistbox2.cell(1,incr)="ALTXC.PA":incr++
symbolslistbox2.cell(1,incr)="ALU10.PA":incr++
symbolslistbox2.cell(1,incr)="ALUCI.PA":incr++
'symbolslistbox2.cell(1,incr)="ALUCR.PA":incr++
symbolslistbox2.cell(1,incr)="ALUMS.PA":incr++
symbolslistbox2.cell(1,incr)="ALUPG.PA":incr++
symbolslistbox2.cell(1,incr)="ALUVI.PA":incr++
symbolslistbox2.cell(1,incr)="ALVAL.PA":incr++
symbolslistbox2.cell(1,incr)="ALVDM.PA":incr++
symbolslistbox2.cell(1,incr)="ALVGO.PA":incr++
symbolslistbox2.cell(1,incr)="ALVIV.PA":incr++
symbolslistbox2.cell(1,incr)="ALVMG.PA":incr++
symbolslistbox2.cell(1,incr)="ALVU.PA":incr++
symbolslistbox2.cell(1,incr)="ALWEC.PA":incr++
symbolslistbox2.cell(1,incr)="ALWED.PA":incr++
symbolslistbox2.cell(1,incr)="ALWIT.PA":incr++
'symbolslistbox2.cell(1,incr)="AM.PA":incr++
symbolslistbox2.cell(1,incr)="AM3A.PA":incr++
'symbolslistbox2.cell(1,incr)="AMEBA.PA":incr++
symbolslistbox2.cell(1,incr)="AMPLI.PA":incr++
symbolslistbox2.cell(1,incr)="AMUN.PA":incr++
symbolslistbox2.cell(1,incr)="ANRJ.PA":incr++
'symbolslistbox2.cell(1,incr)="ANTA.PA":incr++
symbolslistbox2.cell(1,incr)="ANX.PA":incr++
symbolslistbox2.cell(1,incr)="ANXU.PA":incr++
symbolslistbox2.cell(1,incr)="APX.PA":incr++
'symbolslistbox2.cell(1,incr)="AREIT.PA":incr++
symbolslistbox2.cell(1,incr)="ARG.PA":incr++
'symbolslistbox2.cell(1,incr)="ARTE.PA":incr++
'symbolslistbox2.cell(1,incr)="ARTO.PA":incr++
symbolslistbox2.cell(1,incr)="ASI.PA":incr++
symbolslistbox2.cell(1,incr)="ASP.PA":incr++
symbolslistbox2.cell(1,incr)="ASY.PA":incr++
symbolslistbox2.cell(1,incr)="ATA.PA":incr++
symbolslistbox2.cell(1,incr)="ATE.PA":incr++
symbolslistbox2.cell(1,incr)="ATEME.PA":incr++
symbolslistbox2.cell(1,incr)="ATI.PA":incr++
symbolslistbox2.cell(1,incr)="ATO.PA":incr++
symbolslistbox2.cell(1,incr)="AU2.PA":incr++
symbolslistbox2.cell(1,incr)="AUB.PA":incr++
symbolslistbox2.cell(1,incr)="AUEM.PA":incr++
symbolslistbox2.cell(1,incr)="AUGR.PA":incr++
symbolslistbox2.cell(1,incr)="AURE.PA":incr++
symbolslistbox2.cell(1,incr)="AURS.PA":incr++
symbolslistbox2.cell(1,incr)="AUT.PA":incr++
symbolslistbox2.cell(1,incr)="AVT.PA":incr++
symbolslistbox2.cell(1,incr)="AWAT.PA":incr++
'symbolslistbox2.cell(1,incr)="AWOX.PA":incr++
'symbolslistbox2.cell(1,incr)="AXFI.PA":incr++
symbolslistbox2.cell(1,incr)="AXW.PA":incr++
symbolslistbox2.cell(1,incr)="BAIN.PA":incr++
symbolslistbox2.cell(1,incr)="BALYO.PA":incr++
symbolslistbox2.cell(1,incr)="BASS.PA":incr++
symbolslistbox2.cell(1,incr)="BB.PA":incr++
'symbolslistbox2.cell(1,incr)="BBEU.PA":incr++
'symbolslistbox2.cell(1,incr)="BCRA.PA":incr++
'symbolslistbox2.cell(1,incr)="BELI.PA":incr++
symbolslistbox2.cell(1,incr)="BEN.PA":incr++
'symbolslistbox2.cell(1,incr)="BERR.PA":incr++
symbolslistbox2.cell(1,incr)="BIG.PA":incr++
symbolslistbox2.cell(1,incr)="BIM.PA":incr++
symbolslistbox2.cell(1,incr)="BLC.PA":incr++
'symbolslistbox2.cell(1,incr)="BN.PA":incr++
symbolslistbox2.cell(1,incr)="BNK.PA":incr++
symbolslistbox2.cell(1,incr)="BNKE.PA":incr++
symbolslistbox2.cell(1,incr)="BNP.PA":incr++
symbolslistbox2.cell(1,incr)="BOI.PA":incr++
symbolslistbox2.cell(1,incr)="BOL.PA":incr++
symbolslistbox2.cell(1,incr)="BON.PA":incr++
symbolslistbox2.cell(1,incr)="BRE.PA":incr++
symbolslistbox2.cell(1,incr)="BSD.PA":incr++
symbolslistbox2.cell(1,incr)="BSX.PA":incr++
'symbolslistbox2.cell(1,incr)="BTPL.PA":incr++
symbolslistbox2.cell(1,incr)="BTPS.PA":incr++
symbolslistbox2.cell(1,incr)="BUI.PA":incr++
'symbolslistbox2.cell(1,incr)="BUR.PA":incr++
symbolslistbox2.cell(1,incr)="BUYB.PA":incr++
symbolslistbox2.cell(1,incr)="BVI.PA":incr++
symbolslistbox2.cell(1,incr)="BX4.PA":incr++
symbolslistbox2.cell(1,incr)="BXX.PA":incr++
symbolslistbox2.cell(1,incr)="BYBE.PA":incr++
symbolslistbox2.cell(1,incr)="BYBU.PA":incr++
symbolslistbox2.cell(1,incr)="C10.PA":incr++
symbolslistbox2.cell(1,incr)="C13.PA":incr++
symbolslistbox2.cell(1,incr)="C2U.PA":incr++
symbolslistbox2.cell(1,incr)="C33.PA":incr++
symbolslistbox2.cell(1,incr)="C3M.PA":incr++
symbolslistbox2.cell(1,incr)="C40.PA":incr++
symbolslistbox2.cell(1,incr)="C4S.PA":incr++
symbolslistbox2.cell(1,incr)="C50.PA":incr++
symbolslistbox2.cell(1,incr)="C53.PA":incr++
symbolslistbox2.cell(1,incr)="C5E.PA":incr++
symbolslistbox2.cell(1,incr)="C5S.PA":incr++
symbolslistbox2.cell(1,incr)="C6E.PA":incr++
symbolslistbox2.cell(1,incr)="C73.PA":incr++
symbolslistbox2.cell(1,incr)="CA.PA":incr++
symbolslistbox2.cell(1,incr)="CAC.PA":incr++
symbolslistbox2.cell(1,incr)="CACC.PA":incr++
symbolslistbox2.cell(1,incr)="CACM.PA":incr++
symbolslistbox2.cell(1,incr)="CAF.PA":incr++
symbolslistbox2.cell(1,incr)="CAFO.PA":incr++
symbolslistbox2.cell(1,incr)="CAP.PA":incr++
symbolslistbox2.cell(1,incr)="CAPE.PA":incr++
symbolslistbox2.cell(1,incr)="CAPLI.PA":incr++
symbolslistbox2.cell(1,incr)="CARM.PA":incr++
symbolslistbox2.cell(1,incr)="CAS.PA":incr++
symbolslistbox2.cell(1,incr)="CAT31.PA":incr++
symbolslistbox2.cell(1,incr)="CATG.PA":incr++
'symbolslistbox2.cell(1,incr)="CATR.PA":incr++
symbolslistbox2.cell(1,incr)="CB3.PA":incr++
symbolslistbox2.cell(1,incr)="CB5.PA":incr++
symbolslistbox2.cell(1,incr)="CBBB.PA":incr++
'symbolslistbox2.cell(1,incr)="CBDG.PA":incr++
'symbolslistbox2.cell(1,incr)="CBE.PA":incr++
symbolslistbox2.cell(1,incr)="CBOT.PA":incr++
symbolslistbox2.cell(1,incr)="CBSM.PA":incr++
symbolslistbox2.cell(1,incr)="CC1.PA":incr++
symbolslistbox2.cell(1,incr)="CC1U.PA":incr++
symbolslistbox2.cell(1,incr)="CC4.PA":incr++
symbolslistbox2.cell(1,incr)="CCN.PA":incr++
symbolslistbox2.cell(1,incr)="CD8.PA":incr++
symbolslistbox2.cell(1,incr)="CD9.PA":incr++
'symbolslistbox2.cell(1,incr)="CDA.PA":incr++
symbolslistbox2.cell(1,incr)="CDI.PA":incr++
symbolslistbox2.cell(1,incr)="CE8.PA":incr++
symbolslistbox2.cell(1,incr)="CE9.PA":incr++
symbolslistbox2.cell(1,incr)="CE9U.PA":incr++
symbolslistbox2.cell(1,incr)="CEC.PA":incr++
symbolslistbox2.cell(1,incr)="CEM.PA":incr++
symbolslistbox2.cell(1,incr)="CEN.PA":incr++
symbolslistbox2.cell(1,incr)="CEU2.PA":incr++
symbolslistbox2.cell(1,incr)="CF1.PA":incr++
symbolslistbox2.cell(1,incr)="CFI.PA":incr++
symbolslistbox2.cell(1,incr)="CG1.PA":incr++
symbolslistbox2.cell(1,incr)="CG9.PA":incr++
symbolslistbox2.cell(1,incr)="CGG.PA":incr++
symbolslistbox2.cell(1,incr)="CGM.PA":incr++
'symbolslistbox2.cell(1,incr)="CGR.PA":incr++
symbolslistbox2.cell(1,incr)="CH5.PA":incr++
symbolslistbox2.cell(1,incr)="CHM.PA":incr++
symbolslistbox2.cell(1,incr)="CI2.PA":incr++
symbolslistbox2.cell(1,incr)="CI2U.PA":incr++
symbolslistbox2.cell(1,incr)="CI3.PA":incr++
symbolslistbox2.cell(1,incr)="CIB.PA":incr++
symbolslistbox2.cell(1,incr)="CIV.PA":incr++
symbolslistbox2.cell(1,incr)="CJ1.PA":incr++
'symbolslistbox2.cell(1,incr)="CJ1Y.PA":incr++
'symbolslistbox2.cell(1,incr)="CL2.PA":incr++
symbolslistbox2.cell(1,incr)="CLA.PA":incr++
symbolslistbox2.cell(1,incr)="CLIM.PA":incr++
symbolslistbox2.cell(1,incr)="CM9.PA":incr++
symbolslistbox2.cell(1,incr)="CMO.PA":incr++
symbolslistbox2.cell(1,incr)="CMU.PA":incr++
symbolslistbox2.cell(1,incr)="CNAA.PA":incr++
symbolslistbox2.cell(1,incr)="CNB.PA":incr++
symbolslistbox2.cell(1,incr)="CNF.PA":incr++
symbolslistbox2.cell(1,incr)="CNP.PA":incr++
symbolslistbox2.cell(1,incr)="CNV.PA":incr++
symbolslistbox2.cell(1,incr)="CNY.PA":incr++
symbolslistbox2.cell(1,incr)="CO.PA":incr++
symbolslistbox2.cell(1,incr)="CODW.PA":incr++
symbolslistbox2.cell(1,incr)="COFA.PA":incr++
'symbolslistbox2.cell(1,incr)="COGEC.PA":incr++
symbolslistbox2.cell(1,incr)="COH.PA":incr++
symbolslistbox2.cell(1,incr)="COM.PA":incr++
symbolslistbox2.cell(1,incr)="COSW.PA":incr++
'symbolslistbox2.cell(1,incr)="COUR.PA":incr++
symbolslistbox2.cell(1,incr)="COV.PA":incr++
symbolslistbox2.cell(1,incr)="COVH.PA":incr++
symbolslistbox2.cell(1,incr)="COX.PA":incr++
symbolslistbox2.cell(1,incr)="CP9.PA":incr++
symbolslistbox2.cell(1,incr)="CRAP.PA":incr++
symbolslistbox2.cell(1,incr)="CRAV.PA":incr++
symbolslistbox2.cell(1,incr)="CRB.PA":incr++
symbolslistbox2.cell(1,incr)="CRBP2.PA":incr++
symbolslistbox2.cell(1,incr)="CRI.PA":incr++
symbolslistbox2.cell(1,incr)="CRLA.PA":incr++
symbolslistbox2.cell(1,incr)="CRLO.PA":incr++
symbolslistbox2.cell(1,incr)="CRN.PA":incr++
symbolslistbox2.cell(1,incr)="CROS.PA":incr++
symbolslistbox2.cell(1,incr)="CRP.PA":incr++
symbolslistbox2.cell(1,incr)="CRSU.PA":incr++
symbolslistbox2.cell(1,incr)="CRTO.PA":incr++
symbolslistbox2.cell(1,incr)="CRWE.PA":incr++
symbolslistbox2.cell(1,incr)="CS.PA":incr++
symbolslistbox2.cell(1,incr)="CS1.PA":incr++
symbolslistbox2.cell(1,incr)="CS9.PA":incr++
symbolslistbox2.cell(1,incr)="CSH.PA":incr++
symbolslistbox2.cell(1,incr)="CSH2.PA":incr++
symbolslistbox2.cell(1,incr)="CST.PA":incr++
symbolslistbox2.cell(1,incr)="CSWC.PA":incr++
symbolslistbox2.cell(1,incr)="CTRG.PA":incr++
symbolslistbox2.cell(1,incr)="CU1.PA":incr++
symbolslistbox2.cell(1,incr)="CU2.PA":incr++
symbolslistbox2.cell(1,incr)="CU2U.PA":incr++
symbolslistbox2.cell(1,incr)="CU9.PA":incr++
symbolslistbox2.cell(1,incr)="CV9.PA":incr++
symbolslistbox2.cell(1,incr)="CW8.PA":incr++
symbolslistbox2.cell(1,incr)="CW8U.PA":incr++
symbolslistbox2.cell(1,incr)="CWE.PA":incr++
symbolslistbox2.cell(1,incr)="CWEU.PA":incr++
symbolslistbox2.cell(1,incr)="CWF.PA":incr++
symbolslistbox2.cell(1,incr)="CWFU.PA":incr++
symbolslistbox2.cell(1,incr)="DAX.PA":incr++
symbolslistbox2.cell(1,incr)="DBG.PA":incr++
symbolslistbox2.cell(1,incr)="DBV.PA":incr++
symbolslistbox2.cell(1,incr)="DEC.PA":incr++
symbolslistbox2.cell(1,incr)="DG.PA":incr++
symbolslistbox2.cell(1,incr)="DGE.PA":incr++
symbolslistbox2.cell(1,incr)="DGM.PA":incr++
'symbolslistbox2.cell(1,incr)="DIG.PA":incr++
symbolslistbox2.cell(1,incr)="DIM.PA":incr++
symbolslistbox2.cell(1,incr)="DJE.PA":incr++
'symbolslistbox2.cell(1,incr)="DLB.PA":incr++
'symbolslistbox2.cell(1,incr)="DLT.PA":incr++
symbolslistbox2.cell(1,incr)="DLTA.PA":incr++
'symbolslistbox2.cell(1,incr)="DPAM.PA":incr++
symbolslistbox2.cell(1,incr)="DPT.PA":incr++
symbolslistbox2.cell(1,incr)="DSB.PA":incr++
symbolslistbox2.cell(1,incr)="DSD.PA":incr++
symbolslistbox2.cell(1,incr)="DSY.PA":incr++
symbolslistbox2.cell(1,incr)="DVT.PA":incr++
symbolslistbox2.cell(1,incr)="E40.PA":incr++
symbolslistbox2.cell(1,incr)="EAGG.PA":incr++
symbolslistbox2.cell(1,incr)="EBBB.PA":incr++
'symbolslistbox2.cell(1,incr)="EC.PA":incr++
'symbolslistbox2.cell(1,incr)="ECASA.PA":incr++
symbolslistbox2.cell(1,incr)="ECB.PA":incr++
symbolslistbox2.cell(1,incr)="ECN.PA":incr++
'symbolslistbox2.cell(1,incr)="ECP.PA":incr++
symbolslistbox2.cell(1,incr)="ECRP.PA":incr++
symbolslistbox2.cell(1,incr)="EDEN.PA":incr++
symbolslistbox2.cell(1,incr)="EDEU.PA":incr++
symbolslistbox2.cell(1,incr)="EDF.PA":incr++
symbolslistbox2.cell(1,incr)="EDI.PA":incr++
symbolslistbox2.cell(1,incr)="EEA.PA":incr++
symbolslistbox2.cell(1,incr)="EEE.PA":incr++
symbolslistbox2.cell(1,incr)="EEMK.PA":incr++
symbolslistbox2.cell(1,incr)="EEMU.PA":incr++
symbolslistbox2.cell(1,incr)="EEP.PA":incr++
symbolslistbox2.cell(1,incr)="EESM.PA":incr++
symbolslistbox2.cell(1,incr)="EEUE.PA":incr++
symbolslistbox2.cell(1,incr)="EEXU.PA":incr++
symbolslistbox2.cell(1,incr)="EFI.PA":incr++
symbolslistbox2.cell(1,incr)="EGOV.PA":incr++
symbolslistbox2.cell(1,incr)="EIFF.PA":incr++
symbolslistbox2.cell(1,incr)="EISR.PA":incr++
symbolslistbox2.cell(1,incr)="EJAH.PA":incr++
symbolslistbox2.cell(1,incr)="EJAP.PA":incr++
symbolslistbox2.cell(1,incr)="EKI.PA":incr++
symbolslistbox2.cell(1,incr)="EKLD.PA":incr++
symbolslistbox2.cell(1,incr)="EKUS.PA":incr++
symbolslistbox2.cell(1,incr)="EL.PA":incr++
'symbolslistbox2.cell(1,incr)="ELEC.PA":incr++
symbolslistbox2.cell(1,incr)="ELIOR.PA":incr++
symbolslistbox2.cell(1,incr)="ELIS.PA":incr++
symbolslistbox2.cell(1,incr)="ELOW.PA":incr++
'symbolslistbox2.cell(1,incr)="ELQC.PA":incr++
symbolslistbox2.cell(1,incr)="EMAE.PA":incr++
symbolslistbox2.cell(1,incr)="EMEH.PA":incr++
'symbolslistbox2.cell(1,incr)="EMG.PA":incr++
symbolslistbox2.cell(1,incr)="EMHD.PA":incr++
symbolslistbox2.cell(1,incr)="EMIS.PA":incr++
symbolslistbox2.cell(1,incr)="EMLD.PA":incr++
symbolslistbox2.cell(1,incr)="EMMV.PA":incr++
symbolslistbox2.cell(1,incr)="EMOM.PA":incr++
symbolslistbox2.cell(1,incr)="EMRG.PA":incr++
symbolslistbox2.cell(1,incr)="EMSR.PA":incr++
symbolslistbox2.cell(1,incr)="EMSRI.PA":incr++
symbolslistbox2.cell(1,incr)="EMUE.PA":incr++
symbolslistbox2.cell(1,incr)="EMWE.PA":incr++
symbolslistbox2.cell(1,incr)="EN.PA":incr++
symbolslistbox2.cell(1,incr)="ENAM.PA":incr++
symbolslistbox2.cell(1,incr)="ENG.PA":incr++
symbolslistbox2.cell(1,incr)="ENGI.PA":incr++
symbolslistbox2.cell(1,incr)="ENX.PA":incr++
symbolslistbox2.cell(1,incr)="EO.PA":incr++
symbolslistbox2.cell(1,incr)="EOS.PA":incr++
'symbolslistbox2.cell(1,incr)="EOSI.PA":incr++
symbolslistbox2.cell(1,incr)="EPEJ.PA":incr++
symbolslistbox2.cell(1,incr)="EPRA.PA":incr++
symbolslistbox2.cell(1,incr)="EPRE.PA":incr++
'symbolslistbox2.cell(1,incr)="EPS.PA":incr++
symbolslistbox2.cell(1,incr)="EQUA.PA":incr++
symbolslistbox2.cell(1,incr)="ERA.PA":incr++
symbolslistbox2.cell(1,incr)="ERF.PA":incr++
symbolslistbox2.cell(1,incr)="ERO.PA":incr++
symbolslistbox2.cell(1,incr)="ERYP.PA":incr++
symbolslistbox2.cell(1,incr)="ES.PA":incr++
symbolslistbox2.cell(1,incr)="ESD.PA":incr++
symbolslistbox2.cell(1,incr)="ESDD.PA":incr++
symbolslistbox2.cell(1,incr)="ESE.PA":incr++
symbolslistbox2.cell(1,incr)="ESEH.PA":incr++
symbolslistbox2.cell(1,incr)="ESI.PA":incr++
symbolslistbox2.cell(1,incr)="ETBB.PA":incr++
symbolslistbox2.cell(1,incr)="ETDD.PA":incr++
symbolslistbox2.cell(1,incr)="ETL.PA":incr++
'symbolslistbox2.cell(1,incr)="ETUR.PA":incr++
symbolslistbox2.cell(1,incr)="ETZ.PA":incr++
symbolslistbox2.cell(1,incr)="ETZD.PA":incr++
symbolslistbox2.cell(1,incr)="EUCAR.PA":incr++
symbolslistbox2.cell(1,incr)="EUCO.PA":incr++
symbolslistbox2.cell(1,incr)="EUDV.PA":incr++
symbolslistbox2.cell(1,incr)="EUHD.PA":incr++
'symbolslistbox2.cell(1,incr)="EUMV.PA":incr++
symbolslistbox2.cell(1,incr)="EUR.PA":incr++
symbolslistbox2.cell(1,incr)="EURS.PA":incr++
symbolslistbox2.cell(1,incr)="EUSRI.PA":incr++
symbolslistbox2.cell(1,incr)="EVAE.PA":incr++
symbolslistbox2.cell(1,incr)="EVOE.PA":incr++
symbolslistbox2.cell(1,incr)="EVOU.PA":incr++
symbolslistbox2.cell(1,incr)="EWLD.PA":incr++
symbolslistbox2.cell(1,incr)="EWRD.PA":incr++
'symbolslistbox2.cell(1,incr)="EXAC.PA":incr++
symbolslistbox2.cell(1,incr)="EXE.PA":incr++
'symbolslistbox2.cell(1,incr)="EXPL.PA":incr++
symbolslistbox2.cell(1,incr)="FALG.PA":incr++
'symbolslistbox2.cell(1,incr)="FATL.PA":incr++
'symbolslistbox2.cell(1,incr)="FAYE.PA":incr++
'symbolslistbox2.cell(1,incr)="FBEL.PA":incr++
'symbolslistbox2.cell(1,incr)="FCMC.PA":incr++
symbolslistbox2.cell(1,incr)="FDJ.PA":incr++
'symbolslistbox2.cell(1,incr)="FFP.PA":incr++
symbolslistbox2.cell(1,incr)="FGA.PA":incr++
symbolslistbox2.cell(1,incr)="FGBL.PA":incr++
symbolslistbox2.cell(1,incr)="FGR.PA":incr++
symbolslistbox2.cell(1,incr)="FII.PA":incr++
symbolslistbox2.cell(1,incr)="FIN.PA":incr++
'symbolslistbox2.cell(1,incr)="FINM.PA":incr++
'symbolslistbox2.cell(1,incr)="FINW.PA":incr++
symbolslistbox2.cell(1,incr)="FIPP.PA":incr++
'symbolslistbox2.cell(1,incr)="FJP.PA":incr++
symbolslistbox2.cell(1,incr)="FLO.PA":incr++
symbolslistbox2.cell(1,incr)="FLOT.PA":incr++
symbolslistbox2.cell(1,incr)="FLY.PA":incr++
symbolslistbox2.cell(1,incr)="FMI.PA":incr++
symbolslistbox2.cell(1,incr)="FNAC.PA":incr++
symbolslistbox2.cell(1,incr)="FNTS.PA":incr++
symbolslistbox2.cell(1,incr)="FOO.PA":incr++
'symbolslistbox2.cell(1,incr)="FP.PA":incr++
symbolslistbox2.cell(1,incr)="FPG.PA":incr++
symbolslistbox2.cell(1,incr)="FPN.PA":incr++
symbolslistbox2.cell(1,incr)="FPXU.PA":incr++
symbolslistbox2.cell(1,incr)="FR.PA":incr++
symbolslistbox2.cell(1,incr)="FREY.PA":incr++
symbolslistbox2.cell(1,incr)="FTI.PA":incr++
symbolslistbox2.cell(1,incr)="GAGG.PA":incr++
symbolslistbox2.cell(1,incr)="GALIM.PA":incr++
'symbolslistbox2.cell(1,incr)="GAM.PA":incr++
'symbolslistbox2.cell(1,incr)="GAUBS.PA":incr++
symbolslistbox2.cell(1,incr)="GBT.PA":incr++
symbolslistbox2.cell(1,incr)="GDS.PA":incr++
'symbolslistbox2.cell(1,incr)="GEA.PA":incr++
'symbolslistbox2.cell(1,incr)="GECBT.PA":incr++
'symbolslistbox2.cell(1,incr)="GECP.PA":incr++
symbolslistbox2.cell(1,incr)="GENX.PA":incr++
symbolslistbox2.cell(1,incr)="GET.PA":incr++
symbolslistbox2.cell(1,incr)="GFC.PA":incr++
symbolslistbox2.cell(1,incr)="GGOV.PA":incr++
symbolslistbox2.cell(1,incr)="GID.PA":incr++
'symbolslistbox2.cell(1,incr)="GIRO.PA":incr++
'symbolslistbox2.cell(1,incr)="GJAJ.PA":incr++
'symbolslistbox2.cell(1,incr)="GKTX.PA":incr++
symbolslistbox2.cell(1,incr)="GLDM.PA":incr++
symbolslistbox2.cell(1,incr)="GLE.PA":incr++
symbolslistbox2.cell(1,incr)="GLO.PA":incr++
symbolslistbox2.cell(1,incr)="GLUX.PA":incr++
symbolslistbox2.cell(1,incr)="GNE.PA":incr++
symbolslistbox2.cell(1,incr)="GNFT.PA":incr++
symbolslistbox2.cell(1,incr)="GNRO.PA":incr++
symbolslistbox2.cell(1,incr)="GOAI.PA":incr++
symbolslistbox2.cell(1,incr)="GOE.PA":incr++
symbolslistbox2.cell(1,incr)="GOVS.PA":incr++
symbolslistbox2.cell(1,incr)="GOVY.PA":incr++
symbolslistbox2.cell(1,incr)="GPE.PA":incr++
symbolslistbox2.cell(1,incr)="GRE.PA":incr++
'symbolslistbox2.cell(1,incr)="GREV.PA":incr++
'symbolslistbox2.cell(1,incr)="GRVO.PA":incr++
symbolslistbox2.cell(1,incr)="GSCU.PA":incr++
symbolslistbox2.cell(1,incr)="GTT.PA":incr++
symbolslistbox2.cell(1,incr)="GUI.PA":incr++
symbolslistbox2.cell(1,incr)="GV.PA":incr++
symbolslistbox2.cell(1,incr)="GWT.PA":incr++
symbolslistbox2.cell(1,incr)="HBZ.PA":incr++
symbolslistbox2.cell(1,incr)="HCAN.PA":incr++
symbolslistbox2.cell(1,incr)="HCO.PA":incr++
symbolslistbox2.cell(1,incr)="HDLV.PA":incr++
symbolslistbox2.cell(1,incr)="HDP.PA":incr++
symbolslistbox2.cell(1,incr)="HEU.PA":incr++
symbolslistbox2.cell(1,incr)="HEXA.PA":incr++
symbolslistbox2.cell(1,incr)="HF.PA":incr++
symbolslistbox2.cell(1,incr)="HHH.PA":incr++
'symbolslistbox2.cell(1,incr)="HIPAY.PA":incr++
symbolslistbox2.cell(1,incr)="HLT.PA":incr++
symbolslistbox2.cell(1,incr)="HLTW.PA":incr++
symbolslistbox2.cell(1,incr)="HMLA.PA":incr++
symbolslistbox2.cell(1,incr)="HO.PA":incr++
symbolslistbox2.cell(1,incr)="HOP.PA":incr++
'symbolslistbox2.cell(1,incr)="HSB.PA":incr++
symbolslistbox2.cell(1,incr)="HSI.PA":incr++
symbolslistbox2.cell(1,incr)="HTR.PA":incr++
symbolslistbox2.cell(1,incr)="HYBB.PA":incr++
symbolslistbox2.cell(1,incr)="HZAR.PA":incr++
symbolslistbox2.cell(1,incr)="IAM.PA":incr++
symbolslistbox2.cell(1,incr)="ICAD.PA":incr++
symbolslistbox2.cell(1,incr)="IDIP.PA":incr++
symbolslistbox2.cell(1,incr)="IDL.PA":incr++
'symbolslistbox2.cell(1,incr)="IGE.PA":incr++
'symbolslistbox2.cell(1,incr)="ILD.PA":incr++
symbolslistbox2.cell(1,incr)="IMDA.PA":incr++
symbolslistbox2.cell(1,incr)="IMIE.PA":incr++
symbolslistbox2.cell(1,incr)="IND.PA":incr++
symbolslistbox2.cell(1,incr)="INDO.PA":incr++
symbolslistbox2.cell(1,incr)="INDW.PA":incr++
symbolslistbox2.cell(1,incr)="INEA.PA":incr++
symbolslistbox2.cell(1,incr)="INF.PA":incr++
'symbolslistbox2.cell(1,incr)="INFE.PA":incr++
symbolslistbox2.cell(1,incr)="INFL.PA":incr++
symbolslistbox2.cell(1,incr)="INFU.PA":incr++
'symbolslistbox2.cell(1,incr)="ING.PA":incr++
symbolslistbox2.cell(1,incr)="INR.PA":incr++
symbolslistbox2.cell(1,incr)="INS.PA":incr++
symbolslistbox2.cell(1,incr)="IPH.PA":incr++
symbolslistbox2.cell(1,incr)="IPN.PA":incr++
symbolslistbox2.cell(1,incr)="IPS.PA":incr++
symbolslistbox2.cell(1,incr)="IRD.PA":incr++
symbolslistbox2.cell(1,incr)="ISTM.PA":incr++
symbolslistbox2.cell(1,incr)="ITE.PA":incr++
'symbolslistbox2.cell(1,incr)="ITL.PA":incr++
symbolslistbox2.cell(1,incr)="ITP.PA":incr++
'symbolslistbox2.cell(1,incr)="ITS.PA":incr++
symbolslistbox2.cell(1,incr)="IVA.PA":incr++
symbolslistbox2.cell(1,incr)="JBEM.PA":incr++
symbolslistbox2.cell(1,incr)="JBOG.PA":incr++
symbolslistbox2.cell(1,incr)="JCQ.PA":incr++
symbolslistbox2.cell(1,incr)="JNKE.PA":incr++
symbolslistbox2.cell(1,incr)="JPHC.PA":incr++
'symbolslistbox2.cell(1,incr)="JPMV.PA":incr++
symbolslistbox2.cell(1,incr)="JPN.PA":incr++
symbolslistbox2.cell(1,incr)="JPNH.PA":incr++
symbolslistbox2.cell(1,incr)="JPX4.PA":incr++
'symbolslistbox2.cell(1,incr)="JXR.PA":incr++
'symbolslistbox2.cell(1,incr)="KAZI.PA":incr++
symbolslistbox2.cell(1,incr)="KER.PA":incr++
'symbolslistbox2.cell(1,incr)="KEY.PA":incr++
'symbolslistbox2.cell(1,incr)="KKOWA.PA":incr++
'symbolslistbox2.cell(1,incr)="KN.PA":incr++
symbolslistbox2.cell(1,incr)="KOF.PA":incr++
symbolslistbox2.cell(1,incr)="KORI.PA":incr++
symbolslistbox2.cell(1,incr)="KRW.PA":incr++
symbolslistbox2.cell(1,incr)="L100.PA":incr++
symbolslistbox2.cell(1,incr)="LACR.PA":incr++
'symbolslistbox2.cell(1,incr)="LAF.PA":incr++
symbolslistbox2.cell(1,incr)="LAT.PA":incr++
symbolslistbox2.cell(1,incr)="LBIRD.PA":incr++
symbolslistbox2.cell(1,incr)="LBON.PA":incr++
'symbolslistbox2.cell(1,incr)="LCUS.PA":incr++
symbolslistbox2.cell(1,incr)="LCWD.PA":incr++
symbolslistbox2.cell(1,incr)="LEBL.PA":incr++
symbolslistbox2.cell(1,incr)="LEM.PA":incr++
symbolslistbox2.cell(1,incr)="LEMB.PA":incr++
symbolslistbox2.cell(1,incr)="LFDE.PA":incr++
'symbolslistbox2.cell(1,incr)="LHN.PA":incr++
symbolslistbox2.cell(1,incr)="LI.PA":incr++
symbolslistbox2.cell(1,incr)="LIN.PA":incr++
symbolslistbox2.cell(1,incr)="LNA.PA":incr++
symbolslistbox2.cell(1,incr)="LOCAL.PA":incr++
'symbolslistbox2.cell(1,incr)="LOUP.PA":incr++
symbolslistbox2.cell(1,incr)="LPE.PA":incr++
symbolslistbox2.cell(1,incr)="LQQ.PA":incr++
symbolslistbox2.cell(1,incr)="LR.PA":incr++
symbolslistbox2.cell(1,incr)="LSS.PA":incr++
symbolslistbox2.cell(1,incr)="LTA.PA":incr++
symbolslistbox2.cell(1,incr)="LTM.PA":incr++
symbolslistbox2.cell(1,incr)="LUXU.PA":incr++
symbolslistbox2.cell(1,incr)="LVC.PA":incr++
symbolslistbox2.cell(1,incr)="LVD.PA":incr++
symbolslistbox2.cell(1,incr)="LVE.PA":incr++
symbolslistbox2.cell(1,incr)="LWCR.PA":incr++
symbolslistbox2.cell(1,incr)="LWCU.PA":incr++
symbolslistbox2.cell(1,incr)="LYS.PA":incr++
symbolslistbox2.cell(1,incr)="MA13.PA":incr++
symbolslistbox2.cell(1,incr)="MA35.PA":incr++
'symbolslistbox2.cell(1,incr)="MA57.PA":incr++
symbolslistbox2.cell(1,incr)="MAA.PA":incr++
'symbolslistbox2.cell(1,incr)="MAGIS.PA":incr++
'symbolslistbox2.cell(1,incr)="MAL.PA":incr++
'symbolslistbox2.cell(1,incr)="MALT.PA":incr++
symbolslistbox2.cell(1,incr)="MAN.PA":incr++
symbolslistbox2.cell(1,incr)="MATW.PA":incr++
symbolslistbox2.cell(1,incr)="MAU.PA":incr++
symbolslistbox2.cell(1,incr)="MBWS.PA":incr++
symbolslistbox2.cell(1,incr)="MC.PA":incr++
symbolslistbox2.cell(1,incr)="MCPHY.PA":incr++
symbolslistbox2.cell(1,incr)="MDA.PA":incr++
symbolslistbox2.cell(1,incr)="MDM.PA":incr++
'symbolslistbox2.cell(1,incr)="MDW.PA":incr++
'symbolslistbox2.cell(1,incr)="MDWBS.PA":incr++
symbolslistbox2.cell(1,incr)="MEDCL.PA":incr++
symbolslistbox2.cell(1,incr)="MEH.PA":incr++
symbolslistbox2.cell(1,incr)="MEM.PA":incr++
symbolslistbox2.cell(1,incr)="MEMS.PA":incr++
symbolslistbox2.cell(1,incr)="MERY.PA":incr++
symbolslistbox2.cell(1,incr)="METEX.PA":incr++
symbolslistbox2.cell(1,incr)="MEU.PA":incr++
symbolslistbox2.cell(1,incr)="MEUD.PA":incr++
symbolslistbox2.cell(1,incr)="MF.PA":incr++
symbolslistbox2.cell(1,incr)="MFDD.PA":incr++
symbolslistbox2.cell(1,incr)="MFE.PA":incr++
symbolslistbox2.cell(1,incr)="MFED.PA":incr++
symbolslistbox2.cell(1,incr)="MGT.PA":incr++
symbolslistbox2.cell(1,incr)="MI10.PA":incr++
symbolslistbox2.cell(1,incr)="MI13.PA":incr++
symbolslistbox2.cell(1,incr)="MIB.PA":incr++
symbolslistbox2.cell(1,incr)="MIVO.PA":incr++
symbolslistbox2.cell(1,incr)="MIVU.PA":incr++
symbolslistbox2.cell(1,incr)="MJP.PA":incr++
symbolslistbox2.cell(1,incr)="MKEA.PA":incr++
symbolslistbox2.cell(1,incr)="MKTN.PA":incr++
symbolslistbox2.cell(1,incr)="ML.PA":incr++
'symbolslistbox2.cell(1,incr)="ML350.PA":incr++
symbolslistbox2.cell(1,incr)="MLAAH.PA":incr++
'symbolslistbox2.cell(1,incr)="MLALV.PA":incr++
'symbolslistbox2.cell(1,incr)="MLATV.PA":incr++
symbolslistbox2.cell(1,incr)="MLBAT.PA":incr++
symbolslistbox2.cell(1,incr)="MLBSP.PA":incr++
symbolslistbox2.cell(1,incr)="MLCAC.PA":incr++
symbolslistbox2.cell(1,incr)="MLCEC.PA":incr++
'symbolslistbox2.cell(1,incr)="MLCFM.PA":incr++
'symbolslistbox2.cell(1,incr)="MLCHE.PA":incr++
'symbolslistbox2.cell(1,incr)="MLCMB.PA":incr++
'symbolslistbox2.cell(1,incr)="MLCVG.PA":incr++
'symbolslistbox2.cell(1,incr)="MLDYN.PA":incr++
symbolslistbox2.cell(1,incr)="MLEAS.PA":incr++
'symbolslistbox2.cell(1,incr)="MLEDR.PA":incr++
'symbolslistbox2.cell(1,incr)="MLEES.PA":incr++
symbolslistbox2.cell(1,incr)="MLERO.PA":incr++
'symbolslistbox2.cell(1,incr)="MLETA.PA":incr++
symbolslistbox2.cell(1,incr)="MLFTI.PA":incr++
symbolslistbox2.cell(1,incr)="MLGAL.PA":incr++
'symbolslistbox2.cell(1,incr)="MLGEL.PA":incr++
'symbolslistbox2.cell(1,incr)="MLGEQ.PA":incr++
symbolslistbox2.cell(1,incr)="MLGML.PA":incr++
'symbolslistbox2.cell(1,incr)="MLHBB.PA":incr++
'symbolslistbox2.cell(1,incr)="MLHIN.PA":incr++
'symbolslistbox2.cell(1,incr)="MLHMC.PA":incr++
'symbolslistbox2.cell(1,incr)="MLHOT.PA":incr++
symbolslistbox2.cell(1,incr)="MLIDS.PA":incr++
symbolslistbox2.cell(1,incr)="MLIML.PA":incr++
symbolslistbox2.cell(1,incr)="MLIMP.PA":incr++
'symbolslistbox2.cell(1,incr)="MLIOC.PA":incr++
'symbolslistbox2.cell(1,incr)="MLMAB.PA":incr++
'symbolslistbox2.cell(1,incr)="MLMFI.PA":incr++
symbolslistbox2.cell(1,incr)="MLMGL.PA":incr++
'symbolslistbox2.cell(1,incr)="MLMMC.PA":incr++
symbolslistbox2.cell(1,incr)="MLMON.PA":incr++
'symbolslistbox2.cell(1,incr)="MLMUL.PA":incr++
'symbolslistbox2.cell(1,incr)="MLNEO.PA":incr++
symbolslistbox2.cell(1,incr)="MLNMA.PA":incr++
symbolslistbox2.cell(1,incr)="MLOCT.PA":incr++
'symbolslistbox2.cell(1,incr)="MLOLM.PA":incr++
symbolslistbox2.cell(1,incr)="MLONE.PA":incr++
'symbolslistbox2.cell(1,incr)="MLPFX.PA":incr++
symbolslistbox2.cell(1,incr)="MLPHW.PA":incr++
'symbolslistbox2.cell(1,incr)="MLPLC.PA":incr++
symbolslistbox2.cell(1,incr)="MLSDN.PA":incr++
symbolslistbox2.cell(1,incr)="MLSEQ.PA":incr++
'symbolslistbox2.cell(1,incr)="MLSIL.PA":incr++
'symbolslistbox2.cell(1,incr)="MLSIM.PA":incr++
symbolslistbox2.cell(1,incr)="MLSML.PA":incr++
symbolslistbox2.cell(1,incr)="MLSUM.PA":incr++
symbolslistbox2.cell(1,incr)="MLZAM.PA":incr++
symbolslistbox2.cell(1,incr)="MMB.PA":incr++
symbolslistbox2.cell(1,incr)="MMS.PA":incr++
symbolslistbox2.cell(1,incr)="MMT.PA":incr++
symbolslistbox2.cell(1,incr)="MOED.PA":incr++
'symbolslistbox2.cell(1,incr)="MONC.PA":incr++
symbolslistbox2.cell(1,incr)="MRK.PA":incr++
symbolslistbox2.cell(1,incr)="MRM.PA":incr++
symbolslistbox2.cell(1,incr)="MRN.PA":incr++
symbolslistbox2.cell(1,incr)="MSE.PA":incr++
symbolslistbox2.cell(1,incr)="MSED.PA":incr++
symbolslistbox2.cell(1,incr)="MTA.PA":incr++
symbolslistbox2.cell(1,incr)="MTB.PA":incr++
symbolslistbox2.cell(1,incr)="MTC.PA":incr++
symbolslistbox2.cell(1,incr)="MTD.PA":incr++
symbolslistbox2.cell(1,incr)="MTE.PA":incr++
symbolslistbox2.cell(1,incr)="MTF.PA":incr++
symbolslistbox2.cell(1,incr)="MTH.PA":incr++
symbolslistbox2.cell(1,incr)="MTI.PA":incr++
symbolslistbox2.cell(1,incr)="MTU.PA":incr++
symbolslistbox2.cell(1,incr)="MTX.PA":incr++
'symbolslistbox2.cell(1,incr)="MUA.PA":incr++
symbolslistbox2.cell(1,incr)="MUN.PA":incr++
symbolslistbox2.cell(1,incr)="MUS.PA":incr++
symbolslistbox2.cell(1,incr)="MVAE.PA":incr++
'symbolslistbox2.cell(1,incr)="MVAU.PA":incr++
symbolslistbox2.cell(1,incr)="MVUS.PA":incr++
symbolslistbox2.cell(1,incr)="MWO.PA":incr++
symbolslistbox2.cell(1,incr)="MXJ.PA":incr++
symbolslistbox2.cell(1,incr)="NANO.PA":incr++
symbolslistbox2.cell(1,incr)="NAVYA.PA":incr++
symbolslistbox2.cell(1,incr)="NDXH.PA":incr++
symbolslistbox2.cell(1,incr)="NEOEN.PA":incr++
symbolslistbox2.cell(1,incr)="NEX.PA":incr++
'symbolslistbox2.cell(1,incr)="NEXTS.PA":incr++
symbolslistbox2.cell(1,incr)="NK.PA":incr++
symbolslistbox2.cell(1,incr)="NLFBS.PA":incr++
symbolslistbox2.cell(1,incr)="NOKIA.PA":incr++
symbolslistbox2.cell(1,incr)="NRAM.PA":incr++
symbolslistbox2.cell(1,incr)="NRG.PA":incr++
symbolslistbox2.cell(1,incr)="NRGW.PA":incr++
symbolslistbox2.cell(1,incr)="NRJ.PA":incr++
symbolslistbox2.cell(1,incr)="NRO.PA":incr++
'symbolslistbox2.cell(1,incr)="NTG.PA":incr++
symbolslistbox2.cell(1,incr)="NXI.PA":incr++
symbolslistbox2.cell(1,incr)="OBLI.PA":incr++
'symbolslistbox2.cell(1,incr)="ODET.PA":incr++
symbolslistbox2.cell(1,incr)="OIL.PA":incr++
symbolslistbox2.cell(1,incr)="OLG.PA":incr++
'symbolslistbox2.cell(1,incr)="ONXEO.PA":incr++
symbolslistbox2.cell(1,incr)="OPN.PA":incr++
symbolslistbox2.cell(1,incr)="OR.PA":incr++
symbolslistbox2.cell(1,incr)="ORA.PA":incr++
symbolslistbox2.cell(1,incr)="ORAP.PA":incr++
symbolslistbox2.cell(1,incr)="OREGE.PA":incr++
'symbolslistbox2.cell(1,incr)="ORIA.PA":incr++
symbolslistbox2.cell(1,incr)="ORP.PA":incr++
symbolslistbox2.cell(1,incr)="OSE.PA":incr++
symbolslistbox2.cell(1,incr)="PAASI.PA":incr++
symbolslistbox2.cell(1,incr)="PAEEM.PA":incr++
symbolslistbox2.cell(1,incr)="PAEJ.PA":incr++
symbolslistbox2.cell(1,incr)="PAF.PA":incr++
'symbolslistbox2.cell(1,incr)="PAFS.PA":incr++
symbolslistbox2.cell(1,incr)="PALAT.PA":incr++
symbolslistbox2.cell(1,incr)="PANX.PA":incr++
'symbolslistbox2.cell(1,incr)="PAR.PA":incr++
symbolslistbox2.cell(1,incr)="PARP.PA":incr++
symbolslistbox2.cell(1,incr)="PARRO.PA":incr++
symbolslistbox2.cell(1,incr)="PASI.PA":incr++
symbolslistbox2.cell(1,incr)="PAT.PA":incr++
symbolslistbox2.cell(1,incr)="PAXJ.PA":incr++
symbolslistbox2.cell(1,incr)="PCA.PA":incr++
symbolslistbox2.cell(1,incr)="PCEU.PA":incr++
symbolslistbox2.cell(1,incr)="PDJE.PA":incr++
symbolslistbox2.cell(1,incr)="PE500.PA":incr++
symbolslistbox2.cell(1,incr)="PEAP.PA":incr++
symbolslistbox2.cell(1,incr)="PEF.PA":incr++
symbolslistbox2.cell(1,incr)="PEH.PA":incr++
symbolslistbox2.cell(1,incr)="PERR.PA":incr++
symbolslistbox2.cell(1,incr)="PEU.PA":incr++
symbolslistbox2.cell(1,incr)="PFT.PA":incr++
symbolslistbox2.cell(1,incr)="PHA.PA":incr++
symbolslistbox2.cell(1,incr)="PHG.PA":incr++
symbolslistbox2.cell(1,incr)="PID.PA":incr++
symbolslistbox2.cell(1,incr)="PIG.PA":incr++
symbolslistbox2.cell(1,incr)="PINR.PA":incr++
symbolslistbox2.cell(1,incr)="PJPH.PA":incr++
symbolslistbox2.cell(1,incr)="PJPN.PA":incr++
symbolslistbox2.cell(1,incr)="PKRW.PA":incr++
symbolslistbox2.cell(1,incr)="PLEM.PA":incr++
symbolslistbox2.cell(1,incr)="PMEH.PA":incr++
symbolslistbox2.cell(1,incr)="POM.PA":incr++
symbolslistbox2.cell(1,incr)="POXEL.PA":incr++
symbolslistbox2.cell(1,incr)="PQVM.PA":incr++
'symbolslistbox2.cell(1,incr)="PRBS1.PA":incr++
symbolslistbox2.cell(1,incr)="PRC.PA":incr++
'symbolslistbox2.cell(1,incr)="PREC.PA":incr++
symbolslistbox2.cell(1,incr)="PRIO.PA":incr++
symbolslistbox2.cell(1,incr)="PROL.PA":incr++
symbolslistbox2.cell(1,incr)="PRUS.PA":incr++
symbolslistbox2.cell(1,incr)="PSAT.PA":incr++
'symbolslistbox2.cell(1,incr)="PSB.PA":incr++
symbolslistbox2.cell(1,incr)="PSP5.PA":incr++
symbolslistbox2.cell(1,incr)="PSRW.PA":incr++
symbolslistbox2.cell(1,incr)="PTPXE.PA":incr++
symbolslistbox2.cell(1,incr)="PTPXH.PA":incr++
symbolslistbox2.cell(1,incr)="PUB.PA":incr++
symbolslistbox2.cell(1,incr)="PUBBS.PA":incr++
'symbolslistbox2.cell(1,incr)="PUSA.PA":incr++
symbolslistbox2.cell(1,incr)="PUST.PA":incr++
symbolslistbox2.cell(1,incr)="PVL.PA":incr++
symbolslistbox2.cell(1,incr)="PVX.PA":incr++
symbolslistbox2.cell(1,incr)="PWG.PA":incr++
symbolslistbox2.cell(1,incr)="QCEU.PA":incr++
symbolslistbox2.cell(1,incr)="QDT.PA":incr++
'symbolslistbox2.cell(1,incr)="QQQ.PA":incr++
symbolslistbox2.cell(1,incr)="QUED.PA":incr++
symbolslistbox2.cell(1,incr)="R2US.PA":incr++
symbolslistbox2.cell(1,incr)="RAL.PA":incr++
symbolslistbox2.cell(1,incr)="RBO.PA":incr++
'symbolslistbox2.cell(1,incr)="RBT.PA":incr++
symbolslistbox2.cell(1,incr)="RCO.PA":incr++
'symbolslistbox2.cell(1,incr)="RE.PA":incr++
symbolslistbox2.cell(1,incr)="RF.PA":incr++
symbolslistbox2.cell(1,incr)="RI.PA":incr++
'symbolslistbox2.cell(1,incr)="RIB.PA":incr++
symbolslistbox2.cell(1,incr)="RIN.PA":incr++
symbolslistbox2.cell(1,incr)="RIO.PA":incr++
symbolslistbox2.cell(1,incr)="RMS.PA":incr++
symbolslistbox2.cell(1,incr)="RNO.PA":incr++
symbolslistbox2.cell(1,incr)="ROTH.PA":incr++
symbolslistbox2.cell(1,incr)="RS2U.PA":incr++
symbolslistbox2.cell(1,incr)="RTA.PA":incr++
symbolslistbox2.cell(1,incr)="RUI.PA":incr++
symbolslistbox2.cell(1,incr)="RUS.PA":incr++
'symbolslistbox2.cell(1,incr)="RX.PA":incr++
symbolslistbox2.cell(1,incr)="RXL.PA":incr++
'symbolslistbox2.cell(1,incr)="S10.PA":incr++
symbolslistbox2.cell(1,incr)="S500.PA":incr++
symbolslistbox2.cell(1,incr)="S6EW.PA":incr++
symbolslistbox2.cell(1,incr)="SABE.PA":incr++
symbolslistbox2.cell(1,incr)="SACI.PA":incr++
symbolslistbox2.cell(1,incr)="SAF.PA":incr++
'symbolslistbox2.cell(1,incr)="SAMS.PA":incr++
symbolslistbox2.cell(1,incr)="SAN.PA":incr++
symbolslistbox2.cell(1,incr)="SAVE.PA":incr++
symbolslistbox2.cell(1,incr)="SBT.PA":incr++
symbolslistbox2.cell(1,incr)="SCHP.PA":incr++
symbolslistbox2.cell(1,incr)="SCR.PA":incr++
symbolslistbox2.cell(1,incr)="SDG.PA":incr++
symbolslistbox2.cell(1,incr)="SDT.PA":incr++
symbolslistbox2.cell(1,incr)="SEC.PA":incr++
symbolslistbox2.cell(1,incr)="SEFER.PA":incr++
symbolslistbox2.cell(1,incr)="SEL.PA":incr++
'symbolslistbox2.cell(1,incr)="SELER.PA":incr++
symbolslistbox2.cell(1,incr)="SESG.PA":incr++
symbolslistbox2.cell(1,incr)="SESL.PA":incr++
symbolslistbox2.cell(1,incr)="SEUC.PA":incr++
symbolslistbox2.cell(1,incr)="SEV.PA":incr++
'symbolslistbox2.cell(1,incr)="SFBS.PA":incr++
symbolslistbox2.cell(1,incr)="SFCA.PA":incr++
symbolslistbox2.cell(1,incr)="SFPI.PA":incr++
symbolslistbox2.cell(1,incr)="SGO.PA":incr++
symbolslistbox2.cell(1,incr)="SGQE.PA":incr++
symbolslistbox2.cell(1,incr)="SGQI.PA":incr++
'symbolslistbox2.cell(1,incr)="SGVB.PA":incr++
symbolslistbox2.cell(1,incr)="SHC.PA":incr++
symbolslistbox2.cell(1,incr)="SIGHT.PA":incr++
symbolslistbox2.cell(1,incr)="SII.PA":incr++
symbolslistbox2.cell(1,incr)="SK.PA":incr++
symbolslistbox2.cell(1,incr)="SLB.PA":incr++
symbolslistbox2.cell(1,incr)="SMC.PA":incr++
symbolslistbox2.cell(1,incr)="SMCP.PA":incr++
symbolslistbox2.cell(1,incr)="SMRT.PA":incr++
symbolslistbox2.cell(1,incr)="SMTPC.PA":incr++
symbolslistbox2.cell(1,incr)="SO.PA":incr++
'symbolslistbox2.cell(1,incr)="SOA.PA":incr++
'symbolslistbox2.cell(1,incr)="SOFR.PA":incr++
symbolslistbox2.cell(1,incr)="SOG.PA":incr++
symbolslistbox2.cell(1,incr)="SOI.PA":incr++
symbolslistbox2.cell(1,incr)="SOP.PA":incr++
symbolslistbox2.cell(1,incr)="SP5.PA":incr++
symbolslistbox2.cell(1,incr)="SP5C.PA":incr++
'symbolslistbox2.cell(1,incr)="SPEL.PA":incr++
symbolslistbox2.cell(1,incr)="SPIE.PA":incr++
symbolslistbox2.cell(1,incr)="SPMV.PA":incr++
symbolslistbox2.cell(1,incr)="SPY4.PA":incr++
symbolslistbox2.cell(1,incr)="SPY5.PA":incr++
symbolslistbox2.cell(1,incr)="SQI.PA":incr++
symbolslistbox2.cell(1,incr)="SRIE.PA":incr++
symbolslistbox2.cell(1,incr)="SRIJ.PA":incr++
symbolslistbox2.cell(1,incr)="SRP.PA":incr++
'symbolslistbox2.cell(1,incr)="SSI.PA":incr++
'symbolslistbox2.cell(1,incr)="STAL.PA":incr++
symbolslistbox2.cell(1,incr)="STF.PA":incr++
symbolslistbox2.cell(1,incr)="STK.PA":incr++
symbolslistbox2.cell(1,incr)="STM.PA":incr++
symbolslistbox2.cell(1,incr)="STN.PA":incr++
symbolslistbox2.cell(1,incr)="STP.PA":incr++
symbolslistbox2.cell(1,incr)="STQ.PA":incr++
symbolslistbox2.cell(1,incr)="STR.PA":incr++
symbolslistbox2.cell(1,incr)="STS.PA":incr++
symbolslistbox2.cell(1,incr)="STT.PA":incr++
symbolslistbox2.cell(1,incr)="STU.PA":incr++
symbolslistbox2.cell(1,incr)="STW.PA":incr++
symbolslistbox2.cell(1,incr)="STZ.PA":incr++
symbolslistbox2.cell(1,incr)="SU.PA":incr++
'symbolslistbox2.cell(1,incr)="SU7.PA":incr++
symbolslistbox2.cell(1,incr)="SW.PA":incr++
symbolslistbox2.cell(1,incr)="SWP.PA":incr++
symbolslistbox2.cell(1,incr)="SX.PA":incr++
'symbolslistbox2.cell(1,incr)="TAYN.PA":incr++
symbolslistbox2.cell(1,incr)="TCH.PA":incr++
symbolslistbox2.cell(1,incr)="TELW.PA":incr++
symbolslistbox2.cell(1,incr)="TEP.PA":incr++
'symbolslistbox2.cell(1,incr)="TES.PA":incr++
symbolslistbox2.cell(1,incr)="TFF.PA":incr++
symbolslistbox2.cell(1,incr)="TFI.PA":incr++
'symbolslistbox2.cell(1,incr)="THA.PA":incr++
symbolslistbox2.cell(1,incr)="THEP.PA":incr++
'symbolslistbox2.cell(1,incr)="TIPI.PA":incr++
symbolslistbox2.cell(1,incr)="TKO.PA":incr++
symbolslistbox2.cell(1,incr)="TKTT.PA":incr++
symbolslistbox2.cell(1,incr)="TNG.PA":incr++
symbolslistbox2.cell(1,incr)="TNO.PA":incr++
symbolslistbox2.cell(1,incr)="TNOW.PA":incr++
symbolslistbox2.cell(1,incr)="TOUP.PA":incr++
symbolslistbox2.cell(1,incr)="TPHC.PA":incr++
symbolslistbox2.cell(1,incr)="TPXE.PA":incr++
symbolslistbox2.cell(1,incr)="TPXH.PA":incr++
symbolslistbox2.cell(1,incr)="TRI.PA":incr++
symbolslistbox2.cell(1,incr)="TRV.PA":incr++
'symbolslistbox2.cell(1,incr)="TSX.PA":incr++
symbolslistbox2.cell(1,incr)="TSYE.PA":incr++
symbolslistbox2.cell(1,incr)="TUR.PA":incr++
'symbolslistbox2.cell(1,incr)="TVLY.PA":incr++
'symbolslistbox2.cell(1,incr)="TVRB.PA":incr++
symbolslistbox2.cell(1,incr)="TWN.PA":incr++
symbolslistbox2.cell(1,incr)="UBBB.PA":incr++
symbolslistbox2.cell(1,incr)="UBI.PA":incr++
symbolslistbox2.cell(1,incr)="UFF.PA":incr++
'symbolslistbox2.cell(1,incr)="UG.PA":incr++
symbolslistbox2.cell(1,incr)="UIFL.PA":incr++
symbolslistbox2.cell(1,incr)="UKX.PA":incr++
'symbolslistbox2.cell(1,incr)="UNBL.PA":incr++
symbolslistbox2.cell(1,incr)="US1.PA":incr++
symbolslistbox2.cell(1,incr)="US10.PA":incr++
symbolslistbox2.cell(1,incr)="US3.PA":incr++
symbolslistbox2.cell(1,incr)="US7.PA":incr++
symbolslistbox2.cell(1,incr)="USA.PA":incr++
symbolslistbox2.cell(1,incr)="USAC.PA":incr++
'symbolslistbox2.cell(1,incr)="USAG.PA":incr++
symbolslistbox2.cell(1,incr)="USIH.PA":incr++
symbolslistbox2.cell(1,incr)="USRI.PA":incr++
symbolslistbox2.cell(1,incr)="UST.PA":incr++
symbolslistbox2.cell(1,incr)="UTI.PA":incr++
symbolslistbox2.cell(1,incr)="UTLW.PA":incr++
symbolslistbox2.cell(1,incr)="VAC.PA":incr++
symbolslistbox2.cell(1,incr)="VAL.PA":incr++
symbolslistbox2.cell(1,incr)="VALD.PA":incr++
symbolslistbox2.cell(1,incr)="VCT.PA":incr++
'symbolslistbox2.cell(1,incr)="VDLO.PA":incr++
symbolslistbox2.cell(1,incr)="VETO.PA":incr++
symbolslistbox2.cell(1,incr)="VIE.PA":incr++
symbolslistbox2.cell(1,incr)="VIL.PA":incr++
symbolslistbox2.cell(1,incr)="VIRP.PA":incr++
symbolslistbox2.cell(1,incr)="VIV.PA":incr++
symbolslistbox2.cell(1,incr)="VK.PA":incr++
symbolslistbox2.cell(1,incr)="VLA.PA":incr++
symbolslistbox2.cell(1,incr)="VLED.PA":incr++
symbolslistbox2.cell(1,incr)="VLTSA.PA":incr++
symbolslistbox2.cell(1,incr)="VMX.PA":incr++
symbolslistbox2.cell(1,incr)="VRAP.PA":incr++
'symbolslistbox2.cell(1,incr)="VRNL.PA":incr++
'symbolslistbox2.cell(1,incr)="VTX.PA":incr++
symbolslistbox2.cell(1,incr)="WAT.PA":incr++
symbolslistbox2.cell(1,incr)="WAVE.PA":incr++
'symbolslistbox2.cell(1,incr)="WIG.PA":incr++
symbolslistbox2.cell(1,incr)="WLD.PA":incr++
symbolslistbox2.cell(1,incr)="WLDH.PA":incr++
symbolslistbox2.cell(1,incr)="WLN.PA":incr++
symbolslistbox2.cell(1,incr)="WRD.PA":incr++
symbolslistbox2.cell(1,incr)="WSRI.PA":incr++
symbolslistbox2.cell(1,incr)="X13G.PA":incr++
symbolslistbox2.cell(1,incr)="X1G.PA":incr++
symbolslistbox2.cell(1,incr)="X1GD.PA":incr++
symbolslistbox2.cell(1,incr)="XFAB.PA":incr++
symbolslistbox2.cell(1,incr)="XIL.PA":incr++
'symbolslistbox2.cell(1,incr)="XPO.PA":incr++
symbolslistbox2.cell(1,incr)="YIEL.PA"

defint parisstocksincr=incr
    ' 1066 Paris stocks incr 8224 - 9289
    ' incr=9289
        
   incr++
   
   
   
  'London
  
  symbolslistbox2.cell(1,incr)="0A1O.L":incr++
'symbolslistbox2.cell(1,incr)="0CXC.L":incr++
'symbolslistbox2.cell(1,incr)="0DHJ.L":incr++
'symbolslistbox2.cell(1,incr)="0DNH.L":incr++
'symbolslistbox2.cell(1,incr)="0DQ7.L":incr++
'symbolslistbox2.cell(1,incr)="0F4I.L":incr++
'symbolslistbox2.cell(1,incr)="0FC9.L":incr++
'symbolslistbox2.cell(1,incr)="0FJ8.L":incr++
'symbolslistbox2.cell(1,incr)="0G6T.L":incr++
'symbolslistbox2.cell(1,incr)="0G7B.L":incr++
'symbolslistbox2.cell(1,incr)="0G8C.L":incr++
'symbolslistbox2.cell(1,incr)="0G9W.L":incr++
'symbolslistbox2.cell(1,incr)="0GO4.L":incr++
'symbolslistbox2.cell(1,incr)="0GRX.L":incr++
'symbolslistbox2.cell(1,incr)="0H00.L":incr++
'symbolslistbox2.cell(1,incr)="0HAU.L":incr++
'symbolslistbox2.cell(1,incr)="0HCI.L":incr++
'symbolslistbox2.cell(1,incr)="0HV2.L":incr++
'symbolslistbox2.cell(1,incr)="0HXB.L":incr++
symbolslistbox2.cell(1,incr)="0I1W.L":incr++
'symbolslistbox2.cell(1,incr)="0IGF.L":incr++
'symbolslistbox2.cell(1,incr)="0II2.L":incr++
'symbolslistbox2.cell(1,incr)="0IT3.L":incr++
'symbolslistbox2.cell(1,incr)="0IU8.L":incr++
'symbolslistbox2.cell(1,incr)="0IZ8.L":incr++
'symbolslistbox2.cell(1,incr)="0J6V.L":incr++
'symbolslistbox2.cell(1,incr)="0J86.L":incr++
'symbolslistbox2.cell(1,incr)="0JN9.L":incr++
'symbolslistbox2.cell(1,incr)="0JNI.L":incr++
symbolslistbox2.cell(1,incr)="0JOE.L":incr++
symbolslistbox2.cell(1,incr)="0JTM.L":incr++
'symbolslistbox2.cell(1,incr)="0K9A.L":incr++
symbolslistbox2.cell(1,incr)="0KBI.L":incr++
'symbolslistbox2.cell(1,incr)="0KG0.L":incr++
symbolslistbox2.cell(1,incr)="0KGH.L":incr++
'symbolslistbox2.cell(1,incr)="0KVV.L":incr++
symbolslistbox2.cell(1,incr)="0KZF.L":incr++
'symbolslistbox2.cell(1,incr)="0L6Z.L":incr++
'symbolslistbox2.cell(1,incr)="0LBN.L":incr++
'symbolslistbox2.cell(1,incr)="0LD0.L":incr++
symbolslistbox2.cell(1,incr)="0LDR.L":incr++
'symbolslistbox2.cell(1,incr)="0LNQ.L":incr++
'symbolslistbox2.cell(1,incr)="0LNT.L":incr++
symbolslistbox2.cell(1,incr)="0LO6.L":incr++
'symbolslistbox2.cell(1,incr)="0LO8.L":incr++
'symbolslistbox2.cell(1,incr)="0LQ1.L":incr++
'symbolslistbox2.cell(1,incr)="0LQ4.L":incr++
symbolslistbox2.cell(1,incr)="0LS8.L":incr++
'symbolslistbox2.cell(1,incr)="0M2Z.L":incr++
'symbolslistbox2.cell(1,incr)="0M6P.L":incr++
'symbolslistbox2.cell(1,incr)="0M9A.L":incr++
'symbolslistbox2.cell(1,incr)="0MFU.L":incr++
'symbolslistbox2.cell(1,incr)="0MG0.L":incr++
'symbolslistbox2.cell(1,incr)="0MG2.L":incr++
'symbolslistbox2.cell(1,incr)="0MG5.L":incr++
'symbolslistbox2.cell(1,incr)="0MGB.L":incr++
'symbolslistbox2.cell(1,incr)="0MGR.L":incr++
'symbolslistbox2.cell(1,incr)="0MGS.L":incr++
'symbolslistbox2.cell(1,incr)="0MGU.L":incr++
'symbolslistbox2.cell(1,incr)="0MHJ.L":incr++
'symbolslistbox2.cell(1,incr)="0MHR.L":incr++
'symbolslistbox2.cell(1,incr)="0MJK.L":incr++
'symbolslistbox2.cell(1,incr)="0MKG.L":incr++
'symbolslistbox2.cell(1,incr)="0MKH.L":incr++
'symbolslistbox2.cell(1,incr)="0MKS.L":incr++
'symbolslistbox2.cell(1,incr)="0MKT.L":incr++
'symbolslistbox2.cell(1,incr)="0MPL.L":incr++
'symbolslistbox2.cell(1,incr)="0MV2.L":incr++
'symbolslistbox2.cell(1,incr)="0N73.L":incr++
'symbolslistbox2.cell(1,incr)="0NBD.L":incr++
'symbolslistbox2.cell(1,incr)="0NI1.L":incr++
'symbolslistbox2.cell(1,incr)="0NIF.L":incr++
'symbolslistbox2.cell(1,incr)="0NIS.L":incr++
'symbolslistbox2.cell(1,incr)="0NMR.L":incr++
'symbolslistbox2.cell(1,incr)="0NMU.L":incr++
'symbolslistbox2.cell(1,incr)="0NQ5.L":incr++
'symbolslistbox2.cell(1,incr)="0NQH.L":incr++
'symbolslistbox2.cell(1,incr)="0NQM.L":incr++
'symbolslistbox2.cell(1,incr)="0NQP.L":incr++
'symbolslistbox2.cell(1,incr)="0NR2.L":incr++
'symbolslistbox2.cell(1,incr)="0NR4.L":incr++
'symbolslistbox2.cell(1,incr)="0NRG.L":incr++
'symbolslistbox2.cell(1,incr)="0NRV.L":incr++
'symbolslistbox2.cell(1,incr)="0NUX.L":incr++
'symbolslistbox2.cell(1,incr)="0NV5.L":incr++
'symbolslistbox2.cell(1,incr)="0NVL.L":incr++
'symbolslistbox2.cell(1,incr)="0NX9.L":incr++
'symbolslistbox2.cell(1,incr)="0NY8.L":incr++
'symbolslistbox2.cell(1,incr)="0NYH.L":incr++
'symbolslistbox2.cell(1,incr)="0NYY.L":incr++
'symbolslistbox2.cell(1,incr)="0NZR.L":incr++
'symbolslistbox2.cell(1,incr)="0NZT.L":incr++
'symbolslistbox2.cell(1,incr)="0O0V.L":incr++
'symbolslistbox2.cell(1,incr)="0O26.L":incr++
'symbolslistbox2.cell(1,incr)="0O46.L":incr++
'symbolslistbox2.cell(1,incr)="0O77.L":incr++
'symbolslistbox2.cell(1,incr)="0O7D.L":incr++
'symbolslistbox2.cell(1,incr)="0O8X.L":incr++
'symbolslistbox2.cell(1,incr)="0OAW.L":incr++
'symbolslistbox2.cell(1,incr)="0OF7.L":incr++
'symbolslistbox2.cell(1,incr)="0OFU.L":incr++
'symbolslistbox2.cell(1,incr)="0OMK.L":incr++
'symbolslistbox2.cell(1,incr)="0OO9.L":incr++
'symbolslistbox2.cell(1,incr)="0OQJ.L":incr++
'symbolslistbox2.cell(1,incr)="0P0000RU7W.L":incr++
'symbolslistbox2.cell(1,incr)="0P2N.L":incr++
'symbolslistbox2.cell(1,incr)="0P47.L":incr++
'symbolslistbox2.cell(1,incr)="0P6S.L":incr++
'symbolslistbox2.cell(1,incr)="0Q16.L":incr++
'symbolslistbox2.cell(1,incr)="0Q2N.L":incr++
'symbolslistbox2.cell(1,incr)="0QB8.L":incr++
'symbolslistbox2.cell(1,incr)="0QIU.L":incr++
symbolslistbox2.cell(1,incr)="0QOQ.L":incr++
symbolslistbox2.cell(1,incr)="0QOT.L":incr++
symbolslistbox2.cell(1,incr)="0QQ6.L":incr++
'symbolslistbox2.cell(1,incr)="0QR4.L":incr++
'symbolslistbox2.cell(1,incr)="0QZO.L":incr++
'symbolslistbox2.cell(1,incr)="0R01.L":incr++
'symbolslistbox2.cell(1,incr)="0R2F.L":incr++
'symbolslistbox2.cell(1,incr)="0R2T.L":incr++
'symbolslistbox2.cell(1,incr)="0R2V.L":incr++
'symbolslistbox2.cell(1,incr)="0R37.L":incr++
'symbolslistbox2.cell(1,incr)="0UO9.L":incr++
'symbolslistbox2.cell(1,incr)="0YP5.L":incr++
'symbolslistbox2.cell(1,incr)="0Z4S.L":incr++
symbolslistbox2.cell(1,incr)="100H.L":incr++
symbolslistbox2.cell(1,incr)="1MCS.L":incr++
symbolslistbox2.cell(1,incr)="1PAS.L":incr++
symbolslistbox2.cell(1,incr)="2MCL.L":incr++
symbolslistbox2.cell(1,incr)="2PAL.L":incr++
symbolslistbox2.cell(1,incr)="2UKL.L":incr++
symbolslistbox2.cell(1,incr)="2UKS.L":incr++
symbolslistbox2.cell(1,incr)="3BAL.L":incr++
'symbolslistbox2.cell(1,incr)="3BAS.L":incr++
symbolslistbox2.cell(1,incr)="3BRL.L":incr++
'symbolslistbox2.cell(1,incr)="3BRS.L":incr++
'symbolslistbox2.cell(1,incr)="3BSR.L":incr++
symbolslistbox2.cell(1,incr)="3CFL.L":incr++
symbolslistbox2.cell(1,incr)="3DEL.L":incr++
symbolslistbox2.cell(1,incr)="3DES.L":incr++
symbolslistbox2.cell(1,incr)="3EML.L":incr++
symbolslistbox2.cell(1,incr)="3EUL.L":incr++
symbolslistbox2.cell(1,incr)="3EUS.L":incr++
symbolslistbox2.cell(1,incr)="3GIL.L":incr++
symbolslistbox2.cell(1,incr)="3GIS.L":incr++
symbolslistbox2.cell(1,incr)="3GOL.L":incr++
symbolslistbox2.cell(1,incr)="3GOS.L":incr++
symbolslistbox2.cell(1,incr)="3HCL.L":incr++
symbolslistbox2.cell(1,incr)="3HCS.L":incr++
symbolslistbox2.cell(1,incr)="3IN.L":incr++
'symbolslistbox2.cell(1,incr)="3ITL.L":incr++
'symbolslistbox2.cell(1,incr)="3ITS.L":incr++
symbolslistbox2.cell(1,incr)="3LDE.L":incr++
symbolslistbox2.cell(1,incr)="3LEU.L":incr++
symbolslistbox2.cell(1,incr)="3LGO.L":incr++
symbolslistbox2.cell(1,incr)="3LGS.L":incr++
symbolslistbox2.cell(1,incr)="3LNG.L":incr++
symbolslistbox2.cell(1,incr)="3LSI.L":incr++
symbolslistbox2.cell(1,incr)="3LUS.L":incr++
symbolslistbox2.cell(1,incr)="3NGL.L":incr++
symbolslistbox2.cell(1,incr)="3NGS.L":incr++
symbolslistbox2.cell(1,incr)="3NIL.L":incr++
symbolslistbox2.cell(1,incr)="3NIS.L":incr++
symbolslistbox2.cell(1,incr)="3SDE.L":incr++
symbolslistbox2.cell(1,incr)="3SGO.L":incr++
symbolslistbox2.cell(1,incr)="3SIL.L":incr++
symbolslistbox2.cell(1,incr)="3SIS.L":incr++
symbolslistbox2.cell(1,incr)="3SSI.L":incr++
symbolslistbox2.cell(1,incr)="3SUL.L":incr++
symbolslistbox2.cell(1,incr)="3TYS.L":incr++
symbolslistbox2.cell(1,incr)="3UKL.L":incr++
symbolslistbox2.cell(1,incr)="3UKS.L":incr++
symbolslistbox2.cell(1,incr)="3ULS.L":incr++
symbolslistbox2.cell(1,incr)="3USL.L":incr++
symbolslistbox2.cell(1,incr)="3USS.L":incr++
symbolslistbox2.cell(1,incr)="3WHL.L":incr++
symbolslistbox2.cell(1,incr)="500G.L":incr++
symbolslistbox2.cell(1,incr)="500U.L":incr++
'symbolslistbox2.cell(1,incr)="5UKL.L":incr++
symbolslistbox2.cell(1,incr)="7DIG.L":incr++
symbolslistbox2.cell(1,incr)="888.L":incr++
symbolslistbox2.cell(1,incr)="88E.L":incr++
'symbolslistbox2.cell(1,incr)="AA.L":incr++
symbolslistbox2.cell(1,incr)="AA4.L":incr++
'symbolslistbox2.cell(1,incr)="AAA.L":incr++
symbolslistbox2.cell(1,incr)="AAAP.L":incr++
symbolslistbox2.cell(1,incr)="AADV.L":incr++
symbolslistbox2.cell(1,incr)="AAEV.L":incr++
symbolslistbox2.cell(1,incr)="AAF.L":incr++
symbolslistbox2.cell(1,incr)="AAIF.L":incr++
symbolslistbox2.cell(1,incr)="AAL.L":incr++
'symbolslistbox2.cell(1,incr)="AAM.L":incr++
'symbolslistbox2.cell(1,incr)="AAOG.L":incr++
symbolslistbox2.cell(1,incr)="AAS.L":incr++
'symbolslistbox2.cell(1,incr)="AASC.L":incr++
symbolslistbox2.cell(1,incr)="AASG.L":incr++
symbolslistbox2.cell(1,incr)="AASU.L":incr++
symbolslistbox2.cell(1,incr)="AATG.L":incr++
symbolslistbox2.cell(1,incr)="AAU.L":incr++
symbolslistbox2.cell(1,incr)="AAVC.L":incr++
symbolslistbox2.cell(1,incr)="AAZ.L":incr++
'symbolslistbox2.cell(1,incr)="ABBY.L":incr++
symbolslistbox2.cell(1,incr)="ABC.L":incr++
symbolslistbox2.cell(1,incr)="ABD.L":incr++
symbolslistbox2.cell(1,incr)="ABDP.L":incr++
symbolslistbox2.cell(1,incr)="ABF.L":incr++
symbolslistbox2.cell(1,incr)="ACC.L":incr++
symbolslistbox2.cell(1,incr)="ACP.L":incr++
symbolslistbox2.cell(1,incr)="ACRL.L":incr++
symbolslistbox2.cell(1,incr)="ACSO.L":incr++
symbolslistbox2.cell(1,incr)="ACT.L":incr++
symbolslistbox2.cell(1,incr)="ACWD.L":incr++
symbolslistbox2.cell(1,incr)="ACWI.L":incr++
'symbolslistbox2.cell(1,incr)="ACWL.L":incr++
symbolslistbox2.cell(1,incr)="ACWU.L":incr++
symbolslistbox2.cell(1,incr)="ADA.L":incr++
'symbolslistbox2.cell(1,incr)="ADAM.L":incr++
'symbolslistbox2.cell(1,incr)="ADES.L":incr++
symbolslistbox2.cell(1,incr)="ADIG.L":incr++
symbolslistbox2.cell(1,incr)="ADM.L":incr++
symbolslistbox2.cell(1,incr)="ADT.L":incr++
'symbolslistbox2.cell(1,incr)="AEFS.L":incr++
symbolslistbox2.cell(1,incr)="AEG.L":incr++
symbolslistbox2.cell(1,incr)="AEJ.L":incr++
symbolslistbox2.cell(1,incr)="AEJL.L":incr++
'symbolslistbox2.cell(1,incr)="AEMC.L":incr++
symbolslistbox2.cell(1,incr)="AEO.L":incr++
symbolslistbox2.cell(1,incr)="AEP.L":incr++
symbolslistbox2.cell(1,incr)="AEWU.L":incr++
symbolslistbox2.cell(1,incr)="AEX.L":incr++
'symbolslistbox2.cell(1,incr)="AEXK.L":incr++
symbolslistbox2.cell(1,incr)="AFC.L":incr++
'symbolslistbox2.cell(1,incr)="AFHP.L":incr++
symbolslistbox2.cell(1,incr)="AFM.L":incr++
'symbolslistbox2.cell(1,incr)="AFMC.L":incr++
symbolslistbox2.cell(1,incr)="AFN.L":incr++
'symbolslistbox2.cell(1,incr)="AFS.L":incr++
'symbolslistbox2.cell(1,incr)="AFSU.L":incr++
symbolslistbox2.cell(1,incr)="AFX.L":incr++
symbolslistbox2.cell(1,incr)="AGAP.L":incr++
symbolslistbox2.cell(1,incr)="AGBP.L":incr++
symbolslistbox2.cell(1,incr)="AGCP.L":incr++
symbolslistbox2.cell(1,incr)="AGED.L":incr++
symbolslistbox2.cell(1,incr)="AGES.L":incr++
symbolslistbox2.cell(1,incr)="AGGG.L":incr++
symbolslistbox2.cell(1,incr)="AGGP.L":incr++
symbolslistbox2.cell(1,incr)="AGGU.L":incr++
'symbolslistbox2.cell(1,incr)="AGK.L":incr++
symbolslistbox2.cell(1,incr)="AGL.L":incr++
symbolslistbox2.cell(1,incr)="AGM.L":incr++
symbolslistbox2.cell(1,incr)="AGR.L":incr++
symbolslistbox2.cell(1,incr)="AGY.L":incr++
symbolslistbox2.cell(1,incr)="AH50.L":incr++
symbolslistbox2.cell(1,incr)="AHT.L":incr++
symbolslistbox2.cell(1,incr)="AIBG.L":incr++
symbolslistbox2.cell(1,incr)="AIEA.L":incr++
'symbolslistbox2.cell(1,incr)="AIF.L":incr++
symbolslistbox2.cell(1,incr)="AIFZ.L":incr++
symbolslistbox2.cell(1,incr)="AIGA.L":incr++
symbolslistbox2.cell(1,incr)="AIGC.L":incr++
symbolslistbox2.cell(1,incr)="AIGE.L":incr++
symbolslistbox2.cell(1,incr)="AIGG.L":incr++
symbolslistbox2.cell(1,incr)="AIGI.L":incr++
symbolslistbox2.cell(1,incr)="AIGL.L":incr++
symbolslistbox2.cell(1,incr)="AIGP.L":incr++
'symbolslistbox2.cell(1,incr)="AIND.L":incr++
symbolslistbox2.cell(1,incr)="AIR.L":incr++
symbolslistbox2.cell(1,incr)="AJB.L":incr++
symbolslistbox2.cell(1,incr)="AJG.L":incr++
symbolslistbox2.cell(1,incr)="AJIT.L":incr++
symbolslistbox2.cell(1,incr)="AJOT.L":incr++
symbolslistbox2.cell(1,incr)="ALAG.L":incr++
symbolslistbox2.cell(1,incr)="ALAI.L":incr++
symbolslistbox2.cell(1,incr)="ALAU.L":incr++
symbolslistbox2.cell(1,incr)="ALBA.L":incr++
symbolslistbox2.cell(1,incr)="ALF.L":incr++
symbolslistbox2.cell(1,incr)="ALFA.L":incr++
symbolslistbox2.cell(1,incr)="ALGW.L":incr++
symbolslistbox2.cell(1,incr)="ALM.L":incr++
symbolslistbox2.cell(1,incr)="ALQD.L":incr++
symbolslistbox2.cell(1,incr)="ALS.L":incr++
symbolslistbox2.cell(1,incr)="ALT.L":incr++
symbolslistbox2.cell(1,incr)="ALTN.L":incr++
symbolslistbox2.cell(1,incr)="ALU.L":incr++
symbolslistbox2.cell(1,incr)="ALUM.L":incr++
symbolslistbox2.cell(1,incr)="AMAT.L":incr++
symbolslistbox2.cell(1,incr)="AMC.L":incr++
'symbolslistbox2.cell(1,incr)="AMER.L":incr++
symbolslistbox2.cell(1,incr)="AMGO.L":incr++
symbolslistbox2.cell(1,incr)="AML.L":incr++
'symbolslistbox2.cell(1,incr)="AMO.L":incr++
'symbolslistbox2.cell(1,incr)="AMPH.L":incr++
symbolslistbox2.cell(1,incr)="AMS.L":incr++
symbolslistbox2.cell(1,incr)="AMYT.L":incr++
symbolslistbox2.cell(1,incr)="ANCR.L":incr++
symbolslistbox2.cell(1,incr)="ANGS.L":incr++
symbolslistbox2.cell(1,incr)="ANII.L":incr++
symbolslistbox2.cell(1,incr)="ANP.L":incr++
symbolslistbox2.cell(1,incr)="ANRJ.L":incr++
symbolslistbox2.cell(1,incr)="ANTO.L":incr++
'symbolslistbox2.cell(1,incr)="ANW.L":incr++
symbolslistbox2.cell(1,incr)="ANXG.L":incr++
symbolslistbox2.cell(1,incr)="ANXU.L":incr++
symbolslistbox2.cell(1,incr)="AO.L":incr++
symbolslistbox2.cell(1,incr)="AOF.L":incr++
'symbolslistbox2.cell(1,incr)="AOR.L":incr++
symbolslistbox2.cell(1,incr)="APAX.L":incr++
symbolslistbox2.cell(1,incr)="APF.L":incr++
symbolslistbox2.cell(1,incr)="APGN.L":incr++
symbolslistbox2.cell(1,incr)="APH.L":incr++
symbolslistbox2.cell(1,incr)="APQ.L":incr++
symbolslistbox2.cell(1,incr)="APTD.L":incr++
symbolslistbox2.cell(1,incr)="AQSG.L":incr++
symbolslistbox2.cell(1,incr)="AQX.L":incr++
symbolslistbox2.cell(1,incr)="ARB.L":incr++
symbolslistbox2.cell(1,incr)="ARBB.L":incr++
symbolslistbox2.cell(1,incr)="ARC.L":incr++
symbolslistbox2.cell(1,incr)="ARCM.L":incr++
symbolslistbox2.cell(1,incr)="ARDN.L":incr++
symbolslistbox2.cell(1,incr)="ARE.L":incr++
symbolslistbox2.cell(1,incr)="ARG.L":incr++
symbolslistbox2.cell(1,incr)="ARGO.L":incr++
symbolslistbox2.cell(1,incr)="ARIX.L":incr++
'symbolslistbox2.cell(1,incr)="ARO.L":incr++
symbolslistbox2.cell(1,incr)="ARR.L":incr++
symbolslistbox2.cell(1,incr)="ARS.L":incr++
'symbolslistbox2.cell(1,incr)="ARTA.L":incr++
symbolslistbox2.cell(1,incr)="ARTL.L":incr++
'symbolslistbox2.cell(1,incr)="ARW.L":incr++
symbolslistbox2.cell(1,incr)="ASAI.L":incr++
symbolslistbox2.cell(1,incr)="ASC.L":incr++
symbolslistbox2.cell(1,incr)="ASCI.L":incr++
symbolslistbox2.cell(1,incr)="ASCL.L":incr++
symbolslistbox2.cell(1,incr)="ASDV.L":incr++
symbolslistbox2.cell(1,incr)="ASEI.L":incr++
symbolslistbox2.cell(1,incr)="ASHM.L":incr++
symbolslistbox2.cell(1,incr)="ASHR.L":incr++
symbolslistbox2.cell(1,incr)="ASIL.L":incr++
symbolslistbox2.cell(1,incr)="ASIT.L":incr++
symbolslistbox2.cell(1,incr)="ASIU.L":incr++
symbolslistbox2.cell(1,incr)="ASIZ.L":incr++
symbolslistbox2.cell(1,incr)="ASL.L":incr++
symbolslistbox2.cell(1,incr)="ASLI.L":incr++
'symbolslistbox2.cell(1,incr)="ASO.L":incr++
'symbolslistbox2.cell(1,incr)="ASPL.L":incr++
symbolslistbox2.cell(1,incr)="AST.L":incr++
symbolslistbox2.cell(1,incr)="ASTO.L":incr++
symbolslistbox2.cell(1,incr)="ASY.L":incr++
symbolslistbox2.cell(1,incr)="AT1.L":incr++
symbolslistbox2.cell(1,incr)="AT1P.L":incr++
'symbolslistbox2.cell(1,incr)="ATAD.L":incr++
symbolslistbox2.cell(1,incr)="ATM.L":incr++
'symbolslistbox2.cell(1,incr)="ATMA.L":incr++
symbolslistbox2.cell(1,incr)="ATQT.L":incr++
symbolslistbox2.cell(1,incr)="ATR.L":incr++
symbolslistbox2.cell(1,incr)="ATS.L":incr++
symbolslistbox2.cell(1,incr)="ATST.L":incr++
symbolslistbox2.cell(1,incr)="ATT.L":incr++
symbolslistbox2.cell(1,incr)="ATY.L":incr++
symbolslistbox2.cell(1,incr)="ATYM.L":incr++
symbolslistbox2.cell(1,incr)="AUCO.L":incr++
symbolslistbox2.cell(1,incr)="AUCP.L":incr++
symbolslistbox2.cell(1,incr)="AUEG.L":incr++
symbolslistbox2.cell(1,incr)="AUEM.L":incr++
'symbolslistbox2.cell(1,incr)="AUG.L":incr++
'symbolslistbox2.cell(1,incr)="AUGA.L":incr++
symbolslistbox2.cell(1,incr)="AUGM.L":incr++
symbolslistbox2.cell(1,incr)="AUK.L":incr++
symbolslistbox2.cell(1,incr)="AURA.L":incr++
symbolslistbox2.cell(1,incr)="AUTG.L":incr++
symbolslistbox2.cell(1,incr)="AUTO.L":incr++
symbolslistbox2.cell(1,incr)="AV.L":incr++
symbolslistbox2.cell(1,incr)="AV-A.L":incr++
symbolslistbox2.cell(1,incr)="AV-B.L":incr++
symbolslistbox2.cell(1,incr)="AVAP.L":incr++
symbolslistbox2.cell(1,incr)="AVCT.L":incr++
symbolslistbox2.cell(1,incr)="AVG.L":incr++
'symbolslistbox2.cell(1,incr)="AVGR.L":incr++
symbolslistbox2.cell(1,incr)="AVO.L":incr++
symbolslistbox2.cell(1,incr)="AVON.L":incr++
symbolslistbox2.cell(1,incr)="AVST.L":incr++
symbolslistbox2.cell(1,incr)="AVV.L":incr++
symbolslistbox2.cell(1,incr)="AWSG.L":incr++
symbolslistbox2.cell(1,incr)="AWSR.L":incr++
symbolslistbox2.cell(1,incr)="AXI.L":incr++
'symbolslistbox2.cell(1,incr)="AXM.L":incr++
symbolslistbox2.cell(1,incr)="AXS.L":incr++
symbolslistbox2.cell(1,incr)="AYM.L":incr++
symbolslistbox2.cell(1,incr)="AZN.L":incr++
symbolslistbox2.cell(1,incr)="BA.L":incr++
symbolslistbox2.cell(1,incr)="BAB.L":incr++
'symbolslistbox2.cell(1,incr)="BACK.L":incr++
symbolslistbox2.cell(1,incr)="BAF.L":incr++
symbolslistbox2.cell(1,incr)="BAG.L":incr++
symbolslistbox2.cell(1,incr)="BAKK.L":incr++
symbolslistbox2.cell(1,incr)="BARC.L":incr++
symbolslistbox2.cell(1,incr)="BATG.L":incr++
symbolslistbox2.cell(1,incr)="BATS.L":incr++
symbolslistbox2.cell(1,incr)="BATT.L":incr++
'symbolslistbox2.cell(1,incr)="BBA.L":incr++
symbolslistbox2.cell(1,incr)="BBGI.L":incr++
symbolslistbox2.cell(1,incr)="BBH.L":incr++
symbolslistbox2.cell(1,incr)="BBOX.L":incr++
symbolslistbox2.cell(1,incr)="BBSN.L":incr++
symbolslistbox2.cell(1,incr)="BBUS.L":incr++
symbolslistbox2.cell(1,incr)="BBY.L":incr++
symbolslistbox2.cell(1,incr)="BCCU.L":incr++
symbolslistbox2.cell(1,incr)="BCHN.L":incr++
symbolslistbox2.cell(1,incr)="BCI.L":incr++
symbolslistbox2.cell(1,incr)="BCN.L":incr++
symbolslistbox2.cell(1,incr)="BCOG.L":incr++
symbolslistbox2.cell(1,incr)="BCOM.L":incr++
symbolslistbox2.cell(1,incr)="BCPT.L":incr++
symbolslistbox2.cell(1,incr)="BDEV.L":incr++
symbolslistbox2.cell(1,incr)="BEE.L":incr++
symbolslistbox2.cell(1,incr)="BEG.L":incr++
symbolslistbox2.cell(1,incr)="BEM.L":incr++
symbolslistbox2.cell(1,incr)="BERI.L":incr++
'symbolslistbox2.cell(1,incr)="BERM.L":incr++
symbolslistbox2.cell(1,incr)="BEZ.L":incr++
'symbolslistbox2.cell(1,incr)="BFA.L":incr++
symbolslistbox2.cell(1,incr)="BGEO.L":incr++
symbolslistbox2.cell(1,incr)="BGFD.L":incr++
symbolslistbox2.cell(1,incr)="BGHL.L":incr++
symbolslistbox2.cell(1,incr)="BGHS.L":incr++
symbolslistbox2.cell(1,incr)="BGLF.L":incr++
symbolslistbox2.cell(1,incr)="BGLP.L":incr++
symbolslistbox2.cell(1,incr)="BGO.L":incr++
symbolslistbox2.cell(1,incr)="BGS.L":incr++
symbolslistbox2.cell(1,incr)="BGSC.L":incr++
symbolslistbox2.cell(1,incr)="BGUK.L":incr++
'symbolslistbox2.cell(1,incr)="BHGG.L":incr++
'symbolslistbox2.cell(1,incr)="BHGU.L":incr++
symbolslistbox2.cell(1,incr)="BHMG.L":incr++
symbolslistbox2.cell(1,incr)="BHMU.L":incr++
symbolslistbox2.cell(1,incr)="BHP.L":incr++
'symbolslistbox2.cell(1,incr)="BHRD.L":incr++
symbolslistbox2.cell(1,incr)="BIDS.L":incr++
symbolslistbox2.cell(1,incr)="BIFF.L":incr++
symbolslistbox2.cell(1,incr)="BIGT.L":incr++
'symbolslistbox2.cell(1,incr)="BILB.L":incr++
symbolslistbox2.cell(1,incr)="BILN.L":incr++
symbolslistbox2.cell(1,incr)="BIOG.L":incr++
symbolslistbox2.cell(1,incr)="BIOM.L":incr++
symbolslistbox2.cell(1,incr)="BIRG.L":incr++
symbolslistbox2.cell(1,incr)="BISI.L":incr++
symbolslistbox2.cell(1,incr)="BKG.L":incr++
'symbolslistbox2.cell(1,incr)="BKIC.L":incr++
symbolslistbox2.cell(1,incr)="BKS.L":incr++
symbolslistbox2.cell(1,incr)="BKY.L":incr++
symbolslistbox2.cell(1,incr)="BLND.L":incr++
symbolslistbox2.cell(1,incr)="BLOE.L":incr++
symbolslistbox2.cell(1,incr)="BLOK.L":incr++
symbolslistbox2.cell(1,incr)="BLP.L":incr++
symbolslistbox2.cell(1,incr)="BLTG.L":incr++
symbolslistbox2.cell(1,incr)="BLV.L":incr++
symbolslistbox2.cell(1,incr)="BLVN.L":incr++
symbolslistbox2.cell(1,incr)="BMD.L":incr++
symbolslistbox2.cell(1,incr)="BME.L":incr++
symbolslistbox2.cell(1,incr)="BMK.L":incr++
symbolslistbox2.cell(1,incr)="BMN.L":incr++
symbolslistbox2.cell(1,incr)="BMS.L":incr++
symbolslistbox2.cell(1,incr)="BMT.L":incr++
'symbolslistbox2.cell(1,incr)="BMTO.L":incr++
symbolslistbox2.cell(1,incr)="BMV.L":incr++
symbolslistbox2.cell(1,incr)="BMY.L":incr++
symbolslistbox2.cell(1,incr)="BNC.L":incr++
symbolslistbox2.cell(1,incr)="BNKR.L":incr++
symbolslistbox2.cell(1,incr)="BNKS.L":incr++
'symbolslistbox2.cell(1,incr)="BNKU.L":incr++
symbolslistbox2.cell(1,incr)="BNZL.L":incr++
symbolslistbox2.cell(1,incr)="BOCH.L":incr++
symbolslistbox2.cell(1,incr)="BOD.L":incr++
symbolslistbox2.cell(1,incr)="BOIL.L":incr++
symbolslistbox2.cell(1,incr)="BOKU.L":incr++
symbolslistbox2.cell(1,incr)="BONH.L":incr++
symbolslistbox2.cell(1,incr)="BOO.L":incr++
symbolslistbox2.cell(1,incr)="BOOM.L":incr++
symbolslistbox2.cell(1,incr)="BOOT.L":incr++
symbolslistbox2.cell(1,incr)="BOR.L":incr++
symbolslistbox2.cell(1,incr)="BOTB.L":incr++
symbolslistbox2.cell(1,incr)="BOWL.L":incr++
symbolslistbox2.cell(1,incr)="BOXE.L":incr++
symbolslistbox2.cell(1,incr)="BOY.L":incr++
symbolslistbox2.cell(1,incr)="BP.L":incr++
symbolslistbox2.cell(1,incr)="BP-A.L":incr++
symbolslistbox2.cell(1,incr)="BP-B.L":incr++
'symbolslistbox2.cell(1,incr)="BPC.L":incr++
symbolslistbox2.cell(1,incr)="BPCR.L":incr++
symbolslistbox2.cell(1,incr)="BPET.L":incr++
symbolslistbox2.cell(1,incr)="BPM.L":incr++
symbolslistbox2.cell(1,incr)="BRBY.L":incr++
symbolslistbox2.cell(1,incr)="BRCK.L":incr++
symbolslistbox2.cell(1,incr)="BRD.L":incr++
symbolslistbox2.cell(1,incr)="BREE.L":incr++
symbolslistbox2.cell(1,incr)="BREI.L":incr++
symbolslistbox2.cell(1,incr)="BRFI.L":incr++
symbolslistbox2.cell(1,incr)="BRGE.L":incr++
symbolslistbox2.cell(1,incr)="BRH.L":incr++
symbolslistbox2.cell(1,incr)="BRIC.L":incr++
symbolslistbox2.cell(1,incr)="BRIG.L":incr++
symbolslistbox2.cell(1,incr)="BRK.L":incr++
symbolslistbox2.cell(1,incr)="BRLA.L":incr++
'symbolslistbox2.cell(1,incr)="BRNA.L":incr++
symbolslistbox2.cell(1,incr)="BRND.L":incr++
symbolslistbox2.cell(1,incr)="BRNT.L":incr++
symbolslistbox2.cell(1,incr)="BRSC.L":incr++
symbolslistbox2.cell(1,incr)="BRW.L":incr++
symbolslistbox2.cell(1,incr)="BRWM.L":incr++
symbolslistbox2.cell(1,incr)="BRZ.L":incr++
symbolslistbox2.cell(1,incr)="BSC.L":incr++
'symbolslistbox2.cell(1,incr)="BSD.L":incr++
symbolslistbox2.cell(1,incr)="BSE.L":incr++
symbolslistbox2.cell(1,incr)="BSIF.L":incr++
symbolslistbox2.cell(1,incr)="BSRT.L":incr++
symbolslistbox2.cell(1,incr)="BSUS.L":incr++
symbolslistbox2.cell(1,incr)="BSV.L":incr++
symbolslistbox2.cell(1,incr)="BT-A.L":incr++
symbolslistbox2.cell(1,incr)="BTEC.L":incr++
symbolslistbox2.cell(1,incr)="BTEE.L":incr++
symbolslistbox2.cell(1,incr)="BTEK.L":incr++
symbolslistbox2.cell(1,incr)="BULL.L":incr++
symbolslistbox2.cell(1,incr)="BULP.L":incr++
symbolslistbox2.cell(1,incr)="BUOY.L":incr++
symbolslistbox2.cell(1,incr)="BUR.L":incr++
symbolslistbox2.cell(1,incr)="BUT.L":incr++
symbolslistbox2.cell(1,incr)="BUYB.L":incr++
symbolslistbox2.cell(1,incr)="BVA.L":incr++
symbolslistbox2.cell(1,incr)="BVC.L":incr++
symbolslistbox2.cell(1,incr)="BVIC.L":incr++
'symbolslistbox2.cell(1,incr)="BVS.L":incr++
symbolslistbox2.cell(1,incr)="BVT.L":incr++
symbolslistbox2.cell(1,incr)="BVXP.L":incr++
symbolslistbox2.cell(1,incr)="BWNG.L":incr++
symbolslistbox2.cell(1,incr)="BWRA.L":incr++
symbolslistbox2.cell(1,incr)="BWSA.L":incr++
symbolslistbox2.cell(1,incr)="BWY.L":incr++
symbolslistbox2.cell(1,incr)="BXP.L":incr++
symbolslistbox2.cell(1,incr)="BYBG.L":incr++
symbolslistbox2.cell(1,incr)="BYBU.L":incr++
symbolslistbox2.cell(1,incr)="BYG.L":incr++
symbolslistbox2.cell(1,incr)="BYOT.L":incr++
symbolslistbox2.cell(1,incr)="BZT.L":incr++
'symbolslistbox2.cell(1,incr)="C21.L":incr++
symbolslistbox2.cell(1,incr)="C4XD.L":incr++
'symbolslistbox2.cell(1,incr)="C8M.L":incr++
symbolslistbox2.cell(1,incr)="CACX.L":incr++
symbolslistbox2.cell(1,incr)="CAD.L":incr++
symbolslistbox2.cell(1,incr)="CAL.L":incr++
symbolslistbox2.cell(1,incr)="CALL.L":incr++
symbolslistbox2.cell(1,incr)="CAM.L":incr++
'symbolslistbox2.cell(1,incr)="CAMB.L":incr++
symbolslistbox2.cell(1,incr)="CAML.L":incr++
symbolslistbox2.cell(1,incr)="CAPC.L":incr++
symbolslistbox2.cell(1,incr)="CAPD.L":incr++
symbolslistbox2.cell(1,incr)="CAR.L":incr++
'symbolslistbox2.cell(1,incr)="CARB.L":incr++
symbolslistbox2.cell(1,incr)="CARD.L":incr++
'symbolslistbox2.cell(1,incr)="CARP.L":incr++
symbolslistbox2.cell(1,incr)="CARR.L":incr++
symbolslistbox2.cell(1,incr)="CASE.L":incr++
symbolslistbox2.cell(1,incr)="CASH.L":incr++
symbolslistbox2.cell(1,incr)="CASP.L":incr++
symbolslistbox2.cell(1,incr)="CAT.L":incr++
symbolslistbox2.cell(1,incr)="CATC.L":incr++
symbolslistbox2.cell(1,incr)="CATL.L":incr++
symbolslistbox2.cell(1,incr)="CAU.L":incr++
symbolslistbox2.cell(1,incr)="CAY.L":incr++
symbolslistbox2.cell(1,incr)="CB5.L":incr++
symbolslistbox2.cell(1,incr)="CBA.L":incr++
symbolslistbox2.cell(1,incr)="CBDX.L":incr++
symbolslistbox2.cell(1,incr)="CBE3.L":incr++
symbolslistbox2.cell(1,incr)="CBG.L":incr++
symbolslistbox2.cell(1,incr)="CBOX.L":incr++
symbolslistbox2.cell(1,incr)="CBP.L":incr++
symbolslistbox2.cell(1,incr)="CBU0.L":incr++
symbolslistbox2.cell(1,incr)="CBU3.L":incr++
symbolslistbox2.cell(1,incr)="CBU7.L":incr++
'symbolslistbox2.cell(1,incr)="CC1G.L":incr++
'symbolslistbox2.cell(1,incr)="CC1U.L":incr++
symbolslistbox2.cell(1,incr)="CCAU.L":incr++
symbolslistbox2.cell(1,incr)="CCBO.L":incr++
symbolslistbox2.cell(1,incr)="CCC.L":incr++
symbolslistbox2.cell(1,incr)="CCEP.L":incr++
symbolslistbox2.cell(1,incr)="CCH.L":incr++
symbolslistbox2.cell(1,incr)="CCJI.L":incr++
symbolslistbox2.cell(1,incr)="CCL.L":incr++
symbolslistbox2.cell(1,incr)="CCP.L":incr++
symbolslistbox2.cell(1,incr)="CCPA.L":incr++
'symbolslistbox2.cell(1,incr)="CCPC.L":incr++
symbolslistbox2.cell(1,incr)="CCPE.L":incr++
symbolslistbox2.cell(1,incr)="CCPG.L":incr++
symbolslistbox2.cell(1,incr)="CCR.L":incr++
'symbolslistbox2.cell(1,incr)="CCSL.L":incr++
symbolslistbox2.cell(1,incr)="CCT.L":incr++
'symbolslistbox2.cell(1,incr)="CD6.L":incr++
symbolslistbox2.cell(1,incr)="CDFF.L":incr++
symbolslistbox2.cell(1,incr)="CDIS.L":incr++
'symbolslistbox2.cell(1,incr)="CDM.L":incr++
symbolslistbox2.cell(1,incr)="CE01.L":incr++
symbolslistbox2.cell(1,incr)="CE31.L":incr++
'symbolslistbox2.cell(1,incr)="CE71.L":incr++
symbolslistbox2.cell(1,incr)="CE9G.L":incr++
symbolslistbox2.cell(1,incr)="CE9U.L":incr++
symbolslistbox2.cell(1,incr)="CEA1.L":incr++
symbolslistbox2.cell(1,incr)="CECD.L":incr++
symbolslistbox2.cell(1,incr)="CECL.L":incr++
symbolslistbox2.cell(1,incr)="CEMA.L":incr++
symbolslistbox2.cell(1,incr)="CEMG.L":incr++
symbolslistbox2.cell(1,incr)="CEPS.L":incr++
symbolslistbox2.cell(1,incr)="CER.L":incr++
'symbolslistbox2.cell(1,incr)="CERP.L":incr++
symbolslistbox2.cell(1,incr)="CES1.L":incr++
'symbolslistbox2.cell(1,incr)="CEU.L":incr++
symbolslistbox2.cell(1,incr)="CEU1.L":incr++
symbolslistbox2.cell(1,incr)="CEUG.L":incr++
symbolslistbox2.cell(1,incr)="CEUR.L":incr++
'symbolslistbox2.cell(1,incr)="CEUS.L":incr++
symbolslistbox2.cell(1,incr)="CEY.L":incr++
symbolslistbox2.cell(1,incr)="CFX.L":incr++
symbolslistbox2.cell(1,incr)="CFYN.L":incr++
symbolslistbox2.cell(1,incr)="CG1.L":incr++
symbolslistbox2.cell(1,incr)="CGB.L":incr++
symbolslistbox2.cell(1,incr)="CGEO.L":incr++
symbolslistbox2.cell(1,incr)="CGI.L":incr++
'symbolslistbox2.cell(1,incr)="CGLO.L":incr++
symbolslistbox2.cell(1,incr)="CGNR.L":incr++
symbolslistbox2.cell(1,incr)="CGS.L":incr++
symbolslistbox2.cell(1,incr)="CGT.L":incr++
symbolslistbox2.cell(1,incr)="CGW.L":incr++
symbolslistbox2.cell(1,incr)="CH5.L":incr++
'symbolslistbox2.cell(1,incr)="CHAL.L":incr++
symbolslistbox2.cell(1,incr)="CHAR.L":incr++
symbolslistbox2.cell(1,incr)="CHG.L":incr++
'symbolslistbox2.cell(1,incr)="CHGB.L":incr++
symbolslistbox2.cell(1,incr)="CHH.L":incr++
'symbolslistbox2.cell(1,incr)="CHIC.L":incr++
symbolslistbox2.cell(1,incr)="CHRT.L":incr++
'symbolslistbox2.cell(1,incr)="CI1.L":incr++
symbolslistbox2.cell(1,incr)="CI2G.L":incr++
symbolslistbox2.cell(1,incr)="CI2U.L":incr++
symbolslistbox2.cell(1,incr)="CIC.L":incr++
'symbolslistbox2.cell(1,incr)="CIFR.L":incr++
'symbolslistbox2.cell(1,incr)="CIFU.L":incr++
'symbolslistbox2.cell(1,incr)="CIHL.L":incr++
symbolslistbox2.cell(1,incr)="CIN.L":incr++
symbolslistbox2.cell(1,incr)="CIND.L":incr++
symbolslistbox2.cell(1,incr)="CINE.L":incr++
symbolslistbox2.cell(1,incr)="CIP.L":incr++
symbolslistbox2.cell(1,incr)="CIR.L":incr++
symbolslistbox2.cell(1,incr)="CJ1U.L":incr++
symbolslistbox2.cell(1,incr)="CKN.L":incr++
'symbolslistbox2.cell(1,incr)="CLC.L":incr++
symbolslistbox2.cell(1,incr)="CLDN.L":incr++
symbolslistbox2.cell(1,incr)="CLG.L":incr++
symbolslistbox2.cell(1,incr)="CLI.L":incr++
symbolslistbox2.cell(1,incr)="CLIG.L":incr++
symbolslistbox2.cell(1,incr)="CLIM.L":incr++
symbolslistbox2.cell(1,incr)="CLIN.L":incr++
'symbolslistbox2.cell(1,incr)="CLL.L":incr++
'symbolslistbox2.cell(1,incr)="CLNR.L":incr++
symbolslistbox2.cell(1,incr)="CLON.L":incr++
'symbolslistbox2.cell(1,incr)="CLP.L":incr++
symbolslistbox2.cell(1,incr)="CLSN.L":incr++
'symbolslistbox2.cell(1,incr)="CLSU.L":incr++
symbolslistbox2.cell(1,incr)="CMB1.L":incr++
'symbolslistbox2.cell(1,incr)="CMCI.L":incr++
symbolslistbox2.cell(1,incr)="CMCL.L":incr++
symbolslistbox2.cell(1,incr)="CMCX.L":incr++
symbolslistbox2.cell(1,incr)="CMFP.L":incr++
symbolslistbox2.cell(1,incr)="CMH.L":incr++
symbolslistbox2.cell(1,incr)="CMHY.L":incr++
symbolslistbox2.cell(1,incr)="CML.L":incr++
symbolslistbox2.cell(1,incr)="CMOD.L":incr++
symbolslistbox2.cell(1,incr)="CMOP.L":incr++
symbolslistbox2.cell(1,incr)="CMU.L":incr++
symbolslistbox2.cell(1,incr)="CMX.L":incr++
symbolslistbox2.cell(1,incr)="CMX1.L":incr++
symbolslistbox2.cell(1,incr)="CMXC.L":incr++
symbolslistbox2.cell(1,incr)="CN1.L":incr++
symbolslistbox2.cell(1,incr)="CNA.L":incr++
symbolslistbox2.cell(1,incr)="CNAA.L":incr++
symbolslistbox2.cell(1,incr)="CNAL.L":incr++
symbolslistbox2.cell(1,incr)="CNC.L":incr++
'symbolslistbox2.cell(1,incr)="CNCT.L":incr++
symbolslistbox2.cell(1,incr)="CNDX.L":incr++
symbolslistbox2.cell(1,incr)="CNE.L":incr++
'symbolslistbox2.cell(1,incr)="CNEL.L":incr++
symbolslistbox2.cell(1,incr)="CNG.L":incr++
symbolslistbox2.cell(1,incr)="CNIC.L":incr++
symbolslistbox2.cell(1,incr)="CNKS.L":incr++
symbolslistbox2.cell(1,incr)="CNKY.L":incr++
symbolslistbox2.cell(1,incr)="CNN.L":incr++
symbolslistbox2.cell(1,incr)="CNR.L":incr++
symbolslistbox2.cell(1,incr)="CNS.L":incr++
symbolslistbox2.cell(1,incr)="CNX1.L":incr++
symbolslistbox2.cell(1,incr)="CNYA.L":incr++
symbolslistbox2.cell(1,incr)="COA.L":incr++
symbolslistbox2.cell(1,incr)="COCO.L":incr++
symbolslistbox2.cell(1,incr)="COD.L":incr++
'symbolslistbox2.cell(1,incr)="CODO.L":incr++
symbolslistbox2.cell(1,incr)="COFF.L":incr++
symbolslistbox2.cell(1,incr)="COG.L":incr++
symbolslistbox2.cell(1,incr)="COM.L":incr++
symbolslistbox2.cell(1,incr)="COMF.L":incr++
symbolslistbox2.cell(1,incr)="COMM.L":incr++
symbolslistbox2.cell(1,incr)="COPA.L":incr++
symbolslistbox2.cell(1,incr)="COPL.L":incr++
symbolslistbox2.cell(1,incr)="CORA.L":incr++
symbolslistbox2.cell(1,incr)="CORN.L":incr++
symbolslistbox2.cell(1,incr)="CORO.L":incr++
symbolslistbox2.cell(1,incr)="CORP.L":incr++
'symbolslistbox2.cell(1,incr)="COS.L":incr++
symbolslistbox2.cell(1,incr)="COST.L":incr++
symbolslistbox2.cell(1,incr)="COTN.L":incr++
symbolslistbox2.cell(1,incr)="COUK.L":incr++
symbolslistbox2.cell(1,incr)="CP9G.L":incr++
symbolslistbox2.cell(1,incr)="CP9U.L":incr++
symbolslistbox2.cell(1,incr)="CPC.L":incr++
symbolslistbox2.cell(1,incr)="CPG.L":incr++
symbolslistbox2.cell(1,incr)="CPI.L":incr++
symbolslistbox2.cell(1,incr)="CPJ1.L":incr++
symbolslistbox2.cell(1,incr)="CPP.L":incr++
'symbolslistbox2.cell(1,incr)="CPS.L":incr++
'symbolslistbox2.cell(1,incr)="CPT.L":incr++
symbolslistbox2.cell(1,incr)="CPX.L":incr++
symbolslistbox2.cell(1,incr)="CPXJ.L":incr++
symbolslistbox2.cell(1,incr)="CRBL.L":incr++
symbolslistbox2.cell(1,incr)="CRBU.L":incr++
symbolslistbox2.cell(1,incr)="CRC.L":incr++
symbolslistbox2.cell(1,incr)="CRDA.L":incr++
symbolslistbox2.cell(1,incr)="CREI.L":incr++
symbolslistbox2.cell(1,incr)="CREO.L":incr++
symbolslistbox2.cell(1,incr)="CRH.L":incr++
symbolslistbox2.cell(1,incr)="CRHG.L":incr++
symbolslistbox2.cell(1,incr)="CRL.L":incr++
symbolslistbox2.cell(1,incr)="CRN.L":incr++
symbolslistbox2.cell(1,incr)="CRNL.L":incr++
symbolslistbox2.cell(1,incr)="CRNO.L":incr++
symbolslistbox2.cell(1,incr)="CRPA.L":incr++
symbolslistbox2.cell(1,incr)="CRPR.L":incr++
symbolslistbox2.cell(1,incr)="CRPS.L":incr++
symbolslistbox2.cell(1,incr)="CRPU.L":incr++
symbolslistbox2.cell(1,incr)="CRPX.L":incr++
symbolslistbox2.cell(1,incr)="CRS.L":incr++
symbolslistbox2.cell(1,incr)="CRST.L":incr++
symbolslistbox2.cell(1,incr)="CRU.L":incr++
symbolslistbox2.cell(1,incr)="CRU1.L":incr++
symbolslistbox2.cell(1,incr)="CRUD.L":incr++
symbolslistbox2.cell(1,incr)="CRV.L":incr++
symbolslistbox2.cell(1,incr)="CRW.L":incr++
symbolslistbox2.cell(1,incr)="CRWN.L":incr++
symbolslistbox2.cell(1,incr)="CS1.L":incr++
'symbolslistbox2.cell(1,incr)="CS5.L":incr++
symbolslistbox2.cell(1,incr)="CS51.L":incr++
symbolslistbox2.cell(1,incr)="CSCA.L":incr++
symbolslistbox2.cell(1,incr)="CSH.L":incr++
symbolslistbox2.cell(1,incr)="CSH2.L":incr++
symbolslistbox2.cell(1,incr)="CSHD.L":incr++
symbolslistbox2.cell(1,incr)="CSJP.L":incr++
symbolslistbox2.cell(1,incr)="CSKR.L":incr++
symbolslistbox2.cell(1,incr)="CSN.L":incr++
symbolslistbox2.cell(1,incr)="CSP.L":incr++
symbolslistbox2.cell(1,incr)="CSP1.L":incr++
symbolslistbox2.cell(1,incr)="CSPX.L":incr++
symbolslistbox2.cell(1,incr)="CSRU.L":incr++
symbolslistbox2.cell(1,incr)="CSSG.L":incr++
symbolslistbox2.cell(1,incr)="CSTP.L":incr++
symbolslistbox2.cell(1,incr)="CSUK.L":incr++
symbolslistbox2.cell(1,incr)="CSUS.L":incr++
symbolslistbox2.cell(1,incr)="CSWG.L":incr++
symbolslistbox2.cell(1,incr)="CSX5.L":incr++
'symbolslistbox2.cell(1,incr)="CT5.L":incr++
symbolslistbox2.cell(1,incr)="CTEA.L":incr++
symbolslistbox2.cell(1,incr)="CTEC.L":incr++
symbolslistbox2.cell(1,incr)="CTG.L":incr++
symbolslistbox2.cell(1,incr)="CTH.L":incr++
'symbolslistbox2.cell(1,incr)="CTI.L":incr++
symbolslistbox2.cell(1,incr)="CTO.L":incr++
symbolslistbox2.cell(1,incr)="CTY.L":incr++
symbolslistbox2.cell(1,incr)="CU1.L":incr++
symbolslistbox2.cell(1,incr)="CU2G.L":incr++
symbolslistbox2.cell(1,incr)="CU2U.L":incr++
symbolslistbox2.cell(1,incr)="CU31.L":incr++
'symbolslistbox2.cell(1,incr)="CU5.L":incr++
symbolslistbox2.cell(1,incr)="CU71.L":incr++
'symbolslistbox2.cell(1,incr)="CUIH.L":incr++
symbolslistbox2.cell(1,incr)="CUK.L":incr++
symbolslistbox2.cell(1,incr)="CUKS.L":incr++
symbolslistbox2.cell(1,incr)="CUKX.L":incr++
symbolslistbox2.cell(1,incr)="CUS1.L":incr++
symbolslistbox2.cell(1,incr)="CUSS.L":incr++
symbolslistbox2.cell(1,incr)="CVSG.L":incr++
symbolslistbox2.cell(1,incr)="CW8G.L":incr++
symbolslistbox2.cell(1,incr)="CW8U.L":incr++
symbolslistbox2.cell(1,incr)="CWD.L":incr++
'symbolslistbox2.cell(1,incr)="CWEG.L":incr++
symbolslistbox2.cell(1,incr)="CWFG.L":incr++
symbolslistbox2.cell(1,incr)="CWK.L":incr++
symbolslistbox2.cell(1,incr)="CWR.L":incr++
'symbolslistbox2.cell(1,incr)="CXAP.L":incr++
symbolslistbox2.cell(1,incr)="CXAU.L":incr++
symbolslistbox2.cell(1,incr)="CYAN.L":incr++
symbolslistbox2.cell(1,incr)="CYN.L":incr++
'symbolslistbox2.cell(1,incr)="CYS.L":incr++
'symbolslistbox2.cell(1,incr)="CZN.L":incr++
'symbolslistbox2.cell(1,incr)="D467.L":incr++
symbolslistbox2.cell(1,incr)="D4T4.L":incr++
symbolslistbox2.cell(1,incr)="DAL.L":incr++
symbolslistbox2.cell(1,incr)="DATA.L":incr++
symbolslistbox2.cell(1,incr)="DAXX.L":incr++
symbolslistbox2.cell(1,incr)="DBRC.L":incr++
'symbolslistbox2.cell(1,incr)="DC.L":incr++
symbolslistbox2.cell(1,incr)="DCC.L":incr++
'symbolslistbox2.cell(1,incr)="DCD.L":incr++
symbolslistbox2.cell(1,incr)="DCI.L":incr++
symbolslistbox2.cell(1,incr)="DCTA.L":incr++
symbolslistbox2.cell(1,incr)="DDDD.L":incr++
symbolslistbox2.cell(1,incr)="DDV1.L":incr++
symbolslistbox2.cell(1,incr)="DEL2.L":incr++
symbolslistbox2.cell(1,incr)="DEM.L":incr++
'symbolslistbox2.cell(1,incr)="DEMA.L":incr++
symbolslistbox2.cell(1,incr)="DEMD.L":incr++
symbolslistbox2.cell(1,incr)="DEMG.L":incr++
'symbolslistbox2.cell(1,incr)="DEMP.L":incr++
symbolslistbox2.cell(1,incr)="DEMR.L":incr++
symbolslistbox2.cell(1,incr)="DEMS.L":incr++
symbolslistbox2.cell(1,incr)="DEMV.L":incr++
symbolslistbox2.cell(1,incr)="DES2.L":incr++
'symbolslistbox2.cell(1,incr)="DESD.L":incr++
'symbolslistbox2.cell(1,incr)="DESE.L":incr++
symbolslistbox2.cell(1,incr)="DEST.L":incr++
symbolslistbox2.cell(1,incr)="DEV.L":incr++
symbolslistbox2.cell(1,incr)="DFE.L":incr++
symbolslistbox2.cell(1,incr)="DFEA.L":incr++
symbolslistbox2.cell(1,incr)="DFEE.L":incr++
symbolslistbox2.cell(1,incr)="DFEP.L":incr++
'symbolslistbox2.cell(1,incr)="DFJ.L":incr++
symbolslistbox2.cell(1,incr)="DFS.L":incr++
symbolslistbox2.cell(1,incr)="DGE.L":incr++
'symbolslistbox2.cell(1,incr)="DGED.L":incr++
symbolslistbox2.cell(1,incr)="DGIT.L":incr++
'symbolslistbox2.cell(1,incr)="DGOC.L":incr++
symbolslistbox2.cell(1,incr)="DGRA.L":incr++
symbolslistbox2.cell(1,incr)="DGRG.L":incr++
'symbolslistbox2.cell(1,incr)="DGRP.L":incr++
symbolslistbox2.cell(1,incr)="DGRW.L":incr++
symbolslistbox2.cell(1,incr)="DGSD.L":incr++
symbolslistbox2.cell(1,incr)="DGSE.L":incr++
symbolslistbox2.cell(1,incr)="DGTL.L":incr++
symbolslistbox2.cell(1,incr)="DH2O.L":incr++
symbolslistbox2.cell(1,incr)="DHS.L":incr++
symbolslistbox2.cell(1,incr)="DHSA.L":incr++
symbolslistbox2.cell(1,incr)="DHSD.L":incr++
'symbolslistbox2.cell(1,incr)="DHSG.L":incr++
'symbolslistbox2.cell(1,incr)="DHSP.L":incr++
symbolslistbox2.cell(1,incr)="DIA.L":incr++
symbolslistbox2.cell(1,incr)="DIG.L":incr++
symbolslistbox2.cell(1,incr)="DIGS.L":incr++
symbolslistbox2.cell(1,incr)="DIS.L":incr++
symbolslistbox2.cell(1,incr)="DISH.L":incr++
symbolslistbox2.cell(1,incr)="DISW.L":incr++
symbolslistbox2.cell(1,incr)="DIVI.L":incr++
symbolslistbox2.cell(1,incr)="DJEL.L":incr++
symbolslistbox2.cell(1,incr)="DJEU.L":incr++
symbolslistbox2.cell(1,incr)="DJMC.L":incr++
symbolslistbox2.cell(1,incr)="DJSC.L":incr++
symbolslistbox2.cell(1,incr)="DKE.L":incr++
symbolslistbox2.cell(1,incr)="DKL.L":incr++
symbolslistbox2.cell(1,incr)="DL2P.L":incr++
symbolslistbox2.cell(1,incr)="DLAR.L":incr++
symbolslistbox2.cell(1,incr)="DLG.L":incr++
symbolslistbox2.cell(1,incr)="DLN.L":incr++
symbolslistbox2.cell(1,incr)="DLTM.L":incr++
'symbolslistbox2.cell(1,incr)="DMGT.L":incr++
symbolslistbox2.cell(1,incr)="DMTR.L":incr++
symbolslistbox2.cell(1,incr)="DNA.L":incr++
symbolslistbox2.cell(1,incr)="DNA2.L":incr++
symbolslistbox2.cell(1,incr)="DNA3.L":incr++
symbolslistbox2.cell(1,incr)="DNE.L":incr++
'symbolslistbox2.cell(1,incr)="DNK.L":incr++
symbolslistbox2.cell(1,incr)="DNL.L":incr++
symbolslistbox2.cell(1,incr)="DNLM.L":incr++
'symbolslistbox2.cell(1,incr)="DO1D.L":incr++
'symbolslistbox2.cell(1,incr)="DODS.L":incr++
symbolslistbox2.cell(1,incr)="DOM.L":incr++
symbolslistbox2.cell(1,incr)="DOTD.L":incr++
'symbolslistbox2.cell(1,incr)="DP2A.L":incr++
'symbolslistbox2.cell(1,incr)="DP2F.L":incr++
'symbolslistbox2.cell(1,incr)="DP2G.L":incr++
'symbolslistbox2.cell(1,incr)="DP2K.L":incr++
'symbolslistbox2.cell(1,incr)="DP3A.L":incr++
'symbolslistbox2.cell(1,incr)="DP3F.L":incr++
'symbolslistbox2.cell(1,incr)="DP3H.L":incr++
'symbolslistbox2.cell(1,incr)="DPA.L":incr++
'symbolslistbox2.cell(1,incr)="DPEU.L":incr++
symbolslistbox2.cell(1,incr)="DPH.L":incr++
symbolslistbox2.cell(1,incr)="DPLM.L":incr++
symbolslistbox2.cell(1,incr)="DPP.L":incr++
symbolslistbox2.cell(1,incr)="DPYA.L":incr++
symbolslistbox2.cell(1,incr)="DPYE.L":incr++
symbolslistbox2.cell(1,incr)="DPYG.L":incr++
symbolslistbox2.cell(1,incr)="DRDR.L":incr++
'symbolslistbox2.cell(1,incr)="DRIP.L":incr++
symbolslistbox2.cell(1,incr)="DRV.L":incr++
symbolslistbox2.cell(1,incr)="DRX.L":incr++
symbolslistbox2.cell(1,incr)="DS2P.L":incr++
symbolslistbox2.cell(1,incr)="DSCV.L":incr++
symbolslistbox2.cell(1,incr)="DSG.L":incr++
symbolslistbox2.cell(1,incr)="DSM.L":incr++
symbolslistbox2.cell(1,incr)="DSUS.L":incr++
'symbolslistbox2.cell(1,incr)="DTG.L":incr++
symbolslistbox2.cell(1,incr)="DTLA.L":incr++
symbolslistbox2.cell(1,incr)="DTLE.L":incr++
'symbolslistbox2.cell(1,incr)="DTVL.L":incr++
symbolslistbox2.cell(1,incr)="DTY.L":incr++
symbolslistbox2.cell(1,incr)="DUKE.L":incr++
symbolslistbox2.cell(1,incr)="DVO.L":incr++
symbolslistbox2.cell(1,incr)="DWF.L":incr++
symbolslistbox2.cell(1,incr)="DWHA.L":incr++
symbolslistbox2.cell(1,incr)="DWHT.L":incr++
symbolslistbox2.cell(1,incr)="DX.L":incr++
'symbolslistbox2.cell(1,incr)="DXGG.L":incr++
'symbolslistbox2.cell(1,incr)="DXGP.L":incr++
'symbolslistbox2.cell(1,incr)="DXGY.L":incr++
'symbolslistbox2.cell(1,incr)="DXGZ.L":incr++
symbolslistbox2.cell(1,incr)="DXJ.L":incr++
symbolslistbox2.cell(1,incr)="DXJA.L":incr++
'symbolslistbox2.cell(1,incr)="DXJG.L":incr++
symbolslistbox2.cell(1,incr)="DXJP.L":incr++
symbolslistbox2.cell(1,incr)="DXJZ.L":incr++
symbolslistbox2.cell(1,incr)="DXRX.L":incr++
symbolslistbox2.cell(1,incr)="EAH.L":incr++
symbolslistbox2.cell(1,incr)="EAT.L":incr++
symbolslistbox2.cell(1,incr)="EBOX.L":incr++
symbolslistbox2.cell(1,incr)="EBQ.L":incr++
symbolslistbox2.cell(1,incr)="ECAR.L":incr++
symbolslistbox2.cell(1,incr)="ECEL.L":incr++
symbolslistbox2.cell(1,incr)="ECHO.L":incr++
symbolslistbox2.cell(1,incr)="ECK.L":incr++
symbolslistbox2.cell(1,incr)="ECM.L":incr++
symbolslistbox2.cell(1,incr)="ECO.L":incr++
symbolslistbox2.cell(1,incr)="ECOG.L":incr++
symbolslistbox2.cell(1,incr)="ECOM.L":incr++
symbolslistbox2.cell(1,incr)="ECR.L":incr++
symbolslistbox2.cell(1,incr)="ECSC.L":incr++
symbolslistbox2.cell(1,incr)="EDEN.L":incr++
'symbolslistbox2.cell(1,incr)="EDGH.L":incr++
'symbolslistbox2.cell(1,incr)="EDGI.L":incr++
symbolslistbox2.cell(1,incr)="EDIN.L":incr++
symbolslistbox2.cell(1,incr)="EDL.L":incr++
'symbolslistbox2.cell(1,incr)="EDP.L":incr++
symbolslistbox2.cell(1,incr)="EDR.L":incr++
symbolslistbox2.cell(1,incr)="EDVD.L":incr++
symbolslistbox2.cell(1,incr)="EEE.L":incr++
symbolslistbox2.cell(1,incr)="EEI.L":incr++
symbolslistbox2.cell(1,incr)="EEIE.L":incr++
symbolslistbox2.cell(1,incr)="EEIP.L":incr++
symbolslistbox2.cell(1,incr)="EESG.L":incr++
symbolslistbox2.cell(1,incr)="EEXF.L":incr++
'symbolslistbox2.cell(1,incr)="EFID.L":incr++
'symbolslistbox2.cell(1,incr)="EFIE.L":incr++
symbolslistbox2.cell(1,incr)="EFIS.L":incr++
symbolslistbox2.cell(1,incr)="EFIW.L":incr++
symbolslistbox2.cell(1,incr)="EFRN.L":incr++
symbolslistbox2.cell(1,incr)="EGL.L":incr++
symbolslistbox2.cell(1,incr)="EGLN.L":incr++
symbolslistbox2.cell(1,incr)="EGRA.L":incr++
symbolslistbox2.cell(1,incr)="EGRP.L":incr++
symbolslistbox2.cell(1,incr)="EGRW.L":incr++
symbolslistbox2.cell(1,incr)="EHEF.L":incr++
'symbolslistbox2.cell(1,incr)="EHG.L":incr++
symbolslistbox2.cell(1,incr)="EIMI.L":incr++
symbolslistbox2.cell(1,incr)="EIMU.L":incr++
symbolslistbox2.cell(1,incr)="EJFI.L":incr++
symbolslistbox2.cell(1,incr)="EJFZ.L":incr++
symbolslistbox2.cell(1,incr)="EKF.L":incr++
'symbolslistbox2.cell(1,incr)="ELCO.L":incr++
symbolslistbox2.cell(1,incr)="ELLA.L":incr++
symbolslistbox2.cell(1,incr)="ELM.L":incr++
'symbolslistbox2.cell(1,incr)="ELOW.L":incr++
'symbolslistbox2.cell(1,incr)="ELSA.L":incr++
symbolslistbox2.cell(1,incr)="ELTA.L":incr++
symbolslistbox2.cell(1,incr)="EMAD.L":incr++
symbolslistbox2.cell(1,incr)="EMAN.L":incr++
symbolslistbox2.cell(1,incr)="EMAS.L":incr++
symbolslistbox2.cell(1,incr)="EMBE.L":incr++
symbolslistbox2.cell(1,incr)="EMCA.L":incr++
symbolslistbox2.cell(1,incr)="EMCP.L":incr++
symbolslistbox2.cell(1,incr)="EMCR.L":incr++
symbolslistbox2.cell(1,incr)="EMDD.L":incr++
symbolslistbox2.cell(1,incr)="EMDL.L":incr++
symbolslistbox2.cell(1,incr)="EMDV.L":incr++
symbolslistbox2.cell(1,incr)="EME.L":incr++
symbolslistbox2.cell(1,incr)="EMES.L":incr++
symbolslistbox2.cell(1,incr)="EMG.L":incr++
symbolslistbox2.cell(1,incr)="EMGA.L":incr++
symbolslistbox2.cell(1,incr)="EMH.L":incr++
symbolslistbox2.cell(1,incr)="EMH5.L":incr++
symbolslistbox2.cell(1,incr)="EMHD.L":incr++
'symbolslistbox2.cell(1,incr)="EMHF.L":incr++
symbolslistbox2.cell(1,incr)="EMHG.L":incr++
symbolslistbox2.cell(1,incr)="EMID.L":incr++
symbolslistbox2.cell(1,incr)="EMIL.L":incr++
symbolslistbox2.cell(1,incr)="EMIM.L":incr++
'symbolslistbox2.cell(1,incr)="EMIN.L":incr++
symbolslistbox2.cell(1,incr)="EMIS.L":incr++
symbolslistbox2.cell(1,incr)="EMLB.L":incr++
symbolslistbox2.cell(1,incr)="EMLC.L":incr++
symbolslistbox2.cell(1,incr)="EMLI.L":incr++
symbolslistbox2.cell(1,incr)="EMLP.L":incr++
symbolslistbox2.cell(1,incr)="EMMV.L":incr++
symbolslistbox2.cell(1,incr)="EMQP.L":incr++
symbolslistbox2.cell(1,incr)="EMQQ.L":incr++
symbolslistbox2.cell(1,incr)="EMR.L":incr++
symbolslistbox2.cell(1,incr)="EMRD.L":incr++
'symbolslistbox2.cell(1,incr)="EMRG.L":incr++
symbolslistbox2.cell(1,incr)="EMSA.L":incr++
symbolslistbox2.cell(1,incr)="EMSD.L":incr++
symbolslistbox2.cell(1,incr)="EMSM.L":incr++
'symbolslistbox2.cell(1,incr)="EMUE.L":incr++
symbolslistbox2.cell(1,incr)="EMUU.L":incr++
symbolslistbox2.cell(1,incr)="EMV.L":incr++
'symbolslistbox2.cell(1,incr)="ENEF.L":incr++
symbolslistbox2.cell(1,incr)="ENET.L":incr++
symbolslistbox2.cell(1,incr)="ENGY.L":incr++
symbolslistbox2.cell(1,incr)="ENOG.L":incr++
symbolslistbox2.cell(1,incr)="ENQ.L":incr++
symbolslistbox2.cell(1,incr)="EOG.L":incr++
symbolslistbox2.cell(1,incr)="EPG.L":incr++
symbolslistbox2.cell(1,incr)="EPIC.L":incr++
'symbolslistbox2.cell(1,incr)="EPIE.L":incr++
'symbolslistbox2.cell(1,incr)="EPIQ.L":incr++
'symbolslistbox2.cell(1,incr)="EPO.L":incr++
symbolslistbox2.cell(1,incr)="EPRA.L":incr++
symbolslistbox2.cell(1,incr)="EPRE.L":incr++
symbolslistbox2.cell(1,incr)="EPWN.L":incr++
symbolslistbox2.cell(1,incr)="EQDS.L":incr++
symbolslistbox2.cell(1,incr)="EQGB.L":incr++
'symbolslistbox2.cell(1,incr)="EQN.L":incr++
symbolslistbox2.cell(1,incr)="EQQQ.L":incr++
symbolslistbox2.cell(1,incr)="EQQU.L":incr++
symbolslistbox2.cell(1,incr)="EQT.L":incr++
symbolslistbox2.cell(1,incr)="ERGO.L":incr++
'symbolslistbox2.cell(1,incr)="ERIS.L":incr++
symbolslistbox2.cell(1,incr)="ERM.L":incr++
symbolslistbox2.cell(1,incr)="ERN1.L":incr++
symbolslistbox2.cell(1,incr)="ERNA.L":incr++
symbolslistbox2.cell(1,incr)="ERND.L":incr++
symbolslistbox2.cell(1,incr)="ERNE.L":incr++
symbolslistbox2.cell(1,incr)="ERNS.L":incr++
symbolslistbox2.cell(1,incr)="ERNU.L":incr++
symbolslistbox2.cell(1,incr)="ERO.L":incr++
symbolslistbox2.cell(1,incr)="ES15.L":incr++
'symbolslistbox2.cell(1,incr)="ESC.L":incr++
'symbolslistbox2.cell(1,incr)="ESM.L":incr++
symbolslistbox2.cell(1,incr)="ESNT.L":incr++
symbolslistbox2.cell(1,incr)="ESO.L":incr++
symbolslistbox2.cell(1,incr)="ESP.L":incr++
'symbolslistbox2.cell(1,incr)="ETLN.L":incr++
symbolslistbox2.cell(1,incr)="ETX.L":incr++
symbolslistbox2.cell(1,incr)="EU13.L":incr++
'symbolslistbox2.cell(1,incr)="EU35.L":incr++
'symbolslistbox2.cell(1,incr)="EU5L.L":incr++
symbolslistbox2.cell(1,incr)="EUA.L":incr++
symbolslistbox2.cell(1,incr)="EUAG.L":incr++
symbolslistbox2.cell(1,incr)="EUCO.L":incr++
symbolslistbox2.cell(1,incr)="EUDI.L":incr++
symbolslistbox2.cell(1,incr)="EUDV.L":incr++
symbolslistbox2.cell(1,incr)="EUE.L":incr++
symbolslistbox2.cell(1,incr)="EUHD.L":incr++
symbolslistbox2.cell(1,incr)="EUMD.L":incr++
symbolslistbox2.cell(1,incr)="EUMV.L":incr++
symbolslistbox2.cell(1,incr)="EUN.L":incr++
symbolslistbox2.cell(1,incr)="EUP3.L":incr++
symbolslistbox2.cell(1,incr)="EURE.L":incr++
'symbolslistbox2.cell(1,incr)="EURL.L":incr++
'symbolslistbox2.cell(1,incr)="EUSC.L":incr++
'symbolslistbox2.cell(1,incr)="EUSP.L":incr++
'symbolslistbox2.cell(1,incr)="EUSV.L":incr++
symbolslistbox2.cell(1,incr)="EUXS.L":incr++
symbolslistbox2.cell(1,incr)="EUZ.L":incr++
symbolslistbox2.cell(1,incr)="EVE.L":incr++
symbolslistbox2.cell(1,incr)="EVG.L":incr++
symbolslistbox2.cell(1,incr)="EVR.L":incr++
'symbolslistbox2.cell(1,incr)="EVRH.L":incr++
symbolslistbox2.cell(1,incr)="EWI.L":incr++
symbolslistbox2.cell(1,incr)="EXPN.L":incr++
symbolslistbox2.cell(1,incr)="EYE.L":incr++
symbolslistbox2.cell(1,incr)="EZJ.L":incr++
symbolslistbox2.cell(1,incr)="FA.L":incr++
symbolslistbox2.cell(1,incr)="FAB.L":incr++
'symbolslistbox2.cell(1,incr)="FAGB.L":incr++
symbolslistbox2.cell(1,incr)="FAHY.L":incr++
symbolslistbox2.cell(1,incr)="FAIR.L":incr++
symbolslistbox2.cell(1,incr)="FAN.L":incr++
symbolslistbox2.cell(1,incr)="FARN.L":incr++
symbolslistbox2.cell(1,incr)="FAS.L":incr++
symbolslistbox2.cell(1,incr)="FBH.L":incr++
symbolslistbox2.cell(1,incr)="FCAP.L":incr++
'symbolslistbox2.cell(1,incr)="FCCN.L":incr++
symbolslistbox2.cell(1,incr)="FCH.L":incr++
'symbolslistbox2.cell(1,incr)="FCIT.L":incr++
symbolslistbox2.cell(1,incr)="FCRM.L":incr++
symbolslistbox2.cell(1,incr)="FCRU.L":incr++
symbolslistbox2.cell(1,incr)="FCSS.L":incr++
'symbolslistbox2.cell(1,incr)="FCTR.L":incr++
symbolslistbox2.cell(1,incr)="FDBK.L":incr++
symbolslistbox2.cell(1,incr)="FDEV.L":incr++
'symbolslistbox2.cell(1,incr)="FDI.L":incr++
'symbolslistbox2.cell(1,incr)="FDM.L":incr++
symbolslistbox2.cell(1,incr)="FDN.L":incr++
symbolslistbox2.cell(1,incr)="FDNU.L":incr++
symbolslistbox2.cell(1,incr)="FDP.L":incr++
symbolslistbox2.cell(1,incr)="FEDF.L":incr++
symbolslistbox2.cell(1,incr)="FEDG.L":incr++
symbolslistbox2.cell(1,incr)="FEET.L":incr++
symbolslistbox2.cell(1,incr)="FEM.L":incr++
symbolslistbox2.cell(1,incr)="FEMQ.L":incr++
symbolslistbox2.cell(1,incr)="FEMU.L":incr++
symbolslistbox2.cell(1,incr)="FEN.L":incr++
symbolslistbox2.cell(1,incr)="FEQD.L":incr++
symbolslistbox2.cell(1,incr)="FEQP.L":incr++
symbolslistbox2.cell(1,incr)="FERG.L":incr++
symbolslistbox2.cell(1,incr)="FEUD.L":incr++
symbolslistbox2.cell(1,incr)="FEUZ.L":incr++
symbolslistbox2.cell(1,incr)="FEV.L":incr++
symbolslistbox2.cell(1,incr)="FEVR.L":incr++
symbolslistbox2.cell(1,incr)="FEX.L":incr++
symbolslistbox2.cell(1,incr)="FEXD.L":incr++
symbolslistbox2.cell(1,incr)="FEXU.L":incr++
'symbolslistbox2.cell(1,incr)="FFWD.L":incr++
symbolslistbox2.cell(1,incr)="FGBL.L":incr++
symbolslistbox2.cell(1,incr)="FGP.L":incr++
symbolslistbox2.cell(1,incr)="FGQD.L":incr++
symbolslistbox2.cell(1,incr)="FGQI.L":incr++
symbolslistbox2.cell(1,incr)="FGQP.L":incr++
symbolslistbox2.cell(1,incr)="FGT.L":incr++
symbolslistbox2.cell(1,incr)="FIF.L":incr++
symbolslistbox2.cell(1,incr)="FIH.L":incr++
'symbolslistbox2.cell(1,incr)="FIN.L":incr++
symbolslistbox2.cell(1,incr)="FIND.L":incr++
'symbolslistbox2.cell(1,incr)="FINW.L":incr++
'symbolslistbox2.cell(1,incr)="FIPP.L":incr++
'symbolslistbox2.cell(1,incr)="FIVE.L":incr++
'symbolslistbox2.cell(1,incr)="FJET.L":incr++
symbolslistbox2.cell(1,incr)="FJV.L":incr++
'symbolslistbox2.cell(1,incr)="FKE.L":incr++
symbolslistbox2.cell(1,incr)="FKU.L":incr++
symbolslistbox2.cell(1,incr)="FKUD.L":incr++
symbolslistbox2.cell(1,incr)="FLK.L":incr++
symbolslistbox2.cell(1,incr)="FLO.L":incr++
symbolslistbox2.cell(1,incr)="FLO5.L":incr++
symbolslistbox2.cell(1,incr)="FLOA.L":incr++
symbolslistbox2.cell(1,incr)="FLOS.L":incr++
symbolslistbox2.cell(1,incr)="FLOT.L":incr++
symbolslistbox2.cell(1,incr)="FLTA.L":incr++
symbolslistbox2.cell(1,incr)="FLTR.L":incr++
symbolslistbox2.cell(1,incr)="FLX.L":incr++
symbolslistbox2.cell(1,incr)="FLXE.L":incr++
symbolslistbox2.cell(1,incr)="FLXG.L":incr++
symbolslistbox2.cell(1,incr)="FNCL.L":incr++
symbolslistbox2.cell(1,incr)="FOG.L":incr++
symbolslistbox2.cell(1,incr)="FORT.L":incr++
symbolslistbox2.cell(1,incr)="FOUR.L":incr++
symbolslistbox2.cell(1,incr)="FOX.L":incr++
symbolslistbox2.cell(1,incr)="FOXT.L":incr++
symbolslistbox2.cell(1,incr)="FPO.L":incr++
symbolslistbox2.cell(1,incr)="FPX.L":incr++
'symbolslistbox2.cell(1,incr)="FRABIOZ.L":incr++
symbolslistbox2.cell(1,incr)="FRAN.L":incr++
symbolslistbox2.cell(1,incr)="FRAS.L":incr++
symbolslistbox2.cell(1,incr)="FRES.L":incr++
symbolslistbox2.cell(1,incr)="FRUE.L":incr++
symbolslistbox2.cell(1,incr)="FSEU.L":incr++
symbolslistbox2.cell(1,incr)="FSFL.L":incr++
symbolslistbox2.cell(1,incr)="FSJ.L":incr++
symbolslistbox2.cell(1,incr)="FSKY.L":incr++
symbolslistbox2.cell(1,incr)="FSTA.L":incr++
symbolslistbox2.cell(1,incr)="FSUS.L":incr++
symbolslistbox2.cell(1,incr)="FSV.L":incr++
symbolslistbox2.cell(1,incr)="FSWD.L":incr++
symbolslistbox2.cell(1,incr)="FTAD.L":incr++
symbolslistbox2.cell(1,incr)="FTAL.L":incr++
symbolslistbox2.cell(1,incr)="FTC.L":incr++
symbolslistbox2.cell(1,incr)="FTEK.L":incr++
symbolslistbox2.cell(1,incr)="FTF.L":incr++
symbolslistbox2.cell(1,incr)="FTFX.L":incr++
symbolslistbox2.cell(1,incr)="FTSV.L":incr++
symbolslistbox2.cell(1,incr)="FTV.L":incr++
symbolslistbox2.cell(1,incr)="FUL.L":incr++
symbolslistbox2.cell(1,incr)="FUM.L":incr++
symbolslistbox2.cell(1,incr)="FUQA.L":incr++
symbolslistbox2.cell(1,incr)="FUSA.L":incr++
symbolslistbox2.cell(1,incr)="FUSD.L":incr++
symbolslistbox2.cell(1,incr)="FUSI.L":incr++
symbolslistbox2.cell(1,incr)="FUSP.L":incr++
symbolslistbox2.cell(1,incr)="FUTR.L":incr++
symbolslistbox2.cell(1,incr)="FXC.L":incr++
symbolslistbox2.cell(1,incr)="FXGB.L":incr++
symbolslistbox2.cell(1,incr)="FXPO.L":incr++
symbolslistbox2.cell(1,incr)="FXRU.L":incr++
'symbolslistbox2.cell(1,incr)="FYX.L":incr++
'symbolslistbox2.cell(1,incr)="G3E.L":incr++
symbolslistbox2.cell(1,incr)="G4M.L":incr++
symbolslistbox2.cell(1,incr)="GAAA.L":incr++
symbolslistbox2.cell(1,incr)="GABI.L":incr++
symbolslistbox2.cell(1,incr)="GACA.L":incr++
symbolslistbox2.cell(1,incr)="GACB.L":incr++
symbolslistbox2.cell(1,incr)="GAL.L":incr++
symbolslistbox2.cell(1,incr)="GAMA.L":incr++
symbolslistbox2.cell(1,incr)="GATC.L":incr++
symbolslistbox2.cell(1,incr)="GAW.L":incr++
'symbolslistbox2.cell(1,incr)="GAZ.L":incr++
'symbolslistbox2.cell(1,incr)="GB0007667669.L":incr++
'symbolslistbox2.cell(1,incr)="GBCH.L":incr++
symbolslistbox2.cell(1,incr)="GBDV.L":incr++
symbolslistbox2.cell(1,incr)="GBG.L":incr++
symbolslistbox2.cell(1,incr)="GBJP.L":incr++
symbolslistbox2.cell(1,incr)="GBP.L":incr++
symbolslistbox2.cell(1,incr)="GBRE.L":incr++
symbolslistbox2.cell(1,incr)="GBS.L":incr++
symbolslistbox2.cell(1,incr)="GBSP.L":incr++
symbolslistbox2.cell(1,incr)="GBSS.L":incr++
symbolslistbox2.cell(1,incr)="GBUR.L":incr++
symbolslistbox2.cell(1,incr)="GBUS.L":incr++
symbolslistbox2.cell(1,incr)="GCG.L":incr++
symbolslistbox2.cell(1,incr)="GCL.L":incr++
symbolslistbox2.cell(1,incr)="GCM.L":incr++
symbolslistbox2.cell(1,incr)="GCP.L":incr++
'symbolslistbox2.cell(1,incr)="GCS.L":incr++
symbolslistbox2.cell(1,incr)="GCVB.L":incr++
symbolslistbox2.cell(1,incr)="GDGB.L":incr++
symbolslistbox2.cell(1,incr)="GDIG.L":incr++
symbolslistbox2.cell(1,incr)="GDP.L":incr++
symbolslistbox2.cell(1,incr)="GDR.L":incr++
symbolslistbox2.cell(1,incr)="GDWN.L":incr++
symbolslistbox2.cell(1,incr)="GDX.L":incr++
symbolslistbox2.cell(1,incr)="GDXJ.L":incr++
symbolslistbox2.cell(1,incr)="GEC.L":incr++
symbolslistbox2.cell(1,incr)="GEEC.L":incr++
'symbolslistbox2.cell(1,incr)="GEF.L":incr++
symbolslistbox2.cell(1,incr)="GEMD.L":incr++
symbolslistbox2.cell(1,incr)="GEND.L":incr++
symbolslistbox2.cell(1,incr)="GENE.L":incr++
symbolslistbox2.cell(1,incr)="GENL.L":incr++
symbolslistbox2.cell(1,incr)="GETB.L":incr++
symbolslistbox2.cell(1,incr)="GFA.L":incr++
'symbolslistbox2.cell(1,incr)="GFHG.L":incr++
symbolslistbox2.cell(1,incr)="GFIN.L":incr++
symbolslistbox2.cell(1,incr)="GFM.L":incr++
symbolslistbox2.cell(1,incr)="GFRD.L":incr++
'symbolslistbox2.cell(1,incr)="GFS.L":incr++
symbolslistbox2.cell(1,incr)="GFTU.L":incr++
symbolslistbox2.cell(1,incr)="GGOV.L":incr++
symbolslistbox2.cell(1,incr)="GGP.L":incr++
symbolslistbox2.cell(1,incr)="GGRA.L":incr++
symbolslistbox2.cell(1,incr)="GGRG.L":incr++
symbolslistbox2.cell(1,incr)="GGRP.L":incr++
symbolslistbox2.cell(1,incr)="GGRW.L":incr++
symbolslistbox2.cell(1,incr)="GHE.L":incr++
'symbolslistbox2.cell(1,incr)="GHG.L":incr++
symbolslistbox2.cell(1,incr)="GHH.L":incr++
symbolslistbox2.cell(1,incr)="GHS.L":incr++
symbolslistbox2.cell(1,incr)="GHT.L":incr++
symbolslistbox2.cell(1,incr)="GHYS.L":incr++
symbolslistbox2.cell(1,incr)="GIF.L":incr++
symbolslistbox2.cell(1,incr)="GIL5.L":incr++
symbolslistbox2.cell(1,incr)="GILE.L":incr++
symbolslistbox2.cell(1,incr)="GILI.L":incr++
symbolslistbox2.cell(1,incr)="GILS.L":incr++
symbolslistbox2.cell(1,incr)="GIN.L":incr++
symbolslistbox2.cell(1,incr)="GINC.L":incr++
symbolslistbox2.cell(1,incr)="GJGB.L":incr++
symbolslistbox2.cell(1,incr)="GKP.L":incr++
symbolslistbox2.cell(1,incr)="GLAB.L":incr++
symbolslistbox2.cell(1,incr)="GLAG.L":incr++
symbolslistbox2.cell(1,incr)="GLAU.L":incr++
symbolslistbox2.cell(1,incr)="GLB.L":incr++
symbolslistbox2.cell(1,incr)="GLBL.L":incr++
symbolslistbox2.cell(1,incr)="GLCB.L":incr++
symbolslistbox2.cell(1,incr)="GLDV.L":incr++
symbolslistbox2.cell(1,incr)="GLE.L":incr++
symbolslistbox2.cell(1,incr)="GLEN.L":incr++
'symbolslistbox2.cell(1,incr)="GLIF.L":incr++
'symbolslistbox2.cell(1,incr)="GLIZ.L":incr++
symbolslistbox2.cell(1,incr)="GLO.L":incr++
'symbolslistbox2.cell(1,incr)="GLPR.L":incr++
'symbolslistbox2.cell(1,incr)="GLR.L":incr++
'symbolslistbox2.cell(1,incr)="GLRE.L":incr++
symbolslistbox2.cell(1,incr)="GLTL.L":incr++
'symbolslistbox2.cell(1,incr)="GLTR.L":incr++
symbolslistbox2.cell(1,incr)="GLTS.L":incr++
symbolslistbox2.cell(1,incr)="GLTY.L":incr++
symbolslistbox2.cell(1,incr)="GLV.L":incr++
symbolslistbox2.cell(1,incr)="GMAA.L":incr++
symbolslistbox2.cell(1,incr)="GMP.L":incr++
symbolslistbox2.cell(1,incr)="GMR.L":incr++
symbolslistbox2.cell(1,incr)="GMS.L":incr++
symbolslistbox2.cell(1,incr)="GNC.L":incr++
symbolslistbox2.cell(1,incr)="GNS.L":incr++
'symbolslistbox2.cell(1,incr)="GOCO.L":incr++
symbolslistbox2.cell(1,incr)="GOG.L":incr++
symbolslistbox2.cell(1,incr)="GOLB.L":incr++
symbolslistbox2.cell(1,incr)="GOOD.L":incr++
symbolslistbox2.cell(1,incr)="GOVY.L":incr++
symbolslistbox2.cell(1,incr)="GPH.L":incr++
symbolslistbox2.cell(1,incr)="GPM.L":incr++
symbolslistbox2.cell(1,incr)="GPOR.L":incr++
'symbolslistbox2.cell(1,incr)="GPSS.L":incr++
symbolslistbox2.cell(1,incr)="GR1T.L":incr++
symbolslistbox2.cell(1,incr)="GRA.L":incr++
symbolslistbox2.cell(1,incr)="GRG.L":incr++
symbolslistbox2.cell(1,incr)="GRI.L":incr++
symbolslistbox2.cell(1,incr)="GRID.L":incr++
symbolslistbox2.cell(1,incr)="GRIO.L":incr++
'symbolslistbox2.cell(1,incr)="GRIT.L":incr++
'symbolslistbox2.cell(1,incr)="GRIW.L":incr++
symbolslistbox2.cell(1,incr)="GRL.L":incr++
symbolslistbox2.cell(1,incr)="GROW.L":incr++
symbolslistbox2.cell(1,incr)="GRP.L":incr++
symbolslistbox2.cell(1,incr)="GSF.L":incr++
symbolslistbox2.cell(1,incr)="GSK.L":incr++
symbolslistbox2.cell(1,incr)="GSPX.L":incr++
'symbolslistbox2.cell(1,incr)="GSS.L":incr++
symbolslistbox2.cell(1,incr)="GTC.L":incr++
symbolslistbox2.cell(1,incr)="GTLY.L":incr++
symbolslistbox2.cell(1,incr)="GUN.L":incr++
'symbolslistbox2.cell(1,incr)="GVC.L":incr++
'symbolslistbox2.cell(1,incr)="GVMH.L":incr++
'symbolslistbox2.cell(1,incr)="GVP.L":incr++
symbolslistbox2.cell(1,incr)="GWI.L":incr++
symbolslistbox2.cell(1,incr)="GWMO.L":incr++
symbolslistbox2.cell(1,incr)="GXLC.L":incr++
symbolslistbox2.cell(1,incr)="GYG.L":incr++
symbolslistbox2.cell(1,incr)="GYM.L":incr++
'symbolslistbox2.cell(1,incr)="GYS.L":incr++
symbolslistbox2.cell(1,incr)="H50E.L":incr++
symbolslistbox2.cell(1,incr)="HAN.L":incr++
symbolslistbox2.cell(1,incr)="HANA.L":incr++
'symbolslistbox2.cell(1,incr)="HAP.L":incr++
symbolslistbox2.cell(1,incr)="HAS.L":incr++
'symbolslistbox2.cell(1,incr)="HAST.L":incr++
symbolslistbox2.cell(1,incr)="HAT.L":incr++
symbolslistbox2.cell(1,incr)="HAYD.L":incr++
symbolslistbox2.cell(1,incr)="HBRL.L":incr++
symbolslistbox2.cell(1,incr)="HBRN.L":incr++
symbolslistbox2.cell(1,incr)="HCAD.L":incr++
symbolslistbox2.cell(1,incr)="HCAN.L":incr++
symbolslistbox2.cell(1,incr)="HCFT.L":incr++
symbolslistbox2.cell(1,incr)="HCM.L":incr++
symbolslistbox2.cell(1,incr)="HDD.L":incr++
symbolslistbox2.cell(1,incr)="HDEM.L":incr++
symbolslistbox2.cell(1,incr)="HDEU.L":incr++
symbolslistbox2.cell(1,incr)="HDIQ.L":incr++
symbolslistbox2.cell(1,incr)="HDIV.L":incr++
symbolslistbox2.cell(1,incr)="HDLG.L":incr++
symbolslistbox2.cell(1,incr)="HDLV.L":incr++
symbolslistbox2.cell(1,incr)="HDT.L":incr++
symbolslistbox2.cell(1,incr)="HEAD.L":incr++
symbolslistbox2.cell(1,incr)="HEAL.L":incr++
symbolslistbox2.cell(1,incr)="HEAT.L":incr++
symbolslistbox2.cell(1,incr)="HEDF.L":incr++
'symbolslistbox2.cell(1,incr)="HEDG.L":incr++
symbolslistbox2.cell(1,incr)="HEDJ.L":incr++
symbolslistbox2.cell(1,incr)="HEDK.L":incr++
symbolslistbox2.cell(1,incr)="HEDP.L":incr++
'symbolslistbox2.cell(1,incr)="HEDS.L":incr++
symbolslistbox2.cell(1,incr)="HEFT.L":incr++
symbolslistbox2.cell(1,incr)="HEMO.L":incr++
'symbolslistbox2.cell(1,incr)="HERT.L":incr++
'symbolslistbox2.cell(1,incr)="HEWA.L":incr++
symbolslistbox2.cell(1,incr)="HFD.L":incr++
symbolslistbox2.cell(1,incr)="HFEL.L":incr++
symbolslistbox2.cell(1,incr)="HFG.L":incr++
'symbolslistbox2.cell(1,incr)="HGM.L":incr++
symbolslistbox2.cell(1,incr)="HGT.L":incr++
symbolslistbox2.cell(1,incr)="HHI.L":incr++
symbolslistbox2.cell(1,incr)="HHV.L":incr++
symbolslistbox2.cell(1,incr)="HICL.L":incr++
symbolslistbox2.cell(1,incr)="HIDD.L":incr++
symbolslistbox2.cell(1,incr)="HIDR.L":incr++
'symbolslistbox2.cell(1,incr)="HIGH.L":incr++
symbolslistbox2.cell(1,incr)="HIK.L":incr++
symbolslistbox2.cell(1,incr)="HILS.L":incr++
symbolslistbox2.cell(1,incr)="HINT.L":incr++
'symbolslistbox2.cell(1,incr)="HKLB.L":incr++
symbolslistbox2.cell(1,incr)="HKOD.L":incr++
symbolslistbox2.cell(1,incr)="HKOR.L":incr++
symbolslistbox2.cell(1,incr)="HL.L":incr++
symbolslistbox2.cell(1,incr)="HLCL.L":incr++
symbolslistbox2.cell(1,incr)="HLMA.L":incr++
symbolslistbox2.cell(1,incr)="HLQD.L":incr++
symbolslistbox2.cell(1,incr)="HLTH.L":incr++
symbolslistbox2.cell(1,incr)="HLTW.L":incr++
symbolslistbox2.cell(1,incr)="HMAD.L":incr++
symbolslistbox2.cell(1,incr)="HMAF.L":incr++
symbolslistbox2.cell(1,incr)="HMBR.L":incr++
symbolslistbox2.cell(1,incr)="HMCA.L":incr++
symbolslistbox2.cell(1,incr)="HMCD.L":incr++
symbolslistbox2.cell(1,incr)="HMCH.L":incr++
symbolslistbox2.cell(1,incr)="HMCX.L":incr++
symbolslistbox2.cell(1,incr)="HMED.L":incr++
symbolslistbox2.cell(1,incr)="HMEF.L":incr++
symbolslistbox2.cell(1,incr)="HMEM.L":incr++
symbolslistbox2.cell(1,incr)="HMEU.L":incr++
symbolslistbox2.cell(1,incr)="HMEX.L":incr++
symbolslistbox2.cell(1,incr)="HMFD.L":incr++
symbolslistbox2.cell(1,incr)="HMFE.L":incr++
symbolslistbox2.cell(1,incr)="HMJD.L":incr++
symbolslistbox2.cell(1,incr)="HMJP.L":incr++
symbolslistbox2.cell(1,incr)="HMLA.L":incr++
symbolslistbox2.cell(1,incr)="HMLD.L":incr++
'symbolslistbox2.cell(1,incr)="HMLH.L":incr++
symbolslistbox2.cell(1,incr)="HMSO.L":incr++
symbolslistbox2.cell(1,incr)="HMUD.L":incr++
symbolslistbox2.cell(1,incr)="HMUS.L":incr++
symbolslistbox2.cell(1,incr)="HMWD.L":incr++
symbolslistbox2.cell(1,incr)="HMWO.L":incr++
symbolslistbox2.cell(1,incr)="HMXJ.L":incr++
symbolslistbox2.cell(1,incr)="HMYD.L":incr++
symbolslistbox2.cell(1,incr)="HMYR.L":incr++
symbolslistbox2.cell(1,incr)="HNE.L":incr++
symbolslistbox2.cell(1,incr)="HOC.L":incr++
symbolslistbox2.cell(1,incr)="HOGS.L":incr++
symbolslistbox2.cell(1,incr)="HONY.L":incr++
symbolslistbox2.cell(1,incr)="HOT.L":incr++
symbolslistbox2.cell(1,incr)="HOTC.L":incr++
symbolslistbox2.cell(1,incr)="HPAC.L":incr++
symbolslistbox2.cell(1,incr)="HPRD.L":incr++
symbolslistbox2.cell(1,incr)="HPRO.L":incr++
symbolslistbox2.cell(1,incr)="HRI.L":incr++
symbolslistbox2.cell(1,incr)="HRN.L":incr++
symbolslistbox2.cell(1,incr)="HRUB.L":incr++
symbolslistbox2.cell(1,incr)="HRUD.L":incr++
symbolslistbox2.cell(1,incr)="HSBA.L":incr++
symbolslistbox2.cell(1,incr)="HSD.L":incr++
symbolslistbox2.cell(1,incr)="HSL.L":incr++
symbolslistbox2.cell(1,incr)="HSM.L":incr++
symbolslistbox2.cell(1,incr)="HSP.L":incr++
symbolslistbox2.cell(1,incr)="HSPD.L":incr++
symbolslistbox2.cell(1,incr)="HSPX.L":incr++
symbolslistbox2.cell(1,incr)="HSS.L":incr++
'symbolslistbox2.cell(1,incr)="HSTG.L":incr++
symbolslistbox2.cell(1,incr)="HSV.L":incr++
symbolslistbox2.cell(1,incr)="HSW.L":incr++
symbolslistbox2.cell(1,incr)="HSX.L":incr++
symbolslistbox2.cell(1,incr)="HTCF.L":incr++
symbolslistbox2.cell(1,incr)="HTG.L":incr++
symbolslistbox2.cell(1,incr)="HTRD.L":incr++
symbolslistbox2.cell(1,incr)="HTRY.L":incr++
symbolslistbox2.cell(1,incr)="HTWD.L":incr++
symbolslistbox2.cell(1,incr)="HTWN.L":incr++
symbolslistbox2.cell(1,incr)="HTWS.L":incr++
symbolslistbox2.cell(1,incr)="HUKX.L":incr++
symbolslistbox2.cell(1,incr)="HUM.L":incr++
'symbolslistbox2.cell(1,incr)="HUNT.L":incr++
symbolslistbox2.cell(1,incr)="HUR.L":incr++
symbolslistbox2.cell(1,incr)="HUW.L":incr++
'symbolslistbox2.cell(1,incr)="HVO.L":incr++
symbolslistbox2.cell(1,incr)="HVPE.L":incr++
symbolslistbox2.cell(1,incr)="HVT.L":incr++
symbolslistbox2.cell(1,incr)="HVTA.L":incr++
symbolslistbox2.cell(1,incr)="HWDN.L":incr++
symbolslistbox2.cell(1,incr)="HWG.L":incr++
'symbolslistbox2.cell(1,incr)="HWSL.L":incr++
symbolslistbox2.cell(1,incr)="HWWA.L":incr++
symbolslistbox2.cell(1,incr)="HWWD.L":incr++
'symbolslistbox2.cell(1,incr)="HYDG.L":incr++
'symbolslistbox2.cell(1,incr)="HYDR.L":incr++
symbolslistbox2.cell(1,incr)="HYEA.L":incr++
symbolslistbox2.cell(1,incr)="HYEM.L":incr++
symbolslistbox2.cell(1,incr)="HYFA.L":incr++
'symbolslistbox2.cell(1,incr)="HYG.L":incr++
symbolslistbox2.cell(1,incr)="HYGU.L":incr++
symbolslistbox2.cell(1,incr)="HYLA.L":incr++
symbolslistbox2.cell(1,incr)="HYLD.L":incr++
'symbolslistbox2.cell(1,incr)="HYR.L":incr++
'symbolslistbox2.cell(1,incr)="HYST.L":incr++
symbolslistbox2.cell(1,incr)="HYVE.L":incr++
symbolslistbox2.cell(1,incr)="HZAD.L":incr++
symbolslistbox2.cell(1,incr)="HZAR.L":incr++
'symbolslistbox2.cell(1,incr)="HZD.L":incr++
symbolslistbox2.cell(1,incr)="HZM.L":incr++
symbolslistbox2.cell(1,incr)="I3E.L":incr++
symbolslistbox2.cell(1,incr)="IAAA.L":incr++
symbolslistbox2.cell(1,incr)="IAEX.L":incr++
symbolslistbox2.cell(1,incr)="IAG.L":incr++
symbolslistbox2.cell(1,incr)="IAPD.L":incr++
symbolslistbox2.cell(1,incr)="IASH.L":incr++
symbolslistbox2.cell(1,incr)="IASP.L":incr++
symbolslistbox2.cell(1,incr)="IAT.L":incr++
symbolslistbox2.cell(1,incr)="IAUP.L":incr++
symbolslistbox2.cell(1,incr)="IAUS.L":incr++
symbolslistbox2.cell(1,incr)="IB01.L":incr++
symbolslistbox2.cell(1,incr)="IBCI.L":incr++
symbolslistbox2.cell(1,incr)="IBCX.L":incr++
symbolslistbox2.cell(1,incr)="IBGE.L":incr++
symbolslistbox2.cell(1,incr)="IBGL.L":incr++
symbolslistbox2.cell(1,incr)="IBGM.L":incr++
symbolslistbox2.cell(1,incr)="IBGS.L":incr++
symbolslistbox2.cell(1,incr)="IBGX.L":incr++
symbolslistbox2.cell(1,incr)="IBM.L":incr++
symbolslistbox2.cell(1,incr)="IBPO.L":incr++
symbolslistbox2.cell(1,incr)="IBST.L":incr++
symbolslistbox2.cell(1,incr)="IBT.L":incr++
symbolslistbox2.cell(1,incr)="IBTA.L":incr++
symbolslistbox2.cell(1,incr)="IBTE.L":incr++
symbolslistbox2.cell(1,incr)="IBTG.L":incr++
symbolslistbox2.cell(1,incr)="IBTL.L":incr++
symbolslistbox2.cell(1,incr)="IBTM.L":incr++
symbolslistbox2.cell(1,incr)="IBTS.L":incr++
symbolslistbox2.cell(1,incr)="IBTU.L":incr++
symbolslistbox2.cell(1,incr)="IBZL.L":incr++
symbolslistbox2.cell(1,incr)="ICBU.L":incr++
symbolslistbox2.cell(1,incr)="ICDU.L":incr++
symbolslistbox2.cell(1,incr)="ICGC.L":incr++
symbolslistbox2.cell(1,incr)="ICGT.L":incr++
symbolslistbox2.cell(1,incr)="ICOM.L":incr++
symbolslistbox2.cell(1,incr)="ICP.L":incr++
symbolslistbox2.cell(1,incr)="ICSU.L":incr++
symbolslistbox2.cell(1,incr)="IDAP.L":incr++
symbolslistbox2.cell(1,incr)="IDAR.L":incr++
symbolslistbox2.cell(1,incr)="IDBT.L":incr++
symbolslistbox2.cell(1,incr)="IDBZ.L":incr++
symbolslistbox2.cell(1,incr)="IDE.L":incr++
symbolslistbox2.cell(1,incr)="IDEA.L":incr++
symbolslistbox2.cell(1,incr)="IDEE.L":incr++
symbolslistbox2.cell(1,incr)="IDEM.L":incr++
symbolslistbox2.cell(1,incr)="IDFF.L":incr++
symbolslistbox2.cell(1,incr)="IDFX.L":incr++
'symbolslistbox2.cell(1,incr)="IDH.L":incr++
symbolslistbox2.cell(1,incr)="IDHC.L":incr++
symbolslistbox2.cell(1,incr)="IDIN.L":incr++
symbolslistbox2.cell(1,incr)="IDJG.L":incr++
symbolslistbox2.cell(1,incr)="IDJP.L":incr++
'symbolslistbox2.cell(1,incr)="IDJV.L":incr++
symbolslistbox2.cell(1,incr)="IDKO.L":incr++
symbolslistbox2.cell(1,incr)="IDNA.L":incr++
symbolslistbox2.cell(1,incr)="IDOX.L":incr++
symbolslistbox2.cell(1,incr)="IDP.L":incr++
symbolslistbox2.cell(1,incr)="IDP6.L":incr++
symbolslistbox2.cell(1,incr)="IDPE.L":incr++
symbolslistbox2.cell(1,incr)="IDTK.L":incr++
symbolslistbox2.cell(1,incr)="IDTL.L":incr++
symbolslistbox2.cell(1,incr)="IDTM.L":incr++
symbolslistbox2.cell(1,incr)="IDTP.L":incr++
symbolslistbox2.cell(1,incr)="IDTW.L":incr++
symbolslistbox2.cell(1,incr)="IDUP.L":incr++
symbolslistbox2.cell(1,incr)="IDUS.L":incr++
symbolslistbox2.cell(1,incr)="IDVY.L":incr++
symbolslistbox2.cell(1,incr)="IDWP.L":incr++
symbolslistbox2.cell(1,incr)="IDWR.L":incr++
symbolslistbox2.cell(1,incr)="IE15.L":incr++
symbolslistbox2.cell(1,incr)="IEAA.L":incr++
symbolslistbox2.cell(1,incr)="IEAC.L":incr++
symbolslistbox2.cell(1,incr)="IEAH.L":incr++
symbolslistbox2.cell(1,incr)="IEBC.L":incr++
symbolslistbox2.cell(1,incr)="IEDL.L":incr++
symbolslistbox2.cell(1,incr)="IEDY.L":incr++
symbolslistbox2.cell(1,incr)="IEEM.L":incr++
symbolslistbox2.cell(1,incr)="IEER.L":incr++
'symbolslistbox2.cell(1,incr)="IEEU.L":incr++
symbolslistbox2.cell(1,incr)="IEFM.L":incr++
symbolslistbox2.cell(1,incr)="IEFQ.L":incr++
symbolslistbox2.cell(1,incr)="IEFS.L":incr++
symbolslistbox2.cell(1,incr)="IEFV.L":incr++
symbolslistbox2.cell(1,incr)="IEM.L":incr++
symbolslistbox2.cell(1,incr)="IEMA.L":incr++
symbolslistbox2.cell(1,incr)="IEMB.L":incr++
symbolslistbox2.cell(1,incr)="IEMD.L":incr++
symbolslistbox2.cell(1,incr)="IEMI.L":incr++
symbolslistbox2.cell(1,incr)="IEML.L":incr++
'symbolslistbox2.cell(1,incr)="IEMO.L":incr++
symbolslistbox2.cell(1,incr)="IEMS.L":incr++
symbolslistbox2.cell(1,incr)="IEQD.L":incr++
'symbolslistbox2.cell(1,incr)="IEQU.L":incr++
symbolslistbox2.cell(1,incr)="IESG.L":incr++
symbolslistbox2.cell(1,incr)="IESU.L":incr++
'symbolslistbox2.cell(1,incr)="IESZ.L":incr++
symbolslistbox2.cell(1,incr)="IEUX.L":incr++
symbolslistbox2.cell(1,incr)="IEVL.L":incr++
symbolslistbox2.cell(1,incr)="IFFF.L":incr++
'symbolslistbox2.cell(1,incr)="IFP.L":incr++
symbolslistbox2.cell(1,incr)="IFRB.L":incr++
symbolslistbox2.cell(1,incr)="IFSD.L":incr++
'symbolslistbox2.cell(1,incr)="IFSE.L":incr++
symbolslistbox2.cell(1,incr)="IFSU.L":incr++
symbolslistbox2.cell(1,incr)="IFSW.L":incr++
symbolslistbox2.cell(1,incr)="IGAA.L":incr++
symbolslistbox2.cell(1,incr)="IGAS.L":incr++
symbolslistbox2.cell(1,incr)="IGC.L":incr++
symbolslistbox2.cell(1,incr)="IGE.L":incr++
symbolslistbox2.cell(1,incr)="IGEA.L":incr++
symbolslistbox2.cell(1,incr)="IGG.L":incr++
symbolslistbox2.cell(1,incr)="IGHY.L":incr++
symbolslistbox2.cell(1,incr)="IGIL.L":incr++
symbolslistbox2.cell(1,incr)="IGLA.L":incr++
symbolslistbox2.cell(1,incr)="IGLH.L":incr++
symbolslistbox2.cell(1,incr)="IGLN.L":incr++
symbolslistbox2.cell(1,incr)="IGLO.L":incr++
symbolslistbox2.cell(1,incr)="IGLS.L":incr++
symbolslistbox2.cell(1,incr)="IGLT.L":incr++
symbolslistbox2.cell(1,incr)="IGP.L":incr++
symbolslistbox2.cell(1,incr)="IGR.L":incr++
symbolslistbox2.cell(1,incr)="IGSD.L":incr++
symbolslistbox2.cell(1,incr)="IGSG.L":incr++
symbolslistbox2.cell(1,incr)="IGSU.L":incr++
symbolslistbox2.cell(1,incr)="IGUS.L":incr++
symbolslistbox2.cell(1,incr)="IGV.L":incr++
symbolslistbox2.cell(1,incr)="IGWD.L":incr++
symbolslistbox2.cell(1,incr)="IH2O.L":incr++
symbolslistbox2.cell(1,incr)="IHC.L":incr++
symbolslistbox2.cell(1,incr)="IHCU.L":incr++
symbolslistbox2.cell(1,incr)="IHG.L":incr++
symbolslistbox2.cell(1,incr)="IHHG.L":incr++
symbolslistbox2.cell(1,incr)="IHP.L":incr++
symbolslistbox2.cell(1,incr)="IHR.L":incr++
symbolslistbox2.cell(1,incr)="IHYA.L":incr++
symbolslistbox2.cell(1,incr)="IHYE.L":incr++
symbolslistbox2.cell(1,incr)="IHYG.L":incr++
symbolslistbox2.cell(1,incr)="IHYU.L":incr++
symbolslistbox2.cell(1,incr)="III.L":incr++
symbolslistbox2.cell(1,incr)="IIND.L":incr++
symbolslistbox2.cell(1,incr)="IIP.L":incr++
symbolslistbox2.cell(1,incr)="IISU.L":incr++
symbolslistbox2.cell(1,incr)="IIT.L":incr++
symbolslistbox2.cell(1,incr)="IITU.L":incr++
symbolslistbox2.cell(1,incr)="IJPA.L":incr++
symbolslistbox2.cell(1,incr)="IJPD.L":incr++
symbolslistbox2.cell(1,incr)="IJPE.L":incr++
symbolslistbox2.cell(1,incr)="IJPH.L":incr++
symbolslistbox2.cell(1,incr)="IJPN.L":incr++
symbolslistbox2.cell(1,incr)="IJPU.L":incr++
symbolslistbox2.cell(1,incr)="IKA.L":incr++
symbolslistbox2.cell(1,incr)="IKOR.L":incr++
symbolslistbox2.cell(1,incr)="IL0A.L":incr++
symbolslistbox2.cell(1,incr)="IMB.L":incr++
symbolslistbox2.cell(1,incr)="IMBA.L":incr++
symbolslistbox2.cell(1,incr)="IMBS.L":incr++
symbolslistbox2.cell(1,incr)="IME.L":incr++
'symbolslistbox2.cell(1,incr)="IMEA.L":incr++
symbolslistbox2.cell(1,incr)="IMEU.L":incr++
symbolslistbox2.cell(1,incr)="IMI.L":incr++
symbolslistbox2.cell(1,incr)="IMIB.L":incr++
symbolslistbox2.cell(1,incr)="IMID.L":incr++
symbolslistbox2.cell(1,incr)="IMM.L":incr++
symbolslistbox2.cell(1,incr)="IMMO.L":incr++
'symbolslistbox2.cell(1,incr)="IMO.L":incr++
symbolslistbox2.cell(1,incr)="IMSU.L":incr++
symbolslistbox2.cell(1,incr)="IMV.L":incr++
symbolslistbox2.cell(1,incr)="IMVU.L":incr++
symbolslistbox2.cell(1,incr)="INAA.L":incr++
symbolslistbox2.cell(1,incr)="INCH.L":incr++
'symbolslistbox2.cell(1,incr)="IND.L":incr++
'symbolslistbox2.cell(1,incr)="INDI.L":incr++
symbolslistbox2.cell(1,incr)="INDV.L":incr++
symbolslistbox2.cell(1,incr)="INDW.L":incr++
symbolslistbox2.cell(1,incr)="INF.L":incr++
'symbolslistbox2.cell(1,incr)="INFA.L":incr++
symbolslistbox2.cell(1,incr)="INFG.L":incr++
symbolslistbox2.cell(1,incr)="INFL.L":incr++
symbolslistbox2.cell(1,incr)="INFR.L":incr++
symbolslistbox2.cell(1,incr)="INFU.L":incr++
symbolslistbox2.cell(1,incr)="ING.L":incr++
symbolslistbox2.cell(1,incr)="INL.L":incr++
symbolslistbox2.cell(1,incr)="INLZ.L":incr++
symbolslistbox2.cell(1,incr)="INPP.L":incr++
symbolslistbox2.cell(1,incr)="INRG.L":incr++
symbolslistbox2.cell(1,incr)="INRL.L":incr++
symbolslistbox2.cell(1,incr)="INRU.L":incr++
symbolslistbox2.cell(1,incr)="INS.L":incr++
symbolslistbox2.cell(1,incr)="INSE.L":incr++
symbolslistbox2.cell(1,incr)="INSP.L":incr++
symbolslistbox2.cell(1,incr)="INTO.L":incr++
symbolslistbox2.cell(1,incr)="INV.L":incr++
symbolslistbox2.cell(1,incr)="INVP.L":incr++
symbolslistbox2.cell(1,incr)="INVR.L":incr++
symbolslistbox2.cell(1,incr)="INX.L":incr++
symbolslistbox2.cell(1,incr)="INXG.L":incr++
symbolslistbox2.cell(1,incr)="IOF.L":incr++
symbolslistbox2.cell(1,incr)="IOG.L":incr++
symbolslistbox2.cell(1,incr)="IOGP.L":incr++
symbolslistbox2.cell(1,incr)="IOM.L":incr++
symbolslistbox2.cell(1,incr)="IPDM.L":incr++
'symbolslistbox2.cell(1,incr)="IPE.L":incr++
symbolslistbox2.cell(1,incr)="IPEL.L":incr++
symbolslistbox2.cell(1,incr)="IPF.L":incr++
symbolslistbox2.cell(1,incr)="IPLT.L":incr++
symbolslistbox2.cell(1,incr)="IPO.L":incr++
symbolslistbox2.cell(1,incr)="IPOL.L":incr++
symbolslistbox2.cell(1,incr)="IPRP.L":incr++
symbolslistbox2.cell(1,incr)="IPRV.L":incr++
symbolslistbox2.cell(1,incr)="IPU.L":incr++
symbolslistbox2.cell(1,incr)="IPX.L":incr++
symbolslistbox2.cell(1,incr)="IPXJ.L":incr++
symbolslistbox2.cell(1,incr)="IQAI.L":incr++
symbolslistbox2.cell(1,incr)="IQE.L":incr++
symbolslistbox2.cell(1,incr)="IRCP.L":incr++
symbolslistbox2.cell(1,incr)="IRON.L":incr++
'symbolslistbox2.cell(1,incr)="IRR.L":incr++
symbolslistbox2.cell(1,incr)="IRSA.L":incr++
symbolslistbox2.cell(1,incr)="IS15.L":incr++
symbolslistbox2.cell(1,incr)="ISAC.L":incr++
symbolslistbox2.cell(1,incr)="ISAG.L":incr++
symbolslistbox2.cell(1,incr)="ISDE.L":incr++
symbolslistbox2.cell(1,incr)="ISDU.L":incr++
symbolslistbox2.cell(1,incr)="ISDW.L":incr++
'symbolslistbox2.cell(1,incr)="ISEQ.L":incr++
symbolslistbox2.cell(1,incr)="ISEU.L":incr++
symbolslistbox2.cell(1,incr)="ISF.L":incr++
symbolslistbox2.cell(1,incr)="ISFD.L":incr++
symbolslistbox2.cell(1,incr)="ISFE.L":incr++
symbolslistbox2.cell(1,incr)="ISFR.L":incr++
symbolslistbox2.cell(1,incr)="ISFU.L":incr++
symbolslistbox2.cell(1,incr)="ISJP.L":incr++
symbolslistbox2.cell(1,incr)="ISLN.L":incr++
symbolslistbox2.cell(1,incr)="ISP6.L":incr++
symbolslistbox2.cell(1,incr)="ISPY.L":incr++
'symbolslistbox2.cell(1,incr)="ISQE.L":incr++
'symbolslistbox2.cell(1,incr)="ISRL.L":incr++
symbolslistbox2.cell(1,incr)="ISUS.L":incr++
symbolslistbox2.cell(1,incr)="ISWD.L":incr++
'symbolslistbox2.cell(1,incr)="ISX5.L":incr++
symbolslistbox2.cell(1,incr)="ISXF.L":incr++
symbolslistbox2.cell(1,incr)="ITEC.L":incr++
symbolslistbox2.cell(1,incr)="ITEH.L":incr++
symbolslistbox2.cell(1,incr)="ITEK.L":incr++
symbolslistbox2.cell(1,incr)="ITKY.L":incr++
symbolslistbox2.cell(1,incr)="ITM.L":incr++
symbolslistbox2.cell(1,incr)="ITPG.L":incr++
symbolslistbox2.cell(1,incr)="ITPS.L":incr++
symbolslistbox2.cell(1,incr)="ITRK.L":incr++
symbolslistbox2.cell(1,incr)="ITV.L":incr++
symbolslistbox2.cell(1,incr)="ITWN.L":incr++
symbolslistbox2.cell(1,incr)="ITX.L":incr++
symbolslistbox2.cell(1,incr)="IUAA.L":incr++
symbolslistbox2.cell(1,incr)="IUAE.L":incr++
symbolslistbox2.cell(1,incr)="IUAG.L":incr++
symbolslistbox2.cell(1,incr)="IUCD.L":incr++
symbolslistbox2.cell(1,incr)="IUCM.L":incr++
symbolslistbox2.cell(1,incr)="IUCS.L":incr++
symbolslistbox2.cell(1,incr)="IUES.L":incr++
symbolslistbox2.cell(1,incr)="IUFS.L":incr++
symbolslistbox2.cell(1,incr)="IUGA.L":incr++
symbolslistbox2.cell(1,incr)="IUHC.L":incr++
symbolslistbox2.cell(1,incr)="IUIS.L":incr++
symbolslistbox2.cell(1,incr)="IUIT.L":incr++
symbolslistbox2.cell(1,incr)="IUKD.L":incr++
symbolslistbox2.cell(1,incr)="IUKP.L":incr++
symbolslistbox2.cell(1,incr)="IUMD.L":incr++
symbolslistbox2.cell(1,incr)="IUMF.L":incr++
symbolslistbox2.cell(1,incr)="IUMO.L":incr++
symbolslistbox2.cell(1,incr)="IUMS.L":incr++
symbolslistbox2.cell(1,incr)="IUQA.L":incr++
symbolslistbox2.cell(1,incr)="IUQD.L":incr++
symbolslistbox2.cell(1,incr)="IUQF.L":incr++
symbolslistbox2.cell(1,incr)="IUSA.L":incr++
symbolslistbox2.cell(1,incr)="IUSE.L":incr++
symbolslistbox2.cell(1,incr)="IUSF.L":incr++
symbolslistbox2.cell(1,incr)="IUSP.L":incr++
symbolslistbox2.cell(1,incr)="IUSU.L":incr++
symbolslistbox2.cell(1,incr)="IUSZ.L":incr++
symbolslistbox2.cell(1,incr)="IUUS.L":incr++
symbolslistbox2.cell(1,incr)="IUVD.L":incr++
symbolslistbox2.cell(1,incr)="IUVF.L":incr++
symbolslistbox2.cell(1,incr)="IUVL.L":incr++
'symbolslistbox2.cell(1,incr)="IVI.L":incr++
symbolslistbox2.cell(1,incr)="IVPB.L":incr++
symbolslistbox2.cell(1,incr)="IVPG.L":incr++
symbolslistbox2.cell(1,incr)="IVPM.L":incr++
symbolslistbox2.cell(1,incr)="IVPU.L":incr++
symbolslistbox2.cell(1,incr)="IWDA.L":incr++
symbolslistbox2.cell(1,incr)="IWDE.L":incr++
symbolslistbox2.cell(1,incr)="IWDG.L":incr++
symbolslistbox2.cell(1,incr)="IWDP.L":incr++
symbolslistbox2.cell(1,incr)="IWFM.L":incr++
symbolslistbox2.cell(1,incr)="IWFQ.L":incr++
symbolslistbox2.cell(1,incr)="IWFS.L":incr++
symbolslistbox2.cell(1,incr)="IWFV.L":incr++
symbolslistbox2.cell(1,incr)="IWG.L":incr++
symbolslistbox2.cell(1,incr)="IWMO.L":incr++
symbolslistbox2.cell(1,incr)="IWQU.L":incr++
symbolslistbox2.cell(1,incr)="IWRD.L":incr++
symbolslistbox2.cell(1,incr)="IWSZ.L":incr++
symbolslistbox2.cell(1,incr)="IWVG.L":incr++
symbolslistbox2.cell(1,incr)="IWVL.L":incr++
symbolslistbox2.cell(1,incr)="IWVU.L":incr++
symbolslistbox2.cell(1,incr)="IXI.L":incr++
symbolslistbox2.cell(1,incr)="J13U.L":incr++
'symbolslistbox2.cell(1,incr)="JAI.L":incr++
symbolslistbox2.cell(1,incr)="JAM.L":incr++
symbolslistbox2.cell(1,incr)="JAN.L":incr++
symbolslistbox2.cell(1,incr)="JAY.L":incr++
symbolslistbox2.cell(1,incr)="JCGI.L":incr++
symbolslistbox2.cell(1,incr)="JCH.L":incr++
symbolslistbox2.cell(1,incr)="JD.L":incr++
symbolslistbox2.cell(1,incr)="JDG.L":incr++
'symbolslistbox2.cell(1,incr)="JDS.L":incr++
symbolslistbox2.cell(1,incr)="JDW.L":incr++
symbolslistbox2.cell(1,incr)="JEFI.L":incr++
symbolslistbox2.cell(1,incr)="JEL.L":incr++
symbolslistbox2.cell(1,incr)="JEMI.L":incr++
'symbolslistbox2.cell(1,incr)="JEO.L":incr++
symbolslistbox2.cell(1,incr)="JERE.L":incr++
'symbolslistbox2.cell(1,incr)="JESC.L":incr++
symbolslistbox2.cell(1,incr)="JEST.L":incr++
symbolslistbox2.cell(1,incr)="JET.L":incr++
symbolslistbox2.cell(1,incr)="JETG.L":incr++
symbolslistbox2.cell(1,incr)="JETI.L":incr++
symbolslistbox2.cell(1,incr)="JFJ.L":incr++
symbolslistbox2.cell(1,incr)="JG15.L":incr++
symbolslistbox2.cell(1,incr)="JGC.L":incr++
symbolslistbox2.cell(1,incr)="JGRE.L":incr++
symbolslistbox2.cell(1,incr)="JGST.L":incr++
symbolslistbox2.cell(1,incr)="JHD.L":incr++
symbolslistbox2.cell(1,incr)="JHEF.L":incr++
symbolslistbox2.cell(1,incr)="JII.L":incr++
symbolslistbox2.cell(1,incr)="JIM.L":incr++
symbolslistbox2.cell(1,incr)="JKX.L":incr++
symbolslistbox2.cell(1,incr)="JLEN.L":incr++
'symbolslistbox2.cell(1,incr)="JLG.L":incr++
symbolslistbox2.cell(1,incr)="JLH.L":incr++
symbolslistbox2.cell(1,incr)="JLP.L":incr++
symbolslistbox2.cell(1,incr)="JMAT.L":incr++
symbolslistbox2.cell(1,incr)="JMBE.L":incr++
'symbolslistbox2.cell(1,incr)="JMC.L":incr++
symbolslistbox2.cell(1,incr)="JMF.L":incr++
'symbolslistbox2.cell(1,incr)="JMFP.L":incr++
symbolslistbox2.cell(1,incr)="JMG.L":incr++
symbolslistbox2.cell(1,incr)="JMI.L":incr++
symbolslistbox2.cell(1,incr)="JNKE.L":incr++
symbolslistbox2.cell(1,incr)="JNKS.L":incr++
symbolslistbox2.cell(1,incr)="JOG.L":incr++
symbolslistbox2.cell(1,incr)="JOUL.L":incr++
'symbolslistbox2.cell(1,incr)="JPB.L":incr++
symbolslistbox2.cell(1,incr)="JPBM.L":incr++
symbolslistbox2.cell(1,incr)="JPE.L":incr++
symbolslistbox2.cell(1,incr)="JPEA.L":incr++
symbolslistbox2.cell(1,incr)="JPEC.L":incr++
symbolslistbox2.cell(1,incr)="JPEE.L":incr++
symbolslistbox2.cell(1,incr)="JPEH.L":incr++
symbolslistbox2.cell(1,incr)="JPEI.L":incr++
symbolslistbox2.cell(1,incr)="JPEL.L":incr++
'symbolslistbox2.cell(1,incr)="JPFM.L":incr++
symbolslistbox2.cell(1,incr)="JPGB.L":incr++
symbolslistbox2.cell(1,incr)="JPGL.L":incr++
symbolslistbox2.cell(1,incr)="JPJP.L":incr++
symbolslistbox2.cell(1,incr)="JPMB.L":incr++
'symbolslistbox2.cell(1,incr)="JPMF.L":incr++
symbolslistbox2.cell(1,incr)="JPNL.L":incr++
symbolslistbox2.cell(1,incr)="JPNU.L":incr++
symbolslistbox2.cell(1,incr)="JPNY.L":incr++
'symbolslistbox2.cell(1,incr)="JPR.L":incr++
'symbolslistbox2.cell(1,incr)="JPS.L":incr++
symbolslistbox2.cell(1,incr)="JPSR.L":incr++
symbolslistbox2.cell(1,incr)="JPST.L":incr++
symbolslistbox2.cell(1,incr)="JPTS.L":incr++
symbolslistbox2.cell(1,incr)="JPX4.L":incr++
symbolslistbox2.cell(1,incr)="JPXG.L":incr++
symbolslistbox2.cell(1,incr)="JPXU.L":incr++
symbolslistbox2.cell(1,incr)="JPXX.L":incr++
'symbolslistbox2.cell(1,incr)="JPYP.L":incr++
symbolslistbox2.cell(1,incr)="JREE.L":incr++
symbolslistbox2.cell(1,incr)="JREG.L":incr++
symbolslistbox2.cell(1,incr)="JREU.L":incr++
symbolslistbox2.cell(1,incr)="JRS.L":incr++
symbolslistbox2.cell(1,incr)="JSE.L":incr++
symbolslistbox2.cell(1,incr)="JSET.L":incr++
symbolslistbox2.cell(1,incr)="JSG.L":incr++
symbolslistbox2.cell(1,incr)="JTC.L":incr++
symbolslistbox2.cell(1,incr)="JU13.L":incr++
'symbolslistbox2.cell(1,incr)="JUKG.L":incr++
symbolslistbox2.cell(1,incr)="JUP.L":incr++
symbolslistbox2.cell(1,incr)="JURE.L":incr++
'symbolslistbox2.cell(1,incr)="JUS.L":incr++
symbolslistbox2.cell(1,incr)="JUSC.L":incr++
symbolslistbox2.cell(1,incr)="JUST.L":incr++
symbolslistbox2.cell(1,incr)="JWNG.L":incr++
symbolslistbox2.cell(1,incr)="JZCP.L":incr++
symbolslistbox2.cell(1,incr)="JZCZ.L":incr++
symbolslistbox2.cell(1,incr)="K3C.L":incr++
symbolslistbox2.cell(1,incr)="KAP.L":incr++
symbolslistbox2.cell(1,incr)="KAPE.L":incr++
symbolslistbox2.cell(1,incr)="KAT.L":incr++
symbolslistbox2.cell(1,incr)="KAV.L":incr++
symbolslistbox2.cell(1,incr)="KAY.L":incr++
'symbolslistbox2.cell(1,incr)="KAZ.L":incr++
symbolslistbox2.cell(1,incr)="KBT.L":incr++
symbolslistbox2.cell(1,incr)="KCR.L":incr++
symbolslistbox2.cell(1,incr)="KCT.L":incr++
symbolslistbox2.cell(1,incr)="KDNC.L":incr++
symbolslistbox2.cell(1,incr)="KDR.L":incr++
symbolslistbox2.cell(1,incr)="KEFI.L":incr++
symbolslistbox2.cell(1,incr)="KETL.L":incr++
symbolslistbox2.cell(1,incr)="KEYS.L":incr++
symbolslistbox2.cell(1,incr)="KGF.L":incr++
symbolslistbox2.cell(1,incr)="KGH.L":incr++
symbolslistbox2.cell(1,incr)="KGP.L":incr++
symbolslistbox2.cell(1,incr)="KIBO.L":incr++
symbolslistbox2.cell(1,incr)="KIE.L":incr++
'symbolslistbox2.cell(1,incr)="KIT.L":incr++
symbolslistbox2.cell(1,incr)="KLR.L":incr++
symbolslistbox2.cell(1,incr)="KMK.L":incr++
symbolslistbox2.cell(1,incr)="KMR.L":incr++
symbolslistbox2.cell(1,incr)="KNOS.L":incr++
symbolslistbox2.cell(1,incr)="KOD.L":incr++
symbolslistbox2.cell(1,incr)="KOS.L":incr++
symbolslistbox2.cell(1,incr)="KP2.L":incr++
symbolslistbox2.cell(1,incr)="KRPZ.L":incr++
symbolslistbox2.cell(1,incr)="KRS.L":incr++
symbolslistbox2.cell(1,incr)="KRW.L":incr++
symbolslistbox2.cell(1,incr)="KRWL.L":incr++
symbolslistbox2.cell(1,incr)="KWEB.L":incr++
symbolslistbox2.cell(1,incr)="KWG.L":incr++
symbolslistbox2.cell(1,incr)="KWS.L":incr++
symbolslistbox2.cell(1,incr)="KYGA.L":incr++
symbolslistbox2.cell(1,incr)="KZG.L":incr++
symbolslistbox2.cell(1,incr)="L100.L":incr++
symbolslistbox2.cell(1,incr)="L6EW.L":incr++
symbolslistbox2.cell(1,incr)="LAGR.L":incr++
symbolslistbox2.cell(1,incr)="LALU.L":incr++
symbolslistbox2.cell(1,incr)="LAM.L":incr++
symbolslistbox2.cell(1,incr)="LAND.L":incr++
symbolslistbox2.cell(1,incr)="LAS.L":incr++
symbolslistbox2.cell(1,incr)="LAUS.L":incr++
symbolslistbox2.cell(1,incr)="LAUU.L":incr++
symbolslistbox2.cell(1,incr)="LBOW.L":incr++
symbolslistbox2.cell(1,incr)="LBRT.L":incr++
'symbolslistbox2.cell(1,incr)="LBS.L":incr++
symbolslistbox2.cell(1,incr)="LBUL.L":incr++
symbolslistbox2.cell(1,incr)="LCAL.L":incr++
'symbolslistbox2.cell(1,incr)="LCAN.L":incr++
symbolslistbox2.cell(1,incr)="LCAS.L":incr++
'symbolslistbox2.cell(1,incr)="LCAU.L":incr++
symbolslistbox2.cell(1,incr)="LCCN.L":incr++
symbolslistbox2.cell(1,incr)="LCFE.L":incr++
symbolslistbox2.cell(1,incr)="LCJD.L":incr++
symbolslistbox2.cell(1,incr)="LCJG.L":incr++
symbolslistbox2.cell(1,incr)="LCJP.L":incr++
symbolslistbox2.cell(1,incr)="LCNY.L":incr++
symbolslistbox2.cell(1,incr)="LCOC.L":incr++
symbolslistbox2.cell(1,incr)="LCOP.L":incr++
symbolslistbox2.cell(1,incr)="LCOR.L":incr++
symbolslistbox2.cell(1,incr)="LCPE.L":incr++
symbolslistbox2.cell(1,incr)="LCRP.L":incr++
symbolslistbox2.cell(1,incr)="LCUD.L":incr++
symbolslistbox2.cell(1,incr)="LCUK.L":incr++
symbolslistbox2.cell(1,incr)="LCUS.L":incr++
symbolslistbox2.cell(1,incr)="LCWD.L":incr++
symbolslistbox2.cell(1,incr)="LCWL.L":incr++
symbolslistbox2.cell(1,incr)="LDCU.L":incr++
symbolslistbox2.cell(1,incr)="LDSG.L":incr++
symbolslistbox2.cell(1,incr)="LEED.L":incr++
symbolslistbox2.cell(1,incr)="LEGR.L":incr++
symbolslistbox2.cell(1,incr)="LEK.L":incr++
symbolslistbox2.cell(1,incr)="LEMB.L":incr++
symbolslistbox2.cell(1,incr)="LEMD.L":incr++
symbolslistbox2.cell(1,incr)="LEML.L":incr++
symbolslistbox2.cell(1,incr)="LEMV.L":incr++
symbolslistbox2.cell(1,incr)="LEU3.L":incr++
symbolslistbox2.cell(1,incr)="LFI.L":incr++
symbolslistbox2.cell(1,incr)="LGB3.L":incr++
symbolslistbox2.cell(1,incr)="LGBP.L":incr++
symbolslistbox2.cell(1,incr)="LGCF.L":incr++
symbolslistbox2.cell(1,incr)="LGCU.L":incr++
symbolslistbox2.cell(1,incr)="LGEN.L":incr++
symbolslistbox2.cell(1,incr)="LGRS.L":incr++
'symbolslistbox2.cell(1,incr)="LID.L":incr++
symbolslistbox2.cell(1,incr)="LIO.L":incr++
symbolslistbox2.cell(1,incr)="LIV.L":incr++
symbolslistbox2.cell(1,incr)="LJP3.L":incr++
symbolslistbox2.cell(1,incr)="LJPY.L":incr++
symbolslistbox2.cell(1,incr)="LKOD.L":incr++
symbolslistbox2.cell(1,incr)="LLOY.L":incr++
'symbolslistbox2.cell(1,incr)="LLPC.L":incr++
'symbolslistbox2.cell(1,incr)="LLPD.L":incr++
'symbolslistbox2.cell(1,incr)="LLPE.L":incr++
symbolslistbox2.cell(1,incr)="LME.L":incr++
symbolslistbox2.cell(1,incr)="LMMV.L":incr++
symbolslistbox2.cell(1,incr)="LMP.L":incr++
symbolslistbox2.cell(1,incr)="LMS.L":incr++
symbolslistbox2.cell(1,incr)="LND.L":incr++
symbolslistbox2.cell(1,incr)="LNGA.L":incr++
symbolslistbox2.cell(1,incr)="LNIK.L":incr++
symbolslistbox2.cell(1,incr)="LNTA.L":incr++
symbolslistbox2.cell(1,incr)="LOCK.L":incr++
symbolslistbox2.cell(1,incr)="LOGP.L":incr++
symbolslistbox2.cell(1,incr)="LOIL.L":incr++
symbolslistbox2.cell(1,incr)="LOK.L":incr++
symbolslistbox2.cell(1,incr)="LOOK.L":incr++
symbolslistbox2.cell(1,incr)="LOOP.L":incr++
symbolslistbox2.cell(1,incr)="LOWE.L":incr++
symbolslistbox2.cell(1,incr)="LOWV.L":incr++
symbolslistbox2.cell(1,incr)="LPA.L":incr++
symbolslistbox2.cell(1,incr)="LPLA.L":incr++
symbolslistbox2.cell(1,incr)="LQDA.L":incr++
symbolslistbox2.cell(1,incr)="LQDE.L":incr++
symbolslistbox2.cell(1,incr)="LQDG.L":incr++
symbolslistbox2.cell(1,incr)="LQDH.L":incr++
symbolslistbox2.cell(1,incr)="LQDS.L":incr++
symbolslistbox2.cell(1,incr)="LQEE.L":incr++
symbolslistbox2.cell(1,incr)="LQGH.L":incr++
symbolslistbox2.cell(1,incr)="LQQ3.L":incr++
symbolslistbox2.cell(1,incr)="LQQS.L":incr++
symbolslistbox2.cell(1,incr)="LRE.L":incr++
symbolslistbox2.cell(1,incr)="LSAA.L":incr++
symbolslistbox2.cell(1,incr)="LSAB.L":incr++
symbolslistbox2.cell(1,incr)="LSAI.L":incr++
symbolslistbox2.cell(1,incr)="LSC.L":incr++
symbolslistbox2.cell(1,incr)="LSE.L":incr++
symbolslistbox2.cell(1,incr)="LSIL.L":incr++
symbolslistbox2.cell(1,incr)="LSL.L":incr++
symbolslistbox2.cell(1,incr)="LSPU.L":incr++
symbolslistbox2.cell(1,incr)="LSPX.L":incr++
symbolslistbox2.cell(1,incr)="LSUG.L":incr++
symbolslistbox2.cell(1,incr)="LTAM.L":incr++
symbolslistbox2.cell(1,incr)="LTG.L":incr++
symbolslistbox2.cell(1,incr)="LTHM.L":incr++
symbolslistbox2.cell(1,incr)="LTI.L":incr++
symbolslistbox2.cell(1,incr)="LTMU.L":incr++
symbolslistbox2.cell(1,incr)="LUCE.L":incr++
symbolslistbox2.cell(1,incr)="LUK2.L":incr++
symbolslistbox2.cell(1,incr)="LUMV.L":incr++
symbolslistbox2.cell(1,incr)="LUSC.L":incr++
symbolslistbox2.cell(1,incr)="LUTR.L":incr++
symbolslistbox2.cell(1,incr)="LUXG.L":incr++
symbolslistbox2.cell(1,incr)="LUXU.L":incr++
symbolslistbox2.cell(1,incr)="LVCG.L":incr++
'symbolslistbox2.cell(1,incr)="LWB.L":incr++
symbolslistbox2.cell(1,incr)="LWDB.L":incr++
symbolslistbox2.cell(1,incr)="LWEA.L":incr++
symbolslistbox2.cell(1,incr)="LWI.L":incr++
'symbolslistbox2.cell(1,incr)="LXB.L":incr++
symbolslistbox2.cell(1,incr)="LXI.L":incr++
'symbolslistbox2.cell(1,incr)="LYXW.L":incr++
symbolslistbox2.cell(1,incr)="M9SV.L":incr++
symbolslistbox2.cell(1,incr)="MAB.L":incr++
symbolslistbox2.cell(1,incr)="MAB1.L":incr++
symbolslistbox2.cell(1,incr)="MAC.L":incr++
symbolslistbox2.cell(1,incr)="MACF.L":incr++
symbolslistbox2.cell(1,incr)="MAFL.L":incr++
symbolslistbox2.cell(1,incr)="MAGI.L":incr++
symbolslistbox2.cell(1,incr)="MAI.L":incr++
symbolslistbox2.cell(1,incr)="MAIL.L":incr++
symbolslistbox2.cell(1,incr)="MAJE.L":incr++
symbolslistbox2.cell(1,incr)="MANO.L":incr++
symbolslistbox2.cell(1,incr)="MARS.L":incr++
symbolslistbox2.cell(1,incr)="MATD.L":incr++
symbolslistbox2.cell(1,incr)="MATE.L":incr++
symbolslistbox2.cell(1,incr)="MATW.L":incr++
symbolslistbox2.cell(1,incr)="MAV4.L":incr++
symbolslistbox2.cell(1,incr)="MBH.L":incr++
symbolslistbox2.cell(1,incr)="MBO.L":incr++
'symbolslistbox2.cell(1,incr)="MBSP.L":incr++
symbolslistbox2.cell(1,incr)="MBT.L":incr++
symbolslistbox2.cell(1,incr)="MCB.L":incr++
symbolslistbox2.cell(1,incr)="MCKS.L":incr++
symbolslistbox2.cell(1,incr)="MCL.L":incr++
symbolslistbox2.cell(1,incr)="MCLS.L":incr++
symbolslistbox2.cell(1,incr)="MCON.L":incr++
symbolslistbox2.cell(1,incr)="MCRO.L":incr++
'symbolslistbox2.cell(1,incr)="MCS.L":incr++
symbolslistbox2.cell(1,incr)="MCT.L":incr++
symbolslistbox2.cell(1,incr)="MDC.L":incr++
symbolslistbox2.cell(1,incr)="MDMG.L":incr++
symbolslistbox2.cell(1,incr)="MDOB.L":incr++
symbolslistbox2.cell(1,incr)="MDZ.L":incr++
'symbolslistbox2.cell(1,incr)="MED.L":incr++
symbolslistbox2.cell(1,incr)="MER.L":incr++
symbolslistbox2.cell(1,incr)="MERC.L":incr++
symbolslistbox2.cell(1,incr)="MEUD.L":incr++
symbolslistbox2.cell(1,incr)="MEUG.L":incr++
symbolslistbox2.cell(1,incr)="MEUU.L":incr++
symbolslistbox2.cell(1,incr)="MFDD.L":incr++
symbolslistbox2.cell(1,incr)="MFX.L":incr++
symbolslistbox2.cell(1,incr)="MGAM.L":incr++
symbolslistbox2.cell(1,incr)="MGGT.L":incr++
symbolslistbox2.cell(1,incr)="MGNS.L":incr++
symbolslistbox2.cell(1,incr)="MGP.L":incr++
symbolslistbox2.cell(1,incr)="MGTU.L":incr++
symbolslistbox2.cell(1,incr)="MHN.L":incr++
'symbolslistbox2.cell(1,incr)="MHPC.L":incr++
symbolslistbox2.cell(1,incr)="MIBX.L":incr++
symbolslistbox2.cell(1,incr)="MIDD.L":incr++
symbolslistbox2.cell(1,incr)="MIDW.L":incr++
symbolslistbox2.cell(1,incr)="MIG.L":incr++
symbolslistbox2.cell(1,incr)="MIG1.L":incr++
symbolslistbox2.cell(1,incr)="MIG3.L":incr++
symbolslistbox2.cell(1,incr)="MIG4.L":incr++
symbolslistbox2.cell(1,incr)="MIG5.L":incr++
symbolslistbox2.cell(1,incr)="MIGO.L":incr++
symbolslistbox2.cell(1,incr)="MIL.L":incr++
symbolslistbox2.cell(1,incr)="MINI.L":incr++
symbolslistbox2.cell(1,incr)="MINT.L":incr++
symbolslistbox2.cell(1,incr)="MINV.L":incr++
symbolslistbox2.cell(1,incr)="MIRA.L":incr++
symbolslistbox2.cell(1,incr)="MIVO.L":incr++
symbolslistbox2.cell(1,incr)="MIX.L":incr++
symbolslistbox2.cell(1,incr)="MJH.L":incr++
symbolslistbox2.cell(1,incr)="MKA.L":incr++
symbolslistbox2.cell(1,incr)="MKS.L":incr++
symbolslistbox2.cell(1,incr)="MLPD.L":incr++
symbolslistbox2.cell(1,incr)="MLPI.L":incr++
symbolslistbox2.cell(1,incr)="MLPP.L":incr++
symbolslistbox2.cell(1,incr)="MLPQ.L":incr++
symbolslistbox2.cell(1,incr)="MLPS.L":incr++
symbolslistbox2.cell(1,incr)="MLPX.L":incr++
symbolslistbox2.cell(1,incr)="MLVN.L":incr++
symbolslistbox2.cell(1,incr)="MMH.L":incr++
symbolslistbox2.cell(1,incr)="MMIT.L":incr++
symbolslistbox2.cell(1,incr)="MMK.L":incr++
symbolslistbox2.cell(1,incr)="MMX.L":incr++
symbolslistbox2.cell(1,incr)="MNDI.L":incr++
symbolslistbox2.cell(1,incr)="MNG.L":incr++
symbolslistbox2.cell(1,incr)="MNKS.L":incr++
symbolslistbox2.cell(1,incr)="MNL.L":incr++
'symbolslistbox2.cell(1,incr)="MNO.L":incr++
symbolslistbox2.cell(1,incr)="MNP.L":incr++
symbolslistbox2.cell(1,incr)="MNTN.L":incr++
symbolslistbox2.cell(1,incr)="MNZS.L":incr++
symbolslistbox2.cell(1,incr)="MOAT.L":incr++
'symbolslistbox2.cell(1,incr)="MOGP.L":incr++
symbolslistbox2.cell(1,incr)="MONY.L":incr++
symbolslistbox2.cell(1,incr)="MOS.L":incr++
symbolslistbox2.cell(1,incr)="MOTR.L":incr++
symbolslistbox2.cell(1,incr)="MPAC.L":incr++
symbolslistbox2.cell(1,incr)="MPE.L":incr++
'symbolslistbox2.cell(1,incr)="MPH.L":incr++
symbolslistbox2.cell(1,incr)="MPL.L":incr++
'symbolslistbox2.cell(1,incr)="MPM.L":incr++
symbolslistbox2.cell(1,incr)="MPO.L":incr++
symbolslistbox2.cell(1,incr)="MRC.L":incr++
symbolslistbox2.cell(1,incr)="MRCH.L":incr++
symbolslistbox2.cell(1,incr)="MRL.L":incr++
symbolslistbox2.cell(1,incr)="MRO.L":incr++
'symbolslistbox2.cell(1,incr)="MRW.L":incr++
symbolslistbox2.cell(1,incr)="MSAU.L":incr++
symbolslistbox2.cell(1,incr)="MSED.L":incr++
symbolslistbox2.cell(1,incr)="MSEU.L":incr++
symbolslistbox2.cell(1,incr)="MSEX.L":incr++
symbolslistbox2.cell(1,incr)="MSI.L":incr++
symbolslistbox2.cell(1,incr)="MSLH.L":incr++
symbolslistbox2.cell(1,incr)="MSMN.L":incr++
symbolslistbox2.cell(1,incr)="MSYS.L":incr++
symbolslistbox2.cell(1,incr)="MTC.L":incr++
symbolslistbox2.cell(1,incr)="MTE.L":incr++
'symbolslistbox2.cell(1,incr)="MTFB.L":incr++
symbolslistbox2.cell(1,incr)="MTL.L":incr++
'symbolslistbox2.cell(1,incr)="MTMY.L":incr++
symbolslistbox2.cell(1,incr)="MTO.L":incr++
symbolslistbox2.cell(1,incr)="MTPH.L":incr++
symbolslistbox2.cell(1,incr)="MTR.L":incr++
symbolslistbox2.cell(1,incr)="MTRL.L":incr++
symbolslistbox2.cell(1,incr)="MTRO.L":incr++
symbolslistbox2.cell(1,incr)="MTU.L":incr++
symbolslistbox2.cell(1,incr)="MTVW.L":incr++
symbolslistbox2.cell(1,incr)="MTW.L":incr++
symbolslistbox2.cell(1,incr)="MTXX.L":incr++
symbolslistbox2.cell(1,incr)="MUL.L":incr++
symbolslistbox2.cell(1,incr)="MUT.L":incr++
'symbolslistbox2.cell(1,incr)="MVAE.L":incr++
'symbolslistbox2.cell(1,incr)="MVAU.L":incr++
symbolslistbox2.cell(1,incr)="MVED.L":incr++
symbolslistbox2.cell(1,incr)="MVEU.L":incr++
'symbolslistbox2.cell(1,incr)="MVEX.L":incr++
symbolslistbox2.cell(1,incr)="MVI.L":incr++
symbolslistbox2.cell(1,incr)="MVIR.L":incr++
symbolslistbox2.cell(1,incr)="MVOL.L":incr++
symbolslistbox2.cell(1,incr)="MVUS.L":incr++
symbolslistbox2.cell(1,incr)="MWE.L":incr++
'symbolslistbox2.cell(1,incr)="MWG.L":incr++
symbolslistbox2.cell(1,incr)="MWRD.L":incr++
symbolslistbox2.cell(1,incr)="MWY.L":incr++
symbolslistbox2.cell(1,incr)="MXCT.L":incr++
symbolslistbox2.cell(1,incr)="MXEU.L":incr++
symbolslistbox2.cell(1,incr)="MXFP.L":incr++
symbolslistbox2.cell(1,incr)="MXFS.L":incr++
symbolslistbox2.cell(1,incr)="MXJP.L":incr++
'symbolslistbox2.cell(1,incr)="MXO.L":incr++
symbolslistbox2.cell(1,incr)="MXUK.L":incr++
symbolslistbox2.cell(1,incr)="MXUS.L":incr++
symbolslistbox2.cell(1,incr)="MXWO.L":incr++
symbolslistbox2.cell(1,incr)="MXWS.L":incr++
symbolslistbox2.cell(1,incr)="MYI.L":incr++
symbolslistbox2.cell(1,incr)="MYSL.L":incr++
symbolslistbox2.cell(1,incr)="MYX.L":incr++
symbolslistbox2.cell(1,incr)="N400.L":incr++
symbolslistbox2.cell(1,incr)="N4P.L":incr++
symbolslistbox2.cell(1,incr)="N4US.L":incr++
symbolslistbox2.cell(1,incr)="N91.L":incr++
'symbolslistbox2.cell(1,incr)="NABB.L":incr++
symbolslistbox2.cell(1,incr)="NAH.L":incr++
symbolslistbox2.cell(1,incr)="NAIT.L":incr++
'symbolslistbox2.cell(1,incr)="NAK.L":incr++
symbolslistbox2.cell(1,incr)="NANO.L":incr++
symbolslistbox2.cell(1,incr)="NAR.L":incr++
symbolslistbox2.cell(1,incr)="NAS.L":incr++
'symbolslistbox2.cell(1,incr)="NASA.L":incr++
symbolslistbox2.cell(1,incr)="NASD.L":incr++
symbolslistbox2.cell(1,incr)="NASL.L":incr++
'symbolslistbox2.cell(1,incr)="NAUT.L":incr++
symbolslistbox2.cell(1,incr)="NBB.L":incr++
symbolslistbox2.cell(1,incr)="NBDG.L":incr++
symbolslistbox2.cell(1,incr)="NBDX.L":incr++
symbolslistbox2.cell(1,incr)="NBI.L":incr++
'symbolslistbox2.cell(1,incr)="NBLS.L":incr++
'symbolslistbox2.cell(1,incr)="NBLU.L":incr++
symbolslistbox2.cell(1,incr)="NBPE.L":incr++
symbolslistbox2.cell(1,incr)="NBPP.L":incr++
symbolslistbox2.cell(1,incr)="NBPS.L":incr++
symbolslistbox2.cell(1,incr)="NBPU.L":incr++
symbolslistbox2.cell(1,incr)="NBS.L":incr++
'symbolslistbox2.cell(1,incr)="NBSP.L":incr++
symbolslistbox2.cell(1,incr)="NCA.L":incr++
symbolslistbox2.cell(1,incr)="NCA2.L":incr++
symbolslistbox2.cell(1,incr)="NCC.L":incr++
symbolslistbox2.cell(1,incr)="NCCL.L":incr++
symbolslistbox2.cell(1,incr)="NCYF.L":incr++
symbolslistbox2.cell(1,incr)="NCYT.L":incr++
symbolslistbox2.cell(1,incr)="NDIA.L":incr++
symbolslistbox2.cell(1,incr)="NDUS.L":incr++
symbolslistbox2.cell(1,incr)="NESF.L":incr++
symbolslistbox2.cell(1,incr)="NET.L":incr++
symbolslistbox2.cell(1,incr)="NETW.L":incr++
symbolslistbox2.cell(1,incr)="NEX.L":incr++
symbolslistbox2.cell(1,incr)="NEXS.L":incr++
symbolslistbox2.cell(1,incr)="NFC.L":incr++
symbolslistbox2.cell(1,incr)="NFX.L":incr++
symbolslistbox2.cell(1,incr)="NG.L":incr++
symbolslistbox2.cell(1,incr)="NGAS.L":incr++
symbolslistbox2.cell(1,incr)="NGSP.L":incr++
symbolslistbox2.cell(1,incr)="NICK.L":incr++
symbolslistbox2.cell(1,incr)="NICL.L":incr++
'symbolslistbox2.cell(1,incr)="NJXE.L":incr++
'symbolslistbox2.cell(1,incr)="NJXU.L":incr++
'symbolslistbox2.cell(1,incr)="NKTN.L":incr++
'symbolslistbox2.cell(1,incr)="NLMK.L":incr++
symbolslistbox2.cell(1,incr)="NOG.L":incr++
symbolslistbox2.cell(1,incr)="NRGW.L":incr++
symbolslistbox2.cell(1,incr)="NRR.L":incr++
symbolslistbox2.cell(1,incr)="NSCI.L":incr++
symbolslistbox2.cell(1,incr)="NSF.L":incr++
'symbolslistbox2.cell(1,incr)="NSH.L":incr++
symbolslistbox2.cell(1,incr)="NSI.L":incr++
symbolslistbox2.cell(1,incr)="NTBR.L":incr++
symbolslistbox2.cell(1,incr)="NTEA.L":incr++
'symbolslistbox2.cell(1,incr)="NTLG.L":incr++
symbolslistbox2.cell(1,incr)="NTN.L":incr++
symbolslistbox2.cell(1,incr)="NTOG.L":incr++
symbolslistbox2.cell(1,incr)="NTQ.L":incr++
symbolslistbox2.cell(1,incr)="NTV.L":incr++
'symbolslistbox2.cell(1,incr)="NUC.L":incr++
symbolslistbox2.cell(1,incr)="NUM.L":incr++
'symbolslistbox2.cell(1,incr)="NUOG.L":incr++
symbolslistbox2.cell(1,incr)="NVT.L":incr++
symbolslistbox2.cell(1,incr)="NVTK.L":incr++
symbolslistbox2.cell(1,incr)="NWBD.L":incr++
symbolslistbox2.cell(1,incr)="NWF.L":incr++
symbolslistbox2.cell(1,incr)="NWG.L":incr++
symbolslistbox2.cell(1,incr)="NWT.L":incr++
'symbolslistbox2.cell(1,incr)="NXKE.L":incr++
'symbolslistbox2.cell(1,incr)="NXKU.L":incr++
symbolslistbox2.cell(1,incr)="NXR.L":incr++
symbolslistbox2.cell(1,incr)="NXT.L":incr++
symbolslistbox2.cell(1,incr)="OAP3.L":incr++
symbolslistbox2.cell(1,incr)="OBC.L":incr++
symbolslistbox2.cell(1,incr)="OBD.L":incr++
symbolslistbox2.cell(1,incr)="OCDO.L":incr++
symbolslistbox2.cell(1,incr)="OCI.L":incr++
symbolslistbox2.cell(1,incr)="OCN.L":incr++
'symbolslistbox2.cell(1,incr)="OCT.L":incr++
symbolslistbox2.cell(1,incr)="ODX.L":incr++
symbolslistbox2.cell(1,incr)="OEX.L":incr++
symbolslistbox2.cell(1,incr)="OGN.L":incr++
symbolslistbox2.cell(1,incr)="OIG.L":incr++
symbolslistbox2.cell(1,incr)="OIH.L":incr++
symbolslistbox2.cell(1,incr)="OIT.L":incr++
symbolslistbox2.cell(1,incr)="OKEY.L":incr++
symbolslistbox2.cell(1,incr)="OKYO.L":incr++
symbolslistbox2.cell(1,incr)="OMG.L":incr++
symbolslistbox2.cell(1,incr)="OMI.L":incr++
symbolslistbox2.cell(1,incr)="OMIP.L":incr++
symbolslistbox2.cell(1,incr)="OMU.L":incr++
symbolslistbox2.cell(1,incr)="OMXS.L":incr++
symbolslistbox2.cell(1,incr)="ONC.L":incr++
symbolslistbox2.cell(1,incr)="OOA.L":incr++
symbolslistbox2.cell(1,incr)="OOUT.L":incr++
symbolslistbox2.cell(1,incr)="OPEN.L":incr++
symbolslistbox2.cell(1,incr)="OPG.L":incr++
'symbolslistbox2.cell(1,incr)="OPM.L":incr++
symbolslistbox2.cell(1,incr)="OPP.L":incr++
symbolslistbox2.cell(1,incr)="OPTI.L":incr++
symbolslistbox2.cell(1,incr)="ORCH.L":incr++
symbolslistbox2.cell(1,incr)="ORCP.L":incr++
symbolslistbox2.cell(1,incr)="ORM.L":incr++
symbolslistbox2.cell(1,incr)="ORNT.L":incr++
symbolslistbox2.cell(1,incr)="ORR.L":incr++
symbolslistbox2.cell(1,incr)="OSB.L":incr++
symbolslistbox2.cell(1,incr)="OSEC.L":incr++
symbolslistbox2.cell(1,incr)="OSI.L":incr++
symbolslistbox2.cell(1,incr)="OTB.L":incr++
symbolslistbox2.cell(1,incr)="OTMP.L":incr++
symbolslistbox2.cell(1,incr)="OTT.L":incr++
symbolslistbox2.cell(1,incr)="OTV2.L":incr++
symbolslistbox2.cell(1,incr)="OVB.L":incr++
symbolslistbox2.cell(1,incr)="OXB.L":incr++
'symbolslistbox2.cell(1,incr)="OXDX.L":incr++
symbolslistbox2.cell(1,incr)="OXF.L":incr++
symbolslistbox2.cell(1,incr)="OXH.L":incr++
symbolslistbox2.cell(1,incr)="OXIG.L":incr++
symbolslistbox2.cell(1,incr)="OXT.L":incr++
symbolslistbox2.cell(1,incr)="PAC.L":incr++
'symbolslistbox2.cell(1,incr)="PACL.L":incr++
symbolslistbox2.cell(1,incr)="PADV.L":incr++
symbolslistbox2.cell(1,incr)="PAF.L":incr++
symbolslistbox2.cell(1,incr)="PAG.L":incr++
symbolslistbox2.cell(1,incr)="PAGE.L":incr++
'symbolslistbox2.cell(1,incr)="PAL.L":incr++
symbolslistbox2.cell(1,incr)="PANR.L":incr++
symbolslistbox2.cell(1,incr)="PAT.L":incr++
symbolslistbox2.cell(1,incr)="PAXG.L":incr++
symbolslistbox2.cell(1,incr)="PAXJ.L":incr++
symbolslistbox2.cell(1,incr)="PAY.L":incr++
symbolslistbox2.cell(1,incr)="PBLT.L":incr++
symbolslistbox2.cell(1,incr)="PBRT.L":incr++
symbolslistbox2.cell(1,incr)="PCA.L":incr++
symbolslistbox2.cell(1,incr)="PCF.L":incr++
symbolslistbox2.cell(1,incr)="PCFT.L":incr++
symbolslistbox2.cell(1,incr)="PCGH.L":incr++
symbolslistbox2.cell(1,incr)="PCIP.L":incr++
symbolslistbox2.cell(1,incr)="PCRD.L":incr++
symbolslistbox2.cell(1,incr)="PCT.L":incr++
symbolslistbox2.cell(1,incr)="PCTN.L":incr++
symbolslistbox2.cell(1,incr)="PDG.L":incr++
symbolslistbox2.cell(1,incr)="PDL.L":incr++
symbolslistbox2.cell(1,incr)="PDZ.L":incr++
symbolslistbox2.cell(1,incr)="PEB.L":incr++
symbolslistbox2.cell(1,incr)="PEG.L":incr++
symbolslistbox2.cell(1,incr)="PEMB.L":incr++
symbolslistbox2.cell(1,incr)="PEMD.L":incr++
symbolslistbox2.cell(1,incr)="PEN.L":incr++
symbolslistbox2.cell(1,incr)="PET.L":incr++
symbolslistbox2.cell(1,incr)="PETB.L":incr++
symbolslistbox2.cell(1,incr)="PETS.L":incr++
symbolslistbox2.cell(1,incr)="PEY.L":incr++
symbolslistbox2.cell(1,incr)="PEYS.L":incr++
symbolslistbox2.cell(1,incr)="PFC.L":incr++
symbolslistbox2.cell(1,incr)="PFD.L":incr++
symbolslistbox2.cell(1,incr)="PFG.L":incr++
symbolslistbox2.cell(1,incr)="PFP.L":incr++
symbolslistbox2.cell(1,incr)="PGH.L":incr++
symbolslistbox2.cell(1,incr)="PGHZ.L":incr++
'symbolslistbox2.cell(1,incr)="PGIT.L":incr++
'symbolslistbox2.cell(1,incr)="PGIZ.L":incr++
symbolslistbox2.cell(1,incr)="PGOO.L":incr++
symbolslistbox2.cell(1,incr)="PGR.L":incr++
'symbolslistbox2.cell(1,incr)="PGY.L":incr++
symbolslistbox2.cell(1,incr)="PHAG.L":incr++
symbolslistbox2.cell(1,incr)="PHAR.L":incr++
symbolslistbox2.cell(1,incr)="PHAU.L":incr++
symbolslistbox2.cell(1,incr)="PHC.L":incr++
'symbolslistbox2.cell(1,incr)="PHD.L":incr++
symbolslistbox2.cell(1,incr)="PHE.L":incr++
symbolslistbox2.cell(1,incr)="PHEF.L":incr++
symbolslistbox2.cell(1,incr)="PHGP.L":incr++
symbolslistbox2.cell(1,incr)="PHI.L":incr++
symbolslistbox2.cell(1,incr)="PHNX.L":incr++
symbolslistbox2.cell(1,incr)="PHOR.L":incr++
symbolslistbox2.cell(1,incr)="PHP.L":incr++
symbolslistbox2.cell(1,incr)="PHPD.L":incr++
symbolslistbox2.cell(1,incr)="PHPM.L":incr++
symbolslistbox2.cell(1,incr)="PHPP.L":incr++
symbolslistbox2.cell(1,incr)="PHPT.L":incr++
symbolslistbox2.cell(1,incr)="PHSC.L":incr++
symbolslistbox2.cell(1,incr)="PHSP.L":incr++
symbolslistbox2.cell(1,incr)="PHTM.L":incr++
symbolslistbox2.cell(1,incr)="PIER.L":incr++
symbolslistbox2.cell(1,incr)="PIN.L":incr++
symbolslistbox2.cell(1,incr)="PIP.L":incr++
symbolslistbox2.cell(1,incr)="PIRI.L":incr++
symbolslistbox2.cell(1,incr)="PLAZ.L":incr++
symbolslistbox2.cell(1,incr)="PLI.L":incr++
'symbolslistbox2.cell(1,incr)="PLP.L":incr++
symbolslistbox2.cell(1,incr)="PLUS.L":incr++
symbolslistbox2.cell(1,incr)="PLZA.L":incr++
symbolslistbox2.cell(1,incr)="PLZL.L":incr++
symbolslistbox2.cell(1,incr)="PMEA.L":incr++
symbolslistbox2.cell(1,incr)="PMG.L":incr++
'symbolslistbox2.cell(1,incr)="PMO.L":incr++
symbolslistbox2.cell(1,incr)="PMP.L":incr++
symbolslistbox2.cell(1,incr)="PNL.L":incr++
symbolslistbox2.cell(1,incr)="PNN.L":incr++
symbolslistbox2.cell(1,incr)="PNS.L":incr++
'symbolslistbox2.cell(1,incr)="POB.L":incr++
symbolslistbox2.cell(1,incr)="POG.L":incr++
'symbolslistbox2.cell(1,incr)="POL.L":incr++
symbolslistbox2.cell(1,incr)="POLR.L":incr++
symbolslistbox2.cell(1,incr)="POLY.L":incr++
symbolslistbox2.cell(1,incr)="POS.L":incr++
symbolslistbox2.cell(1,incr)="PPC.L":incr++
'symbolslistbox2.cell(1,incr)="PPG.L":incr++
symbolslistbox2.cell(1,incr)="PPH.L":incr++
symbolslistbox2.cell(1,incr)="PPIX.L":incr++
symbolslistbox2.cell(1,incr)="PPP.L":incr++
symbolslistbox2.cell(1,incr)="PPS.L":incr++
symbolslistbox2.cell(1,incr)="PQVG.L":incr++
symbolslistbox2.cell(1,incr)="PRD.L":incr++
symbolslistbox2.cell(1,incr)="PREM.L":incr++
symbolslistbox2.cell(1,incr)="PRES.L":incr++
symbolslistbox2.cell(1,incr)="PRFD.L":incr++
'symbolslistbox2.cell(1,incr)="PRGB.L":incr++
symbolslistbox2.cell(1,incr)="PRIM.L":incr++
symbolslistbox2.cell(1,incr)="PRM.L":incr++
symbolslistbox2.cell(1,incr)="PRP.L":incr++
symbolslistbox2.cell(1,incr)="PRSM.L":incr++
symbolslistbox2.cell(1,incr)="PRSR.L":incr++
symbolslistbox2.cell(1,incr)="PRTC.L":incr++
symbolslistbox2.cell(1,incr)="PRU.L":incr++
symbolslistbox2.cell(1,incr)="PRUS.L":incr++
symbolslistbox2.cell(1,incr)="PRV.L":incr++
symbolslistbox2.cell(1,incr)="PSDL.L":incr++
symbolslistbox2.cell(1,incr)="PSH.L":incr++
symbolslistbox2.cell(1,incr)="PSHD.L":incr++
symbolslistbox2.cell(1,incr)="PSN.L":incr++
symbolslistbox2.cell(1,incr)="PSON.L":incr++
symbolslistbox2.cell(1,incr)="PSRE.L":incr++
symbolslistbox2.cell(1,incr)="PSRF.L":incr++
symbolslistbox2.cell(1,incr)="PSRM.L":incr++
symbolslistbox2.cell(1,incr)="PSRU.L":incr++
symbolslistbox2.cell(1,incr)="PSRW.L":incr++
'symbolslistbox2.cell(1,incr)="PSSL.L":incr++
symbolslistbox2.cell(1,incr)="PTAL.L":incr++
symbolslistbox2.cell(1,incr)="PTD.L":incr++
symbolslistbox2.cell(1,incr)="PTEC.L":incr++
symbolslistbox2.cell(1,incr)="PTR.L":incr++
symbolslistbox2.cell(1,incr)="PTRO.L":incr++
symbolslistbox2.cell(1,incr)="PTY.L":incr++
'symbolslistbox2.cell(1,incr)="PU11.L":incr++
symbolslistbox2.cell(1,incr)="PUIG.L":incr++
symbolslistbox2.cell(1,incr)="PURP.L":incr++
symbolslistbox2.cell(1,incr)="PUS3.L":incr++
symbolslistbox2.cell(1,incr)="PUS5.L":incr++
'symbolslistbox2.cell(1,incr)="PUTS.L":incr++
'symbolslistbox2.cell(1,incr)="PUTW.L":incr++
'symbolslistbox2.cell(1,incr)="PVCS.L":incr++
'symbolslistbox2.cell(1,incr)="PVG.L":incr++
symbolslistbox2.cell(1,incr)="PVN.L":incr++
symbolslistbox2.cell(1,incr)="PVR.L":incr++
'symbolslistbox2.cell(1,incr)="PXOG.L":incr++
symbolslistbox2.cell(1,incr)="PXS.L":incr++
symbolslistbox2.cell(1,incr)="PYC.L":incr++
symbolslistbox2.cell(1,incr)="PZC.L":incr++
symbolslistbox2.cell(1,incr)="QDIV.L":incr++
symbolslistbox2.cell(1,incr)="QFI.L":incr++
symbolslistbox2.cell(1,incr)="QLT.L":incr++
symbolslistbox2.cell(1,incr)="QQ.L":incr++
symbolslistbox2.cell(1,incr)="QQQ3.L":incr++
symbolslistbox2.cell(1,incr)="QQQS.L":incr++
symbolslistbox2.cell(1,incr)="QRT.L":incr++
symbolslistbox2.cell(1,incr)="QTX.L":incr++
symbolslistbox2.cell(1,incr)="QUID.L":incr++
symbolslistbox2.cell(1,incr)="QUIZ.L":incr++
symbolslistbox2.cell(1,incr)="QXT.L":incr++
symbolslistbox2.cell(1,incr)="R2SC.L":incr++
symbolslistbox2.cell(1,incr)="R2US.L":incr++
'symbolslistbox2.cell(1,incr)="R4E.L":incr++
symbolslistbox2.cell(1,incr)="RAI.L":incr++
symbolslistbox2.cell(1,incr)="RAT.L":incr++
symbolslistbox2.cell(1,incr)="RAV.L":incr++
'symbolslistbox2.cell(1,incr)="RAVC.L":incr++
symbolslistbox2.cell(1,incr)="RAVP.L":incr++
'symbolslistbox2.cell(1,incr)="RB.L":incr++
symbolslistbox2.cell(1,incr)="RBD.L":incr++
symbolslistbox2.cell(1,incr)="RBG.L":incr++
symbolslistbox2.cell(1,incr)="RBGP.L":incr++
symbolslistbox2.cell(1,incr)="RBN.L":incr++
symbolslistbox2.cell(1,incr)="RBOD.L":incr++
symbolslistbox2.cell(1,incr)="RBOT.L":incr++
'symbolslistbox2.cell(1,incr)="RBS.L":incr++
symbolslistbox2.cell(1,incr)="RBTX.L":incr++
symbolslistbox2.cell(1,incr)="RBW.L":incr++
symbolslistbox2.cell(1,incr)="RC2.L":incr++
symbolslistbox2.cell(1,incr)="RCDO.L":incr++
symbolslistbox2.cell(1,incr)="RCH.L":incr++
symbolslistbox2.cell(1,incr)="RCN.L":incr++
symbolslistbox2.cell(1,incr)="RCP.L":incr++
'symbolslistbox2.cell(1,incr)="RDI.L":incr++
'symbolslistbox2.cell(1,incr)="RDL.L":incr++
symbolslistbox2.cell(1,incr)="RDSA.L":incr++
symbolslistbox2.cell(1,incr)="RDSB.L":incr++
symbolslistbox2.cell(1,incr)="RDT.L":incr++
symbolslistbox2.cell(1,incr)="RDW.L":incr++
symbolslistbox2.cell(1,incr)="RDXS.L":incr++
symbolslistbox2.cell(1,incr)="RE.L":incr++
symbolslistbox2.cell(1,incr)="RE-B.L":incr++
symbolslistbox2.cell(1,incr)="REAT.L":incr++
symbolslistbox2.cell(1,incr)="REC.L":incr++
symbolslistbox2.cell(1,incr)="RECI.L":incr++
symbolslistbox2.cell(1,incr)="REDD.L":incr++
symbolslistbox2.cell(1,incr)="REDX.L":incr++
symbolslistbox2.cell(1,incr)="REL.L":incr++
symbolslistbox2.cell(1,incr)="RENE.L":incr++
symbolslistbox2.cell(1,incr)="RENX.L":incr++
symbolslistbox2.cell(1,incr)="RESI.L":incr++
symbolslistbox2.cell(1,incr)="RFX.L":incr++
symbolslistbox2.cell(1,incr)="RGD.L":incr++
symbolslistbox2.cell(1,incr)="RGL.L":incr++
'symbolslistbox2.cell(1,incr)="RGM.L":incr++
symbolslistbox2.cell(1,incr)="RGP.L":incr++
symbolslistbox2.cell(1,incr)="RHIM.L":incr++
symbolslistbox2.cell(1,incr)="RICA.L":incr++
symbolslistbox2.cell(1,incr)="RICI.L":incr++
symbolslistbox2.cell(1,incr)="RIII.L":incr++
symbolslistbox2.cell(1,incr)="RIO.L":incr++
symbolslistbox2.cell(1,incr)="RIOL.L":incr++
symbolslistbox2.cell(1,incr)="RIOU.L":incr++
symbolslistbox2.cell(1,incr)="RIV.L":incr++
symbolslistbox2.cell(1,incr)="RKH.L":incr++
'symbolslistbox2.cell(1,incr)="RLD.L":incr++
symbolslistbox2.cell(1,incr)="RLE.L":incr++
symbolslistbox2.cell(1,incr)="RM.L":incr++
'symbolslistbox2.cell(1,incr)="RMDL.L":incr++
'symbolslistbox2.cell(1,incr)="RMDZ.L":incr++
symbolslistbox2.cell(1,incr)="RMG.L":incr++
symbolslistbox2.cell(1,incr)="RMM.L":incr++
symbolslistbox2.cell(1,incr)="RMMC.L":incr++
'symbolslistbox2.cell(1,incr)="RMP.L":incr++
'symbolslistbox2.cell(1,incr)="RMS.L":incr++
symbolslistbox2.cell(1,incr)="RMV.L":incr++
symbolslistbox2.cell(1,incr)="RNK.L":incr++
symbolslistbox2.cell(1,incr)="RNO.L":incr++
symbolslistbox2.cell(1,incr)="RNWH.L":incr++
symbolslistbox2.cell(1,incr)="ROAI.L":incr++
symbolslistbox2.cell(1,incr)="ROBE.L":incr++
symbolslistbox2.cell(1,incr)="ROBG.L":incr++
symbolslistbox2.cell(1,incr)="ROBO.L":incr++
symbolslistbox2.cell(1,incr)="ROCK.L":incr++
symbolslistbox2.cell(1,incr)="ROL.L":incr++
symbolslistbox2.cell(1,incr)="ROLL.L":incr++
symbolslistbox2.cell(1,incr)="ROR.L":incr++
'symbolslistbox2.cell(1,incr)="ROSE.L":incr++
symbolslistbox2.cell(1,incr)="RPS.L":incr++
symbolslistbox2.cell(1,incr)="RQFI.L":incr++
symbolslistbox2.cell(1,incr)="RQIH.L":incr++
symbolslistbox2.cell(1,incr)="RR.L":incr++
'symbolslistbox2.cell(1,incr)="RRE.L":incr++
symbolslistbox2.cell(1,incr)="RRR.L":incr++
'symbolslistbox2.cell(1,incr)="RRS.L":incr++
symbolslistbox2.cell(1,incr)="RS2G.L":incr++
symbolslistbox2.cell(1,incr)="RS2U.L":incr++
'symbolslistbox2.cell(1,incr)="RSA.L":incr++
symbolslistbox2.cell(1,incr)="RSAB.L":incr++
symbolslistbox2.cell(1,incr)="RSE.L":incr++
symbolslistbox2.cell(1,incr)="RSGL.L":incr++
symbolslistbox2.cell(1,incr)="RST.L":incr++
symbolslistbox2.cell(1,incr)="RSW.L":incr++
symbolslistbox2.cell(1,incr)="RTC.L":incr++
symbolslistbox2.cell(1,incr)="RTN.L":incr++
symbolslistbox2.cell(1,incr)="RTO.L":incr++
symbolslistbox2.cell(1,incr)="RTWO.L":incr++
symbolslistbox2.cell(1,incr)="RTWP.L":incr++
symbolslistbox2.cell(1,incr)="RTYS.L":incr++
symbolslistbox2.cell(1,incr)="RUR.L":incr++
symbolslistbox2.cell(1,incr)="RUSB.L":incr++
symbolslistbox2.cell(1,incr)="RUSE.L":incr++
symbolslistbox2.cell(1,incr)="RUSG.L":incr++
symbolslistbox2.cell(1,incr)="RUSL.L":incr++
symbolslistbox2.cell(1,incr)="RUSU.L":incr++
'symbolslistbox2.cell(1,incr)="RUSV.L":incr++
symbolslistbox2.cell(1,incr)="RWA.L":incr++
symbolslistbox2.cell(1,incr)="RWI.L":incr++
symbolslistbox2.cell(1,incr)="RWS.L":incr++
symbolslistbox2.cell(1,incr)="RYA.L":incr++
symbolslistbox2.cell(1,incr)="S100.L":incr++
symbolslistbox2.cell(1,incr)="S250.L":incr++
symbolslistbox2.cell(1,incr)="S32.L":incr++
symbolslistbox2.cell(1,incr)="S400.L":incr++
symbolslistbox2.cell(1,incr)="S600.L":incr++
symbolslistbox2.cell(1,incr)="S6EW.L":incr++
symbolslistbox2.cell(1,incr)="S7XP.L":incr++
symbolslistbox2.cell(1,incr)="SAA.L":incr++
symbolslistbox2.cell(1,incr)="SAAA.L":incr++
symbolslistbox2.cell(1,incr)="SAE.L":incr++
symbolslistbox2.cell(1,incr)="SAEM.L":incr++
symbolslistbox2.cell(1,incr)="SAEU.L":incr++
symbolslistbox2.cell(1,incr)="SAFE.L":incr++
symbolslistbox2.cell(1,incr)="SAG.L":incr++
symbolslistbox2.cell(1,incr)="SAGA.L":incr++
symbolslistbox2.cell(1,incr)="SAGG.L":incr++
symbolslistbox2.cell(1,incr)="SAIN.L":incr++
symbolslistbox2.cell(1,incr)="SAL.L":incr++
'symbolslistbox2.cell(1,incr)="SANB.L":incr++
symbolslistbox2.cell(1,incr)="SAR.L":incr++
symbolslistbox2.cell(1,incr)="SASU.L":incr++
symbolslistbox2.cell(1,incr)="SAUS.L":incr++
symbolslistbox2.cell(1,incr)="SAV.L":incr++
symbolslistbox2.cell(1,incr)="SAWD.L":incr++
symbolslistbox2.cell(1,incr)="SBEG.L":incr++
symbolslistbox2.cell(1,incr)="SBEM.L":incr++
symbolslistbox2.cell(1,incr)="SBIO.L":incr++
'symbolslistbox2.cell(1,incr)="SBIZ.L":incr++
symbolslistbox2.cell(1,incr)="SBRE.L":incr++
symbolslistbox2.cell(1,incr)="SBRT.L":incr++
symbolslistbox2.cell(1,incr)="SBRY.L":incr++
'symbolslistbox2.cell(1,incr)="SBSA.L":incr++
symbolslistbox2.cell(1,incr)="SBTX.L":incr++
symbolslistbox2.cell(1,incr)="SBUL.L":incr++
symbolslistbox2.cell(1,incr)="SBUY.L":incr++
symbolslistbox2.cell(1,incr)="SCE.L":incr++
symbolslistbox2.cell(1,incr)="SCF.L":incr++
symbolslistbox2.cell(1,incr)="SCGL.L":incr++
'symbolslistbox2.cell(1,incr)="SCH.L":incr++
symbolslistbox2.cell(1,incr)="SCHO.L":incr++
symbolslistbox2.cell(1,incr)="SCIN.L":incr++
symbolslistbox2.cell(1,incr)="SCLP.L":incr++
symbolslistbox2.cell(1,incr)="SCNY.L":incr++
symbolslistbox2.cell(1,incr)="SCOP.L":incr++
symbolslistbox2.cell(1,incr)="SCP.L":incr++
'symbolslistbox2.cell(1,incr)="SCPA.L":incr++
symbolslistbox2.cell(1,incr)="SCRF.L":incr++
symbolslistbox2.cell(1,incr)="SCS.L":incr++
symbolslistbox2.cell(1,incr)="SCT.L":incr++
symbolslistbox2.cell(1,incr)="SDEU.L":incr++
symbolslistbox2.cell(1,incr)="SDHA.L":incr++
symbolslistbox2.cell(1,incr)="SDHG.L":incr++
symbolslistbox2.cell(1,incr)="SDHY.L":incr++
symbolslistbox2.cell(1,incr)="SDI.L":incr++
symbolslistbox2.cell(1,incr)="SDIA.L":incr++
symbolslistbox2.cell(1,incr)="SDIG.L":incr++
'symbolslistbox2.cell(1,incr)="SDL.L":incr++
symbolslistbox2.cell(1,incr)="SDP.L":incr++
symbolslistbox2.cell(1,incr)="SDR.L":incr++
symbolslistbox2.cell(1,incr)="SDRC.L":incr++
symbolslistbox2.cell(1,incr)="SDRY.L":incr++
symbolslistbox2.cell(1,incr)="SDUS.L":incr++
symbolslistbox2.cell(1,incr)="SDV.L":incr++
symbolslistbox2.cell(1,incr)="SDVP.L":incr++
symbolslistbox2.cell(1,incr)="SDWD.L":incr++
symbolslistbox2.cell(1,incr)="SDX.L":incr++
symbolslistbox2.cell(1,incr)="SDY.L":incr++
symbolslistbox2.cell(1,incr)="SE15.L":incr++
symbolslistbox2.cell(1,incr)="SEAG.L":incr++
symbolslistbox2.cell(1,incr)="SEC.L":incr++
'symbolslistbox2.cell(1,incr)="SECG.L":incr++
symbolslistbox2.cell(1,incr)="SEDM.L":incr++
symbolslistbox2.cell(1,incr)="SEDY.L":incr++
symbolslistbox2.cell(1,incr)="SEE.L":incr++
symbolslistbox2.cell(1,incr)="SEFA.L":incr++
symbolslistbox2.cell(1,incr)="SEGA.L":incr++
symbolslistbox2.cell(1,incr)="SEIT.L":incr++
symbolslistbox2.cell(1,incr)="SEMA.L":incr++
symbolslistbox2.cell(1,incr)="SEMB.L":incr++
symbolslistbox2.cell(1,incr)="SEMH.L":incr++
symbolslistbox2.cell(1,incr)="SEML.L":incr++
symbolslistbox2.cell(1,incr)="SENS.L":incr++
symbolslistbox2.cell(1,incr)="SENX.L":incr++
symbolslistbox2.cell(1,incr)="SEPL.L":incr++
symbolslistbox2.cell(1,incr)="SEQI.L":incr++
symbolslistbox2.cell(1,incr)="SERE.L":incr++
symbolslistbox2.cell(1,incr)="SEU3.L":incr++
symbolslistbox2.cell(1,incr)="SEUC.L":incr++
'symbolslistbox2.cell(1,incr)="SEUP.L":incr++
symbolslistbox2.cell(1,incr)="SEUR.L":incr++
'symbolslistbox2.cell(1,incr)="SEY.L":incr++
symbolslistbox2.cell(1,incr)="SFE.L":incr++
symbolslistbox2.cell(1,incr)="SFOR.L":incr++
symbolslistbox2.cell(1,incr)="SFR.L":incr++
symbolslistbox2.cell(1,incr)="SGB3.L":incr++
symbolslistbox2.cell(1,incr)="SGBP.L":incr++
symbolslistbox2.cell(1,incr)="SGBS.L":incr++
symbolslistbox2.cell(1,incr)="SGC.L":incr++
symbolslistbox2.cell(1,incr)="SGE.L":incr++
symbolslistbox2.cell(1,incr)="SGEA.L":incr++
symbolslistbox2.cell(1,incr)="SGEM.L":incr++
symbolslistbox2.cell(1,incr)="SGI.L":incr++
symbolslistbox2.cell(1,incr)="SGIL.L":incr++
symbolslistbox2.cell(1,incr)="SGLN.L":incr++
symbolslistbox2.cell(1,incr)="SGLO.L":incr++
symbolslistbox2.cell(1,incr)="SGLP.L":incr++
'symbolslistbox2.cell(1,incr)="SGM.L":incr++
'symbolslistbox2.cell(1,incr)="SGQE.L":incr++
'symbolslistbox2.cell(1,incr)="SGQG.L":incr++
symbolslistbox2.cell(1,incr)="SGQL.L":incr++
symbolslistbox2.cell(1,incr)="SGQP.L":incr++
symbolslistbox2.cell(1,incr)="SGQX.L":incr++
symbolslistbox2.cell(1,incr)="SGRO.L":incr++
'symbolslistbox2.cell(1,incr)="SGVB.L":incr++
'symbolslistbox2.cell(1,incr)="SGVL.L":incr++
symbolslistbox2.cell(1,incr)="SHB.L":incr++
symbolslistbox2.cell(1,incr)="SHED.L":incr++
symbolslistbox2.cell(1,incr)="SHG.L":incr++
symbolslistbox2.cell(1,incr)="SHI.L":incr++
symbolslistbox2.cell(1,incr)="SHIP.L":incr++
symbolslistbox2.cell(1,incr)="SHLD.L":incr++
symbolslistbox2.cell(1,incr)="SHOE.L":incr++
symbolslistbox2.cell(1,incr)="SHRS.L":incr++
symbolslistbox2.cell(1,incr)="SHYG.L":incr++
symbolslistbox2.cell(1,incr)="SHYU.L":incr++
'symbolslistbox2.cell(1,incr)="SIG.L":incr++
'symbolslistbox2.cell(1,incr)="SIGB.L":incr++
symbolslistbox2.cell(1,incr)="SIGC.L":incr++
'symbolslistbox2.cell(1,incr)="SIGT.L":incr++
symbolslistbox2.cell(1,incr)="SIHL.L":incr++
symbolslistbox2.cell(1,incr)="SIM.L":incr++
symbolslistbox2.cell(1,incr)="SIR.L":incr++
symbolslistbox2.cell(1,incr)="SIS.L":incr++
symbolslistbox2.cell(1,incr)="SIXH.L":incr++
symbolslistbox2.cell(1,incr)="SJG.L":incr++
symbolslistbox2.cell(1,incr)="SJNK.L":incr++
symbolslistbox2.cell(1,incr)="SJP3.L":incr++
symbolslistbox2.cell(1,incr)="SJPA.L":incr++
symbolslistbox2.cell(1,incr)="SKG.L":incr++
'symbolslistbox2.cell(1,incr)="SKIN.L":incr++
'symbolslistbox2.cell(1,incr)="SKIP.L":incr++
symbolslistbox2.cell(1,incr)="SKYP.L":incr++
symbolslistbox2.cell(1,incr)="SKYY.L":incr++
'symbolslistbox2.cell(1,incr)="SLA.L":incr++
symbolslistbox2.cell(1,incr)="SLI.L":incr++
'symbolslistbox2.cell(1,incr)="SLN.L":incr++
symbolslistbox2.cell(1,incr)="SLP.L":incr++
symbolslistbox2.cell(1,incr)="SLPE.L":incr++
'symbolslistbox2.cell(1,incr)="SLS.L":incr++
symbolslistbox2.cell(1,incr)="SLVR.L":incr++
symbolslistbox2.cell(1,incr)="SLXX.L":incr++
symbolslistbox2.cell(1,incr)="SMBS.L":incr++
symbolslistbox2.cell(1,incr)="SMDS.L":incr++
symbolslistbox2.cell(1,incr)="SMEA.L":incr++
symbolslistbox2.cell(1,incr)="SMEU.L":incr++
symbolslistbox2.cell(1,incr)="SMIF.L":incr++
symbolslistbox2.cell(1,incr)="SMIN.L":incr++
symbolslistbox2.cell(1,incr)="SMJ.L":incr++
symbolslistbox2.cell(1,incr)="SML.L":incr++
'symbolslistbox2.cell(1,incr)="SMP.L":incr++
symbolslistbox2.cell(1,incr)="SMRG.L":incr++
symbolslistbox2.cell(1,incr)="SMRT.L":incr++
symbolslistbox2.cell(1,incr)="SMRU.L":incr++
symbolslistbox2.cell(1,incr)="SMS.L":incr++
symbolslistbox2.cell(1,incr)="SMSD.L":incr++
symbolslistbox2.cell(1,incr)="SMSN.L":incr++
symbolslistbox2.cell(1,incr)="SMT.L":incr++
symbolslistbox2.cell(1,incr)="SMWH.L":incr++
symbolslistbox2.cell(1,incr)="SN.L":incr++
symbolslistbox2.cell(1,incr)="SNG.L":incr++
symbolslistbox2.cell(1,incr)="SNGA.L":incr++
symbolslistbox2.cell(1,incr)="SNGR.L":incr++
symbolslistbox2.cell(1,incr)="SNN.L":incr++
symbolslistbox2.cell(1,incr)="SNR.L":incr++
symbolslistbox2.cell(1,incr)="SNX.L":incr++
'symbolslistbox2.cell(1,incr)="SO4.L":incr++
symbolslistbox2.cell(1,incr)="SOHO.L":incr++
symbolslistbox2.cell(1,incr)="SOI.L":incr++
symbolslistbox2.cell(1,incr)="SOIL.L":incr++
symbolslistbox2.cell(1,incr)="SOLG.L":incr++
symbolslistbox2.cell(1,incr)="SOLI.L":incr++
symbolslistbox2.cell(1,incr)="SOM.L":incr++
symbolslistbox2.cell(1,incr)="SONG.L":incr++
symbolslistbox2.cell(1,incr)="SOS.L":incr++
symbolslistbox2.cell(1,incr)="SOU.L":incr++
symbolslistbox2.cell(1,incr)="SOYB.L":incr++
symbolslistbox2.cell(1,incr)="SOYO.L":incr++
symbolslistbox2.cell(1,incr)="SP5C.L":incr++
symbolslistbox2.cell(1,incr)="SPA.L":incr++
symbolslistbox2.cell(1,incr)="SPAG.L":incr++
symbolslistbox2.cell(1,incr)="SPAL.L":incr++
symbolslistbox2.cell(1,incr)="SPAP.L":incr++
symbolslistbox2.cell(1,incr)="SPDM.L":incr++
symbolslistbox2.cell(1,incr)="SPE.L":incr++
symbolslistbox2.cell(1,incr)="SPEC.L":incr++
symbolslistbox2.cell(1,incr)="SPEH.L":incr++
symbolslistbox2.cell(1,incr)="SPGP.L":incr++
symbolslistbox2.cell(1,incr)="SPI.L":incr++
symbolslistbox2.cell(1,incr)="SPLT.L":incr++
symbolslistbox2.cell(1,incr)="SPMD.L":incr++
symbolslistbox2.cell(1,incr)="SPMV.L":incr++
symbolslistbox2.cell(1,incr)="SPOG.L":incr++
symbolslistbox2.cell(1,incr)="SPOL.L":incr++
symbolslistbox2.cell(1,incr)="SPPC.L":incr++
symbolslistbox2.cell(1,incr)="SPPP.L":incr++
symbolslistbox2.cell(1,incr)="SPPT.L":incr++
symbolslistbox2.cell(1,incr)="SPSC.L":incr++
symbolslistbox2.cell(1,incr)="SPSY.L":incr++
symbolslistbox2.cell(1,incr)="SPT.L":incr++
symbolslistbox2.cell(1,incr)="SPX.L":incr++
symbolslistbox2.cell(1,incr)="SPX5.L":incr++
symbolslistbox2.cell(1,incr)="SPXJ.L":incr++
symbolslistbox2.cell(1,incr)="SPXP.L":incr++
symbolslistbox2.cell(1,incr)="SPXS.L":incr++
symbolslistbox2.cell(1,incr)="SPY4.L":incr++
symbolslistbox2.cell(1,incr)="SPY5.L":incr++
'symbolslistbox2.cell(1,incr)="SQN.L":incr++
'symbolslistbox2.cell(1,incr)="SQNX.L":incr++
symbolslistbox2.cell(1,incr)="SQZ.L":incr++
symbolslistbox2.cell(1,incr)="SRB.L":incr++
symbolslistbox2.cell(1,incr)="SRC.L":incr++
symbolslistbox2.cell(1,incr)="SRE.L":incr++
symbolslistbox2.cell(1,incr)="SREI.L":incr++
symbolslistbox2.cell(1,incr)="SRES.L":incr++
'symbolslistbox2.cell(1,incr)="SRO.L":incr++
symbolslistbox2.cell(1,incr)="SRP.L":incr++
symbolslistbox2.cell(1,incr)="SRSA.L":incr++
symbolslistbox2.cell(1,incr)="SSA.L":incr++
symbolslistbox2.cell(1,incr)="SSAC.L":incr++
symbolslistbox2.cell(1,incr)="SSE.L":incr++
symbolslistbox2.cell(1,incr)="SSHY.L":incr++
symbolslistbox2.cell(1,incr)="SSIF.L":incr++
symbolslistbox2.cell(1,incr)="SSIL.L":incr++
symbolslistbox2.cell(1,incr)="SSLN.L":incr++
symbolslistbox2.cell(1,incr)="SSON.L":incr++
symbolslistbox2.cell(1,incr)="SSPG.L":incr++
symbolslistbox2.cell(1,incr)="SST.L":incr++
symbolslistbox2.cell(1,incr)="SSTY.L":incr++
symbolslistbox2.cell(1,incr)="SSXF.L":incr++
'symbolslistbox2.cell(1,incr)="STAB.L":incr++
'symbolslistbox2.cell(1,incr)="STAC.L":incr++
symbolslistbox2.cell(1,incr)="STAF.L":incr++
symbolslistbox2.cell(1,incr)="STAN.L":incr++
'symbolslistbox2.cell(1,incr)="STAR.L":incr++
symbolslistbox2.cell(1,incr)="STAW.L":incr++
symbolslistbox2.cell(1,incr)="STB.L":incr++
'symbolslistbox2.cell(1,incr)="STCK.L":incr++
symbolslistbox2.cell(1,incr)="STCM.L":incr++
symbolslistbox2.cell(1,incr)="STEA.L":incr++
symbolslistbox2.cell(1,incr)="STEM.L":incr++
symbolslistbox2.cell(1,incr)="STHE.L":incr++
symbolslistbox2.cell(1,incr)="STHS.L":incr++
symbolslistbox2.cell(1,incr)="STHY.L":incr++
symbolslistbox2.cell(1,incr)="STJ.L":incr++
symbolslistbox2.cell(1,incr)="STM.L":incr++
'symbolslistbox2.cell(1,incr)="STOB.L":incr++
'symbolslistbox2.cell(1,incr)="STP.L":incr++
symbolslistbox2.cell(1,incr)="STS.L":incr++
symbolslistbox2.cell(1,incr)="STU.L":incr++
symbolslistbox2.cell(1,incr)="STVG.L":incr++
symbolslistbox2.cell(1,incr)="STX.L":incr++
symbolslistbox2.cell(1,incr)="STYC.L":incr++
symbolslistbox2.cell(1,incr)="SUAG.L":incr++
symbolslistbox2.cell(1,incr)="SUAS.L":incr++
symbolslistbox2.cell(1,incr)="SUD5.L":incr++
symbolslistbox2.cell(1,incr)="SUES.L":incr++
symbolslistbox2.cell(1,incr)="SUGA.L":incr++
symbolslistbox2.cell(1,incr)="SUH.L":incr++
symbolslistbox2.cell(1,incr)="SUJA.L":incr++
symbolslistbox2.cell(1,incr)="SUJP.L":incr++
symbolslistbox2.cell(1,incr)="SUK1.L":incr++
symbolslistbox2.cell(1,incr)="SUK2.L":incr++
symbolslistbox2.cell(1,incr)="SUKC.L":incr++
symbolslistbox2.cell(1,incr)="SUMO.L":incr++
symbolslistbox2.cell(1,incr)="SUN.L":incr++
symbolslistbox2.cell(1,incr)="SUOE.L":incr++
symbolslistbox2.cell(1,incr)="SUP3.L":incr++
symbolslistbox2.cell(1,incr)="SUP5.L":incr++
symbolslistbox2.cell(1,incr)="SUPP.L":incr++
symbolslistbox2.cell(1,incr)="SUPR.L":incr++
symbolslistbox2.cell(1,incr)="SUR.L":incr++
symbolslistbox2.cell(1,incr)="SURE.L":incr++
symbolslistbox2.cell(1,incr)="SUS.L":incr++
symbolslistbox2.cell(1,incr)="SUSC.L":incr++
symbolslistbox2.cell(1,incr)="SUSD.L":incr++
symbolslistbox2.cell(1,incr)="SUSM.L":incr++
symbolslistbox2.cell(1,incr)="SUSS.L":incr++
symbolslistbox2.cell(1,incr)="SUSW.L":incr++
symbolslistbox2.cell(1,incr)="SUUS.L":incr++
symbolslistbox2.cell(1,incr)="SUWS.L":incr++
symbolslistbox2.cell(1,incr)="SVE.L":incr++
symbolslistbox2.cell(1,incr)="SVM.L":incr++
symbolslistbox2.cell(1,incr)="SVS.L":incr++
'symbolslistbox2.cell(1,incr)="SVST.L":incr++
symbolslistbox2.cell(1,incr)="SVT.L":incr++
symbolslistbox2.cell(1,incr)="SWC.L":incr++
symbolslistbox2.cell(1,incr)="SWDA.L":incr++
symbolslistbox2.cell(1,incr)="SWEF.L":incr++
symbolslistbox2.cell(1,incr)="SWG.L":incr++
'symbolslistbox2.cell(1,incr)="SWIH.L":incr++
symbolslistbox2.cell(1,incr)="SWIM.L":incr++
symbolslistbox2.cell(1,incr)="SWRD.L":incr++
symbolslistbox2.cell(1,incr)="SX5S.L":incr++
symbolslistbox2.cell(1,incr)="SXLB.L":incr++
symbolslistbox2.cell(1,incr)="SXLC.L":incr++
symbolslistbox2.cell(1,incr)="SXLE.L":incr++
symbolslistbox2.cell(1,incr)="SXLF.L":incr++
symbolslistbox2.cell(1,incr)="SXLI.L":incr++
symbolslistbox2.cell(1,incr)="SXLK.L":incr++
symbolslistbox2.cell(1,incr)="SXLP.L":incr++
symbolslistbox2.cell(1,incr)="SXLU.L":incr++
symbolslistbox2.cell(1,incr)="SXLV.L":incr++
symbolslistbox2.cell(1,incr)="SXLY.L":incr++
symbolslistbox2.cell(1,incr)="SXS.L":incr++
symbolslistbox2.cell(1,incr)="SYM.L":incr++
symbolslistbox2.cell(1,incr)="SYME.L":incr++
symbolslistbox2.cell(1,incr)="SYNC.L":incr++
symbolslistbox2.cell(1,incr)="SYNT.L":incr++
symbolslistbox2.cell(1,incr)="SYS.L":incr++
symbolslistbox2.cell(1,incr)="SYS1.L":incr++
'symbolslistbox2.cell(1,incr)="TALK.L":incr++
symbolslistbox2.cell(1,incr)="TAM.L":incr++
symbolslistbox2.cell(1,incr)="TAN.L":incr++
'symbolslistbox2.cell(1,incr)="TASE.L":incr++
symbolslistbox2.cell(1,incr)="TAST.L":incr++
symbolslistbox2.cell(1,incr)="TATE.L":incr++
symbolslistbox2.cell(1,incr)="TAVI.L":incr++
symbolslistbox2.cell(1,incr)="TBCG.L":incr++
symbolslistbox2.cell(1,incr)="TCAP.L":incr++
'symbolslistbox2.cell(1,incr)="TCM.L":incr++
'symbolslistbox2.cell(1,incr)="TCN.L":incr++
symbolslistbox2.cell(1,incr)="TED.L":incr++
symbolslistbox2.cell(1,incr)="TEEG.L":incr++
symbolslistbox2.cell(1,incr)="TEG.L":incr++
symbolslistbox2.cell(1,incr)="TEK.L":incr++
symbolslistbox2.cell(1,incr)="TELE.L":incr++
symbolslistbox2.cell(1,incr)="TELW.L":incr++
symbolslistbox2.cell(1,incr)="TEM.L":incr++
symbolslistbox2.cell(1,incr)="TENG.L":incr++
symbolslistbox2.cell(1,incr)="TEP.L":incr++
symbolslistbox2.cell(1,incr)="TERN.L":incr++
symbolslistbox2.cell(1,incr)="TET.L":incr++
symbolslistbox2.cell(1,incr)="TFG.L":incr++
symbolslistbox2.cell(1,incr)="TFGS.L":incr++
symbolslistbox2.cell(1,incr)="TFIF.L":incr++
symbolslistbox2.cell(1,incr)="TFW.L":incr++
symbolslistbox2.cell(1,incr)="TGP.L":incr++
symbolslistbox2.cell(1,incr)="THAL.L":incr++
symbolslistbox2.cell(1,incr)="THR.L":incr++
symbolslistbox2.cell(1,incr)="THRG.L":incr++
symbolslistbox2.cell(1,incr)="THRL.L":incr++
symbolslistbox2.cell(1,incr)="THRU.L":incr++
symbolslistbox2.cell(1,incr)="THS.L":incr++
symbolslistbox2.cell(1,incr)="TI5G.L":incr++
symbolslistbox2.cell(1,incr)="TIDE.L":incr++
symbolslistbox2.cell(1,incr)="TIFS.L":incr++
symbolslistbox2.cell(1,incr)="TIGT.L":incr++
'symbolslistbox2.cell(1,incr)="TILS.L":incr++
symbolslistbox2.cell(1,incr)="TINM.L":incr++
symbolslistbox2.cell(1,incr)="TIP5.L":incr++
symbolslistbox2.cell(1,incr)="TIPG.L":incr++
symbolslistbox2.cell(1,incr)="TIPH.L":incr++
symbolslistbox2.cell(1,incr)="TIPU.L":incr++
symbolslistbox2.cell(1,incr)="TIR.L":incr++
symbolslistbox2.cell(1,incr)="TLOU.L":incr++
symbolslistbox2.cell(1,incr)="TLW.L":incr++
symbolslistbox2.cell(1,incr)="TM17.L":incr++
symbolslistbox2.cell(1,incr)="TMG.L":incr++
symbolslistbox2.cell(1,incr)="TMO.L":incr++
symbolslistbox2.cell(1,incr)="TMPL.L":incr++
symbolslistbox2.cell(1,incr)="TMT.L":incr++
symbolslistbox2.cell(1,incr)="TND.L":incr++
symbolslistbox2.cell(1,incr)="TNOW.L":incr++
symbolslistbox2.cell(1,incr)="TOM.L":incr++
symbolslistbox2.cell(1,incr)="TON.L":incr++
symbolslistbox2.cell(1,incr)="TOOP.L":incr++
symbolslistbox2.cell(1,incr)="TORO.L":incr++
'symbolslistbox2.cell(1,incr)="TOT.L":incr++
symbolslistbox2.cell(1,incr)="TOWN.L":incr++
symbolslistbox2.cell(1,incr)="TP05.L":incr++
symbolslistbox2.cell(1,incr)="TPFG.L":incr++
symbolslistbox2.cell(1,incr)="TPG.L":incr++
symbolslistbox2.cell(1,incr)="TPK.L":incr++
symbolslistbox2.cell(1,incr)="TPOA.L":incr++
symbolslistbox2.cell(1,incr)="TPOS.L":incr++
symbolslistbox2.cell(1,incr)="TPOU.L":incr++
symbolslistbox2.cell(1,incr)="TPT.L":incr++
symbolslistbox2.cell(1,incr)="TPVD.L":incr++
symbolslistbox2.cell(1,incr)="TPVE.L":incr++
symbolslistbox2.cell(1,incr)="TPX.L":incr++
symbolslistbox2.cell(1,incr)="TRAF.L":incr++
symbolslistbox2.cell(1,incr)="TRAK.L":incr++
symbolslistbox2.cell(1,incr)="TRB.L":incr++
symbolslistbox2.cell(1,incr)="TRCS.L":incr++
symbolslistbox2.cell(1,incr)="TRD.L":incr++
symbolslistbox2.cell(1,incr)="TREE.L":incr++
symbolslistbox2.cell(1,incr)="TRG.L":incr++
symbolslistbox2.cell(1,incr)="TRI.L":incr++
symbolslistbox2.cell(1,incr)="TRIG.L":incr++
symbolslistbox2.cell(1,incr)="TRIN.L":incr++
symbolslistbox2.cell(1,incr)="TRMR.L":incr++
symbolslistbox2.cell(1,incr)="TRN.L":incr++
symbolslistbox2.cell(1,incr)="TRS3.L":incr++
symbolslistbox2.cell(1,incr)="TRS5.L":incr++
symbolslistbox2.cell(1,incr)="TRSX.L":incr++
symbolslistbox2.cell(1,incr)="TRSY.L":incr++
symbolslistbox2.cell(1,incr)="TRU.L":incr++
symbolslistbox2.cell(1,incr)="TRX.L":incr++
symbolslistbox2.cell(1,incr)="TRY.L":incr++
symbolslistbox2.cell(1,incr)="TSCO.L":incr++
'symbolslistbox2.cell(1,incr)="TSG.L":incr++
'symbolslistbox2.cell(1,incr)="TSI.L":incr++
symbolslistbox2.cell(1,incr)="TSL.L":incr++
symbolslistbox2.cell(1,incr)="TST.L":incr++
symbolslistbox2.cell(1,incr)="TSTL.L":incr++
'symbolslistbox2.cell(1,incr)="TSTR.L":incr++
symbolslistbox2.cell(1,incr)="TSY3.L":incr++
'symbolslistbox2.cell(1,incr)="TTA.L":incr++
symbolslistbox2.cell(1,incr)="TTG.L":incr++
symbolslistbox2.cell(1,incr)="TUI.L":incr++
symbolslistbox2.cell(1,incr)="TUNE.L":incr++
symbolslistbox2.cell(1,incr)="TUNG.L":incr++
symbolslistbox2.cell(1,incr)="TURL.L":incr++
symbolslistbox2.cell(1,incr)="TURU.L":incr++
symbolslistbox2.cell(1,incr)="TW.L":incr++
symbolslistbox2.cell(1,incr)="TWND.L":incr++
symbolslistbox2.cell(1,incr)="TWNL.L":incr++
symbolslistbox2.cell(1,incr)="TXP.L":incr++
symbolslistbox2.cell(1,incr)="TYM.L":incr++
symbolslistbox2.cell(1,incr)="TYMN.L":incr++
symbolslistbox2.cell(1,incr)="U10G.L":incr++
symbolslistbox2.cell(1,incr)="U13G.L":incr++
symbolslistbox2.cell(1,incr)="U71G.L":incr++
'symbolslistbox2.cell(1,incr)="UAI.L":incr++
'symbolslistbox2.cell(1,incr)="UANC.L":incr++
symbolslistbox2.cell(1,incr)="UAV.L":incr++
symbolslistbox2.cell(1,incr)="UB00.L":incr++
symbolslistbox2.cell(1,incr)="UB01.L":incr++
symbolslistbox2.cell(1,incr)="UB02.L":incr++
symbolslistbox2.cell(1,incr)="UB03.L":incr++
symbolslistbox2.cell(1,incr)="UB06.L":incr++
symbolslistbox2.cell(1,incr)="UB0A.L":incr++
symbolslistbox2.cell(1,incr)="UB0B.L":incr++
symbolslistbox2.cell(1,incr)="UB0C.L":incr++
symbolslistbox2.cell(1,incr)="UB0D.L":incr++
symbolslistbox2.cell(1,incr)="UB0E.L":incr++
symbolslistbox2.cell(1,incr)="UB0F.L":incr++
symbolslistbox2.cell(1,incr)="UB12.L":incr++
symbolslistbox2.cell(1,incr)="UB17.L":incr++
symbolslistbox2.cell(1,incr)="UB20.L":incr++
symbolslistbox2.cell(1,incr)="UB23.L":incr++
symbolslistbox2.cell(1,incr)="UB30.L":incr++
symbolslistbox2.cell(1,incr)="UB32.L":incr++
symbolslistbox2.cell(1,incr)="UB45.L":incr++
symbolslistbox2.cell(1,incr)="UB69.L":incr++
symbolslistbox2.cell(1,incr)="UB74.L":incr++
symbolslistbox2.cell(1,incr)="UB82.L":incr++
symbolslistbox2.cell(1,incr)="UBTL.L":incr++
symbolslistbox2.cell(1,incr)="UBTP.L":incr++
symbolslistbox2.cell(1,incr)="UBTS.L":incr++
symbolslistbox2.cell(1,incr)="UBXX.L":incr++
'symbolslistbox2.cell(1,incr)="UC03.L":incr++
symbolslistbox2.cell(1,incr)="UC04.L":incr++
symbolslistbox2.cell(1,incr)="UC07.L":incr++
symbolslistbox2.cell(1,incr)="UC13.L":incr++
symbolslistbox2.cell(1,incr)="UC14.L":incr++
symbolslistbox2.cell(1,incr)="UC15.L":incr++
symbolslistbox2.cell(1,incr)="UC44.L":incr++
symbolslistbox2.cell(1,incr)="UC46.L":incr++
symbolslistbox2.cell(1,incr)="UC55.L":incr++
symbolslistbox2.cell(1,incr)="UC63.L":incr++
symbolslistbox2.cell(1,incr)="UC64.L":incr++
symbolslistbox2.cell(1,incr)="UC65.L":incr++
symbolslistbox2.cell(1,incr)="UC67.L":incr++
symbolslistbox2.cell(1,incr)="UC68.L":incr++
symbolslistbox2.cell(1,incr)="UC76.L":incr++
symbolslistbox2.cell(1,incr)="UC79.L":incr++
symbolslistbox2.cell(1,incr)="UC81.L":incr++
symbolslistbox2.cell(1,incr)="UC82.L":incr++
symbolslistbox2.cell(1,incr)="UC85.L":incr++
symbolslistbox2.cell(1,incr)="UC86.L":incr++
symbolslistbox2.cell(1,incr)="UC87.L":incr++
'symbolslistbox2.cell(1,incr)="UC89.L":incr++
symbolslistbox2.cell(1,incr)="UC90.L":incr++
symbolslistbox2.cell(1,incr)="UC93.L":incr++
symbolslistbox2.cell(1,incr)="UC94.L":incr++
symbolslistbox2.cell(1,incr)="UC95.L":incr++
symbolslistbox2.cell(1,incr)="UC96.L":incr++
symbolslistbox2.cell(1,incr)="UC97.L":incr++
symbolslistbox2.cell(1,incr)="UC98.L":incr++
symbolslistbox2.cell(1,incr)="UC99.L":incr++
symbolslistbox2.cell(1,incr)="UCAP.L":incr++
'symbolslistbox2.cell(1,incr)="UCG.L":incr++
symbolslistbox2.cell(1,incr)="UD02.L":incr++
symbolslistbox2.cell(1,incr)="UD03.L":incr++
symbolslistbox2.cell(1,incr)="UD04.L":incr++
symbolslistbox2.cell(1,incr)="UD05.L":incr++
symbolslistbox2.cell(1,incr)="UD06.L":incr++
symbolslistbox2.cell(1,incr)="UD08.L":incr++
symbolslistbox2.cell(1,incr)="UDG.L":incr++
symbolslistbox2.cell(1,incr)="UDVD.L":incr++
symbolslistbox2.cell(1,incr)="UEM.L":incr++
symbolslistbox2.cell(1,incr)="UESG.L":incr++
'symbolslistbox2.cell(1,incr)="UFLT.L":incr++
symbolslistbox2.cell(1,incr)="UFO.L":incr++
symbolslistbox2.cell(1,incr)="UFSD.L":incr++
symbolslistbox2.cell(1,incr)="UGAS.L":incr++
symbolslistbox2.cell(1,incr)="UHYG.L":incr++
symbolslistbox2.cell(1,incr)="UIFS.L":incr++
symbolslistbox2.cell(1,incr)="UINC.L":incr++
symbolslistbox2.cell(1,incr)="UJO.L":incr++
symbolslistbox2.cell(1,incr)="UKCM.L":incr++
symbolslistbox2.cell(1,incr)="UKCO.L":incr++
symbolslistbox2.cell(1,incr)="UKDV.L":incr++
symbolslistbox2.cell(1,incr)="UKML.L":incr++
symbolslistbox2.cell(1,incr)="UKMV.L":incr++
symbolslistbox2.cell(1,incr)="UKOG.L":incr++
symbolslistbox2.cell(1,incr)="UKR.L":incr++
symbolslistbox2.cell(1,incr)="UKRE.L":incr++
symbolslistbox2.cell(1,incr)="UKSR.L":incr++
symbolslistbox2.cell(1,incr)="UKW.L":incr++
symbolslistbox2.cell(1,incr)="ULE.L":incr++
symbolslistbox2.cell(1,incr)="ULS.L":incr++
symbolslistbox2.cell(1,incr)="ULVR.L":incr++
symbolslistbox2.cell(1,incr)="UNG.L":incr++
symbolslistbox2.cell(1,incr)="UNIC.L":incr++
symbolslistbox2.cell(1,incr)="UOG.L":incr++
symbolslistbox2.cell(1,incr)="UPGS.L":incr++
symbolslistbox2.cell(1,incr)="UPL.L":incr++
symbolslistbox2.cell(1,incr)="UPVL.L":incr++
symbolslistbox2.cell(1,incr)="UQLT.L":incr++
symbolslistbox2.cell(1,incr)="URGB.L":incr++
symbolslistbox2.cell(1,incr)="URU.L":incr++
symbolslistbox2.cell(1,incr)="US10.L":incr++
symbolslistbox2.cell(1,incr)="US13.L":incr++
'symbolslistbox2.cell(1,incr)="US57.L":incr++
symbolslistbox2.cell(1,incr)="US71.L":incr++
symbolslistbox2.cell(1,incr)="USA.L":incr++
symbolslistbox2.cell(1,incr)="USAG.L":incr++
symbolslistbox2.cell(1,incr)="USAL.L":incr++
symbolslistbox2.cell(1,incr)="USAU.L":incr++
symbolslistbox2.cell(1,incr)="USDV.L":incr++
symbolslistbox2.cell(1,incr)="USEF.L":incr++
symbolslistbox2.cell(1,incr)="USFM.L":incr++
symbolslistbox2.cell(1,incr)="USFP.L":incr++
symbolslistbox2.cell(1,incr)="USGB.L":incr++
symbolslistbox2.cell(1,incr)="USHF.L":incr++
symbolslistbox2.cell(1,incr)="USHY.L":incr++
symbolslistbox2.cell(1,incr)="USIG.L":incr++
symbolslistbox2.cell(1,incr)="USIX.L":incr++
symbolslistbox2.cell(1,incr)="USLV.L":incr++
'symbolslistbox2.cell(1,incr)="USMF.L":incr++
symbolslistbox2.cell(1,incr)="USMV.L":incr++
symbolslistbox2.cell(1,incr)="USP3.L":incr++
symbolslistbox2.cell(1,incr)="USP5.L":incr++
symbolslistbox2.cell(1,incr)="USPG.L":incr++
symbolslistbox2.cell(1,incr)="USPY.L":incr++
symbolslistbox2.cell(1,incr)="USSC.L":incr++
symbolslistbox2.cell(1,incr)="USTY.L":incr++
symbolslistbox2.cell(1,incr)="USVL.L":incr++
symbolslistbox2.cell(1,incr)="UTG.L":incr++
symbolslistbox2.cell(1,incr)="UTIL.L":incr++
symbolslistbox2.cell(1,incr)="UTIP.L":incr++
symbolslistbox2.cell(1,incr)="UTIW.L":incr++
symbolslistbox2.cell(1,incr)="UTL.L":incr++
'symbolslistbox2.cell(1,incr)="UTLE.L":incr++
symbolslistbox2.cell(1,incr)="UTLF.L":incr++
symbolslistbox2.cell(1,incr)="UTLG.L":incr++
symbolslistbox2.cell(1,incr)="UTLH.L":incr++
symbolslistbox2.cell(1,incr)="UU.L":incr++
symbolslistbox2.cell(1,incr)="UVAL.L":incr++
symbolslistbox2.cell(1,incr)="UVEL.L":incr++
symbolslistbox2.cell(1,incr)="VAGU.L":incr++
symbolslistbox2.cell(1,incr)="VAL.L":incr++
symbolslistbox2.cell(1,incr)="VANL.L":incr++
symbolslistbox2.cell(1,incr)="VAPX.L":incr++
symbolslistbox2.cell(1,incr)="VAST.L":incr++
symbolslistbox2.cell(1,incr)="VCBC.L":incr++
symbolslistbox2.cell(1,incr)="VCP.L":incr++
symbolslistbox2.cell(1,incr)="VCT.L":incr++
symbolslistbox2.cell(1,incr)="VDCP.L":incr++
symbolslistbox2.cell(1,incr)="VDEM.L":incr++
symbolslistbox2.cell(1,incr)="VDET.L":incr++
symbolslistbox2.cell(1,incr)="VDEV.L":incr++
symbolslistbox2.cell(1,incr)="VDJP.L":incr++
'symbolslistbox2.cell(1,incr)="VDLQ.L":incr++
'symbolslistbox2.cell(1,incr)="VDMO.L":incr++
symbolslistbox2.cell(1,incr)="VDNR.L":incr++
symbolslistbox2.cell(1,incr)="VDPA.L":incr++
symbolslistbox2.cell(1,incr)="VDPX.L":incr++
symbolslistbox2.cell(1,incr)="VDTK.L":incr++
symbolslistbox2.cell(1,incr)="VDTY.L":incr++
symbolslistbox2.cell(1,incr)="VDUC.L":incr++
'symbolslistbox2.cell(1,incr)="VDXX.L":incr++
'symbolslistbox2.cell(1,incr)="VEC.L":incr++
symbolslistbox2.cell(1,incr)="VECP.L":incr++
symbolslistbox2.cell(1,incr)="VEIL.L":incr++
symbolslistbox2.cell(1,incr)="VEL.L":incr++
symbolslistbox2.cell(1,incr)="VELA.L":incr++
symbolslistbox2.cell(1,incr)="VEMT.L":incr++
symbolslistbox2.cell(1,incr)="VEN.L":incr++
symbolslistbox2.cell(1,incr)="VEN2.L":incr++
symbolslistbox2.cell(1,incr)="VENC.L":incr++
symbolslistbox2.cell(1,incr)="VEND.L":incr++
symbolslistbox2.cell(1,incr)="VERX.L":incr++
symbolslistbox2.cell(1,incr)="VETY.L":incr++
symbolslistbox2.cell(1,incr)="VEUD.L":incr++
symbolslistbox2.cell(1,incr)="VEUR.L":incr++
symbolslistbox2.cell(1,incr)="VEVE.L":incr++
symbolslistbox2.cell(1,incr)="VFEA.L":incr++
symbolslistbox2.cell(1,incr)="VFEM.L":incr++
'symbolslistbox2.cell(1,incr)="VGAS.L":incr++
symbolslistbox2.cell(1,incr)="VGOV.L":incr++
symbolslistbox2.cell(1,incr)="VHVE.L":incr++
symbolslistbox2.cell(1,incr)="VHYA.L":incr++
symbolslistbox2.cell(1,incr)="VHYD.L":incr++
symbolslistbox2.cell(1,incr)="VHYL.L":incr++
symbolslistbox2.cell(1,incr)="VILX.L":incr++
'symbolslistbox2.cell(1,incr)="VIN.L":incr++
symbolslistbox2.cell(1,incr)="VIXL.L":incr++
symbolslistbox2.cell(1,incr)="VJPA.L":incr++
symbolslistbox2.cell(1,incr)="VJPN.L":incr++
symbolslistbox2.cell(1,incr)="VLE.L":incr++
symbolslistbox2.cell(1,incr)="VLG.L":incr++
'symbolslistbox2.cell(1,incr)="VLIQ.L":incr++
symbolslistbox2.cell(1,incr)="VLS.L":incr++
symbolslistbox2.cell(1,incr)="VLX.L":incr++
symbolslistbox2.cell(1,incr)="VMID.L":incr++
'symbolslistbox2.cell(1,incr)="VMOM.L":incr++
symbolslistbox2.cell(1,incr)="VMUK.L":incr++
'symbolslistbox2.cell(1,incr)="VMVL.L":incr++
symbolslistbox2.cell(1,incr)="VNC.L":incr++
symbolslistbox2.cell(1,incr)="VNET.L":incr++
symbolslistbox2.cell(1,incr)="VNH.L":incr++
symbolslistbox2.cell(1,incr)="VNRT.L":incr++
symbolslistbox2.cell(1,incr)="VOD.L":incr++
symbolslistbox2.cell(1,incr)="VOF.L":incr++
symbolslistbox2.cell(1,incr)="VOG.L":incr++
symbolslistbox2.cell(1,incr)="VP.L":incr++
'symbolslistbox2.cell(1,incr)="VRE.L":incr++
'symbolslistbox2.cell(1,incr)="VRP.L":incr++
symbolslistbox2.cell(1,incr)="VRPS.L":incr++
symbolslistbox2.cell(1,incr)="VRS.L":incr++
symbolslistbox2.cell(1,incr)="VSL.L":incr++
symbolslistbox2.cell(1,incr)="VSVS.L":incr++
symbolslistbox2.cell(1,incr)="VTA.L":incr++
symbolslistbox2.cell(1,incr)="VTAS.L":incr++
symbolslistbox2.cell(1,incr)="VTC.L":incr++
symbolslistbox2.cell(1,incr)="VTU.L":incr++
symbolslistbox2.cell(1,incr)="VTY.L":incr++
symbolslistbox2.cell(1,incr)="VUAA.L":incr++
symbolslistbox2.cell(1,incr)="VUAG.L":incr++
symbolslistbox2.cell(1,incr)="VUCP.L":incr++
symbolslistbox2.cell(1,incr)="VUKE.L":incr++
symbolslistbox2.cell(1,incr)="VUSA.L":incr++
symbolslistbox2.cell(1,incr)="VUSC.L":incr++
symbolslistbox2.cell(1,incr)="VUSD.L":incr++
symbolslistbox2.cell(1,incr)="VUTY.L":incr++
'symbolslistbox2.cell(1,incr)="VVAL.L":incr++
symbolslistbox2.cell(1,incr)="VVO.L":incr++
symbolslistbox2.cell(1,incr)="VWRA.L":incr++
symbolslistbox2.cell(1,incr)="VWRD.L":incr++
symbolslistbox2.cell(1,incr)="VWRL.L":incr++
'symbolslistbox2.cell(1,incr)="VX5E.L":incr++
symbolslistbox2.cell(1,incr)="W7L.L":incr++
symbolslistbox2.cell(1,incr)="WAND.L":incr++
symbolslistbox2.cell(1,incr)="WATL.L":incr++
symbolslistbox2.cell(1,incr)="WATR.L":incr++
symbolslistbox2.cell(1,incr)="WCLD.L":incr++
symbolslistbox2.cell(1,incr)="WCOA.L":incr++
symbolslistbox2.cell(1,incr)="WCOB.L":incr++
symbolslistbox2.cell(1,incr)="WCOD.L":incr++
symbolslistbox2.cell(1,incr)="WCOG.L":incr++
symbolslistbox2.cell(1,incr)="WCOM.L":incr++
symbolslistbox2.cell(1,incr)="WCOS.L":incr++
symbolslistbox2.cell(1,incr)="WCW.L":incr++
symbolslistbox2.cell(1,incr)="WDSC.L":incr++
symbolslistbox2.cell(1,incr)="WEAT.L":incr++
symbolslistbox2.cell(1,incr)="WEB.L":incr++
symbolslistbox2.cell(1,incr)="WEIR.L":incr++
symbolslistbox2.cell(1,incr)="WELL.L":incr++
symbolslistbox2.cell(1,incr)="WESG.L":incr++
'symbolslistbox2.cell(1,incr)="WEY.L":incr++
symbolslistbox2.cell(1,incr)="WFIN.L":incr++
symbolslistbox2.cell(1,incr)="WG.L":incr++
'symbolslistbox2.cell(1,incr)="WGB.L":incr++
symbolslistbox2.cell(1,incr)="WHEA.L":incr++
symbolslistbox2.cell(1,incr)="WHI.L":incr++
symbolslistbox2.cell(1,incr)="WHR.L":incr++
symbolslistbox2.cell(1,incr)="WIAU.L":incr++
symbolslistbox2.cell(1,incr)="WIGG.L":incr++
symbolslistbox2.cell(1,incr)="WIL.L":incr++
symbolslistbox2.cell(1,incr)="WIN.L":incr++
symbolslistbox2.cell(1,incr)="WINE.L":incr++
symbolslistbox2.cell(1,incr)="WING.L":incr++
symbolslistbox2.cell(1,incr)="WINK.L":incr++
symbolslistbox2.cell(1,incr)="WIZZ.L":incr++
symbolslistbox2.cell(1,incr)="WJG.L":incr++
symbolslistbox2.cell(1,incr)="WKOF.L":incr++
symbolslistbox2.cell(1,incr)="WKP.L":incr++
symbolslistbox2.cell(1,incr)="WLDD.L":incr++
symbolslistbox2.cell(1,incr)="WLDL.L":incr++
symbolslistbox2.cell(1,incr)="WLDS.L":incr++
symbolslistbox2.cell(1,incr)="WLDU.L":incr++
symbolslistbox2.cell(1,incr)="WMAT.L":incr++
'symbolslistbox2.cell(1,incr)="WMH.L":incr++
symbolslistbox2.cell(1,incr)="WNDU.L":incr++
symbolslistbox2.cell(1,incr)="WNGE.L":incr++
symbolslistbox2.cell(1,incr)="WNRG.L":incr++
symbolslistbox2.cell(1,incr)="WOOD.L":incr++
symbolslistbox2.cell(1,incr)="WOSC.L":incr++
symbolslistbox2.cell(1,incr)="WOSG.L":incr++
'symbolslistbox2.cell(1,incr)="WPC.L":incr++
symbolslistbox2.cell(1,incr)="WPHO.L":incr++
symbolslistbox2.cell(1,incr)="WPP.L":incr++
symbolslistbox2.cell(1,incr)="WQDS.L":incr++
symbolslistbox2.cell(1,incr)="WQDV.L":incr++
symbolslistbox2.cell(1,incr)="WRES.L":incr++
symbolslistbox2.cell(1,incr)="WRKS.L":incr++
symbolslistbox2.cell(1,incr)="WSBN.L":incr++
'symbolslistbox2.cell(1,incr)="WSE.L":incr++
symbolslistbox2.cell(1,incr)="WSG.L":incr++
symbolslistbox2.cell(1,incr)="WSML.L":incr++
symbolslistbox2.cell(1,incr)="WSP.L":incr++
symbolslistbox2.cell(1,incr)="WTAI.L":incr++
symbolslistbox2.cell(1,incr)="WTAN.L":incr++
symbolslistbox2.cell(1,incr)="WTB.L":incr++
symbolslistbox2.cell(1,incr)="WTE.L":incr++
symbolslistbox2.cell(1,incr)="WTEC.L":incr++
symbolslistbox2.cell(1,incr)="WTEL.L":incr++
'symbolslistbox2.cell(1,incr)="WTG.L":incr++
symbolslistbox2.cell(1,incr)="WTID.L":incr++
'symbolslistbox2.cell(1,incr)="WTR.L":incr++
symbolslistbox2.cell(1,incr)="WUKD.L":incr++
symbolslistbox2.cell(1,incr)="WUTI.L":incr++
symbolslistbox2.cell(1,incr)="WWH.L":incr++
symbolslistbox2.cell(1,incr)="WYN.L":incr++
symbolslistbox2.cell(1,incr)="X7PP.L":incr++
symbolslistbox2.cell(1,incr)="X7PS.L":incr++
symbolslistbox2.cell(1,incr)="XAGS.L":incr++
symbolslistbox2.cell(1,incr)="XAR.L":incr++
symbolslistbox2.cell(1,incr)="XASX.L":incr++
symbolslistbox2.cell(1,incr)="XAUS.L":incr++
symbolslistbox2.cell(1,incr)="XAXD.L":incr++
symbolslistbox2.cell(1,incr)="XAXJ.L":incr++
symbolslistbox2.cell(1,incr)="XBAG.L":incr++
symbolslistbox2.cell(1,incr)="XBAK.L":incr++
symbolslistbox2.cell(1,incr)="XBCU.L":incr++
symbolslistbox2.cell(1,incr)="XBGG.L":incr++
symbolslistbox2.cell(1,incr)="XBLC.L":incr++
symbolslistbox2.cell(1,incr)="XCAD.L":incr++
symbolslistbox2.cell(1,incr)="XCHA.L":incr++
symbolslistbox2.cell(1,incr)="XCS2.L":incr++
symbolslistbox2.cell(1,incr)="XCS3.L":incr++
symbolslistbox2.cell(1,incr)="XCS4.L":incr++
symbolslistbox2.cell(1,incr)="XCS5.L":incr++
symbolslistbox2.cell(1,incr)="XCS6.L":incr++
symbolslistbox2.cell(1,incr)="XCT9.L":incr++
symbolslistbox2.cell(1,incr)="XCX3.L":incr++
symbolslistbox2.cell(1,incr)="XCX4.L":incr++
symbolslistbox2.cell(1,incr)="XCX5.L":incr++
symbolslistbox2.cell(1,incr)="XCX6.L":incr++
symbolslistbox2.cell(1,incr)="XD3E.L":incr++
symbolslistbox2.cell(1,incr)="XD5D.L":incr++
symbolslistbox2.cell(1,incr)="XD5E.L":incr++
symbolslistbox2.cell(1,incr)="XD5S.L":incr++
symbolslistbox2.cell(1,incr)="XD9U.L":incr++
symbolslistbox2.cell(1,incr)="XDAX.L":incr++
symbolslistbox2.cell(1,incr)="XDBG.L":incr++
symbolslistbox2.cell(1,incr)="XDDX.L":incr++
symbolslistbox2.cell(1,incr)="XDEB.L":incr++
symbolslistbox2.cell(1,incr)="XDEM.L":incr++
symbolslistbox2.cell(1,incr)="XDEQ.L":incr++
symbolslistbox2.cell(1,incr)="XDER.L":incr++
symbolslistbox2.cell(1,incr)="XDEV.L":incr++
symbolslistbox2.cell(1,incr)="XDEW.L":incr++
symbolslistbox2.cell(1,incr)="XDEX.L":incr++
'symbolslistbox2.cell(1,incr)="XDGM.L":incr++
symbolslistbox2.cell(1,incr)="XDGU.L":incr++
symbolslistbox2.cell(1,incr)="XDJP.L":incr++
symbolslistbox2.cell(1,incr)="XDN0.L":incr++
'symbolslistbox2.cell(1,incr)="XDND.L":incr++
symbolslistbox2.cell(1,incr)="XDNG.L":incr++
symbolslistbox2.cell(1,incr)="XDNS.L":incr++
symbolslistbox2.cell(1,incr)="XDNU.L":incr++
symbolslistbox2.cell(1,incr)="XDNY.L":incr++
symbolslistbox2.cell(1,incr)="XDPG.L":incr++
symbolslistbox2.cell(1,incr)="XDUK.L":incr++
symbolslistbox2.cell(1,incr)="XDUS.L":incr++
symbolslistbox2.cell(1,incr)="XDW0.L":incr++
symbolslistbox2.cell(1,incr)="XDWC.L":incr++
symbolslistbox2.cell(1,incr)="XDWD.L":incr++
symbolslistbox2.cell(1,incr)="XDWE.L":incr++
symbolslistbox2.cell(1,incr)="XDWF.L":incr++
symbolslistbox2.cell(1,incr)="XDWG.L":incr++
symbolslistbox2.cell(1,incr)="XDWH.L":incr++
symbolslistbox2.cell(1,incr)="XDWI.L":incr++
symbolslistbox2.cell(1,incr)="XDWL.L":incr++
symbolslistbox2.cell(1,incr)="XDWM.L":incr++
symbolslistbox2.cell(1,incr)="XDWS.L":incr++
symbolslistbox2.cell(1,incr)="XDWT.L":incr++
symbolslistbox2.cell(1,incr)="XDWU.L":incr++
symbolslistbox2.cell(1,incr)="XDWY.L":incr++
symbolslistbox2.cell(1,incr)="XEOU.L":incr++
symbolslistbox2.cell(1,incr)="XESC.L":incr++
symbolslistbox2.cell(1,incr)="XESX.L":incr++
symbolslistbox2.cell(1,incr)="XEUM.L":incr++
symbolslistbox2.cell(1,incr)="XFFE.L":incr++
symbolslistbox2.cell(1,incr)="XFRM.L":incr++
symbolslistbox2.cell(1,incr)="XFVT.L":incr++
symbolslistbox2.cell(1,incr)="XG7S.L":incr++
symbolslistbox2.cell(1,incr)="XG7U.L":incr++
symbolslistbox2.cell(1,incr)="XGDD.L":incr++
symbolslistbox2.cell(1,incr)="XGID.L":incr++
symbolslistbox2.cell(1,incr)="XGIG.L":incr++
symbolslistbox2.cell(1,incr)="XGIU.L":incr++
symbolslistbox2.cell(1,incr)="XGLD.L":incr++
symbolslistbox2.cell(1,incr)="XGLE.L":incr++
symbolslistbox2.cell(1,incr)="XGLF.L":incr++
symbolslistbox2.cell(1,incr)="XGLS.L":incr++
symbolslistbox2.cell(1,incr)="XGSD.L":incr++
symbolslistbox2.cell(1,incr)="XGSG.L":incr++
symbolslistbox2.cell(1,incr)="XGSI.L":incr++
symbolslistbox2.cell(1,incr)="XHYG.L":incr++
symbolslistbox2.cell(1,incr)="XIDD.L":incr++
symbolslistbox2.cell(1,incr)="XKS2.L":incr++
symbolslistbox2.cell(1,incr)="XKSD.L":incr++
symbolslistbox2.cell(1,incr)="XLBP.L":incr++
symbolslistbox2.cell(1,incr)="XLBS.L":incr++
symbolslistbox2.cell(1,incr)="XLCP.L":incr++
symbolslistbox2.cell(1,incr)="XLCS.L":incr++
symbolslistbox2.cell(1,incr)="XLDX.L":incr++
symbolslistbox2.cell(1,incr)="XLEP.L":incr++
symbolslistbox2.cell(1,incr)="XLES.L":incr++
symbolslistbox2.cell(1,incr)="XLFQ.L":incr++
symbolslistbox2.cell(1,incr)="XLFS.L":incr++
symbolslistbox2.cell(1,incr)="XLIP.L":incr++
symbolslistbox2.cell(1,incr)="XLIS.L":incr++
symbolslistbox2.cell(1,incr)="XLKQ.L":incr++
symbolslistbox2.cell(1,incr)="XLKS.L":incr++
symbolslistbox2.cell(1,incr)="XLM.L":incr++
symbolslistbox2.cell(1,incr)="XLPE.L":incr++
symbolslistbox2.cell(1,incr)="XLPP.L":incr++
symbolslistbox2.cell(1,incr)="XLPS.L":incr++
symbolslistbox2.cell(1,incr)="XLUP.L":incr++
symbolslistbox2.cell(1,incr)="XLUS.L":incr++
symbolslistbox2.cell(1,incr)="XLVP.L":incr++
symbolslistbox2.cell(1,incr)="XLVS.L":incr++
symbolslistbox2.cell(1,incr)="XLYP.L":incr++
symbolslistbox2.cell(1,incr)="XLYS.L":incr++
symbolslistbox2.cell(1,incr)="XMAD.L":incr++
symbolslistbox2.cell(1,incr)="XMAF.L":incr++
symbolslistbox2.cell(1,incr)="XMAS.L":incr++
symbolslistbox2.cell(1,incr)="XMAW.L":incr++
symbolslistbox2.cell(1,incr)="XMBD.L":incr++
symbolslistbox2.cell(1,incr)="XMBR.L":incr++
symbolslistbox2.cell(1,incr)="XMCX.L":incr++
symbolslistbox2.cell(1,incr)="XMED.L":incr++
symbolslistbox2.cell(1,incr)="XMEM.L":incr++
symbolslistbox2.cell(1,incr)="XMES.L":incr++
symbolslistbox2.cell(1,incr)="XMEU.L":incr++
symbolslistbox2.cell(1,incr)="XMEX.L":incr++
symbolslistbox2.cell(1,incr)="XMID.L":incr++
symbolslistbox2.cell(1,incr)="XMJD.L":incr++
symbolslistbox2.cell(1,incr)="XMJG.L":incr++
symbolslistbox2.cell(1,incr)="XMJP.L":incr++
symbolslistbox2.cell(1,incr)="XMLA.L":incr++
symbolslistbox2.cell(1,incr)="XMLD.L":incr++
symbolslistbox2.cell(1,incr)="XMMD.L":incr++
symbolslistbox2.cell(1,incr)="XMME.L":incr++
symbolslistbox2.cell(1,incr)="XMMS.L":incr++
symbolslistbox2.cell(1,incr)="XMRC.L":incr++
symbolslistbox2.cell(1,incr)="XMRD.L":incr++
symbolslistbox2.cell(1,incr)="XMTD.L":incr++
symbolslistbox2.cell(1,incr)="XMTW.L":incr++
symbolslistbox2.cell(1,incr)="XMUD.L":incr++
symbolslistbox2.cell(1,incr)="XMUJ.L":incr++
symbolslistbox2.cell(1,incr)="XMUS.L":incr++
symbolslistbox2.cell(1,incr)="XMVU.L":incr++
symbolslistbox2.cell(1,incr)="XMWD.L":incr++
symbolslistbox2.cell(1,incr)="XMXD.L":incr++
symbolslistbox2.cell(1,incr)="XNID.L":incr++
symbolslistbox2.cell(1,incr)="XNIF.L":incr++
symbolslistbox2.cell(1,incr)="XPAL.L":incr++
symbolslistbox2.cell(1,incr)="XPD.L":incr++
symbolslistbox2.cell(1,incr)="XPHG.L":incr++
symbolslistbox2.cell(1,incr)="XPHI.L":incr++
symbolslistbox2.cell(1,incr)="XPLA.L":incr++
symbolslistbox2.cell(1,incr)="XPP.L":incr++
symbolslistbox2.cell(1,incr)="XPS.L":incr++
symbolslistbox2.cell(1,incr)="XPXD.L":incr++
symbolslistbox2.cell(1,incr)="XPXJ.L":incr++
symbolslistbox2.cell(1,incr)="XQUA.L":incr++
symbolslistbox2.cell(1,incr)="XRES.L":incr++
symbolslistbox2.cell(1,incr)="XRH0.L":incr++
symbolslistbox2.cell(1,incr)="XRMU.L":incr++
symbolslistbox2.cell(1,incr)="XRSG.L":incr++
symbolslistbox2.cell(1,incr)="XRSS.L":incr++
symbolslistbox2.cell(1,incr)="XRSU.L":incr++
symbolslistbox2.cell(1,incr)="XS2D.L":incr++
symbolslistbox2.cell(1,incr)="XS3R.L":incr++
symbolslistbox2.cell(1,incr)="XS6R.L":incr++
symbolslistbox2.cell(1,incr)="XS7R.L":incr++
symbolslistbox2.cell(1,incr)="XS8R.L":incr++
symbolslistbox2.cell(1,incr)="XSCS.L":incr++
symbolslistbox2.cell(1,incr)="XSD2.L":incr++
symbolslistbox2.cell(1,incr)="XSDR.L":incr++
symbolslistbox2.cell(1,incr)="XSDX.L":incr++
symbolslistbox2.cell(1,incr)="XSEN.L":incr++
symbolslistbox2.cell(1,incr)="XSER.L":incr++
symbolslistbox2.cell(1,incr)="XSFD.L":incr++
symbolslistbox2.cell(1,incr)="XSFN.L":incr++
symbolslistbox2.cell(1,incr)="XSFR.L":incr++
symbolslistbox2.cell(1,incr)="XSG.L":incr++
symbolslistbox2.cell(1,incr)="XSGI.L":incr++
symbolslistbox2.cell(1,incr)="XSHC.L":incr++
symbolslistbox2.cell(1,incr)="XSIL.L":incr++
symbolslistbox2.cell(1,incr)="XSKR.L":incr++
symbolslistbox2.cell(1,incr)="XSNR.L":incr++
symbolslistbox2.cell(1,incr)="XSPD.L":incr++
symbolslistbox2.cell(1,incr)="XSPR.L":incr++
symbolslistbox2.cell(1,incr)="XSPS.L":incr++
symbolslistbox2.cell(1,incr)="XSPU.L":incr++
symbolslistbox2.cell(1,incr)="XSPX.L":incr++
symbolslistbox2.cell(1,incr)="XSSX.L":incr++
symbolslistbox2.cell(1,incr)="XSTR.L"

defint ukstocksincr=incr

    ' 4237 London stocks incr 7983 - 12219
    ' incr=12219
    
    'showmessage str$(incr)
        
   incr++
   
   
   'Frankfurt
   
'symbolslistbox2.cell(1,incr)="00D.F":incr++
'symbolslistbox2.cell(1,incr)="00XJ.F":incr++
'symbolslistbox2.cell(1,incr)="00XK.F":incr++
'symbolslistbox2.cell(1,incr)="00XQ.F":incr++
symbolslistbox2.cell(1,incr)="013A.F":incr++
symbolslistbox2.cell(1,incr)="016.F":incr++
symbolslistbox2.cell(1,incr)="01H.F":incr++
symbolslistbox2.cell(1,incr)="01K.F":incr++
symbolslistbox2.cell(1,incr)="01T.F":incr++
symbolslistbox2.cell(1,incr)="024.F":incr++
symbolslistbox2.cell(1,incr)="02G.F":incr++
symbolslistbox2.cell(1,incr)="02M.F":incr++
symbolslistbox2.cell(1,incr)="02P.F":incr++
'symbolslistbox2.cell(1,incr)="02X.F":incr++
symbolslistbox2.cell(1,incr)="02Y.F":incr++
symbolslistbox2.cell(1,incr)="02Z.F":incr++
symbolslistbox2.cell(1,incr)="04M.F":incr++
'symbolslistbox2.cell(1,incr)="06K1.F":incr++
symbolslistbox2.cell(1,incr)="06MA.F":incr++
symbolslistbox2.cell(1,incr)="06S.F":incr++
symbolslistbox2.cell(1,incr)="074.F":incr++
symbolslistbox2.cell(1,incr)="07C.F":incr++
symbolslistbox2.cell(1,incr)="07E.F":incr++
'symbolslistbox2.cell(1,incr)="07F.F":incr++
symbolslistbox2.cell(1,incr)="07G.F":incr++
symbolslistbox2.cell(1,incr)="07H.F":incr++
symbolslistbox2.cell(1,incr)="07K.F":incr++
symbolslistbox2.cell(1,incr)="07M.F":incr++
symbolslistbox2.cell(1,incr)="08S.F":incr++
symbolslistbox2.cell(1,incr)="08T.F":incr++
symbolslistbox2.cell(1,incr)="096.F":incr++
'symbolslistbox2.cell(1,incr)="0A3.F":incr++
'symbolslistbox2.cell(1,incr)="0ACS.F":incr++
symbolslistbox2.cell(1,incr)="0AL.F":incr++
symbolslistbox2.cell(1,incr)="0AW.F":incr++
'symbolslistbox2.cell(1,incr)="0BD.F":incr++
symbolslistbox2.cell(1,incr)="0BL.F":incr++
symbolslistbox2.cell(1,incr)="0BX.F":incr++
symbolslistbox2.cell(1,incr)="0C2.F":incr++
symbolslistbox2.cell(1,incr)="0C8.F":incr++
symbolslistbox2.cell(1,incr)="0CG.F":incr++
symbolslistbox2.cell(1,incr)="0CL.F":incr++
symbolslistbox2.cell(1,incr)="0CP1.F":incr++
'symbolslistbox2.cell(1,incr)="0CS.F":incr++
symbolslistbox2.cell(1,incr)="0CZ.F":incr++
symbolslistbox2.cell(1,incr)="0DA.F":incr++
symbolslistbox2.cell(1,incr)="0DH.F":incr++
symbolslistbox2.cell(1,incr)="0E6.F":incr++
symbolslistbox2.cell(1,incr)="0ET.F":incr++
symbolslistbox2.cell(1,incr)="0F1.F":incr++
'symbolslistbox2.cell(1,incr)="0FB.F":incr++
symbolslistbox2.cell(1,incr)="0FJ.F":incr++
symbolslistbox2.cell(1,incr)="0FK.F":incr++
symbolslistbox2.cell(1,incr)="0GS.F":incr++
symbolslistbox2.cell(1,incr)="0H2.F":incr++
symbolslistbox2.cell(1,incr)="0H5.F":incr++
symbolslistbox2.cell(1,incr)="0JM.F":incr++
symbolslistbox2.cell(1,incr)="0JR.F":incr++
symbolslistbox2.cell(1,incr)="0K1.F":incr++
symbolslistbox2.cell(1,incr)="0KE.F":incr++
'symbolslistbox2.cell(1,incr)="0KW.F":incr++
symbolslistbox2.cell(1,incr)="0LC.F":incr++
'symbolslistbox2.cell(1,incr)="0LJJ.F":incr++
symbolslistbox2.cell(1,incr)="0LT.F":incr++
symbolslistbox2.cell(1,incr)="0LW.F":incr++
symbolslistbox2.cell(1,incr)="0MO.F":incr++
'symbolslistbox2.cell(1,incr)="0MY.F":incr++
symbolslistbox2.cell(1,incr)="0NG.F":incr++
symbolslistbox2.cell(1,incr)="0NU.F":incr++
symbolslistbox2.cell(1,incr)="0OC.F":incr++
symbolslistbox2.cell(1,incr)="0OE.F":incr++
symbolslistbox2.cell(1,incr)="0OG.F":incr++
symbolslistbox2.cell(1,incr)="0OK.F":incr++
symbolslistbox2.cell(1,incr)="0OM.F":incr++
symbolslistbox2.cell(1,incr)="0P0.F":incr++
symbolslistbox2.cell(1,incr)="0P1A.F":incr++
symbolslistbox2.cell(1,incr)="0P7.F":incr++
symbolslistbox2.cell(1,incr)="0PB.F":incr++
symbolslistbox2.cell(1,incr)="0PE.F":incr++
symbolslistbox2.cell(1,incr)="0PT.F":incr++
symbolslistbox2.cell(1,incr)="0PY.F":incr++
symbolslistbox2.cell(1,incr)="0Q2.F":incr++
symbolslistbox2.cell(1,incr)="0S7.F":incr++
symbolslistbox2.cell(1,incr)="0TA.F":incr++
symbolslistbox2.cell(1,incr)="0TB.F":incr++
symbolslistbox2.cell(1,incr)="0TT.F":incr++
'symbolslistbox2.cell(1,incr)="0TW.F":incr++
symbolslistbox2.cell(1,incr)="0UI.F":incr++
symbolslistbox2.cell(1,incr)="0VF.F":incr++
'symbolslistbox2.cell(1,incr)="0VS.F":incr++
symbolslistbox2.cell(1,incr)="0WH.F":incr++
symbolslistbox2.cell(1,incr)="0WKA.F":incr++
symbolslistbox2.cell(1,incr)="0WP.F":incr++
symbolslistbox2.cell(1,incr)="0XHR.F":incr++
symbolslistbox2.cell(1,incr)="0YC.F":incr++
symbolslistbox2.cell(1,incr)="0YE.F":incr++
symbolslistbox2.cell(1,incr)="0YX.F":incr++
symbolslistbox2.cell(1,incr)="0ZC.F":incr++
symbolslistbox2.cell(1,incr)="0ZD.F":incr++
'symbolslistbox2.cell(1,incr)="0ZE.F":incr++
symbolslistbox2.cell(1,incr)="0ZG.F":incr++
symbolslistbox2.cell(1,incr)="0ZPN.F":incr++
symbolslistbox2.cell(1,incr)="108.F":incr++
symbolslistbox2.cell(1,incr)="10AH.F":incr++
symbolslistbox2.cell(1,incr)="10AI.F":incr++
symbolslistbox2.cell(1,incr)="10AJ.F":incr++
symbolslistbox2.cell(1,incr)="10AK.F":incr++
symbolslistbox2.cell(1,incr)="10AL.F":incr++
symbolslistbox2.cell(1,incr)="10AM.F":incr++
symbolslistbox2.cell(1,incr)="10D.F":incr++
'symbolslistbox2.cell(1,incr)="10E.F":incr++
symbolslistbox2.cell(1,incr)="10J.F":incr++
symbolslistbox2.cell(1,incr)="117.F":incr++
symbolslistbox2.cell(1,incr)="11L1.F":incr++
symbolslistbox2.cell(1,incr)="11N.F":incr++
symbolslistbox2.cell(1,incr)="11T.F":incr++
symbolslistbox2.cell(1,incr)="11V.F":incr++
symbolslistbox2.cell(1,incr)="11W.F":incr++
symbolslistbox2.cell(1,incr)="12A.F":incr++
symbolslistbox2.cell(1,incr)="12F.F":incr++
symbolslistbox2.cell(1,incr)="12J.F":incr++
symbolslistbox2.cell(1,incr)="12P.F":incr++
symbolslistbox2.cell(1,incr)="12V.F":incr++
symbolslistbox2.cell(1,incr)="13B.F":incr++
'symbolslistbox2.cell(1,incr)="13C.F":incr++
symbolslistbox2.cell(1,incr)="13K.F":incr++
symbolslistbox2.cell(1,incr)="13M.F":incr++
symbolslistbox2.cell(1,incr)="13X.F":incr++
symbolslistbox2.cell(1,incr)="14A.F":incr++
symbolslistbox2.cell(1,incr)="14D.F":incr++
symbolslistbox2.cell(1,incr)="14M.F":incr++
symbolslistbox2.cell(1,incr)="14T.F":incr++
symbolslistbox2.cell(1,incr)="15R.F":incr++
'symbolslistbox2.cell(1,incr)="16Q.F":incr++
symbolslistbox2.cell(1,incr)="17E.F":incr++
symbolslistbox2.cell(1,incr)="17F.F":incr++
'symbolslistbox2.cell(1,incr)="17PA.F":incr++
symbolslistbox2.cell(1,incr)="17R.F":incr++
symbolslistbox2.cell(1,incr)="18M0.F":incr++
symbolslistbox2.cell(1,incr)="18M1.F":incr++
symbolslistbox2.cell(1,incr)="18M2.F":incr++
symbolslistbox2.cell(1,incr)="18M3.F":incr++
'symbolslistbox2.cell(1,incr)="18M5.F":incr++
symbolslistbox2.cell(1,incr)="18M6.F":incr++
'symbolslistbox2.cell(1,incr)="18M8.F":incr++
'symbolslistbox2.cell(1,incr)="18MD.F":incr++
symbolslistbox2.cell(1,incr)="18MF.F":incr++
symbolslistbox2.cell(1,incr)="18MG.F":incr++
symbolslistbox2.cell(1,incr)="18MK.F":incr++
symbolslistbox2.cell(1,incr)="18MM.F":incr++
'symbolslistbox2.cell(1,incr)="18MP.F":incr++
symbolslistbox2.cell(1,incr)="18MS.F":incr++
'symbolslistbox2.cell(1,incr)="18MU.F":incr++
symbolslistbox2.cell(1,incr)="18MW.F":incr++
symbolslistbox2.cell(1,incr)="18MX.F":incr++
symbolslistbox2.cell(1,incr)="18MY.F":incr++
symbolslistbox2.cell(1,incr)="18MZ.F":incr++
'symbolslistbox2.cell(1,incr)="18P.F":incr++
symbolslistbox2.cell(1,incr)="19C.F":incr++
symbolslistbox2.cell(1,incr)="19MA.F":incr++
symbolslistbox2.cell(1,incr)="19X.F":incr++
symbolslistbox2.cell(1,incr)="1A7.F":incr++
symbolslistbox2.cell(1,incr)="1A8.F":incr++
symbolslistbox2.cell(1,incr)="1A9.F":incr++
symbolslistbox2.cell(1,incr)="1AF.F":incr++
symbolslistbox2.cell(1,incr)="1B9.F":incr++
symbolslistbox2.cell(1,incr)="1BR1.F":incr++
symbolslistbox2.cell(1,incr)="1BT.F":incr++
symbolslistbox2.cell(1,incr)="1C0.F":incr++
symbolslistbox2.cell(1,incr)="1C9.F":incr++
symbolslistbox2.cell(1,incr)="1CT.F":incr++
symbolslistbox2.cell(1,incr)="1CV.F":incr++
symbolslistbox2.cell(1,incr)="1CY.F":incr++
'symbolslistbox2.cell(1,incr)="1DF.F":incr++
symbolslistbox2.cell(1,incr)="1E6.F":incr++
symbolslistbox2.cell(1,incr)="1ET.F":incr++
symbolslistbox2.cell(1,incr)="1F9.F":incr++
symbolslistbox2.cell(1,incr)="1FA.F":incr++
'symbolslistbox2.cell(1,incr)="1FE.F":incr++
symbolslistbox2.cell(1,incr)="1FG.F":incr++
'symbolslistbox2.cell(1,incr)="1FW.F":incr++
symbolslistbox2.cell(1,incr)="1GL.F":incr++
symbolslistbox2.cell(1,incr)="1GSN.F":incr++
symbolslistbox2.cell(1,incr)="1GT.F":incr++
symbolslistbox2.cell(1,incr)="1GU.F":incr++
symbolslistbox2.cell(1,incr)="1HTA.F":incr++
symbolslistbox2.cell(1,incr)="1HW.F":incr++
symbolslistbox2.cell(1,incr)="1I1.F":incr++
symbolslistbox2.cell(1,incr)="1IC.F":incr++
symbolslistbox2.cell(1,incr)="1ID.F":incr++
symbolslistbox2.cell(1,incr)="1IV.F":incr++
symbolslistbox2.cell(1,incr)="1JB.F":incr++
'symbolslistbox2.cell(1,incr)="1JE.F":incr++
symbolslistbox2.cell(1,incr)="1K3.F":incr++
symbolslistbox2.cell(1,incr)="1KR.F":incr++
symbolslistbox2.cell(1,incr)="1KT.F":incr++
symbolslistbox2.cell(1,incr)="1LG.F":incr++
symbolslistbox2.cell(1,incr)="1LP.F":incr++
'symbolslistbox2.cell(1,incr)="1LX.F":incr++
symbolslistbox2.cell(1,incr)="1MA.F":incr++
'symbolslistbox2.cell(1,incr)="1MOA.F":incr++
symbolslistbox2.cell(1,incr)="1MTA.F":incr++
symbolslistbox2.cell(1,incr)="1MU.F":incr++
symbolslistbox2.cell(1,incr)="1N7.F":incr++
symbolslistbox2.cell(1,incr)="1NC.F":incr++
symbolslistbox2.cell(1,incr)="1NS.F":incr++
'symbolslistbox2.cell(1,incr)="1OL.F":incr++
symbolslistbox2.cell(1,incr)="1ON.F":incr++
symbolslistbox2.cell(1,incr)="1PK.F":incr++
symbolslistbox2.cell(1,incr)="1PM.F":incr++
symbolslistbox2.cell(1,incr)="1PZ.F":incr++
'symbolslistbox2.cell(1,incr)="1R1.F":incr++
symbolslistbox2.cell(1,incr)="1RH.F":incr++
symbolslistbox2.cell(1,incr)="1S6.F":incr++
symbolslistbox2.cell(1,incr)="1SO.F":incr++
symbolslistbox2.cell(1,incr)="1SZ.F":incr++
symbolslistbox2.cell(1,incr)="1T5.F":incr++
symbolslistbox2.cell(1,incr)="1TM.F":incr++
'symbolslistbox2.cell(1,incr)="1TT.F":incr++
symbolslistbox2.cell(1,incr)="1UEN.F":incr++
symbolslistbox2.cell(1,incr)="1VPA.F":incr++
symbolslistbox2.cell(1,incr)="1W3.F":incr++
symbolslistbox2.cell(1,incr)="1WF.F":incr++
symbolslistbox2.cell(1,incr)="1WR.F":incr++
symbolslistbox2.cell(1,incr)="1WT.F":incr++
symbolslistbox2.cell(1,incr)="1XZ.F":incr++
symbolslistbox2.cell(1,incr)="1YD.F":incr++
symbolslistbox2.cell(1,incr)="1ZB.F":incr++
symbolslistbox2.cell(1,incr)="1ZL.F":incr++
'symbolslistbox2.cell(1,incr)="209A.F":incr++
symbolslistbox2.cell(1,incr)="20D.F":incr++
symbolslistbox2.cell(1,incr)="20V.F":incr++
symbolslistbox2.cell(1,incr)="22UA.F":incr++
symbolslistbox2.cell(1,incr)="22Z.F":incr++
symbolslistbox2.cell(1,incr)="23I.F":incr++
'symbolslistbox2.cell(1,incr)="23M.F":incr++
symbolslistbox2.cell(1,incr)="24T.F":incr++
symbolslistbox2.cell(1,incr)="25K.F":incr++
symbolslistbox2.cell(1,incr)="25W.F":incr++
symbolslistbox2.cell(1,incr)="26M.F":incr++
'symbolslistbox2.cell(1,incr)="26N.F":incr++
symbolslistbox2.cell(1,incr)="26P.F":incr++
'symbolslistbox2.cell(1,incr)="279.F":incr++
symbolslistbox2.cell(1,incr)="27E.F":incr++
symbolslistbox2.cell(1,incr)="27J.F":incr++
symbolslistbox2.cell(1,incr)="27R.F":incr++
symbolslistbox2.cell(1,incr)="27W.F":incr++
symbolslistbox2.cell(1,incr)="288.F":incr++
symbolslistbox2.cell(1,incr)="293.F":incr++
symbolslistbox2.cell(1,incr)="29A.F":incr++
'symbolslistbox2.cell(1,incr)="29C.F":incr++
'symbolslistbox2.cell(1,incr)="29R.F":incr++
symbolslistbox2.cell(1,incr)="29T.F":incr++
symbolslistbox2.cell(1,incr)="2AE.F":incr++
symbolslistbox2.cell(1,incr)="2AM.F":incr++
symbolslistbox2.cell(1,incr)="2B5.F":incr++
symbolslistbox2.cell(1,incr)="2B70.F":incr++
symbolslistbox2.cell(1,incr)="2B7F.F":incr++
symbolslistbox2.cell(1,incr)="2BH.F":incr++
'symbolslistbox2.cell(1,incr)="2BL.F":incr++
symbolslistbox2.cell(1,incr)="2BU.F":incr++
symbolslistbox2.cell(1,incr)="2BV.F":incr++
symbolslistbox2.cell(1,incr)="2BZA.F":incr++
symbolslistbox2.cell(1,incr)="2C0.F":incr++
symbolslistbox2.cell(1,incr)="2CB.F":incr++
symbolslistbox2.cell(1,incr)="2CI.F":incr++
symbolslistbox2.cell(1,incr)="2CK.F":incr++
symbolslistbox2.cell(1,incr)="2CP.F":incr++
symbolslistbox2.cell(1,incr)="2CS.F":incr++
symbolslistbox2.cell(1,incr)="2CU.F":incr++
symbolslistbox2.cell(1,incr)="2CV.F":incr++
symbolslistbox2.cell(1,incr)="2CX.F":incr++
'symbolslistbox2.cell(1,incr)="2DB.F":incr++
symbolslistbox2.cell(1,incr)="2DJ.F":incr++
symbolslistbox2.cell(1,incr)="2E5.F":incr++
symbolslistbox2.cell(1,incr)="2ED.F":incr++
symbolslistbox2.cell(1,incr)="2ER.F":incr++
symbolslistbox2.cell(1,incr)="2EV.F":incr++
'symbolslistbox2.cell(1,incr)="2EX.F":incr++
symbolslistbox2.cell(1,incr)="2FU.F":incr++
symbolslistbox2.cell(1,incr)="2G1.F":incr++
symbolslistbox2.cell(1,incr)="2G2.F":incr++
symbolslistbox2.cell(1,incr)="2G6.F":incr++
symbolslistbox2.cell(1,incr)="2GB.F":incr++
'symbolslistbox2.cell(1,incr)="2GE.F":incr++
symbolslistbox2.cell(1,incr)="2GF.F":incr++
symbolslistbox2.cell(1,incr)="2GL.F":incr++
symbolslistbox2.cell(1,incr)="2GT.F":incr++
symbolslistbox2.cell(1,incr)="2HE.F":incr++
symbolslistbox2.cell(1,incr)="2HP.F":incr++
symbolslistbox2.cell(1,incr)="2HX.F":incr++
symbolslistbox2.cell(1,incr)="2I8.F":incr++
symbolslistbox2.cell(1,incr)="2IA.F":incr++
'symbolslistbox2.cell(1,incr)="2IE.F":incr++
symbolslistbox2.cell(1,incr)="2IL.F":incr++
symbolslistbox2.cell(1,incr)="2IS.F":incr++
symbolslistbox2.cell(1,incr)="2JE.F":incr++
symbolslistbox2.cell(1,incr)="2KD.F":incr++
symbolslistbox2.cell(1,incr)="2KE.F":incr++
symbolslistbox2.cell(1,incr)="2KT.F":incr++
symbolslistbox2.cell(1,incr)="2L9.F":incr++
symbolslistbox2.cell(1,incr)="2M6.F":incr++
symbolslistbox2.cell(1,incr)="2MD.F":incr++
'symbolslistbox2.cell(1,incr)="2MN.F":incr++
symbolslistbox2.cell(1,incr)="2NH.F":incr++
symbolslistbox2.cell(1,incr)="2NN.F":incr++
symbolslistbox2.cell(1,incr)="2NR.F":incr++
symbolslistbox2.cell(1,incr)="2OB.F":incr++
'symbolslistbox2.cell(1,incr)="2OD.F":incr++
symbolslistbox2.cell(1,incr)="2ON.F":incr++
symbolslistbox2.cell(1,incr)="2PN.F":incr++
symbolslistbox2.cell(1,incr)="2PO.F":incr++
symbolslistbox2.cell(1,incr)="2Q0.F":incr++
symbolslistbox2.cell(1,incr)="2QO.F":incr++
symbolslistbox2.cell(1,incr)="2R8.F":incr++
'symbolslistbox2.cell(1,incr)="2RD.F":incr++
symbolslistbox2.cell(1,incr)="2RF.F":incr++
symbolslistbox2.cell(1,incr)="2RM.F":incr++
symbolslistbox2.cell(1,incr)="2RW.F":incr++
symbolslistbox2.cell(1,incr)="2SI.F":incr++
'symbolslistbox2.cell(1,incr)="2TR.F":incr++
symbolslistbox2.cell(1,incr)="2TS.F":incr++
symbolslistbox2.cell(1,incr)="2TY.F":incr++
symbolslistbox2.cell(1,incr)="2UA.F":incr++
symbolslistbox2.cell(1,incr)="2V8.F":incr++
symbolslistbox2.cell(1,incr)="2VS.F":incr++
symbolslistbox2.cell(1,incr)="2VT.F":incr++
symbolslistbox2.cell(1,incr)="2X1.F":incr++
symbolslistbox2.cell(1,incr)="2XA.F":incr++
symbolslistbox2.cell(1,incr)="2XI.F":incr++
symbolslistbox2.cell(1,incr)="2XT.F":incr++
symbolslistbox2.cell(1,incr)="2Y7.F":incr++
symbolslistbox2.cell(1,incr)="2ZU.F":incr++
'symbolslistbox2.cell(1,incr)="300.F":incr++
symbolslistbox2.cell(1,incr)="307.F":incr++
'symbolslistbox2.cell(1,incr)="30C.F":incr++
symbolslistbox2.cell(1,incr)="30E.F":incr++
symbolslistbox2.cell(1,incr)="30M.F":incr++
symbolslistbox2.cell(1,incr)="30T.F":incr++
symbolslistbox2.cell(1,incr)="31E.F":incr++
symbolslistbox2.cell(1,incr)="31S.F":incr++
'symbolslistbox2.cell(1,incr)="31T.F":incr++
symbolslistbox2.cell(1,incr)="31V.F":incr++
symbolslistbox2.cell(1,incr)="31WN.F":incr++
symbolslistbox2.cell(1,incr)="32A.F":incr++
symbolslistbox2.cell(1,incr)="32L.F":incr++
symbolslistbox2.cell(1,incr)="32N.F":incr++
symbolslistbox2.cell(1,incr)="32P.F":incr++
'symbolslistbox2.cell(1,incr)="32S.F":incr++
symbolslistbox2.cell(1,incr)="32U.F":incr++
symbolslistbox2.cell(1,incr)="337.F":incr++
symbolslistbox2.cell(1,incr)="33B.F":incr++
symbolslistbox2.cell(1,incr)="33E.F":incr++
symbolslistbox2.cell(1,incr)="33L.F":incr++
symbolslistbox2.cell(1,incr)="33X1.F":incr++
symbolslistbox2.cell(1,incr)="34D.F":incr++
'symbolslistbox2.cell(1,incr)="34S.F":incr++
symbolslistbox2.cell(1,incr)="34T1.F":incr++
symbolslistbox2.cell(1,incr)="34U.F":incr++
symbolslistbox2.cell(1,incr)="354.F":incr++
symbolslistbox2.cell(1,incr)="35E.F":incr++
symbolslistbox2.cell(1,incr)="35G.F":incr++
symbolslistbox2.cell(1,incr)="35OB.F":incr++
symbolslistbox2.cell(1,incr)="35S.F":incr++
symbolslistbox2.cell(1,incr)="35Z.F":incr++
symbolslistbox2.cell(1,incr)="36BZ.F":incr++
symbolslistbox2.cell(1,incr)="36L.F":incr++
'symbolslistbox2.cell(1,incr)="36N.F":incr++
'symbolslistbox2.cell(1,incr)="36Y.F":incr++
symbolslistbox2.cell(1,incr)="37B.F":incr++
symbolslistbox2.cell(1,incr)="37C.F":incr++
symbolslistbox2.cell(1,incr)="37M.F":incr++
symbolslistbox2.cell(1,incr)="38A.F":incr++
symbolslistbox2.cell(1,incr)="38D.F":incr++
symbolslistbox2.cell(1,incr)="39B.F":incr++
symbolslistbox2.cell(1,incr)="39EA.F":incr++
symbolslistbox2.cell(1,incr)="39G.F":incr++
symbolslistbox2.cell(1,incr)="39K.F":incr++
symbolslistbox2.cell(1,incr)="39M.F":incr++
symbolslistbox2.cell(1,incr)="39O1.F":incr++
symbolslistbox2.cell(1,incr)="39Q.F":incr++
symbolslistbox2.cell(1,incr)="3A01.F":incr++
symbolslistbox2.cell(1,incr)="3A1.F":incr++
symbolslistbox2.cell(1,incr)="3A2.F":incr++
symbolslistbox2.cell(1,incr)="3AC.F":incr++
symbolslistbox2.cell(1,incr)="3AI.F":incr++
symbolslistbox2.cell(1,incr)="3AR.F":incr++
symbolslistbox2.cell(1,incr)="3B4.F":incr++
symbolslistbox2.cell(1,incr)="3B6A.F":incr++
symbolslistbox2.cell(1,incr)="3B8.F":incr++
symbolslistbox2.cell(1,incr)="3BA.F":incr++
symbolslistbox2.cell(1,incr)="3BD.F":incr++
symbolslistbox2.cell(1,incr)="3BX.F":incr++
symbolslistbox2.cell(1,incr)="3C8.F":incr++
symbolslistbox2.cell(1,incr)="3CC.F":incr++
'symbolslistbox2.cell(1,incr)="3CF.F":incr++
symbolslistbox2.cell(1,incr)="3CG.F":incr++
'symbolslistbox2.cell(1,incr)="3CL.F":incr++
symbolslistbox2.cell(1,incr)="3CP.F":incr++
symbolslistbox2.cell(1,incr)="3DS.F":incr++
'symbolslistbox2.cell(1,incr)="3DV.F":incr++
symbolslistbox2.cell(1,incr)="3EQ.F":incr++
symbolslistbox2.cell(1,incr)="3EV.F":incr++
symbolslistbox2.cell(1,incr)="3F5.F":incr++
symbolslistbox2.cell(1,incr)="3F9.F":incr++
symbolslistbox2.cell(1,incr)="3FB.F":incr++
symbolslistbox2.cell(1,incr)="3FH.F":incr++
symbolslistbox2.cell(1,incr)="3FO.F":incr++
'symbolslistbox2.cell(1,incr)="3FX.F":incr++
symbolslistbox2.cell(1,incr)="3G6.F":incr++
symbolslistbox2.cell(1,incr)="3GD.F":incr++
symbolslistbox2.cell(1,incr)="3GH.F":incr++
'symbolslistbox2.cell(1,incr)="3GM.F":incr++
symbolslistbox2.cell(1,incr)="3GS.F":incr++
symbolslistbox2.cell(1,incr)="3GU.F":incr++
symbolslistbox2.cell(1,incr)="3GY.F":incr++
symbolslistbox2.cell(1,incr)="3H3.F":incr++
symbolslistbox2.cell(1,incr)="3H9.F":incr++
'symbolslistbox2.cell(1,incr)="3HA.F":incr++
symbolslistbox2.cell(1,incr)="3HB.F":incr++
symbolslistbox2.cell(1,incr)="3HE.F":incr++
symbolslistbox2.cell(1,incr)="3HM.F":incr++
symbolslistbox2.cell(1,incr)="3I8.F":incr++
symbolslistbox2.cell(1,incr)="3IB.F":incr++
symbolslistbox2.cell(1,incr)="3IE1.F":incr++
symbolslistbox2.cell(1,incr)="3IM.F":incr++
symbolslistbox2.cell(1,incr)="3IR.F":incr++
symbolslistbox2.cell(1,incr)="3IT.F":incr++
symbolslistbox2.cell(1,incr)="3IW.F":incr++
symbolslistbox2.cell(1,incr)="3IX.F":incr++
symbolslistbox2.cell(1,incr)="3K1.F":incr++
'symbolslistbox2.cell(1,incr)="3KA.F":incr++
symbolslistbox2.cell(1,incr)="3KC.F":incr++
'symbolslistbox2.cell(1,incr)="3KH.F":incr++
symbolslistbox2.cell(1,incr)="3L7A.F":incr++
symbolslistbox2.cell(1,incr)="3LN.F":incr++
symbolslistbox2.cell(1,incr)="3LQ.F":incr++
symbolslistbox2.cell(1,incr)="3M0.F":incr++
symbolslistbox2.cell(1,incr)="3M4.F":incr++
symbolslistbox2.cell(1,incr)="3MG.F":incr++
symbolslistbox2.cell(1,incr)="3MI.F":incr++
symbolslistbox2.cell(1,incr)="3MJ.F":incr++
symbolslistbox2.cell(1,incr)="3ML.F":incr++
symbolslistbox2.cell(1,incr)="3MU.F":incr++
symbolslistbox2.cell(1,incr)="3MW.F":incr++
symbolslistbox2.cell(1,incr)="3N8.F":incr++
symbolslistbox2.cell(1,incr)="3NA.F":incr++
symbolslistbox2.cell(1,incr)="3ND.F":incr++
symbolslistbox2.cell(1,incr)="3NQ.F":incr++
symbolslistbox2.cell(1,incr)="3NR.F":incr++
'symbolslistbox2.cell(1,incr)="3O1.F":incr++
symbolslistbox2.cell(1,incr)="3O8.F":incr++
symbolslistbox2.cell(1,incr)="3OV.F":incr++
symbolslistbox2.cell(1,incr)="3OY1.F":incr++
symbolslistbox2.cell(1,incr)="3P7.F":incr++
symbolslistbox2.cell(1,incr)="3PL.F":incr++
'symbolslistbox2.cell(1,incr)="3PNA.F":incr++
symbolslistbox2.cell(1,incr)="3PS.F":incr++
'symbolslistbox2.cell(1,incr)="3QO.F":incr++
symbolslistbox2.cell(1,incr)="3R7.F":incr++
symbolslistbox2.cell(1,incr)="3RB.F":incr++
symbolslistbox2.cell(1,incr)="3RCA.F":incr++
symbolslistbox2.cell(1,incr)="3RE.F":incr++
symbolslistbox2.cell(1,incr)="3RR.F":incr++
symbolslistbox2.cell(1,incr)="3SD.F":incr++
symbolslistbox2.cell(1,incr)="3SH.F":incr++
symbolslistbox2.cell(1,incr)="3SM.F":incr++
symbolslistbox2.cell(1,incr)="3SUR.F":incr++
symbolslistbox2.cell(1,incr)="3SY.F":incr++
symbolslistbox2.cell(1,incr)="3T2.F":incr++
symbolslistbox2.cell(1,incr)="3T4.F":incr++
symbolslistbox2.cell(1,incr)="3T7.F":incr++
symbolslistbox2.cell(1,incr)="3T8.F":incr++
'symbolslistbox2.cell(1,incr)="3TG.F":incr++
symbolslistbox2.cell(1,incr)="3TY.F":incr++
symbolslistbox2.cell(1,incr)="3U6.F":incr++
symbolslistbox2.cell(1,incr)="3UB.F":incr++
symbolslistbox2.cell(1,incr)="3V64.F":incr++
'symbolslistbox2.cell(1,incr)="3VD.F":incr++
'symbolslistbox2.cell(1,incr)="3WI.F":incr++
'symbolslistbox2.cell(1,incr)="3XN.F":incr++
'symbolslistbox2.cell(1,incr)="3XP.F":incr++
symbolslistbox2.cell(1,incr)="3XRA.F":incr++
symbolslistbox2.cell(1,incr)="3XS.F":incr++
'symbolslistbox2.cell(1,incr)="3YM.F":incr++
symbolslistbox2.cell(1,incr)="3ZS.F":incr++
'symbolslistbox2.cell(1,incr)="41A.F":incr++
symbolslistbox2.cell(1,incr)="41B.F":incr++
symbolslistbox2.cell(1,incr)="41L.F":incr++
symbolslistbox2.cell(1,incr)="41N.F":incr++
'symbolslistbox2.cell(1,incr)="41S.F":incr++
'symbolslistbox2.cell(1,incr)="41Z.F":incr++
'symbolslistbox2.cell(1,incr)="42BA.F":incr++
symbolslistbox2.cell(1,incr)="42E.F":incr++
symbolslistbox2.cell(1,incr)="42W.F":incr++
symbolslistbox2.cell(1,incr)="433.F":incr++
symbolslistbox2.cell(1,incr)="43D.F":incr++
'symbolslistbox2.cell(1,incr)="43M.F":incr++
symbolslistbox2.cell(1,incr)="44B.F":incr++
'symbolslistbox2.cell(1,incr)="44C.F":incr++
symbolslistbox2.cell(1,incr)="44H.F":incr++
'symbolslistbox2.cell(1,incr)="44M.F":incr++
symbolslistbox2.cell(1,incr)="44T.F":incr++
symbolslistbox2.cell(1,incr)="45A.F":incr++
symbolslistbox2.cell(1,incr)="45C.F":incr++
symbolslistbox2.cell(1,incr)="45E.F":incr++
symbolslistbox2.cell(1,incr)="45P.F":incr++
symbolslistbox2.cell(1,incr)="45S.F":incr++
'symbolslistbox2.cell(1,incr)="46C1.F":incr++
symbolslistbox2.cell(1,incr)="46H.F":incr++
symbolslistbox2.cell(1,incr)="46P1.F":incr++
symbolslistbox2.cell(1,incr)="472.F":incr++
symbolslistbox2.cell(1,incr)="47L.F":incr++
symbolslistbox2.cell(1,incr)="47M.F":incr++
symbolslistbox2.cell(1,incr)="47VS.F":incr++
symbolslistbox2.cell(1,incr)="48CA.F":incr++
symbolslistbox2.cell(1,incr)="48D.F":incr++
symbolslistbox2.cell(1,incr)="49BA.F":incr++
symbolslistbox2.cell(1,incr)="49P.F":incr++
symbolslistbox2.cell(1,incr)="49S.F":incr++
symbolslistbox2.cell(1,incr)="4A0.F":incr++
symbolslistbox2.cell(1,incr)="4A5.F":incr++
symbolslistbox2.cell(1,incr)="4A91.F":incr++
symbolslistbox2.cell(1,incr)="4AB.F":incr++
symbolslistbox2.cell(1,incr)="4AH1.F":incr++
symbolslistbox2.cell(1,incr)="4AI.F":incr++
symbolslistbox2.cell(1,incr)="4AJ.F":incr++
symbolslistbox2.cell(1,incr)="4AM.F":incr++
symbolslistbox2.cell(1,incr)="4AP.F":incr++
symbolslistbox2.cell(1,incr)="4B3.F":incr++
symbolslistbox2.cell(1,incr)="4B4.F":incr++
symbolslistbox2.cell(1,incr)="4BE.F":incr++
symbolslistbox2.cell(1,incr)="4BV.F":incr++
symbolslistbox2.cell(1,incr)="4BW.F":incr++
symbolslistbox2.cell(1,incr)="4BY.F":incr++
symbolslistbox2.cell(1,incr)="4C1.F":incr++
symbolslistbox2.cell(1,incr)="4C6.F":incr++
symbolslistbox2.cell(1,incr)="4C9.F":incr++
symbolslistbox2.cell(1,incr)="4CC.F":incr++
'symbolslistbox2.cell(1,incr)="4CV.F":incr++
symbolslistbox2.cell(1,incr)="4D3.F":incr++
symbolslistbox2.cell(1,incr)="4D6.F":incr++
symbolslistbox2.cell(1,incr)="4D7.F":incr++
symbolslistbox2.cell(1,incr)="4DH.F":incr++
symbolslistbox2.cell(1,incr)="4DS.F":incr++
symbolslistbox2.cell(1,incr)="4EG.F":incr++
'symbolslistbox2.cell(1,incr)="4EU.F":incr++
symbolslistbox2.cell(1,incr)="4EV.F":incr++
'symbolslistbox2.cell(1,incr)="4EY.F":incr++
symbolslistbox2.cell(1,incr)="4F1.F":incr++
symbolslistbox2.cell(1,incr)="4FB.F":incr++
symbolslistbox2.cell(1,incr)="4FF.F":incr++
symbolslistbox2.cell(1,incr)="4FK.F":incr++
symbolslistbox2.cell(1,incr)="4FN.F":incr++
symbolslistbox2.cell(1,incr)="4FO.F":incr++
symbolslistbox2.cell(1,incr)="4FP.F":incr++
symbolslistbox2.cell(1,incr)="4FU.F":incr++
symbolslistbox2.cell(1,incr)="4FV.F":incr++
symbolslistbox2.cell(1,incr)="4FX.F":incr++
symbolslistbox2.cell(1,incr)="4FY.F":incr++
symbolslistbox2.cell(1,incr)="4FZ.F":incr++
symbolslistbox2.cell(1,incr)="4G3A.F":incr++
symbolslistbox2.cell(1,incr)="4G8.F":incr++
symbolslistbox2.cell(1,incr)="4GC.F":incr++
symbolslistbox2.cell(1,incr)="4GE.F":incr++
symbolslistbox2.cell(1,incr)="4GF.F":incr++
symbolslistbox2.cell(1,incr)="4GJ.F":incr++
symbolslistbox2.cell(1,incr)="4GK.F":incr++
symbolslistbox2.cell(1,incr)="4GM.F":incr++
symbolslistbox2.cell(1,incr)="4GO.F":incr++
'symbolslistbox2.cell(1,incr)="4GS.F":incr++
symbolslistbox2.cell(1,incr)="4H5.F":incr++
symbolslistbox2.cell(1,incr)="4H6.F":incr++
symbolslistbox2.cell(1,incr)="4HB.F":incr++
symbolslistbox2.cell(1,incr)="4HL.F":incr++
symbolslistbox2.cell(1,incr)="4HM.F":incr++
'symbolslistbox2.cell(1,incr)="4HN.F":incr++
symbolslistbox2.cell(1,incr)="4HO.F":incr++
symbolslistbox2.cell(1,incr)="4HP.F":incr++
symbolslistbox2.cell(1,incr)="4HQ.F":incr++
symbolslistbox2.cell(1,incr)="4HW.F":incr++
symbolslistbox2.cell(1,incr)="4I1.F":incr++
symbolslistbox2.cell(1,incr)="4IT.F":incr++
symbolslistbox2.cell(1,incr)="4J2.F":incr++
symbolslistbox2.cell(1,incr)="4JF.F":incr++
symbolslistbox2.cell(1,incr)="4LJ.F":incr++
symbolslistbox2.cell(1,incr)="4LS.F":incr++
'symbolslistbox2.cell(1,incr)="4LT.F":incr++
symbolslistbox2.cell(1,incr)="4LZ.F":incr++
symbolslistbox2.cell(1,incr)="4M2B.F":incr++
symbolslistbox2.cell(1,incr)="4M4.F":incr++
symbolslistbox2.cell(1,incr)="4M7A.F":incr++
symbolslistbox2.cell(1,incr)="4MD.F":incr++
symbolslistbox2.cell(1,incr)="4MFA.F":incr++
symbolslistbox2.cell(1,incr)="4MGN.F":incr++
symbolslistbox2.cell(1,incr)="4MI.F":incr++
'symbolslistbox2.cell(1,incr)="4ML.F":incr++
symbolslistbox2.cell(1,incr)="4NO.F":incr++
symbolslistbox2.cell(1,incr)="4OJ.F":incr++
'symbolslistbox2.cell(1,incr)="4OK.F":incr++
symbolslistbox2.cell(1,incr)="4OV.F":incr++
'symbolslistbox2.cell(1,incr)="4P1.F":incr++
'symbolslistbox2.cell(1,incr)="4P7.F":incr++
'symbolslistbox2.cell(1,incr)="4P9.F":incr++
symbolslistbox2.cell(1,incr)="4PC.F":incr++
'symbolslistbox2.cell(1,incr)="4PD.F":incr++
symbolslistbox2.cell(1,incr)="4Q2.F":incr++
symbolslistbox2.cell(1,incr)="4Q3.F":incr++
symbolslistbox2.cell(1,incr)="4QI.F":incr++
symbolslistbox2.cell(1,incr)="4QK.F":incr++
symbolslistbox2.cell(1,incr)="4QM.F":incr++
symbolslistbox2.cell(1,incr)="4QP.F":incr++
symbolslistbox2.cell(1,incr)="4QQN.F":incr++
symbolslistbox2.cell(1,incr)="4QT1.F":incr++
'symbolslistbox2.cell(1,incr)="4QX.F":incr++
'symbolslistbox2.cell(1,incr)="4R5.F":incr++
symbolslistbox2.cell(1,incr)="4RE.F":incr++
symbolslistbox2.cell(1,incr)="4RG.F":incr++
symbolslistbox2.cell(1,incr)="4RH.F":incr++
'symbolslistbox2.cell(1,incr)="4RX.F":incr++
symbolslistbox2.cell(1,incr)="4S0.F":incr++
symbolslistbox2.cell(1,incr)="4SK.F":incr++
symbolslistbox2.cell(1,incr)="4SL.F":incr++
symbolslistbox2.cell(1,incr)="4SM.F":incr++
'symbolslistbox2.cell(1,incr)="4SU.F":incr++
'symbolslistbox2.cell(1,incr)="4TI.F":incr++
symbolslistbox2.cell(1,incr)="4TL.F":incr++
symbolslistbox2.cell(1,incr)="4V1.F":incr++
'symbolslistbox2.cell(1,incr)="4V2.F":incr++
symbolslistbox2.cell(1,incr)="4VL.F":incr++
symbolslistbox2.cell(1,incr)="4W8.F":incr++
symbolslistbox2.cell(1,incr)="4XB.F":incr++
symbolslistbox2.cell(1,incr)="4XI.F":incr++
symbolslistbox2.cell(1,incr)="50N.F":incr++
symbolslistbox2.cell(1,incr)="51A.F":incr++
symbolslistbox2.cell(1,incr)="51C.F":incr++
symbolslistbox2.cell(1,incr)="526.F":incr++
'symbolslistbox2.cell(1,incr)="52S.F":incr++
'symbolslistbox2.cell(1,incr)="540B.F":incr++
'symbolslistbox2.cell(1,incr)="540C.F":incr++
'symbolslistbox2.cell(1,incr)="540D.F":incr++
symbolslistbox2.cell(1,incr)="540G.F":incr++
symbolslistbox2.cell(1,incr)="540H.F":incr++
'symbolslistbox2.cell(1,incr)="540P.F":incr++
'symbolslistbox2.cell(1,incr)="540Q.F":incr++
symbolslistbox2.cell(1,incr)="54E.F":incr++
symbolslistbox2.cell(1,incr)="54F.F":incr++
'symbolslistbox2.cell(1,incr)="54JN.F":incr++
symbolslistbox2.cell(1,incr)="54M.F":incr++
'symbolslistbox2.cell(1,incr)="54R.F":incr++
symbolslistbox2.cell(1,incr)="55G.F":incr++
symbolslistbox2.cell(1,incr)="56M.F":incr++
symbolslistbox2.cell(1,incr)="56S1.F":incr++
symbolslistbox2.cell(1,incr)="57N.F":incr++
symbolslistbox2.cell(1,incr)="57P.F":incr++
'symbolslistbox2.cell(1,incr)="58G.F":incr++
'symbolslistbox2.cell(1,incr)="58I.F":incr++
symbolslistbox2.cell(1,incr)="58U.F":incr++
symbolslistbox2.cell(1,incr)="599A.F":incr++
symbolslistbox2.cell(1,incr)="59A.F":incr++
symbolslistbox2.cell(1,incr)="59JA.F":incr++
symbolslistbox2.cell(1,incr)="59M.F":incr++
symbolslistbox2.cell(1,incr)="59N.F":incr++
symbolslistbox2.cell(1,incr)="59Q.F":incr++
'symbolslistbox2.cell(1,incr)="59T.F":incr++
symbolslistbox2.cell(1,incr)="5A4.F":incr++
symbolslistbox2.cell(1,incr)="5AA.F":incr++
symbolslistbox2.cell(1,incr)="5AH.F":incr++
symbolslistbox2.cell(1,incr)="5AM.F":incr++
symbolslistbox2.cell(1,incr)="5AO.F":incr++
symbolslistbox2.cell(1,incr)="5AP.F":incr++
symbolslistbox2.cell(1,incr)="5B1.F":incr++
symbolslistbox2.cell(1,incr)="5B9.F":incr++
symbolslistbox2.cell(1,incr)="5BG.F":incr++
symbolslistbox2.cell(1,incr)="5C5.F":incr++
'symbolslistbox2.cell(1,incr)="5CF.F":incr++
'symbolslistbox2.cell(1,incr)="5CS.F":incr++
symbolslistbox2.cell(1,incr)="5CW.F":incr++
symbolslistbox2.cell(1,incr)="5D4.F":incr++
symbolslistbox2.cell(1,incr)="5D8.F":incr++
symbolslistbox2.cell(1,incr)="5E2.F":incr++
symbolslistbox2.cell(1,incr)="5EV.F":incr++
symbolslistbox2.cell(1,incr)="5F9.F":incr++
symbolslistbox2.cell(1,incr)="5G5.F":incr++
symbolslistbox2.cell(1,incr)="5GL.F":incr++
symbolslistbox2.cell(1,incr)="5GN.F":incr++
'symbolslistbox2.cell(1,incr)="5HD.F":incr++
symbolslistbox2.cell(1,incr)="5HEE.F":incr++
'symbolslistbox2.cell(1,incr)="5HG.F":incr++
symbolslistbox2.cell(1,incr)="5JB.F":incr++
symbolslistbox2.cell(1,incr)="5KP.F":incr++
symbolslistbox2.cell(1,incr)="5LA1.F":incr++
symbolslistbox2.cell(1,incr)="5LX.F":incr++
symbolslistbox2.cell(1,incr)="5MIA.F":incr++
'symbolslistbox2.cell(1,incr)="5NAA.F":incr++
symbolslistbox2.cell(1,incr)="5NN.F":incr++
symbolslistbox2.cell(1,incr)="5P1.F":incr++
symbolslistbox2.cell(1,incr)="5PF.F":incr++
'symbolslistbox2.cell(1,incr)="5PM.F":incr++
symbolslistbox2.cell(1,incr)="5PY.F":incr++
symbolslistbox2.cell(1,incr)="5Q8.F":incr++
'symbolslistbox2.cell(1,incr)="5RN.F":incr++
symbolslistbox2.cell(1,incr)="5RZ.F":incr++
'symbolslistbox2.cell(1,incr)="5S2.F":incr++
'symbolslistbox2.cell(1,incr)="5S5.F":incr++
'symbolslistbox2.cell(1,incr)="5SN.F":incr++
symbolslistbox2.cell(1,incr)="5TC.F":incr++
'symbolslistbox2.cell(1,incr)="5TF.F":incr++
symbolslistbox2.cell(1,incr)="5TJ.F":incr++
'symbolslistbox2.cell(1,incr)="5TK.F":incr++
symbolslistbox2.cell(1,incr)="5UI.F":incr++
symbolslistbox2.cell(1,incr)="5VD.F":incr++
symbolslistbox2.cell(1,incr)="5VE.F":incr++
symbolslistbox2.cell(1,incr)="5VO.F":incr++
symbolslistbox2.cell(1,incr)="5WD.F":incr++
symbolslistbox2.cell(1,incr)="5WJ.F":incr++
symbolslistbox2.cell(1,incr)="5X60.F":incr++
'symbolslistbox2.cell(1,incr)="5X61.F":incr++
symbolslistbox2.cell(1,incr)="5X62.F":incr++
'symbolslistbox2.cell(1,incr)="5X63.F":incr++
symbolslistbox2.cell(1,incr)="5XYE.F":incr++
symbolslistbox2.cell(1,incr)="5Z0.F":incr++
symbolslistbox2.cell(1,incr)="5ZM.F":incr++
symbolslistbox2.cell(1,incr)="61P.F":incr++
symbolslistbox2.cell(1,incr)="62M.F":incr++
symbolslistbox2.cell(1,incr)="639.F":incr++
'symbolslistbox2.cell(1,incr)="63C.F":incr++
'symbolslistbox2.cell(1,incr)="66F.F":incr++
symbolslistbox2.cell(1,incr)="68B.F":incr++
symbolslistbox2.cell(1,incr)="68M.F":incr++
symbolslistbox2.cell(1,incr)="6AH.F":incr++
symbolslistbox2.cell(1,incr)="6AQQ.F":incr++
'symbolslistbox2.cell(1,incr)="6AT.F":incr++
'symbolslistbox2.cell(1,incr)="6AW.F":incr++
symbolslistbox2.cell(1,incr)="6AZ.F":incr++
symbolslistbox2.cell(1,incr)="6BA.F":incr++
'symbolslistbox2.cell(1,incr)="6BC.F":incr++
symbolslistbox2.cell(1,incr)="6BF.F":incr++
symbolslistbox2.cell(1,incr)="6CA.F":incr++
symbolslistbox2.cell(1,incr)="6CB.F":incr++
symbolslistbox2.cell(1,incr)="6CF.F":incr++
'symbolslistbox2.cell(1,incr)="6CH.F":incr++
symbolslistbox2.cell(1,incr)="6CI.F":incr++
'symbolslistbox2.cell(1,incr)="6CR.F":incr++
symbolslistbox2.cell(1,incr)="6DA.F":incr++
symbolslistbox2.cell(1,incr)="6DW.F":incr++
symbolslistbox2.cell(1,incr)="6E9.F":incr++
symbolslistbox2.cell(1,incr)="6F1.F":incr++
symbolslistbox2.cell(1,incr)="6F6.F":incr++
symbolslistbox2.cell(1,incr)="6FE.F":incr++
symbolslistbox2.cell(1,incr)="6GC.F":incr++
symbolslistbox2.cell(1,incr)="6GE.F":incr++
symbolslistbox2.cell(1,incr)="6GJ.F":incr++
symbolslistbox2.cell(1,incr)="6HA.F":incr++
'symbolslistbox2.cell(1,incr)="6HS.F":incr++
symbolslistbox2.cell(1,incr)="6HT.F":incr++
symbolslistbox2.cell(1,incr)="6HW.F":incr++
symbolslistbox2.cell(1,incr)="6IC.F":incr++
symbolslistbox2.cell(1,incr)="6IO.F":incr++
symbolslistbox2.cell(1,incr)="6JA.F":incr++
symbolslistbox2.cell(1,incr)="6JK.F":incr++
'symbolslistbox2.cell(1,incr)="6KM.F":incr++
symbolslistbox2.cell(1,incr)="6LA.F":incr++
symbolslistbox2.cell(1,incr)="6ME.F":incr++
symbolslistbox2.cell(1,incr)="6MG.F":incr++
symbolslistbox2.cell(1,incr)="6MK.F":incr++
symbolslistbox2.cell(1,incr)="6MT.F":incr++
symbolslistbox2.cell(1,incr)="6MU.F":incr++
'symbolslistbox2.cell(1,incr)="6MY.F":incr++
symbolslistbox2.cell(1,incr)="6NM.F":incr++
symbolslistbox2.cell(1,incr)="6OM.F":incr++
symbolslistbox2.cell(1,incr)="6P7.F":incr++
symbolslistbox2.cell(1,incr)="6PG.F":incr++
symbolslistbox2.cell(1,incr)="6PM.F":incr++
symbolslistbox2.cell(1,incr)="6PP.F":incr++
symbolslistbox2.cell(1,incr)="6PSA.F":incr++
symbolslistbox2.cell(1,incr)="6PSC.F":incr++
symbolslistbox2.cell(1,incr)="6PSK.F":incr++
symbolslistbox2.cell(1,incr)="6PU.F":incr++
symbolslistbox2.cell(1,incr)="6RC.F":incr++
'symbolslistbox2.cell(1,incr)="6SC.F":incr++
symbolslistbox2.cell(1,incr)="6SS.F":incr++
symbolslistbox2.cell(1,incr)="6T4.F":incr++
symbolslistbox2.cell(1,incr)="6TUW.F":incr++
symbolslistbox2.cell(1,incr)="6WX.F":incr++
symbolslistbox2.cell(1,incr)="6YP1.F":incr++
symbolslistbox2.cell(1,incr)="6ZA.F":incr++
symbolslistbox2.cell(1,incr)="6ZY.F":incr++
symbolslistbox2.cell(1,incr)="702B.F":incr++
'symbolslistbox2.cell(1,incr)="70LA.F":incr++
symbolslistbox2.cell(1,incr)="71BA.F":incr++
symbolslistbox2.cell(1,incr)="71N.F":incr++
symbolslistbox2.cell(1,incr)="72A.F":incr++
symbolslistbox2.cell(1,incr)="72M.F":incr++
symbolslistbox2.cell(1,incr)="72S.F":incr++
symbolslistbox2.cell(1,incr)="73C.F":incr++
symbolslistbox2.cell(1,incr)="75C.F":incr++
symbolslistbox2.cell(1,incr)="76O.F":incr++
'symbolslistbox2.cell(1,incr)="78A.F":incr++
symbolslistbox2.cell(1,incr)="79Q.F":incr++
symbolslistbox2.cell(1,incr)="7A2.F":incr++
symbolslistbox2.cell(1,incr)="7A6.F":incr++
symbolslistbox2.cell(1,incr)="7AA.F":incr++
symbolslistbox2.cell(1,incr)="7AB1.F":incr++
symbolslistbox2.cell(1,incr)="7AG.F":incr++
symbolslistbox2.cell(1,incr)="7B7.F":incr++
symbolslistbox2.cell(1,incr)="7BF.F":incr++
symbolslistbox2.cell(1,incr)="7C8.F":incr++
symbolslistbox2.cell(1,incr)="7CD.F":incr++
symbolslistbox2.cell(1,incr)="7CH.F":incr++
symbolslistbox2.cell(1,incr)="7CT.F":incr++
symbolslistbox2.cell(1,incr)="7DG.F":incr++
symbolslistbox2.cell(1,incr)="7ES1.F":incr++
symbolslistbox2.cell(1,incr)="7EX.F":incr++
symbolslistbox2.cell(1,incr)="7FP.F":incr++
symbolslistbox2.cell(1,incr)="7GB.F":incr++
symbolslistbox2.cell(1,incr)="7GD.F":incr++
symbolslistbox2.cell(1,incr)="7GG.F":incr++
'symbolslistbox2.cell(1,incr)="7GO.F":incr++
symbolslistbox2.cell(1,incr)="7HC.F":incr++
'symbolslistbox2.cell(1,incr)="7HI.F":incr++
symbolslistbox2.cell(1,incr)="7IN.F":incr++
symbolslistbox2.cell(1,incr)="7JH.F":incr++
symbolslistbox2.cell(1,incr)="7KXN.F":incr++
symbolslistbox2.cell(1,incr)="7LI.F":incr++
symbolslistbox2.cell(1,incr)="7M0.F":incr++
symbolslistbox2.cell(1,incr)="7M1.F":incr++
'symbolslistbox2.cell(1,incr)="7MD.F":incr++
symbolslistbox2.cell(1,incr)="7MGC.F":incr++
symbolslistbox2.cell(1,incr)="7MR.F":incr++
'symbolslistbox2.cell(1,incr)="7NR.F":incr++
symbolslistbox2.cell(1,incr)="7NU.F":incr++
symbolslistbox2.cell(1,incr)="7NX.F":incr++
symbolslistbox2.cell(1,incr)="7OT.F":incr++
symbolslistbox2.cell(1,incr)="7PI.F":incr++
symbolslistbox2.cell(1,incr)="7PZ.F":incr++
symbolslistbox2.cell(1,incr)="7RA.F":incr++
symbolslistbox2.cell(1,incr)="7RM.F":incr++
symbolslistbox2.cell(1,incr)="7RY.F":incr++
symbolslistbox2.cell(1,incr)="7S8.F":incr++
symbolslistbox2.cell(1,incr)="7SU.F":incr++
symbolslistbox2.cell(1,incr)="7T4.F":incr++
symbolslistbox2.cell(1,incr)="7TC.F":incr++
symbolslistbox2.cell(1,incr)="7TG.F":incr++
symbolslistbox2.cell(1,incr)="7TO.F":incr++
'symbolslistbox2.cell(1,incr)="7TR.F":incr++
symbolslistbox2.cell(1,incr)="7X3.F":incr++
symbolslistbox2.cell(1,incr)="7YC.F":incr++
symbolslistbox2.cell(1,incr)="81A.F":incr++
symbolslistbox2.cell(1,incr)="81R.F":incr++
symbolslistbox2.cell(1,incr)="82C.F":incr++
symbolslistbox2.cell(1,incr)="82P.F":incr++
symbolslistbox2.cell(1,incr)="83PN.F":incr++
'symbolslistbox2.cell(1,incr)="8520.F":incr++
'symbolslistbox2.cell(1,incr)="8521.F":incr++
'symbolslistbox2.cell(1,incr)="8522.F":incr++
'symbolslistbox2.cell(1,incr)="8523.F":incr++
'symbolslistbox2.cell(1,incr)="8530.F":incr++
symbolslistbox2.cell(1,incr)="85S.F":incr++
symbolslistbox2.cell(1,incr)="86A1.F":incr++
symbolslistbox2.cell(1,incr)="88S1.F":incr++
symbolslistbox2.cell(1,incr)="8A6.F":incr++
'symbolslistbox2.cell(1,incr)="8AG.F":incr++
'symbolslistbox2.cell(1,incr)="8AN.F":incr++
symbolslistbox2.cell(1,incr)="8AP.F":incr++
symbolslistbox2.cell(1,incr)="8BE.F":incr++
symbolslistbox2.cell(1,incr)="8BI.F":incr++
symbolslistbox2.cell(1,incr)="8BU.F":incr++
symbolslistbox2.cell(1,incr)="8C2.F":incr++
symbolslistbox2.cell(1,incr)="8C3.F":incr++
symbolslistbox2.cell(1,incr)="8C9.F":incr++
symbolslistbox2.cell(1,incr)="8CO.F":incr++
symbolslistbox2.cell(1,incr)="8CP.F":incr++
symbolslistbox2.cell(1,incr)="8CR.F":incr++
symbolslistbox2.cell(1,incr)="8CW.F":incr++
symbolslistbox2.cell(1,incr)="8CZ.F":incr++
symbolslistbox2.cell(1,incr)="8EE.F":incr++
symbolslistbox2.cell(1,incr)="8EG.F":incr++
symbolslistbox2.cell(1,incr)="8FS.F":incr++
symbolslistbox2.cell(1,incr)="8FT.F":incr++
symbolslistbox2.cell(1,incr)="8GA.F":incr++
symbolslistbox2.cell(1,incr)="8GB.F":incr++
symbolslistbox2.cell(1,incr)="8GC.F":incr++
symbolslistbox2.cell(1,incr)="8GM.F":incr++
'symbolslistbox2.cell(1,incr)="8GR.F":incr++
symbolslistbox2.cell(1,incr)="8GV.F":incr++
'symbolslistbox2.cell(1,incr)="8H6.F":incr++
symbolslistbox2.cell(1,incr)="8L8.F":incr++
symbolslistbox2.cell(1,incr)="8LG.F":incr++
'symbolslistbox2.cell(1,incr)="8LP.F":incr++
symbolslistbox2.cell(1,incr)="8ME.F":incr++
symbolslistbox2.cell(1,incr)="8MP.F":incr++
symbolslistbox2.cell(1,incr)="8NC.F":incr++
symbolslistbox2.cell(1,incr)="8NI.F":incr++
symbolslistbox2.cell(1,incr)="8NX.F":incr++
'symbolslistbox2.cell(1,incr)="8PH.F":incr++
symbolslistbox2.cell(1,incr)="8PM.F":incr++
symbolslistbox2.cell(1,incr)="8PO.F":incr++
symbolslistbox2.cell(1,incr)="8RA.F":incr++
symbolslistbox2.cell(1,incr)="8RC.F":incr++
symbolslistbox2.cell(1,incr)="8RR.F":incr++
symbolslistbox2.cell(1,incr)="8S0.F":incr++
symbolslistbox2.cell(1,incr)="8S9.F":incr++
symbolslistbox2.cell(1,incr)="8SF.F":incr++
symbolslistbox2.cell(1,incr)="8SP.F":incr++
symbolslistbox2.cell(1,incr)="8SR.F":incr++
symbolslistbox2.cell(1,incr)="8STN.F":incr++
'symbolslistbox2.cell(1,incr)="8SY.F":incr++
symbolslistbox2.cell(1,incr)="8TG.F":incr++
symbolslistbox2.cell(1,incr)="8TRA.F":incr++
symbolslistbox2.cell(1,incr)="8WY.F":incr++
symbolslistbox2.cell(1,incr)="8XB.F":incr++
symbolslistbox2.cell(1,incr)="91A.F":incr++
symbolslistbox2.cell(1,incr)="92G.F":incr++
symbolslistbox2.cell(1,incr)="931.F":incr++
'symbolslistbox2.cell(1,incr)="93M.F":incr++
symbolslistbox2.cell(1,incr)="96S.F":incr++
symbolslistbox2.cell(1,incr)="98M.F":incr++
'symbolslistbox2.cell(1,incr)="98N.F":incr++
symbolslistbox2.cell(1,incr)="98P.F":incr++
symbolslistbox2.cell(1,incr)="9A1.F":incr++
symbolslistbox2.cell(1,incr)="9A2.F":incr++
symbolslistbox2.cell(1,incr)="9AC.F":incr++
'symbolslistbox2.cell(1,incr)="9AE.F":incr++
symbolslistbox2.cell(1,incr)="9AK.F":incr++
symbolslistbox2.cell(1,incr)="9AO.F":incr++
'symbolslistbox2.cell(1,incr)="9AS.F":incr++
'symbolslistbox2.cell(1,incr)="9BI.F":incr++
symbolslistbox2.cell(1,incr)="9BM.F":incr++
symbolslistbox2.cell(1,incr)="9BR2.F":incr++
symbolslistbox2.cell(1,incr)="9BT.F":incr++
symbolslistbox2.cell(1,incr)="9C6.F":incr++
symbolslistbox2.cell(1,incr)="9CB.F":incr++
symbolslistbox2.cell(1,incr)="9CF.F":incr++
symbolslistbox2.cell(1,incr)="9CO.F":incr++
symbolslistbox2.cell(1,incr)="9DB.F":incr++
symbolslistbox2.cell(1,incr)="9E5.F":incr++
symbolslistbox2.cell(1,incr)="9EA.F":incr++
symbolslistbox2.cell(1,incr)="9EM.F":incr++
symbolslistbox2.cell(1,incr)="9EP.F":incr++
symbolslistbox2.cell(1,incr)="9GT.F":incr++
symbolslistbox2.cell(1,incr)="9HI.F":incr++
'symbolslistbox2.cell(1,incr)="9HT.F":incr++
symbolslistbox2.cell(1,incr)="9IL.F":incr++
symbolslistbox2.cell(1,incr)="9IRA.F":incr++
'symbolslistbox2.cell(1,incr)="9KS.F":incr++
symbolslistbox2.cell(1,incr)="9LG.F":incr++
symbolslistbox2.cell(1,incr)="9LTN.F":incr++
symbolslistbox2.cell(1,incr)="9M1N.F":incr++
symbolslistbox2.cell(1,incr)="9MF.F":incr++
symbolslistbox2.cell(1,incr)="9MH.F":incr++
'symbolslistbox2.cell(1,incr)="9MI.F":incr++
symbolslistbox2.cell(1,incr)="9MU.F":incr++
symbolslistbox2.cell(1,incr)="9MY.F":incr++
symbolslistbox2.cell(1,incr)="9NI.F":incr++
'symbolslistbox2.cell(1,incr)="9OI.F":incr++
symbolslistbox2.cell(1,incr)="9PDA.F":incr++
symbolslistbox2.cell(1,incr)="9PX.F":incr++
'symbolslistbox2.cell(1,incr)="9S9.F":incr++
'symbolslistbox2.cell(1,incr)="9SA.F":incr++
symbolslistbox2.cell(1,incr)="9SH.F":incr++
'symbolslistbox2.cell(1,incr)="9TA1.F":incr++
symbolslistbox2.cell(1,incr)="9TB.F":incr++
'symbolslistbox2.cell(1,incr)="9TH.F":incr++
symbolslistbox2.cell(1,incr)="9TO.F":incr++
symbolslistbox2.cell(1,incr)="9Z1.F":incr++
symbolslistbox2.cell(1,incr)="A02.F":incr++
symbolslistbox2.cell(1,incr)="A0T.F":incr++
'symbolslistbox2.cell(1,incr)="A0W.F":incr++
symbolslistbox2.cell(1,incr)="A16.F":incr++
symbolslistbox2.cell(1,incr)="A1B.F":incr++
symbolslistbox2.cell(1,incr)="A1G.F":incr++
symbolslistbox2.cell(1,incr)="A1OS.F":incr++
symbolslistbox2.cell(1,incr)="A1T.F":incr++
symbolslistbox2.cell(1,incr)="A28.F":incr++
symbolslistbox2.cell(1,incr)="A2A.F":incr++
symbolslistbox2.cell(1,incr)="A2R.F":incr++
symbolslistbox2.cell(1,incr)="A2XN.F":incr++
symbolslistbox2.cell(1,incr)="A34.F":incr++
symbolslistbox2.cell(1,incr)="A35.F":incr++
'symbolslistbox2.cell(1,incr)="A36.F":incr++
symbolslistbox2.cell(1,incr)="A3A.F":incr++
symbolslistbox2.cell(1,incr)="A3B.F":incr++
symbolslistbox2.cell(1,incr)="A3I.F":incr++
symbolslistbox2.cell(1,incr)="A3J.F":incr++
symbolslistbox2.cell(1,incr)="A3N2.F":incr++
symbolslistbox2.cell(1,incr)="A3P.F":incr++
symbolslistbox2.cell(1,incr)="A41.F":incr++
symbolslistbox2.cell(1,incr)="A4A.F":incr++
'symbolslistbox2.cell(1,incr)="A4B.F":incr++
symbolslistbox2.cell(1,incr)="A4JN.F":incr++
symbolslistbox2.cell(1,incr)="A4S.F":incr++
symbolslistbox2.cell(1,incr)="A4W.F":incr++
symbolslistbox2.cell(1,incr)="A4XA.F":incr++
symbolslistbox2.cell(1,incr)="A4Y.F":incr++
symbolslistbox2.cell(1,incr)="A58.F":incr++
symbolslistbox2.cell(1,incr)="A59.F":incr++
'symbolslistbox2.cell(1,incr)="A5F.F":incr++
symbolslistbox2.cell(1,incr)="A5I.F":incr++
'symbolslistbox2.cell(1,incr)="A5J.F":incr++
symbolslistbox2.cell(1,incr)="A5P.F":incr++
symbolslistbox2.cell(1,incr)="A61.F":incr++
symbolslistbox2.cell(1,incr)="A64.F":incr++
symbolslistbox2.cell(1,incr)="A6T.F":incr++
'symbolslistbox2.cell(1,incr)="A78.F":incr++
symbolslistbox2.cell(1,incr)="A7A.F":incr++
'symbolslistbox2.cell(1,incr)="A7B.F":incr++
symbolslistbox2.cell(1,incr)="A7L.F":incr++
symbolslistbox2.cell(1,incr)="A7Z.F":incr++
symbolslistbox2.cell(1,incr)="A82.F":incr++
symbolslistbox2.cell(1,incr)="A89.F":incr++
'symbolslistbox2.cell(1,incr)="A8A.F":incr++
symbolslistbox2.cell(1,incr)="A8C1.F":incr++
symbolslistbox2.cell(1,incr)="A8D.F":incr++
symbolslistbox2.cell(1,incr)="A8H.F":incr++
symbolslistbox2.cell(1,incr)="A8P.F":incr++
symbolslistbox2.cell(1,incr)="A8U.F":incr++
symbolslistbox2.cell(1,incr)="A8X.F":incr++
symbolslistbox2.cell(1,incr)="A8Y1.F":incr++
'symbolslistbox2.cell(1,incr)="A9N.F":incr++
symbolslistbox2.cell(1,incr)="AA2.F":incr++
symbolslistbox2.cell(1,incr)="AA4.F":incr++
symbolslistbox2.cell(1,incr)="AA9.F":incr++
symbolslistbox2.cell(1,incr)="AAA.F":incr++
symbolslistbox2.cell(1,incr)="AACA.F":incr++
symbolslistbox2.cell(1,incr)="AAD.F":incr++
symbolslistbox2.cell(1,incr)="AAH.F":incr++
symbolslistbox2.cell(1,incr)="AAM.F":incr++
'symbolslistbox2.cell(1,incr)="AAQ.F":incr++
symbolslistbox2.cell(1,incr)="AAU.F":incr++
symbolslistbox2.cell(1,incr)="AAY.F":incr++
symbolslistbox2.cell(1,incr)="AB1.F":incr++
symbolslistbox2.cell(1,incr)="AB2.F":incr++
symbolslistbox2.cell(1,incr)="AB3A.F":incr++
symbolslistbox2.cell(1,incr)="AB5.F":incr++
symbolslistbox2.cell(1,incr)="AB6.F":incr++
symbolslistbox2.cell(1,incr)="ABA.F":incr++
symbolslistbox2.cell(1,incr)="ABB.F":incr++
symbolslistbox2.cell(1,incr)="ABG.F":incr++
'symbolslistbox2.cell(1,incr)="ABJ.F":incr++
symbolslistbox2.cell(1,incr)="ABL.F":incr++
symbolslistbox2.cell(1,incr)="ABR.F":incr++
symbolslistbox2.cell(1,incr)="ABU.F":incr++
symbolslistbox2.cell(1,incr)="ABW.F":incr++
symbolslistbox2.cell(1,incr)="AC5G.F":incr++
symbolslistbox2.cell(1,incr)="AC8.F":incr++
symbolslistbox2.cell(1,incr)="ACBB.F":incr++
symbolslistbox2.cell(1,incr)="ACD.F":incr++
symbolslistbox2.cell(1,incr)="ACE1.F":incr++
'symbolslistbox2.cell(1,incr)="ACI.F":incr++
symbolslistbox2.cell(1,incr)="ACK.F":incr++
symbolslistbox2.cell(1,incr)="ACR.F":incr++
symbolslistbox2.cell(1,incr)="ACU2.F":incr++
symbolslistbox2.cell(1,incr)="ACWN.F":incr++
symbolslistbox2.cell(1,incr)="ACX.F":incr++
symbolslistbox2.cell(1,incr)="AD2.F":incr++
symbolslistbox2.cell(1,incr)="AD8.F":incr++
symbolslistbox2.cell(1,incr)="ADB.F":incr++
symbolslistbox2.cell(1,incr)="ADC.F":incr++
symbolslistbox2.cell(1,incr)="ADD.F":incr++
'symbolslistbox2.cell(1,incr)="ADF.F":incr++
symbolslistbox2.cell(1,incr)="ADG.F":incr++
symbolslistbox2.cell(1,incr)="ADH2.F":incr++
'symbolslistbox2.cell(1,incr)="ADI1.F":incr++
symbolslistbox2.cell(1,incr)="ADL.F":incr++
symbolslistbox2.cell(1,incr)="ADM.F":incr++
symbolslistbox2.cell(1,incr)="ADN1.F":incr++
symbolslistbox2.cell(1,incr)="ADP.F":incr++
symbolslistbox2.cell(1,incr)="ADS.F":incr++
symbolslistbox2.cell(1,incr)="ADV.F":incr++
symbolslistbox2.cell(1,incr)="ADWA.F":incr++
symbolslistbox2.cell(1,incr)="ADY.F":incr++
symbolslistbox2.cell(1,incr)="AE4.F":incr++
symbolslistbox2.cell(1,incr)="AE50.F":incr++
symbolslistbox2.cell(1,incr)="AEBA.F":incr++
symbolslistbox2.cell(1,incr)="AEC1.F":incr++
symbolslistbox2.cell(1,incr)="AED.F":incr++
symbolslistbox2.cell(1,incr)="AEMD.F":incr++
symbolslistbox2.cell(1,incr)="AEND.F":incr++
symbolslistbox2.cell(1,incr)="AEO.F":incr++
symbolslistbox2.cell(1,incr)="AEP.F":incr++
symbolslistbox2.cell(1,incr)="AES.F":incr++
symbolslistbox2.cell(1,incr)="AEU.F":incr++
'symbolslistbox2.cell(1,incr)="AEX.F":incr++
symbolslistbox2.cell(1,incr)="AEZ.F":incr++
symbolslistbox2.cell(1,incr)="AF4.F":incr++
symbolslistbox2.cell(1,incr)="AF5.F":incr++
symbolslistbox2.cell(1,incr)="AF72.F":incr++
symbolslistbox2.cell(1,incr)="AFG.F":incr++
symbolslistbox2.cell(1,incr)="AFIN.F":incr++
'symbolslistbox2.cell(1,incr)="AFIX.F":incr++
symbolslistbox2.cell(1,incr)="AFL.F":incr++
symbolslistbox2.cell(1,incr)="AFO1.F":incr++
symbolslistbox2.cell(1,incr)="AFR.F":incr++
symbolslistbox2.cell(1,incr)="AFS.F":incr++
symbolslistbox2.cell(1,incr)="AFT.F":incr++
symbolslistbox2.cell(1,incr)="AFW.F":incr++
symbolslistbox2.cell(1,incr)="AFX.F":incr++
symbolslistbox2.cell(1,incr)="AFZ.F":incr++
symbolslistbox2.cell(1,incr)="AG8.F":incr++
symbolslistbox2.cell(1,incr)="AGA.F":incr++
symbolslistbox2.cell(1,incr)="AGE.F":incr++
symbolslistbox2.cell(1,incr)="AGJ.F":incr++
symbolslistbox2.cell(1,incr)="AGR.F":incr++
symbolslistbox2.cell(1,incr)="AGT.F":incr++
symbolslistbox2.cell(1,incr)="AH50.F":incr++
symbolslistbox2.cell(1,incr)="AH9.F":incr++
symbolslistbox2.cell(1,incr)="AHC.F":incr++
'symbolslistbox2.cell(1,incr)="AHG1.F":incr++
symbolslistbox2.cell(1,incr)="AHQ.F":incr++
symbolslistbox2.cell(1,incr)="AHS.F":incr++
symbolslistbox2.cell(1,incr)="AHV.F":incr++
symbolslistbox2.cell(1,incr)="AHYE.F":incr++
symbolslistbox2.cell(1,incr)="AI2.F":incr++
symbolslistbox2.cell(1,incr)="AI3A.F":incr++
symbolslistbox2.cell(1,incr)="AI7.F":incr++
symbolslistbox2.cell(1,incr)="AID1.F":incr++
symbolslistbox2.cell(1,incr)="AIHA.F":incr++
symbolslistbox2.cell(1,incr)="AII.F":incr++
symbolslistbox2.cell(1,incr)="AINN.F":incr++
symbolslistbox2.cell(1,incr)="AIO.F":incr++
symbolslistbox2.cell(1,incr)="AIXA.F":incr++
symbolslistbox2.cell(1,incr)="AIY.F":incr++
symbolslistbox2.cell(1,incr)="AJ3.F":incr++
symbolslistbox2.cell(1,incr)="AJ5.F":incr++
symbolslistbox2.cell(1,incr)="AJ81.F":incr++
symbolslistbox2.cell(1,incr)="AJ91.F":incr++
symbolslistbox2.cell(1,incr)="AJI.F":incr++
symbolslistbox2.cell(1,incr)="AJN.F":incr++
symbolslistbox2.cell(1,incr)="AJP.F":incr++
symbolslistbox2.cell(1,incr)="AJR.F":incr++
symbolslistbox2.cell(1,incr)="AJW.F":incr++
symbolslistbox2.cell(1,incr)="AJXA.F":incr++
symbolslistbox2.cell(1,incr)="AK1.F":incr++
symbolslistbox2.cell(1,incr)="AK3.F":incr++
symbolslistbox2.cell(1,incr)="AK5.F":incr++
symbolslistbox2.cell(1,incr)="AK7.F":incr++
symbolslistbox2.cell(1,incr)="AKG.F":incr++
symbolslistbox2.cell(1,incr)="AKN.F":incr++
symbolslistbox2.cell(1,incr)="AKP.F":incr++
symbolslistbox2.cell(1,incr)="AKX.F":incr++
symbolslistbox2.cell(1,incr)="AL21.F":incr++
symbolslistbox2.cell(1,incr)="AL9.F":incr++
symbolslistbox2.cell(1,incr)="ALD.F":incr++
symbolslistbox2.cell(1,incr)="ALE.F":incr++
symbolslistbox2.cell(1,incr)="ALG.F":incr++
symbolslistbox2.cell(1,incr)="ALK.F":incr++
symbolslistbox2.cell(1,incr)="ALQD.F":incr++
symbolslistbox2.cell(1,incr)="ALS.F":incr++
symbolslistbox2.cell(1,incr)="ALV.F":incr++
symbolslistbox2.cell(1,incr)="ALX.F":incr++
symbolslistbox2.cell(1,incr)="ALZC.F":incr++
symbolslistbox2.cell(1,incr)="AM6.F":incr++
symbolslistbox2.cell(1,incr)="AM8.F":incr++
symbolslistbox2.cell(1,incr)="AMC.F":incr++
symbolslistbox2.cell(1,incr)="AMD.F":incr++
symbolslistbox2.cell(1,incr)="AME6.F":incr++
symbolslistbox2.cell(1,incr)="AMEA.F":incr++
'symbolslistbox2.cell(1,incr)="AMEB.F":incr++
symbolslistbox2.cell(1,incr)="AMED.F":incr++
symbolslistbox2.cell(1,incr)="AMEE.F":incr++
symbolslistbox2.cell(1,incr)="AMEL.F":incr++
symbolslistbox2.cell(1,incr)="AMEM.F":incr++
symbolslistbox2.cell(1,incr)="AMEQ.F":incr++
symbolslistbox2.cell(1,incr)="AMEW.F":incr++
symbolslistbox2.cell(1,incr)="AMG.F":incr++
symbolslistbox2.cell(1,incr)="AMI.F":incr++
symbolslistbox2.cell(1,incr)="AMK.F":incr++
symbolslistbox2.cell(1,incr)="AML.F":incr++
symbolslistbox2.cell(1,incr)="AMNA.F":incr++
'symbolslistbox2.cell(1,incr)="AMU.F":incr++
symbolslistbox2.cell(1,incr)="AMZ.F":incr++
symbolslistbox2.cell(1,incr)="AN1.F":incr++
symbolslistbox2.cell(1,incr)="AN3.F":incr++
symbolslistbox2.cell(1,incr)="AN5.F":incr++
symbolslistbox2.cell(1,incr)="ANB.F":incr++
symbolslistbox2.cell(1,incr)="ANCA.F":incr++
symbolslistbox2.cell(1,incr)="ANK.F":incr++
symbolslistbox2.cell(1,incr)="ANL.F":incr++
symbolslistbox2.cell(1,incr)="AO1B.F":incr++
symbolslistbox2.cell(1,incr)="AOC.F":incr++
symbolslistbox2.cell(1,incr)="AOD1.F":incr++
symbolslistbox2.cell(1,incr)="AOF.F":incr++
'symbolslistbox2.cell(1,incr)="AOG.F":incr++
symbolslistbox2.cell(1,incr)="AOHA.F":incr++
symbolslistbox2.cell(1,incr)="AOMD.F":incr++
symbolslistbox2.cell(1,incr)="AON.F":incr++
symbolslistbox2.cell(1,incr)="AOP.F":incr++
symbolslistbox2.cell(1,incr)="AOS.F":incr++
symbolslistbox2.cell(1,incr)="AOY.F":incr++
'symbolslistbox2.cell(1,incr)="AOZ.F":incr++
symbolslistbox2.cell(1,incr)="AP0.F":incr++
symbolslistbox2.cell(1,incr)="AP1.F":incr++
symbolslistbox2.cell(1,incr)="AP2.F":incr++
symbolslistbox2.cell(1,incr)="AP3.F":incr++
symbolslistbox2.cell(1,incr)="AP7.F":incr++
'symbolslistbox2.cell(1,incr)="APA.F":incr++
symbolslistbox2.cell(1,incr)="APC.F":incr++
symbolslistbox2.cell(1,incr)="APL.F":incr++
symbolslistbox2.cell(1,incr)="APM.F":incr++
'symbolslistbox2.cell(1,incr)="APY1.F":incr++
symbolslistbox2.cell(1,incr)="AQ5.F":incr++
symbolslistbox2.cell(1,incr)="AQ8.F":incr++
symbolslistbox2.cell(1,incr)="AQA.F":incr++
symbolslistbox2.cell(1,incr)="AQE.F":incr++
symbolslistbox2.cell(1,incr)="AQY.F":incr++
symbolslistbox2.cell(1,incr)="AR4.F":incr++
symbolslistbox2.cell(1,incr)="AR7B.F":incr++
symbolslistbox2.cell(1,incr)="AR9.F":incr++
symbolslistbox2.cell(1,incr)="ARC.F":incr++
'symbolslistbox2.cell(1,incr)="ARI.F":incr++
symbolslistbox2.cell(1,incr)="ARL.F":incr++
symbolslistbox2.cell(1,incr)="ARQ.F":incr++
symbolslistbox2.cell(1,incr)="ARRD.F":incr++
symbolslistbox2.cell(1,incr)="ART.F":incr++
symbolslistbox2.cell(1,incr)="ARW.F":incr++
symbolslistbox2.cell(1,incr)="ARZ.F":incr++
symbolslistbox2.cell(1,incr)="AS3.F":incr++
symbolslistbox2.cell(1,incr)="AS7.F":incr++
symbolslistbox2.cell(1,incr)="ASAA.F":incr++
symbolslistbox2.cell(1,incr)="ASD1.F":incr++
symbolslistbox2.cell(1,incr)="ASF.F":incr++
symbolslistbox2.cell(1,incr)="ASG.F":incr++
symbolslistbox2.cell(1,incr)="ASI1.F":incr++
symbolslistbox2.cell(1,incr)="ASJA.F":incr++
symbolslistbox2.cell(1,incr)="ASME.F":incr++
symbolslistbox2.cell(1,incr)="AST.F":incr++
symbolslistbox2.cell(1,incr)="ASX.F":incr++
symbolslistbox2.cell(1,incr)="AT2.F":incr++
symbolslistbox2.cell(1,incr)="AT4.F":incr++
symbolslistbox2.cell(1,incr)="ATD.F":incr++
symbolslistbox2.cell(1,incr)="ATN.F":incr++
symbolslistbox2.cell(1,incr)="ATO.F":incr++
symbolslistbox2.cell(1,incr)="ATP.F":incr++
symbolslistbox2.cell(1,incr)="ATQP.F":incr++
symbolslistbox2.cell(1,incr)="AU1.F":incr++
symbolslistbox2.cell(1,incr)="AU5.F":incr++
symbolslistbox2.cell(1,incr)="AU7A.F":incr++
symbolslistbox2.cell(1,incr)="AU9.F":incr++
symbolslistbox2.cell(1,incr)="AUD.F":incr++
symbolslistbox2.cell(1,incr)="AUK.F":incr++
symbolslistbox2.cell(1,incr)="AUL.F":incr++
symbolslistbox2.cell(1,incr)="AUM5.F":incr++
symbolslistbox2.cell(1,incr)="AUS.F":incr++
symbolslistbox2.cell(1,incr)="AUX.F":incr++
symbolslistbox2.cell(1,incr)="AV1.F":incr++
symbolslistbox2.cell(1,incr)="AV3.F":incr++
symbolslistbox2.cell(1,incr)="AV6.F":incr++
symbolslistbox2.cell(1,incr)="AVA.F":incr++
symbolslistbox2.cell(1,incr)="AVD.F":incr++
symbolslistbox2.cell(1,incr)="AVI.F":incr++
symbolslistbox2.cell(1,incr)="AVK1.F":incr++
symbolslistbox2.cell(1,incr)="AVLA.F":incr++
symbolslistbox2.cell(1,incr)="AVS.F":incr++
symbolslistbox2.cell(1,incr)="AVT.F":incr++
symbolslistbox2.cell(1,incr)="AVX.F":incr++
symbolslistbox2.cell(1,incr)="AW1R.F":incr++
'symbolslistbox2.cell(1,incr)="AW5.F":incr++
symbolslistbox2.cell(1,incr)="AW8.F":incr++
symbolslistbox2.cell(1,incr)="AWG.F":incr++
symbolslistbox2.cell(1,incr)="AWM.F":incr++
symbolslistbox2.cell(1,incr)="AWN.F":incr++
symbolslistbox2.cell(1,incr)="AWR.F":incr++
symbolslistbox2.cell(1,incr)="AWT.F":incr++
'symbolslistbox2.cell(1,incr)="AX1.F":incr++
symbolslistbox2.cell(1,incr)="AX8.F":incr++
symbolslistbox2.cell(1,incr)="AX9.F":incr++
symbolslistbox2.cell(1,incr)="AXAA.F":incr++
symbolslistbox2.cell(1,incr)="AXD2.F":incr++
symbolslistbox2.cell(1,incr)="AXI.F":incr++
symbolslistbox2.cell(1,incr)="AXNA.F":incr++
symbolslistbox2.cell(1,incr)="AXV.F":incr++
symbolslistbox2.cell(1,incr)="AY1.F":incr++
symbolslistbox2.cell(1,incr)="AY3.F":incr++
symbolslistbox2.cell(1,incr)="AY5.F":incr++
symbolslistbox2.cell(1,incr)="AYA.F":incr++
symbolslistbox2.cell(1,incr)="AYEM.F":incr++
symbolslistbox2.cell(1,incr)="AYEP.F":incr++
symbolslistbox2.cell(1,incr)="AYH.F":incr++
symbolslistbox2.cell(1,incr)="AYJ.F":incr++
symbolslistbox2.cell(1,incr)="AYS1.F":incr++
symbolslistbox2.cell(1,incr)="AZ2.F":incr++
symbolslistbox2.cell(1,incr)="AZ5.F":incr++
symbolslistbox2.cell(1,incr)="AZ6.F":incr++
symbolslistbox2.cell(1,incr)="AZA.F":incr++
symbolslistbox2.cell(1,incr)="AZG2.F":incr++
symbolslistbox2.cell(1,incr)="AZS.F":incr++
symbolslistbox2.cell(1,incr)="AZU.F":incr++
symbolslistbox2.cell(1,incr)="B0R.F":incr++
symbolslistbox2.cell(1,incr)="B12.F":incr++
symbolslistbox2.cell(1,incr)="B15A.F":incr++
symbolslistbox2.cell(1,incr)="B1C.F":incr++
symbolslistbox2.cell(1,incr)="B1F.F":incr++
symbolslistbox2.cell(1,incr)="B1N.F":incr++
symbolslistbox2.cell(1,incr)="B1W1.F":incr++
symbolslistbox2.cell(1,incr)="B1X.F":incr++
symbolslistbox2.cell(1,incr)="B2K.F":incr++
symbolslistbox2.cell(1,incr)="B3H.F":incr++
symbolslistbox2.cell(1,incr)="B3K.F":incr++
symbolslistbox2.cell(1,incr)="B3O.F":incr++
'symbolslistbox2.cell(1,incr)="B4N1.F":incr++
'symbolslistbox2.cell(1,incr)="B4N2.F":incr++
'symbolslistbox2.cell(1,incr)="B4N3.F":incr++
symbolslistbox2.cell(1,incr)="B4V.F":incr++
symbolslistbox2.cell(1,incr)="B500.F":incr++
symbolslistbox2.cell(1,incr)="B5A.F":incr++
'symbolslistbox2.cell(1,incr)="B5H.F":incr++
symbolslistbox2.cell(1,incr)="B5R.F":incr++
symbolslistbox2.cell(1,incr)="B5T.F":incr++
symbolslistbox2.cell(1,incr)="B5Z.F":incr++
symbolslistbox2.cell(1,incr)="B6E.F":incr++
symbolslistbox2.cell(1,incr)="B6G.F":incr++
symbolslistbox2.cell(1,incr)="B6S.F":incr++
symbolslistbox2.cell(1,incr)="B7A.F":incr++
symbolslistbox2.cell(1,incr)="B7C.F":incr++
symbolslistbox2.cell(1,incr)="B7E.F":incr++
symbolslistbox2.cell(1,incr)="B7J.F":incr++
symbolslistbox2.cell(1,incr)="B7O.F":incr++
symbolslistbox2.cell(1,incr)="B7P.F":incr++
symbolslistbox2.cell(1,incr)="B7S.F":incr++
symbolslistbox2.cell(1,incr)="B7U.F":incr++
symbolslistbox2.cell(1,incr)="B7Z.F":incr++
symbolslistbox2.cell(1,incr)="B8A.F":incr++
symbolslistbox2.cell(1,incr)="B8D.F":incr++
symbolslistbox2.cell(1,incr)="B8F.F":incr++
symbolslistbox2.cell(1,incr)="B8O.F":incr++
symbolslistbox2.cell(1,incr)="B9B.F":incr++
'symbolslistbox2.cell(1,incr)="B9W.F":incr++
symbolslistbox2.cell(1,incr)="B9Y.F":incr++
symbolslistbox2.cell(1,incr)="BA3.F":incr++
'symbolslistbox2.cell(1,incr)="BABB.F":incr++
symbolslistbox2.cell(1,incr)="BAC.F":incr++
symbolslistbox2.cell(1,incr)="BAKA.F":incr++
symbolslistbox2.cell(1,incr)="BAOA.F":incr++
symbolslistbox2.cell(1,incr)="BAS.F":incr++
symbolslistbox2.cell(1,incr)="BATE.F":incr++
symbolslistbox2.cell(1,incr)="BAYN.F":incr++
symbolslistbox2.cell(1,incr)="BB2.F":incr++
symbolslistbox2.cell(1,incr)="BB3.F":incr++
symbolslistbox2.cell(1,incr)="BBCK.F":incr++
symbolslistbox2.cell(1,incr)="BBDB.F":incr++
symbolslistbox2.cell(1,incr)="BBEA.F":incr++
symbolslistbox2.cell(1,incr)="BBI.F":incr++
symbolslistbox2.cell(1,incr)="BBJ.F":incr++
symbolslistbox2.cell(1,incr)="BBK.F":incr++
symbolslistbox2.cell(1,incr)="BBQ.F":incr++
symbolslistbox2.cell(1,incr)="BBY.F":incr++
symbolslistbox2.cell(1,incr)="BC0.F":incr++
'symbolslistbox2.cell(1,incr)="BC1N.F":incr++
symbolslistbox2.cell(1,incr)="BC3.F":incr++
symbolslistbox2.cell(1,incr)="BC51.F":incr++
symbolslistbox2.cell(1,incr)="BC8.F":incr++
symbolslistbox2.cell(1,incr)="BCE1.F":incr++
symbolslistbox2.cell(1,incr)="BCFE.F":incr++
symbolslistbox2.cell(1,incr)="BCJ.F":incr++
'symbolslistbox2.cell(1,incr)="BCLN.F":incr++
symbolslistbox2.cell(1,incr)="BCO.F":incr++
symbolslistbox2.cell(1,incr)="BCV.F":incr++
symbolslistbox2.cell(1,incr)="BCY.F":incr++
symbolslistbox2.cell(1,incr)="BD5.F":incr++
symbolslistbox2.cell(1,incr)="BDJ.F":incr++
symbolslistbox2.cell(1,incr)="BDSB.F":incr++
symbolslistbox2.cell(1,incr)="BDT.F":incr++
symbolslistbox2.cell(1,incr)="BDU.F":incr++
symbolslistbox2.cell(1,incr)="BE8.F":incr++
symbolslistbox2.cell(1,incr)="BED.F":incr++
symbolslistbox2.cell(1,incr)="BEI.F":incr++
'symbolslistbox2.cell(1,incr)="BEJ.F":incr++
symbolslistbox2.cell(1,incr)="BEM.F":incr++
symbolslistbox2.cell(1,incr)="BEZ.F":incr++
'symbolslistbox2.cell(1,incr)="BF4.F":incr++
symbolslistbox2.cell(1,incr)="BF5B.F":incr++
symbolslistbox2.cell(1,incr)="BFM.F":incr++
symbolslistbox2.cell(1,incr)="BFV.F":incr++
'symbolslistbox2.cell(1,incr)="BG0.F":incr++
symbolslistbox2.cell(1,incr)="BG3.F":incr++
symbolslistbox2.cell(1,incr)="BG4.F":incr++
symbolslistbox2.cell(1,incr)="BGC.F":incr++
symbolslistbox2.cell(1,incr)="BGJ.F":incr++
symbolslistbox2.cell(1,incr)="BGL.F":incr++
symbolslistbox2.cell(1,incr)="BGR.F":incr++
symbolslistbox2.cell(1,incr)="BGT.F":incr++
symbolslistbox2.cell(1,incr)="BGW.F":incr++
symbolslistbox2.cell(1,incr)="BH5.F":incr++
symbolslistbox2.cell(1,incr)="BH6.F":incr++
symbolslistbox2.cell(1,incr)="BHA.F":incr++
'symbolslistbox2.cell(1,incr)="BHM.F":incr++
symbolslistbox2.cell(1,incr)="BHP1.F":incr++
symbolslistbox2.cell(1,incr)="BI5.F":incr++
symbolslistbox2.cell(1,incr)="BIF.F":incr++
symbolslistbox2.cell(1,incr)="BIH.F":incr++
symbolslistbox2.cell(1,incr)="BIJ.F":incr++
symbolslistbox2.cell(1,incr)="BIL.F":incr++
symbolslistbox2.cell(1,incr)="BIN.F":incr++
symbolslistbox2.cell(1,incr)="BIO.F":incr++
'symbolslistbox2.cell(1,incr)="BIX.F":incr++
symbolslistbox2.cell(1,incr)="BJ1.F":incr++
symbolslistbox2.cell(1,incr)="BJ3.F":incr++
symbolslistbox2.cell(1,incr)="BJEB.F":incr++
symbolslistbox2.cell(1,incr)="BJI.F":incr++
symbolslistbox2.cell(1,incr)="BK2.F":incr++
symbolslistbox2.cell(1,incr)="BK8N.F":incr++
symbolslistbox2.cell(1,incr)="BKAA.F":incr++
symbolslistbox2.cell(1,incr)="BKD.F":incr++
symbolslistbox2.cell(1,incr)="BKE1.F":incr++
symbolslistbox2.cell(1,incr)="BKG.F":incr++
symbolslistbox2.cell(1,incr)="BKJ.F":incr++
'symbolslistbox2.cell(1,incr)="BKMA.F":incr++
symbolslistbox2.cell(1,incr)="BKN.F":incr++
symbolslistbox2.cell(1,incr)="BKO.F":incr++
'symbolslistbox2.cell(1,incr)="BKP6.F":incr++
'symbolslistbox2.cell(1,incr)="BKS3.F":incr++
symbolslistbox2.cell(1,incr)="BL8.F":incr++
symbolslistbox2.cell(1,incr)="BL9B.F":incr++
symbolslistbox2.cell(1,incr)="BLD.F":incr++
symbolslistbox2.cell(1,incr)="BLE.F":incr++
symbolslistbox2.cell(1,incr)="BLH.F":incr++
'symbolslistbox2.cell(1,incr)="BLON.F":incr++
symbolslistbox2.cell(1,incr)="BLQA.F":incr++
symbolslistbox2.cell(1,incr)="BM1.F":incr++
symbolslistbox2.cell(1,incr)="BM8.F":incr++
symbolslistbox2.cell(1,incr)="BME.F":incr++
symbolslistbox2.cell(1,incr)="BMI.F":incr++
symbolslistbox2.cell(1,incr)="BMM.F":incr++
symbolslistbox2.cell(1,incr)="BMT.F":incr++
symbolslistbox2.cell(1,incr)="BMU.F":incr++
symbolslistbox2.cell(1,incr)="BMW.F":incr++
symbolslistbox2.cell(1,incr)="BN5.F":incr++
symbolslistbox2.cell(1,incr)="BN9.F":incr++
symbolslistbox2.cell(1,incr)="BNB.F":incr++
symbolslistbox2.cell(1,incr)="BNE.F":incr++
symbolslistbox2.cell(1,incr)="BNF.F":incr++
symbolslistbox2.cell(1,incr)="BNK.F":incr++
symbolslistbox2.cell(1,incr)="BNP.F":incr++
'symbolslistbox2.cell(1,incr)="BNQC.F":incr++
'symbolslistbox2.cell(1,incr)="BNQQ.F":incr++
symbolslistbox2.cell(1,incr)="BNR.F":incr++
symbolslistbox2.cell(1,incr)="BNT1.F":incr++
symbolslistbox2.cell(1,incr)="BNU.F":incr++
symbolslistbox2.cell(1,incr)="BO1.F":incr++
symbolslistbox2.cell(1,incr)="BO2.F":incr++
symbolslistbox2.cell(1,incr)="BO4.F":incr++
symbolslistbox2.cell(1,incr)="BO5.F":incr++
symbolslistbox2.cell(1,incr)="BO8.F":incr++
symbolslistbox2.cell(1,incr)="BO9.F":incr++
symbolslistbox2.cell(1,incr)="BOA.F":incr++
'symbolslistbox2.cell(1,incr)="BOB.F":incr++
symbolslistbox2.cell(1,incr)="BOE.F":incr++
symbolslistbox2.cell(1,incr)="BOF.F":incr++
symbolslistbox2.cell(1,incr)="BOK.F":incr++
symbolslistbox2.cell(1,incr)="BON.F":incr++
symbolslistbox2.cell(1,incr)="BOO.F":incr++
symbolslistbox2.cell(1,incr)="BOSA.F":incr++
symbolslistbox2.cell(1,incr)="BOSS.F":incr++
symbolslistbox2.cell(1,incr)="BOT.F":incr++
symbolslistbox2.cell(1,incr)="BOU1.F":incr++
symbolslistbox2.cell(1,incr)="BOX.F":incr++
symbolslistbox2.cell(1,incr)="BOY.F":incr++
symbolslistbox2.cell(1,incr)="BOZA.F":incr++
symbolslistbox2.cell(1,incr)="BP0.F":incr++
symbolslistbox2.cell(1,incr)="BP1.F":incr++
'symbolslistbox2.cell(1,incr)="BPD.F":incr++
symbolslistbox2.cell(1,incr)="BPE5.F":incr++
symbolslistbox2.cell(1,incr)="BPS.F":incr++
'symbolslistbox2.cell(1,incr)="BPV.F":incr++
'symbolslistbox2.cell(1,incr)="BPX.F":incr++
'symbolslistbox2.cell(1,incr)="BR02.F":incr++
symbolslistbox2.cell(1,incr)="BR3.F":incr++
symbolslistbox2.cell(1,incr)="BRH.F":incr++
symbolslistbox2.cell(1,incr)="BRL1.F":incr++
symbolslistbox2.cell(1,incr)="BRM.F":incr++
'symbolslistbox2.cell(1,incr)="BRN.F":incr++
symbolslistbox2.cell(1,incr)="BRU.F":incr++
symbolslistbox2.cell(1,incr)="BRV.F":incr++
symbolslistbox2.cell(1,incr)="BRYN.F":incr++
'symbolslistbox2.cell(1,incr)="BS5.F":incr++
'symbolslistbox2.cell(1,incr)="BS7.F":incr++
symbolslistbox2.cell(1,incr)="BSD2.F":incr++
symbolslistbox2.cell(1,incr)="BSI.F":incr++
symbolslistbox2.cell(1,incr)="BSL.F":incr++
symbolslistbox2.cell(1,incr)="BSN.F":incr++
symbolslistbox2.cell(1,incr)="BSP.F":incr++
symbolslistbox2.cell(1,incr)="BST.F":incr++
symbolslistbox2.cell(1,incr)="BSX.F":incr++
'symbolslistbox2.cell(1,incr)="BSY.F":incr++
symbolslistbox2.cell(1,incr)="BT3.F":incr++
symbolslistbox2.cell(1,incr)="BTL.F":incr++
symbolslistbox2.cell(1,incr)="BTPC.F":incr++
symbolslistbox2.cell(1,incr)="BTQ.F":incr++
symbolslistbox2.cell(1,incr)="BTW.F":incr++
symbolslistbox2.cell(1,incr)="BU3.F":incr++
'symbolslistbox2.cell(1,incr)="BU9.F":incr++
'symbolslistbox2.cell(1,incr)="BUHA.F":incr++
symbolslistbox2.cell(1,incr)="BUI.F":incr++
symbolslistbox2.cell(1,incr)="BUOB.F":incr++
symbolslistbox2.cell(1,incr)="BUU.F":incr++
symbolslistbox2.cell(1,incr)="BUWA.F":incr++
symbolslistbox2.cell(1,incr)="BUY.F":incr++
symbolslistbox2.cell(1,incr)="BUZ1.F":incr++
'symbolslistbox2.cell(1,incr)="BV2.F":incr++
symbolslistbox2.cell(1,incr)="BV3.F":incr++
symbolslistbox2.cell(1,incr)="BVB.F":incr++
symbolslistbox2.cell(1,incr)="BVF.F":incr++
symbolslistbox2.cell(1,incr)="BVI.F":incr++
symbolslistbox2.cell(1,incr)="BW3.F":incr++
symbolslistbox2.cell(1,incr)="BW8.F":incr++
symbolslistbox2.cell(1,incr)="BWB.F":incr++
symbolslistbox2.cell(1,incr)="BWI.F":incr++
symbolslistbox2.cell(1,incr)="BWV.F":incr++
symbolslistbox2.cell(1,incr)="BX7.F":incr++
symbolslistbox2.cell(1,incr)="BXZ.F":incr++
'symbolslistbox2.cell(1,incr)="BY5.F":incr++
symbolslistbox2.cell(1,incr)="BY6.F":incr++
symbolslistbox2.cell(1,incr)="BYG.F":incr++
symbolslistbox2.cell(1,incr)="BYRA.F":incr++
symbolslistbox2.cell(1,incr)="BYW.F":incr++
symbolslistbox2.cell(1,incr)="BYW6.F":incr++
symbolslistbox2.cell(1,incr)="BYY.F":incr++
symbolslistbox2.cell(1,incr)="BZ1.F":incr++
symbolslistbox2.cell(1,incr)="BZ6.F":incr++
symbolslistbox2.cell(1,incr)="BZ9.F":incr++
symbolslistbox2.cell(1,incr)="BZF1.F":incr++
symbolslistbox2.cell(1,incr)="BZG2.F":incr++
symbolslistbox2.cell(1,incr)="BZI.F":incr++
symbolslistbox2.cell(1,incr)="BZY.F":incr++
symbolslistbox2.cell(1,incr)="BZZ.F":incr++
symbolslistbox2.cell(1,incr)="C001.F":incr++
symbolslistbox2.cell(1,incr)="C003.F":incr++
symbolslistbox2.cell(1,incr)="C004.F":incr++
symbolslistbox2.cell(1,incr)="C005.F":incr++
symbolslistbox2.cell(1,incr)="C006.F":incr++
symbolslistbox2.cell(1,incr)="C007.F":incr++
symbolslistbox2.cell(1,incr)="C010.F":incr++
'symbolslistbox2.cell(1,incr)="C011.F":incr++
'symbolslistbox2.cell(1,incr)="C012.F":incr++
'symbolslistbox2.cell(1,incr)="C014.F":incr++
symbolslistbox2.cell(1,incr)="C020.F":incr++
'symbolslistbox2.cell(1,incr)="C022.F":incr++
'symbolslistbox2.cell(1,incr)="C023.F":incr++
symbolslistbox2.cell(1,incr)="C024.F":incr++
'symbolslistbox2.cell(1,incr)="C025.F":incr++
symbolslistbox2.cell(1,incr)="C029.F":incr++
symbolslistbox2.cell(1,incr)="C030.F":incr++
'symbolslistbox2.cell(1,incr)="C031.F":incr++
'symbolslistbox2.cell(1,incr)="C032.F":incr++
'symbolslistbox2.cell(1,incr)="C033.F":incr++
'symbolslistbox2.cell(1,incr)="C050.F":incr++
symbolslistbox2.cell(1,incr)="C051.F":incr++
'symbolslistbox2.cell(1,incr)="C052.F":incr++
'symbolslistbox2.cell(1,incr)="C053.F":incr++
'symbolslistbox2.cell(1,incr)="C054.F":incr++
symbolslistbox2.cell(1,incr)="C060.F":incr++
'symbolslistbox2.cell(1,incr)="C061.F":incr++
'symbolslistbox2.cell(1,incr)="C062.F":incr++
'symbolslistbox2.cell(1,incr)="C065.F":incr++
'symbolslistbox2.cell(1,incr)="C066.F":incr++
'symbolslistbox2.cell(1,incr)="C067.F":incr++
'symbolslistbox2.cell(1,incr)="C069.F":incr++
'symbolslistbox2.cell(1,incr)="C070.F":incr++
symbolslistbox2.cell(1,incr)="C071.F":incr++
'symbolslistbox2.cell(1,incr)="C073.F":incr++
'symbolslistbox2.cell(1,incr)="C075.F":incr++
'symbolslistbox2.cell(1,incr)="C076.F":incr++
'symbolslistbox2.cell(1,incr)="C077.F":incr++
'symbolslistbox2.cell(1,incr)="C078.F":incr++
'symbolslistbox2.cell(1,incr)="C08.F":incr++
symbolslistbox2.cell(1,incr)="C090.F":incr++
symbolslistbox2.cell(1,incr)="C099.F":incr++
symbolslistbox2.cell(1,incr)="C0Q.F":incr++
'symbolslistbox2.cell(1,incr)="C100.F":incr++
symbolslistbox2.cell(1,incr)="C101.F":incr++
'symbolslistbox2.cell(1,incr)="C128.F":incr++
symbolslistbox2.cell(1,incr)="C15.F":incr++
symbolslistbox2.cell(1,incr)="C1C.F":incr++
symbolslistbox2.cell(1,incr)="C1S.F":incr++
symbolslistbox2.cell(1,incr)="C1V.F":incr++
symbolslistbox2.cell(1,incr)="C1Y.F":incr++
'symbolslistbox2.cell(1,incr)="C25.F":incr++
'symbolslistbox2.cell(1,incr)="C2BC.F":incr++
symbolslistbox2.cell(1,incr)="C2G.F":incr++
symbolslistbox2.cell(1,incr)="C2H.F":incr++
symbolslistbox2.cell(1,incr)="C2L.F":incr++
'symbolslistbox2.cell(1,incr)="C2U1.F":incr++
symbolslistbox2.cell(1,incr)="C31.F":incr++
symbolslistbox2.cell(1,incr)="C38.F":incr++
symbolslistbox2.cell(1,incr)="C3B.F":incr++
symbolslistbox2.cell(1,incr)="C3H1.F":incr++
'symbolslistbox2.cell(1,incr)="C3I.F":incr++
'symbolslistbox2.cell(1,incr)="C3K.F":incr++
'symbolslistbox2.cell(1,incr)="C3M.F":incr++
'symbolslistbox2.cell(1,incr)="C3Q1.F":incr++
symbolslistbox2.cell(1,incr)="C43.F":incr++
symbolslistbox2.cell(1,incr)="C44.F":incr++
symbolslistbox2.cell(1,incr)="C4C.F":incr++
symbolslistbox2.cell(1,incr)="C4F.F":incr++
symbolslistbox2.cell(1,incr)="C4S1.F":incr++
symbolslistbox2.cell(1,incr)="C4X.F":incr++
symbolslistbox2.cell(1,incr)="C52.F":incr++
'symbolslistbox2.cell(1,incr)="C540.F":incr++
'symbolslistbox2.cell(1,incr)="C5K.F":incr++
symbolslistbox2.cell(1,incr)="C5L.F":incr++
symbolslistbox2.cell(1,incr)="C5X.F":incr++
symbolslistbox2.cell(1,incr)="C61.F":incr++
symbolslistbox2.cell(1,incr)="C62.F":incr++
symbolslistbox2.cell(1,incr)="C67.F":incr++
symbolslistbox2.cell(1,incr)="C6G.F":incr++
symbolslistbox2.cell(1,incr)="C6O.F":incr++
symbolslistbox2.cell(1,incr)="C6T.F":incr++
symbolslistbox2.cell(1,incr)="C6U.F":incr++
symbolslistbox2.cell(1,incr)="C6V.F":incr++
symbolslistbox2.cell(1,incr)="C7G.F":incr++
symbolslistbox2.cell(1,incr)="C7N.F":incr++
symbolslistbox2.cell(1,incr)="C7O.F":incr++
symbolslistbox2.cell(1,incr)="C7S.F":incr++
symbolslistbox2.cell(1,incr)="C7W.F":incr++
symbolslistbox2.cell(1,incr)="C7Y.F":incr++
symbolslistbox2.cell(1,incr)="C8C.F":incr++
symbolslistbox2.cell(1,incr)="C8G1.F":incr++
'symbolslistbox2.cell(1,incr)="C8K.F":incr++
symbolslistbox2.cell(1,incr)="C8Q.F":incr++
'symbolslistbox2.cell(1,incr)="C8T.F":incr++
symbolslistbox2.cell(1,incr)="C8U.F":incr++
symbolslistbox2.cell(1,incr)="C8V.F":incr++
symbolslistbox2.cell(1,incr)="C98.F":incr++
symbolslistbox2.cell(1,incr)="C9F.F":incr++
symbolslistbox2.cell(1,incr)="C9IB.F":incr++
symbolslistbox2.cell(1,incr)="C9J.F":incr++
symbolslistbox2.cell(1,incr)="CA3.F":incr++
symbolslistbox2.cell(1,incr)="CA8A.F":incr++
symbolslistbox2.cell(1,incr)="CAB3.F":incr++
symbolslistbox2.cell(1,incr)="CAC1.F":incr++
symbolslistbox2.cell(1,incr)="CAD.F":incr++
symbolslistbox2.cell(1,incr)="CAI.F":incr++
symbolslistbox2.cell(1,incr)="CAJ.F":incr++
'symbolslistbox2.cell(1,incr)="CAMX.F":incr++
symbolslistbox2.cell(1,incr)="CAO.F":incr++
symbolslistbox2.cell(1,incr)="CAP.F":incr++
symbolslistbox2.cell(1,incr)="CAR.F":incr++
symbolslistbox2.cell(1,incr)="CASH.F":incr++
symbolslistbox2.cell(1,incr)="CAT1.F":incr++
'symbolslistbox2.cell(1,incr)="CAZ.F":incr++
symbolslistbox2.cell(1,incr)="CB1A.F":incr++
symbolslistbox2.cell(1,incr)="CB3G.F":incr++
symbolslistbox2.cell(1,incr)="CB4.F":incr++
symbolslistbox2.cell(1,incr)="CB5.F":incr++
'symbolslistbox2.cell(1,incr)="CBA.F":incr++
symbolslistbox2.cell(1,incr)="CBE.F":incr++
symbolslistbox2.cell(1,incr)="CBGA.F":incr++
symbolslistbox2.cell(1,incr)="CBGB.F":incr++
symbolslistbox2.cell(1,incr)="CBHD.F":incr++
symbolslistbox2.cell(1,incr)="CBK.F":incr++
symbolslistbox2.cell(1,incr)="CBR.F":incr++
symbolslistbox2.cell(1,incr)="CBT.F":incr++
symbolslistbox2.cell(1,incr)="CBW.F":incr++
symbolslistbox2.cell(1,incr)="CBY.F":incr++
symbolslistbox2.cell(1,incr)="CC5.F":incr++
symbolslistbox2.cell(1,incr)="CC6.F":incr++
symbolslistbox2.cell(1,incr)="CCAP.F":incr++
symbolslistbox2.cell(1,incr)="CCC3.F":incr++
symbolslistbox2.cell(1,incr)="CCG.F":incr++
symbolslistbox2.cell(1,incr)="CCI.F":incr++
symbolslistbox2.cell(1,incr)="CCJ.F":incr++
'symbolslistbox2.cell(1,incr)="CCL.F":incr++
symbolslistbox2.cell(1,incr)="CCO.F":incr++
symbolslistbox2.cell(1,incr)="CCT.F":incr++
'symbolslistbox2.cell(1,incr)="CD2.F":incr++
'symbolslistbox2.cell(1,incr)="CD48.F":incr++
symbolslistbox2.cell(1,incr)="CD5N.F":incr++
symbolslistbox2.cell(1,incr)="CD91.F":incr++
symbolslistbox2.cell(1,incr)="CDE.F":incr++
'symbolslistbox2.cell(1,incr)="CDG.F":incr++
symbolslistbox2.cell(1,incr)="CDL.F":incr++
symbolslistbox2.cell(1,incr)="CDM1.F":incr++
symbolslistbox2.cell(1,incr)="CDP.F":incr++
symbolslistbox2.cell(1,incr)="CDR.F":incr++
symbolslistbox2.cell(1,incr)="CDS.F":incr++
symbolslistbox2.cell(1,incr)="CE1.F":incr++
symbolslistbox2.cell(1,incr)="CE2.F":incr++
symbolslistbox2.cell(1,incr)="CE3.F":incr++
'symbolslistbox2.cell(1,incr)="CE5.F":incr++
symbolslistbox2.cell(1,incr)="CE8G.F":incr++
symbolslistbox2.cell(1,incr)="CE9.F":incr++
symbolslistbox2.cell(1,incr)="CEA.F":incr++
symbolslistbox2.cell(1,incr)="CEBB.F":incr++
symbolslistbox2.cell(1,incr)="CEBG.F":incr++
symbolslistbox2.cell(1,incr)="CEBL.F":incr++
symbolslistbox2.cell(1,incr)="CEBP.F":incr++
symbolslistbox2.cell(1,incr)="CEC.F":incr++
symbolslistbox2.cell(1,incr)="CEC1.F":incr++
symbolslistbox2.cell(1,incr)="CEI.F":incr++
symbolslistbox2.cell(1,incr)="CEK.F":incr++
'symbolslistbox2.cell(1,incr)="CEM2.F":incr++
symbolslistbox2.cell(1,incr)="CEMG.F":incr++
symbolslistbox2.cell(1,incr)="CEMQ.F":incr++
symbolslistbox2.cell(1,incr)="CEMR.F":incr++
symbolslistbox2.cell(1,incr)="CEMS.F":incr++
symbolslistbox2.cell(1,incr)="CEMT.F":incr++
symbolslistbox2.cell(1,incr)="CENB.F":incr++
symbolslistbox2.cell(1,incr)="CEUG.F":incr++
'symbolslistbox2.cell(1,incr)="CEV.F":incr++
symbolslistbox2.cell(1,incr)="CEY2.F":incr++
symbolslistbox2.cell(1,incr)="CEZ.F":incr++
symbolslistbox2.cell(1,incr)="CF2.F":incr++
symbolslistbox2.cell(1,incr)="CF3.F":incr++
symbolslistbox2.cell(1,incr)="CF7.F":incr++
symbolslistbox2.cell(1,incr)="CFC.F":incr++
symbolslistbox2.cell(1,incr)="CFH.F":incr++
symbolslistbox2.cell(1,incr)="CFJA.F":incr++
'symbolslistbox2.cell(1,incr)="CFNB.F":incr++
'symbolslistbox2.cell(1,incr)="CFO.F":incr++
symbolslistbox2.cell(1,incr)="CFSL.F":incr++
symbolslistbox2.cell(1,incr)="CFW.F":incr++
symbolslistbox2.cell(1,incr)="CFX.F":incr++
symbolslistbox2.cell(1,incr)="CFZ.F":incr++
symbolslistbox2.cell(1,incr)="CG2.F":incr++
symbolslistbox2.cell(1,incr)="CG5.F":incr++
symbolslistbox2.cell(1,incr)="CGB.F":incr++
symbolslistbox2.cell(1,incr)="CGD.F":incr++
symbolslistbox2.cell(1,incr)="CGG.F":incr++
symbolslistbox2.cell(1,incr)="CGM.F":incr++
symbolslistbox2.cell(1,incr)="CGN.F":incr++
symbolslistbox2.cell(1,incr)="CGP.F":incr++
symbolslistbox2.cell(1,incr)="CGZ.F":incr++
symbolslistbox2.cell(1,incr)="CH1A.F":incr++
symbolslistbox2.cell(1,incr)="CH5.F":incr++
symbolslistbox2.cell(1,incr)="CH6.F":incr++
symbolslistbox2.cell(1,incr)="CHA.F":incr++
symbolslistbox2.cell(1,incr)="CHE.F":incr++
symbolslistbox2.cell(1,incr)="CHH.F":incr++
'symbolslistbox2.cell(1,incr)="CHJ.F":incr++
symbolslistbox2.cell(1,incr)="CHK.F":incr++
symbolslistbox2.cell(1,incr)="CHL.F":incr++
symbolslistbox2.cell(1,incr)="CHP.F":incr++
symbolslistbox2.cell(1,incr)="CHQ1.F":incr++
symbolslistbox2.cell(1,incr)="CHU.F":incr++
symbolslistbox2.cell(1,incr)="CHV.F":incr++
symbolslistbox2.cell(1,incr)="CHZ.F":incr++
'symbolslistbox2.cell(1,incr)="CI2.F":incr++
symbolslistbox2.cell(1,incr)="CI9.F":incr++
symbolslistbox2.cell(1,incr)="CIAH.F":incr++
symbolslistbox2.cell(1,incr)="CIE1.F":incr++
symbolslistbox2.cell(1,incr)="CIH.F":incr++
symbolslistbox2.cell(1,incr)="CIOC.F":incr++
symbolslistbox2.cell(1,incr)="CIS.F":incr++
symbolslistbox2.cell(1,incr)="CIT.F":incr++
symbolslistbox2.cell(1,incr)="CJ1.F":incr++
symbolslistbox2.cell(1,incr)="CJ5A.F":incr++
symbolslistbox2.cell(1,incr)="CJ6.F":incr++
symbolslistbox2.cell(1,incr)="CJA.F":incr++
symbolslistbox2.cell(1,incr)="CJB.F":incr++
symbolslistbox2.cell(1,incr)="CJH.F":incr++
symbolslistbox2.cell(1,incr)="CJR.F":incr++
symbolslistbox2.cell(1,incr)="CJW1.F":incr++
symbolslistbox2.cell(1,incr)="CK1.F":incr++
symbolslistbox2.cell(1,incr)="CKG.F":incr++
symbolslistbox2.cell(1,incr)="CKS2.F":incr++
symbolslistbox2.cell(1,incr)="CKW.F":incr++
symbolslistbox2.cell(1,incr)="CL2.F":incr++
symbolslistbox2.cell(1,incr)="CLE.F":incr++
symbolslistbox2.cell(1,incr)="CLF.F":incr++
symbolslistbox2.cell(1,incr)="CLH.F":incr++
symbolslistbox2.cell(1,incr)="CLIQ.F":incr++
symbolslistbox2.cell(1,incr)="CLP.F":incr++
'symbolslistbox2.cell(1,incr)="CLRN.F":incr++
symbolslistbox2.cell(1,incr)="CLY.F":incr++
symbolslistbox2.cell(1,incr)="CLZ.F":incr++
symbolslistbox2.cell(1,incr)="CM2.F":incr++
symbolslistbox2.cell(1,incr)="CM8.F":incr++
symbolslistbox2.cell(1,incr)="CMAB.F":incr++
symbolslistbox2.cell(1,incr)="CMC.F":incr++
'symbolslistbox2.cell(1,incr)="CME.F":incr++
symbolslistbox2.cell(1,incr)="CMID.F":incr++
symbolslistbox2.cell(1,incr)="CMJ.F":incr++
symbolslistbox2.cell(1,incr)="CMN1.F":incr++
symbolslistbox2.cell(1,incr)="CMR.F":incr++
symbolslistbox2.cell(1,incr)="CMS.F":incr++
symbolslistbox2.cell(1,incr)="CMW.F":incr++
symbolslistbox2.cell(1,incr)="CMY.F":incr++
symbolslistbox2.cell(1,incr)="CMZ.F":incr++
symbolslistbox2.cell(1,incr)="CN1G.F":incr++
symbolslistbox2.cell(1,incr)="CN2.F":incr++
symbolslistbox2.cell(1,incr)="CN4.F":incr++
symbolslistbox2.cell(1,incr)="CN6.F":incr++
symbolslistbox2.cell(1,incr)="CN7.F":incr++
symbolslistbox2.cell(1,incr)="CNB.F":incr++
'symbolslistbox2.cell(1,incr)="CNC.F":incr++
symbolslistbox2.cell(1,incr)="CNH.F":incr++
symbolslistbox2.cell(1,incr)="CNJ.F":incr++
symbolslistbox2.cell(1,incr)="CNN1.F":incr++
symbolslistbox2.cell(1,incr)="CNO.F":incr++
symbolslistbox2.cell(1,incr)="CNP.F":incr++
symbolslistbox2.cell(1,incr)="CNT.F":incr++
'symbolslistbox2.cell(1,incr)="CNWK.F":incr++
'symbolslistbox2.cell(1,incr)="CO0.F":incr++
symbolslistbox2.cell(1,incr)="CO2A.F":incr++
symbolslistbox2.cell(1,incr)="CO3A.F":incr++
symbolslistbox2.cell(1,incr)="CO6.F":incr++
symbolslistbox2.cell(1,incr)="CO9.F":incr++
symbolslistbox2.cell(1,incr)="COA1.F":incr++
symbolslistbox2.cell(1,incr)="COC.F":incr++
symbolslistbox2.cell(1,incr)="COE.F":incr++
symbolslistbox2.cell(1,incr)="COI.F":incr++
symbolslistbox2.cell(1,incr)="COK.F":incr++
'symbolslistbox2.cell(1,incr)="COM.F":incr++
symbolslistbox2.cell(1,incr)="CON.F":incr++
symbolslistbox2.cell(1,incr)="COP.F":incr++
symbolslistbox2.cell(1,incr)="COQ.F":incr++
symbolslistbox2.cell(1,incr)="CORE.F":incr++
symbolslistbox2.cell(1,incr)="COS.F":incr++
symbolslistbox2.cell(1,incr)="COVR.F":incr++
symbolslistbox2.cell(1,incr)="COX.F":incr++
symbolslistbox2.cell(1,incr)="COY.F":incr++
symbolslistbox2.cell(1,incr)="COZ.F":incr++
'symbolslistbox2.cell(1,incr)="CP1.F":incr++
symbolslistbox2.cell(1,incr)="CP4.F":incr++
symbolslistbox2.cell(1,incr)="CP5.F":incr++
symbolslistbox2.cell(1,incr)="CP6.F":incr++
symbolslistbox2.cell(1,incr)="CPA.F":incr++
symbolslistbox2.cell(1,incr)="CPF.F":incr++
symbolslistbox2.cell(1,incr)="CPK.F":incr++
symbolslistbox2.cell(1,incr)="CPM.F":incr++
symbolslistbox2.cell(1,incr)="CPP.F":incr++
symbolslistbox2.cell(1,incr)="CPQA.F":incr++
symbolslistbox2.cell(1,incr)="CPU2.F":incr++
symbolslistbox2.cell(1,incr)="CPW.F":incr++
symbolslistbox2.cell(1,incr)="CQ3.F":incr++
symbolslistbox2.cell(1,incr)="CQA2.F":incr++
symbolslistbox2.cell(1,incr)="CQH3.F":incr++
'symbolslistbox2.cell(1,incr)="CQK.F":incr++
symbolslistbox2.cell(1,incr)="CR2.F":incr++
'symbolslistbox2.cell(1,incr)="CR6.F":incr++
'symbolslistbox2.cell(1,incr)="CR8.F":incr++
symbolslistbox2.cell(1,incr)="CRA1.F":incr++
symbolslistbox2.cell(1,incr)="CRC.F":incr++
symbolslistbox2.cell(1,incr)="CRE.F":incr++
symbolslistbox2.cell(1,incr)="CRG.F":incr++
symbolslistbox2.cell(1,incr)="CRP.F":incr++
symbolslistbox2.cell(1,incr)="CRS1.F":incr++
symbolslistbox2.cell(1,incr)="CRU.F":incr++
symbolslistbox2.cell(1,incr)="CS0.F":incr++
symbolslistbox2.cell(1,incr)="CS2.F":incr++
symbolslistbox2.cell(1,incr)="CS3.F":incr++
symbolslistbox2.cell(1,incr)="CS4.F":incr++
symbolslistbox2.cell(1,incr)="CS6.F":incr++
symbolslistbox2.cell(1,incr)="CS7.F":incr++
symbolslistbox2.cell(1,incr)="CSA.F":incr++
symbolslistbox2.cell(1,incr)="CSB.F":incr++
symbolslistbox2.cell(1,incr)="CSC.F":incr++
symbolslistbox2.cell(1,incr)="CSF.F":incr++
symbolslistbox2.cell(1,incr)="CSG.F":incr++
symbolslistbox2.cell(1,incr)="CSH.F":incr++
symbolslistbox2.cell(1,incr)="CSJ.F":incr++
symbolslistbox2.cell(1,incr)="CSN.F":incr++
symbolslistbox2.cell(1,incr)="CSR.F":incr++
symbolslistbox2.cell(1,incr)="CSUA.F":incr++
symbolslistbox2.cell(1,incr)="CSV.F":incr++
'symbolslistbox2.cell(1,incr)="CT1.F":incr++
symbolslistbox2.cell(1,incr)="CTAA.F":incr++
symbolslistbox2.cell(1,incr)="CTD.F":incr++
symbolslistbox2.cell(1,incr)="CTE.F":incr++
symbolslistbox2.cell(1,incr)="CTH.F":incr++
symbolslistbox2.cell(1,incr)="CTI.F":incr++
symbolslistbox2.cell(1,incr)="CTJ1.F":incr++
symbolslistbox2.cell(1,incr)="CTL.F":incr++
symbolslistbox2.cell(1,incr)="CTM.F":incr++
symbolslistbox2.cell(1,incr)="CTO.F":incr++
symbolslistbox2.cell(1,incr)="CTP2.F":incr++
symbolslistbox2.cell(1,incr)="CTV.F":incr++
symbolslistbox2.cell(1,incr)="CTW.F":incr++
symbolslistbox2.cell(1,incr)="CTX.F":incr++
symbolslistbox2.cell(1,incr)="CTY.F":incr++
symbolslistbox2.cell(1,incr)="CTZ.F":incr++
symbolslistbox2.cell(1,incr)="CU2.F":incr++
symbolslistbox2.cell(1,incr)="CU3.F":incr++
'symbolslistbox2.cell(1,incr)="CU5A.F":incr++
symbolslistbox2.cell(1,incr)="CU7.F":incr++
symbolslistbox2.cell(1,incr)="CUBB.F":incr++
symbolslistbox2.cell(1,incr)="CUCA.F":incr++
symbolslistbox2.cell(1,incr)="CUD.F":incr++
symbolslistbox2.cell(1,incr)="CUEH.F":incr++
'symbolslistbox2.cell(1,incr)="CUFA.F":incr++
symbolslistbox2.cell(1,incr)="CUG.F":incr++
'symbolslistbox2.cell(1,incr)="CUH2.F":incr++
symbolslistbox2.cell(1,incr)="CUL1.F":incr++
symbolslistbox2.cell(1,incr)="CUM.F":incr++
symbolslistbox2.cell(1,incr)="CUP.F":incr++
symbolslistbox2.cell(1,incr)="CUSA.F":incr++
symbolslistbox2.cell(1,incr)="CUV.F":incr++
symbolslistbox2.cell(1,incr)="CUW.F":incr++
symbolslistbox2.cell(1,incr)="CUY.F":incr++
symbolslistbox2.cell(1,incr)="CV5.F":incr++
symbolslistbox2.cell(1,incr)="CV8S.F":incr++
symbolslistbox2.cell(1,incr)="CVA.F":incr++
symbolslistbox2.cell(1,incr)="CVB.F":incr++
symbolslistbox2.cell(1,incr)="CVC1.F":incr++
symbolslistbox2.cell(1,incr)="CVG.F":incr++
'symbolslistbox2.cell(1,incr)="CVH3.F":incr++
symbolslistbox2.cell(1,incr)="CVLB.F":incr++
symbolslistbox2.cell(1,incr)="CVLC.F":incr++
'symbolslistbox2.cell(1,incr)="CVNA.F":incr++
symbolslistbox2.cell(1,incr)="CVS.F":incr++
symbolslistbox2.cell(1,incr)="CVV.F":incr++
symbolslistbox2.cell(1,incr)="CVZ.F":incr++
symbolslistbox2.cell(1,incr)="CW2.F":incr++
symbolslistbox2.cell(1,incr)="CW7.F":incr++
symbolslistbox2.cell(1,incr)="CW9.F":incr++
symbolslistbox2.cell(1,incr)="CWB.F":incr++
symbolslistbox2.cell(1,incr)="CWC.F":incr++
symbolslistbox2.cell(1,incr)="CWE.F":incr++
symbolslistbox2.cell(1,incr)="CWF.F":incr++
symbolslistbox2.cell(1,incr)="CWH.F":incr++
symbolslistbox2.cell(1,incr)="CWN.F":incr++
symbolslistbox2.cell(1,incr)="CWT.F":incr++
symbolslistbox2.cell(1,incr)="CWW.F":incr++
symbolslistbox2.cell(1,incr)="CX0.F":incr++
'symbolslistbox2.cell(1,incr)="CX4.F":incr++
symbolslistbox2.cell(1,incr)="CXA.F":incr++
symbolslistbox2.cell(1,incr)="CXC1.F":incr++
symbolslistbox2.cell(1,incr)="CXD.F":incr++
symbolslistbox2.cell(1,incr)="CXF.F":incr++
symbolslistbox2.cell(1,incr)="CXGH.F":incr++
'symbolslistbox2.cell(1,incr)="CXJ1.F":incr++
symbolslistbox2.cell(1,incr)="CXM.F":incr++
symbolslistbox2.cell(1,incr)="CXR.F":incr++
symbolslistbox2.cell(1,incr)="CXS.F":incr++
symbolslistbox2.cell(1,incr)="CXT.F":incr++
symbolslistbox2.cell(1,incr)="CXU.F":incr++
symbolslistbox2.cell(1,incr)="CXX.F":incr++
symbolslistbox2.cell(1,incr)="CY1K.F":incr++
symbolslistbox2.cell(1,incr)="CY2.F":incr++
symbolslistbox2.cell(1,incr)="CYA.F":incr++
symbolslistbox2.cell(1,incr)="CYB.F":incr++
symbolslistbox2.cell(1,incr)="CYC.F":incr++
symbolslistbox2.cell(1,incr)="CYD.F":incr++
symbolslistbox2.cell(1,incr)="CYE.F":incr++
symbolslistbox2.cell(1,incr)="CYL.F":incr++
symbolslistbox2.cell(1,incr)="CYR.F":incr++
'symbolslistbox2.cell(1,incr)="CYT.F":incr++
symbolslistbox2.cell(1,incr)="CYY.F":incr++
symbolslistbox2.cell(1,incr)="CZ2.F":incr++
'symbolslistbox2.cell(1,incr)="CZA.F":incr++
symbolslistbox2.cell(1,incr)="CZH.F":incr++
symbolslistbox2.cell(1,incr)="CZN.F":incr++
symbolslistbox2.cell(1,incr)="D00.F":incr++
symbolslistbox2.cell(1,incr)="D1LN.F":incr++
symbolslistbox2.cell(1,incr)="D1U.F":incr++
symbolslistbox2.cell(1,incr)="D1Y.F":incr++
symbolslistbox2.cell(1,incr)="D2G.F":incr++
symbolslistbox2.cell(1,incr)="D2MN.F":incr++
symbolslistbox2.cell(1,incr)="D2N.F":incr++
symbolslistbox2.cell(1,incr)="D2V.F":incr++
symbolslistbox2.cell(1,incr)="D3N.F":incr++
symbolslistbox2.cell(1,incr)="D3V3.F":incr++
'symbolslistbox2.cell(1,incr)="D4A.F":incr++
symbolslistbox2.cell(1,incr)="D4D.F":incr++
symbolslistbox2.cell(1,incr)="D4E.F":incr++
symbolslistbox2.cell(1,incr)="D4R.F":incr++
symbolslistbox2.cell(1,incr)="D4S.F":incr++
symbolslistbox2.cell(1,incr)="D500.F":incr++
symbolslistbox2.cell(1,incr)="D5BB.F":incr++
symbolslistbox2.cell(1,incr)="D5BC.F":incr++
symbolslistbox2.cell(1,incr)="D5BE.F":incr++
symbolslistbox2.cell(1,incr)="D5BG.F":incr++
symbolslistbox2.cell(1,incr)="D5BH.F":incr++
symbolslistbox2.cell(1,incr)="D5BI.F":incr++
symbolslistbox2.cell(1,incr)="D5BK.F":incr++
symbolslistbox2.cell(1,incr)="D5BL.F":incr++
symbolslistbox2.cell(1,incr)="D5BM.F":incr++
symbolslistbox2.cell(1,incr)="D69.F":incr++
symbolslistbox2.cell(1,incr)="D6H.F":incr++
symbolslistbox2.cell(1,incr)="D6I.F":incr++
symbolslistbox2.cell(1,incr)="D7A.F":incr++
symbolslistbox2.cell(1,incr)="D7C.F":incr++
symbolslistbox2.cell(1,incr)="D7G.F":incr++
symbolslistbox2.cell(1,incr)="D7N.F":incr++
symbolslistbox2.cell(1,incr)="D7P.F":incr++
symbolslistbox2.cell(1,incr)="D7Q1.F":incr++
symbolslistbox2.cell(1,incr)="D7V.F":incr++
'symbolslistbox2.cell(1,incr)="D7X.F":incr++
symbolslistbox2.cell(1,incr)="D8EN.F":incr++
symbolslistbox2.cell(1,incr)="D8K.F":incr++
symbolslistbox2.cell(1,incr)="D8V.F":incr++
symbolslistbox2.cell(1,incr)="D9F2.F":incr++
symbolslistbox2.cell(1,incr)="D9W.F":incr++
symbolslistbox2.cell(1,incr)="D9Z.F":incr++
symbolslistbox2.cell(1,incr)="DA3.F":incr++
symbolslistbox2.cell(1,incr)="DA9.F":incr++
symbolslistbox2.cell(1,incr)="DAF.F":incr++
symbolslistbox2.cell(1,incr)="DAG.F":incr++
symbolslistbox2.cell(1,incr)="DAI.F":incr++
symbolslistbox2.cell(1,incr)="DAM.F":incr++
symbolslistbox2.cell(1,incr)="DAO.F":incr++
symbolslistbox2.cell(1,incr)="DAP.F":incr++
symbolslistbox2.cell(1,incr)="DAR.F":incr++
symbolslistbox2.cell(1,incr)="DAS.F":incr++
symbolslistbox2.cell(1,incr)="DB1.F":incr++
symbolslistbox2.cell(1,incr)="DB2.F":incr++
symbolslistbox2.cell(1,incr)="DBK.F":incr++
symbolslistbox2.cell(1,incr)="DBPD.F":incr++
symbolslistbox2.cell(1,incr)="DBPE.F":incr++
symbolslistbox2.cell(1,incr)="DBPG.F":incr++
symbolslistbox2.cell(1,incr)="DBPK.F":incr++
symbolslistbox2.cell(1,incr)="DBV.F":incr++
symbolslistbox2.cell(1,incr)="DBX0.F":incr++
symbolslistbox2.cell(1,incr)="DBX1.F":incr++
symbolslistbox2.cell(1,incr)="DBX2.F":incr++
symbolslistbox2.cell(1,incr)="DBX3.F":incr++
symbolslistbox2.cell(1,incr)="DBX4.F":incr++
symbolslistbox2.cell(1,incr)="DBX5.F":incr++
symbolslistbox2.cell(1,incr)="DBX6.F":incr++
symbolslistbox2.cell(1,incr)="DBX7.F":incr++
symbolslistbox2.cell(1,incr)="DBX8.F":incr++
symbolslistbox2.cell(1,incr)="DBX9.F":incr++
symbolslistbox2.cell(1,incr)="DBXA.F":incr++
symbolslistbox2.cell(1,incr)="DBXD.F":incr++
symbolslistbox2.cell(1,incr)="DBXE.F":incr++
symbolslistbox2.cell(1,incr)="DBXF.F":incr++
symbolslistbox2.cell(1,incr)="DBXH.F":incr++
symbolslistbox2.cell(1,incr)="DBXJ.F":incr++
symbolslistbox2.cell(1,incr)="DBXK.F":incr++
symbolslistbox2.cell(1,incr)="DBXM.F":incr++
symbolslistbox2.cell(1,incr)="DBXN.F":incr++
symbolslistbox2.cell(1,incr)="DBXQ.F":incr++
symbolslistbox2.cell(1,incr)="DBXR.F":incr++
symbolslistbox2.cell(1,incr)="DBXS.F":incr++
symbolslistbox2.cell(1,incr)="DBXT.F":incr++
symbolslistbox2.cell(1,incr)="DBXU.F":incr++
symbolslistbox2.cell(1,incr)="DBXV.F":incr++
symbolslistbox2.cell(1,incr)="DBXW.F":incr++
symbolslistbox2.cell(1,incr)="DBXX.F":incr++
symbolslistbox2.cell(1,incr)="DBXY.F":incr++
symbolslistbox2.cell(1,incr)="DBXZ.F":incr++
symbolslistbox2.cell(1,incr)="DBZB.F":incr++
symbolslistbox2.cell(1,incr)="DBZN.F":incr++
symbolslistbox2.cell(1,incr)="DC2.F":incr++
symbolslistbox2.cell(1,incr)="DC4.F":incr++
symbolslistbox2.cell(1,incr)="DC6.F":incr++
symbolslistbox2.cell(1,incr)="DC6C.F":incr++
symbolslistbox2.cell(1,incr)="DC7.F":incr++
symbolslistbox2.cell(1,incr)="DC8.F":incr++
symbolslistbox2.cell(1,incr)="DCO.F":incr++
symbolslistbox2.cell(1,incr)="DCS.F":incr++
symbolslistbox2.cell(1,incr)="DCV.F":incr++
symbolslistbox2.cell(1,incr)="DDJ.F":incr++
symbolslistbox2.cell(1,incr)="DDL.F":incr++
symbolslistbox2.cell(1,incr)="DDN.F":incr++
'symbolslistbox2.cell(1,incr)="DDP.F":incr++
symbolslistbox2.cell(1,incr)="DDQ.F":incr++
symbolslistbox2.cell(1,incr)="DDU.F":incr++
'symbolslistbox2.cell(1,incr)="DE2A.F":incr++
symbolslistbox2.cell(1,incr)="DE5A.F":incr++
symbolslistbox2.cell(1,incr)="DE8.F":incr++
symbolslistbox2.cell(1,incr)="DECR.F":incr++
symbolslistbox2.cell(1,incr)="DEL2.F":incr++
symbolslistbox2.cell(1,incr)="DEN.F":incr++
symbolslistbox2.cell(1,incr)="DEQ.F":incr++
symbolslistbox2.cell(1,incr)="DES2.F":incr++
symbolslistbox2.cell(1,incr)="DEU.F":incr++
symbolslistbox2.cell(1,incr)="DEVL.F":incr++
symbolslistbox2.cell(1,incr)="DEX.F":incr++
symbolslistbox2.cell(1,incr)="DEZ.F":incr++
symbolslistbox2.cell(1,incr)="DF3.F":incr++
'symbolslistbox2.cell(1,incr)="DF6.F":incr++
symbolslistbox2.cell(1,incr)="DFA1.F":incr++
'symbolslistbox2.cell(1,incr)="DFJ.F":incr++
symbolslistbox2.cell(1,incr)="DFK.F":incr++
symbolslistbox2.cell(1,incr)="DFV.F":incr++
symbolslistbox2.cell(1,incr)="DFXN.F":incr++
symbolslistbox2.cell(1,incr)="DG3.F":incr++
symbolslistbox2.cell(1,incr)="DG9.F":incr++
symbolslistbox2.cell(1,incr)="DGF.F":incr++
symbolslistbox2.cell(1,incr)="DGI.F":incr++
symbolslistbox2.cell(1,incr)="DGR.F":incr++
symbolslistbox2.cell(1,incr)="DGY.F":incr++
symbolslistbox2.cell(1,incr)="DH7N.F":incr++
symbolslistbox2.cell(1,incr)="DHU.F":incr++
'symbolslistbox2.cell(1,incr)="DI2.F":incr++
symbolslistbox2.cell(1,incr)="DI6.F":incr++
symbolslistbox2.cell(1,incr)="DIC.F":incr++
symbolslistbox2.cell(1,incr)="DIE.F":incr++
symbolslistbox2.cell(1,incr)="DIIA.F":incr++
symbolslistbox2.cell(1,incr)="DIK.F":incr++
symbolslistbox2.cell(1,incr)="DIL1.F":incr++
symbolslistbox2.cell(1,incr)="DIN.F":incr++
symbolslistbox2.cell(1,incr)="DIO.F":incr++
symbolslistbox2.cell(1,incr)="DIP.F":incr++
symbolslistbox2.cell(1,incr)="DIS.F":incr++
'symbolslistbox2.cell(1,incr)="DIUS.F":incr++
'symbolslistbox2.cell(1,incr)="DJ4A.F":incr++
symbolslistbox2.cell(1,incr)="DJAD.F":incr++
symbolslistbox2.cell(1,incr)="DJAM.F":incr++
symbolslistbox2.cell(1,incr)="DJDA.F":incr++
symbolslistbox2.cell(1,incr)="DK8.F":incr++
symbolslistbox2.cell(1,incr)="DKC.F":incr++
symbolslistbox2.cell(1,incr)="DKI.F":incr++
symbolslistbox2.cell(1,incr)="DKOB.F":incr++
'symbolslistbox2.cell(1,incr)="DKW.F":incr++
symbolslistbox2.cell(1,incr)="DL1C.F":incr++
symbolslistbox2.cell(1,incr)="DL7A.F":incr++
symbolslistbox2.cell(1,incr)="DL8.F":incr++
'symbolslistbox2.cell(1,incr)="DLG.F":incr++
symbolslistbox2.cell(1,incr)="DLN.F":incr++
symbolslistbox2.cell(1,incr)="DLY.F":incr++
symbolslistbox2.cell(1,incr)="DM7.F":incr++
symbolslistbox2.cell(1,incr)="DMI.F":incr++
symbolslistbox2.cell(1,incr)="DMJ.F":incr++
symbolslistbox2.cell(1,incr)="DMRE.F":incr++
symbolslistbox2.cell(1,incr)="DN8E.F":incr++
symbolslistbox2.cell(1,incr)="DNE.F":incr++
symbolslistbox2.cell(1,incr)="DNN.F":incr++
symbolslistbox2.cell(1,incr)="DNO.F":incr++
symbolslistbox2.cell(1,incr)="DNP.F":incr++
symbolslistbox2.cell(1,incr)="DNQ.F":incr++
symbolslistbox2.cell(1,incr)="DNRA.F":incr++
symbolslistbox2.cell(1,incr)="DNZ.F":incr++
'symbolslistbox2.cell(1,incr)="DO1.F":incr++
symbolslistbox2.cell(1,incr)="DO2.F":incr++
symbolslistbox2.cell(1,incr)="DOD.F":incr++
symbolslistbox2.cell(1,incr)="DOQ.F":incr++
symbolslistbox2.cell(1,incr)="DOV.F":incr++
'symbolslistbox2.cell(1,incr)="DP3.F":incr++
symbolslistbox2.cell(1,incr)="DP4B.F":incr++
symbolslistbox2.cell(1,incr)="DP5.F":incr++
'symbolslistbox2.cell(1,incr)="DPA.F":incr++
symbolslistbox2.cell(1,incr)="DPL.F":incr++
symbolslistbox2.cell(1,incr)="DPM.F":incr++
symbolslistbox2.cell(1,incr)="DPN.F":incr++
symbolslistbox2.cell(1,incr)="DPR.F":incr++
symbolslistbox2.cell(1,incr)="DPU.F":incr++
symbolslistbox2.cell(1,incr)="DPW.F":incr++
symbolslistbox2.cell(1,incr)="DQ6.F":incr++
symbolslistbox2.cell(1,incr)="DQU.F":incr++
symbolslistbox2.cell(1,incr)="DQW1.F":incr++
symbolslistbox2.cell(1,incr)="DR0.F":incr++
symbolslistbox2.cell(1,incr)="DR3.F":incr++
symbolslistbox2.cell(1,incr)="DR6.F":incr++
symbolslistbox2.cell(1,incr)="DR8A.F":incr++
symbolslistbox2.cell(1,incr)="DRC.F":incr++
symbolslistbox2.cell(1,incr)="DRE2.F":incr++
'symbolslistbox2.cell(1,incr)="DRI.F":incr++
symbolslistbox2.cell(1,incr)="DRW3.F":incr++
symbolslistbox2.cell(1,incr)="DRW8.F":incr++
symbolslistbox2.cell(1,incr)="DS3.F":incr++
'symbolslistbox2.cell(1,incr)="DS5.F":incr++
symbolslistbox2.cell(1,incr)="DS81.F":incr++
symbolslistbox2.cell(1,incr)="DSE.F":incr++
symbolslistbox2.cell(1,incr)="DSG.F":incr++
symbolslistbox2.cell(1,incr)="DSM2.F":incr++
symbolslistbox2.cell(1,incr)="DSN.F":incr++
symbolslistbox2.cell(1,incr)="DSR.F":incr++
symbolslistbox2.cell(1,incr)="DSY.F":incr++
'symbolslistbox2.cell(1,incr)="DSY1.F":incr++
symbolslistbox2.cell(1,incr)="DSZ.F":incr++
symbolslistbox2.cell(1,incr)="DT3.F":incr++
symbolslistbox2.cell(1,incr)="DT7.F":incr++
symbolslistbox2.cell(1,incr)="DT8A.F":incr++
symbolslistbox2.cell(1,incr)="DTD2.F":incr++
symbolslistbox2.cell(1,incr)="DTE.F":incr++
'symbolslistbox2.cell(1,incr)="DTI.F":incr++
symbolslistbox2.cell(1,incr)="DTV.F":incr++
symbolslistbox2.cell(1,incr)="DU8.F":incr++
symbolslistbox2.cell(1,incr)="DUE.F":incr++
'symbolslistbox2.cell(1,incr)="DUI.F":incr++
symbolslistbox2.cell(1,incr)="DUL.F":incr++
symbolslistbox2.cell(1,incr)="DUT.F":incr++
symbolslistbox2.cell(1,incr)="DV6.F":incr++
symbolslistbox2.cell(1,incr)="DVY.F":incr++
symbolslistbox2.cell(1,incr)="DW1.F":incr++
symbolslistbox2.cell(1,incr)="DWD.F":incr++
symbolslistbox2.cell(1,incr)="DWH.F":incr++
symbolslistbox2.cell(1,incr)="DWNI.F":incr++
symbolslistbox2.cell(1,incr)="DX22.F":incr++
symbolslistbox2.cell(1,incr)="DX2D.F":incr++
symbolslistbox2.cell(1,incr)="DX2E.F":incr++
symbolslistbox2.cell(1,incr)="DX2I.F":incr++
symbolslistbox2.cell(1,incr)="DX2J.F":incr++
symbolslistbox2.cell(1,incr)="DX2K.F":incr++
symbolslistbox2.cell(1,incr)="DX2S.F":incr++
symbolslistbox2.cell(1,incr)="DX2X.F":incr++
symbolslistbox2.cell(1,incr)="DX2Z.F":incr++
symbolslistbox2.cell(1,incr)="DX7.F":incr++
symbolslistbox2.cell(1,incr)="DXET.F":incr++
symbolslistbox2.cell(1,incr)="DXS0.F":incr++
symbolslistbox2.cell(1,incr)="DXS1.F":incr++
symbolslistbox2.cell(1,incr)="DXS3.F":incr++
symbolslistbox2.cell(1,incr)="DXS5.F":incr++
symbolslistbox2.cell(1,incr)="DXS6.F":incr++
symbolslistbox2.cell(1,incr)="DXS7.F":incr++
symbolslistbox2.cell(1,incr)="DXSA.F":incr++
symbolslistbox2.cell(1,incr)="DXSB.F":incr++
symbolslistbox2.cell(1,incr)="DXSC.F":incr++
symbolslistbox2.cell(1,incr)="DXSD.F":incr++
symbolslistbox2.cell(1,incr)="DXSE.F":incr++
symbolslistbox2.cell(1,incr)="DXSF.F":incr++
symbolslistbox2.cell(1,incr)="DXSG.F":incr++
symbolslistbox2.cell(1,incr)="DXSH.F":incr++
symbolslistbox2.cell(1,incr)="DXSI.F":incr++
symbolslistbox2.cell(1,incr)="DXSK.F":incr++
symbolslistbox2.cell(1,incr)="DXSL.F":incr++
symbolslistbox2.cell(1,incr)="DXSM.F":incr++
symbolslistbox2.cell(1,incr)="DXSN.F":incr++
symbolslistbox2.cell(1,incr)="DXSP.F":incr++
symbolslistbox2.cell(1,incr)="DXSQ.F":incr++
symbolslistbox2.cell(1,incr)="DXST.F":incr++
symbolslistbox2.cell(1,incr)="DXSU.F":incr++
symbolslistbox2.cell(1,incr)="DXSV.F":incr++
symbolslistbox2.cell(1,incr)="DXSW.F":incr++
symbolslistbox2.cell(1,incr)="DXSZ.F":incr++
'symbolslistbox2.cell(1,incr)="DXZA.F":incr++
symbolslistbox2.cell(1,incr)="DY2.F":incr++
symbolslistbox2.cell(1,incr)="DY6.F":incr++
symbolslistbox2.cell(1,incr)="DY8A.F":incr++
symbolslistbox2.cell(1,incr)="DYC.F":incr++
symbolslistbox2.cell(1,incr)="DYH.F":incr++
symbolslistbox2.cell(1,incr)="DYI.F":incr++
symbolslistbox2.cell(1,incr)="DYQ.F":incr++
symbolslistbox2.cell(1,incr)="DYT1.F":incr++
symbolslistbox2.cell(1,incr)="DZJ.F":incr++
'symbolslistbox2.cell(1,incr)="E044.F":incr++
symbolslistbox2.cell(1,incr)="E07.F":incr++
symbolslistbox2.cell(1,incr)="E0P.F":incr++
symbolslistbox2.cell(1,incr)="E127.F":incr++
'symbolslistbox2.cell(1,incr)="E129.F":incr++
symbolslistbox2.cell(1,incr)="E17.F":incr++
'symbolslistbox2.cell(1,incr)="E2E.F":incr++
symbolslistbox2.cell(1,incr)="E2F.F":incr++
'symbolslistbox2.cell(1,incr)="E2S.F":incr++
symbolslistbox2.cell(1,incr)="E2Y.F":incr++
symbolslistbox2.cell(1,incr)="E2Z.F":incr++
symbolslistbox2.cell(1,incr)="E36.F":incr++
symbolslistbox2.cell(1,incr)="E3A.F":incr++
symbolslistbox2.cell(1,incr)="E3E.F":incr++
symbolslistbox2.cell(1,incr)="E3G1.F":incr++
symbolslistbox2.cell(1,incr)="E3M.F":incr++
symbolslistbox2.cell(1,incr)="E3X1.F":incr++
symbolslistbox2.cell(1,incr)="E4C.F":incr++
symbolslistbox2.cell(1,incr)="E4GA.F":incr++
'symbolslistbox2.cell(1,incr)="E4N.F":incr++
symbolslistbox2.cell(1,incr)="E4S.F":incr++
symbolslistbox2.cell(1,incr)="E4U.F":incr++
'symbolslistbox2.cell(1,incr)="E4X1.F":incr++
symbolslistbox2.cell(1,incr)="E500.F":incr++
'symbolslistbox2.cell(1,incr)="E570.F":incr++
'symbolslistbox2.cell(1,incr)="E571.F":incr++
'symbolslistbox2.cell(1,incr)="E572.F":incr++
'symbolslistbox2.cell(1,incr)="E573.F":incr++
symbolslistbox2.cell(1,incr)="E5F.F":incr++
symbolslistbox2.cell(1,incr)="E5T.F":incr++
'symbolslistbox2.cell(1,incr)="E5Y1.F":incr++
symbolslistbox2.cell(1,incr)="E6P.F":incr++
symbolslistbox2.cell(1,incr)="E6Q.F":incr++
symbolslistbox2.cell(1,incr)="E6U.F":incr++
symbolslistbox2.cell(1,incr)="E6Z.F":incr++
symbolslistbox2.cell(1,incr)="E7CD.F":incr++
symbolslistbox2.cell(1,incr)="E7T.F":incr++
symbolslistbox2.cell(1,incr)="E7V.F":incr++
symbolslistbox2.cell(1,incr)="E8F.F":incr++
symbolslistbox2.cell(1,incr)="E8KA.F":incr++
symbolslistbox2.cell(1,incr)="E8X.F":incr++
'symbolslistbox2.cell(1,incr)="E901.F":incr++
symbolslistbox2.cell(1,incr)="E903.F":incr++
symbolslistbox2.cell(1,incr)="E905.F":incr++
symbolslistbox2.cell(1,incr)="E907.F":incr++
symbolslistbox2.cell(1,incr)="E908.F":incr++
symbolslistbox2.cell(1,incr)="E950.F":incr++
symbolslistbox2.cell(1,incr)="E960.F":incr++
'symbolslistbox2.cell(1,incr)="E9M.F":incr++
symbolslistbox2.cell(1,incr)="EA2.F":incr++
'symbolslistbox2.cell(1,incr)="EA9.F":incr++
symbolslistbox2.cell(1,incr)="EAC.F":incr++
'symbolslistbox2.cell(1,incr)="EAEN.F":incr++
symbolslistbox2.cell(1,incr)="EAI.F":incr++
symbolslistbox2.cell(1,incr)="EAM.F":incr++
symbolslistbox2.cell(1,incr)="EAR.F":incr++
symbolslistbox2.cell(1,incr)="EB8.F":incr++
symbolslistbox2.cell(1,incr)="EB9.F":incr++
symbolslistbox2.cell(1,incr)="EBA.F":incr++
symbolslistbox2.cell(1,incr)="EBK.F":incr++
'symbolslistbox2.cell(1,incr)="EBN.F":incr++
symbolslistbox2.cell(1,incr)="EBO.F":incr++
symbolslistbox2.cell(1,incr)="EBZ.F":incr++
symbolslistbox2.cell(1,incr)="EC8.F":incr++
symbolslistbox2.cell(1,incr)="ECBD.F":incr++
symbolslistbox2.cell(1,incr)="ECBI.F":incr++
symbolslistbox2.cell(1,incr)="ECF.F":incr++
symbolslistbox2.cell(1,incr)="ECJ.F":incr++
symbolslistbox2.cell(1,incr)="ECK.F":incr++
symbolslistbox2.cell(1,incr)="ECN.F":incr++
symbolslistbox2.cell(1,incr)="ECP.F":incr++
symbolslistbox2.cell(1,incr)="ECQ.F":incr++
symbolslistbox2.cell(1,incr)="ECX.F":incr++
symbolslistbox2.cell(1,incr)="ED9.F":incr++
symbolslistbox2.cell(1,incr)="EDC.F":incr++
symbolslistbox2.cell(1,incr)="EDD3.F":incr++
symbolslistbox2.cell(1,incr)="EDEU.F":incr++
symbolslistbox2.cell(1,incr)="EDGA.F":incr++
symbolslistbox2.cell(1,incr)="EDL.F":incr++
'symbolslistbox2.cell(1,incr)="EDMF.F":incr++
symbolslistbox2.cell(1,incr)="EDW.F":incr++
'symbolslistbox2.cell(1,incr)="EE1.F":incr++
'symbolslistbox2.cell(1,incr)="EE51.F":incr++
symbolslistbox2.cell(1,incr)="EE9.F":incr++
symbolslistbox2.cell(1,incr)="EEAA.F":incr++
symbolslistbox2.cell(1,incr)="EEP.F":incr++
symbolslistbox2.cell(1,incr)="EESM.F":incr++
symbolslistbox2.cell(1,incr)="EEUX.F":incr++
symbolslistbox2.cell(1,incr)="EEXU.F":incr++
'symbolslistbox2.cell(1,incr)="EEZ.F":incr++
symbolslistbox2.cell(1,incr)="EF3.F":incr++
symbolslistbox2.cell(1,incr)="EFC1.F":incr++
symbolslistbox2.cell(1,incr)="EFF.F":incr++
'symbolslistbox2.cell(1,incr)="EFNT.F":incr++
symbolslistbox2.cell(1,incr)="EFQ2.F":incr++
symbolslistbox2.cell(1,incr)="EFQ8.F":incr++
symbolslistbox2.cell(1,incr)="EFRN.F":incr++
symbolslistbox2.cell(1,incr)="EFT.F":incr++
symbolslistbox2.cell(1,incr)="EFX.F":incr++
symbolslistbox2.cell(1,incr)="EG0.F":incr++
symbolslistbox2.cell(1,incr)="EG4.F":incr++
symbolslistbox2.cell(1,incr)="EGB.F":incr++
symbolslistbox2.cell(1,incr)="EGCA.F":incr++
symbolslistbox2.cell(1,incr)="EGG.F":incr++
symbolslistbox2.cell(1,incr)="EGID.F":incr++
symbolslistbox2.cell(1,incr)="EGO.F":incr++
symbolslistbox2.cell(1,incr)="EGT.F":incr++
symbolslistbox2.cell(1,incr)="EGZ.F":incr++
symbolslistbox2.cell(1,incr)="EH8.F":incr++
symbolslistbox2.cell(1,incr)="EHDL.F":incr++
symbolslistbox2.cell(1,incr)="EHDV.F":incr++
'symbolslistbox2.cell(1,incr)="EHEN.F":incr++
symbolslistbox2.cell(1,incr)="EHF1.F":incr++
symbolslistbox2.cell(1,incr)="EI4.F":incr++
symbolslistbox2.cell(1,incr)="EIA.F":incr++
symbolslistbox2.cell(1,incr)="EIF.F":incr++
symbolslistbox2.cell(1,incr)="EII.F":incr++
symbolslistbox2.cell(1,incr)="EIN3.F":incr++
symbolslistbox2.cell(1,incr)="EIS.F":incr++
symbolslistbox2.cell(1,incr)="EIX.F":incr++
symbolslistbox2.cell(1,incr)="EJ7.F":incr++
symbolslistbox2.cell(1,incr)="EJAH.F":incr++
symbolslistbox2.cell(1,incr)="EJAP.F":incr++
symbolslistbox2.cell(1,incr)="EJD.F":incr++
symbolslistbox2.cell(1,incr)="EJF.F":incr++
symbolslistbox2.cell(1,incr)="EJI.F":incr++
symbolslistbox2.cell(1,incr)="EJR.F":incr++
symbolslistbox2.cell(1,incr)="EJT1.F":incr++
symbolslistbox2.cell(1,incr)="EJXB.F":incr++
symbolslistbox2.cell(1,incr)="EK7.F":incr++
symbolslistbox2.cell(1,incr)="EKE.F":incr++
'symbolslistbox2.cell(1,incr)="EKQ.F":incr++
symbolslistbox2.cell(1,incr)="EKT.F":incr++
symbolslistbox2.cell(1,incr)="EL40.F":incr++
symbolslistbox2.cell(1,incr)="EL41.F":incr++
symbolslistbox2.cell(1,incr)="EL42.F":incr++
symbolslistbox2.cell(1,incr)="EL43.F":incr++
symbolslistbox2.cell(1,incr)="EL44.F":incr++
symbolslistbox2.cell(1,incr)="EL45.F":incr++
symbolslistbox2.cell(1,incr)="EL46.F":incr++
symbolslistbox2.cell(1,incr)="EL48.F":incr++
symbolslistbox2.cell(1,incr)="EL49.F":incr++
symbolslistbox2.cell(1,incr)="EL4A.F":incr++
symbolslistbox2.cell(1,incr)="EL4B.F":incr++
symbolslistbox2.cell(1,incr)="EL4C.F":incr++
symbolslistbox2.cell(1,incr)="EL4D.F":incr++
symbolslistbox2.cell(1,incr)="EL4E.F":incr++
symbolslistbox2.cell(1,incr)="EL4F.F":incr++
symbolslistbox2.cell(1,incr)="EL4G.F":incr++
symbolslistbox2.cell(1,incr)="EL4H.F":incr++
symbolslistbox2.cell(1,incr)="EL4I.F":incr++
symbolslistbox2.cell(1,incr)="EL4J.F":incr++
symbolslistbox2.cell(1,incr)="EL4K.F":incr++
symbolslistbox2.cell(1,incr)="EL4L.F":incr++
symbolslistbox2.cell(1,incr)="EL4M.F":incr++
symbolslistbox2.cell(1,incr)="EL4N.F":incr++
symbolslistbox2.cell(1,incr)="EL4P.F":incr++
symbolslistbox2.cell(1,incr)="EL4Q.F":incr++
symbolslistbox2.cell(1,incr)="EL4R.F":incr++
symbolslistbox2.cell(1,incr)="EL4S.F":incr++
symbolslistbox2.cell(1,incr)="EL4T.F":incr++
symbolslistbox2.cell(1,incr)="EL4U.F":incr++
symbolslistbox2.cell(1,incr)="EL4V.F":incr++
symbolslistbox2.cell(1,incr)="EL4W.F":incr++
symbolslistbox2.cell(1,incr)="EL4X.F":incr++
symbolslistbox2.cell(1,incr)="EL4Y.F":incr++
symbolslistbox2.cell(1,incr)="EL4Z.F":incr++
symbolslistbox2.cell(1,incr)="ELAA.F":incr++
symbolslistbox2.cell(1,incr)="ELF0.F":incr++
symbolslistbox2.cell(1,incr)="ELF1.F":incr++
symbolslistbox2.cell(1,incr)="ELF5.F":incr++
symbolslistbox2.cell(1,incr)="ELFA.F":incr++
symbolslistbox2.cell(1,incr)="ELFB.F":incr++
symbolslistbox2.cell(1,incr)="ELFC.F":incr++
symbolslistbox2.cell(1,incr)="ELFD.F":incr++
symbolslistbox2.cell(1,incr)="ELFW.F":incr++
symbolslistbox2.cell(1,incr)="ELG.F":incr++
symbolslistbox2.cell(1,incr)="ELI.F":incr++
symbolslistbox2.cell(1,incr)="ELN.F":incr++
'symbolslistbox2.cell(1,incr)="ELX.F":incr++
symbolslistbox2.cell(1,incr)="EM1C.F":incr++
symbolslistbox2.cell(1,incr)="EM3A.F":incr++
symbolslistbox2.cell(1,incr)="EM4.F":incr++
'symbolslistbox2.cell(1,incr)="EM5.F":incr++
symbolslistbox2.cell(1,incr)="EM7A.F":incr++
symbolslistbox2.cell(1,incr)="EMB.F":incr++
symbolslistbox2.cell(1,incr)="EMD.F":incr++
symbolslistbox2.cell(1,incr)="EMEH.F":incr++
symbolslistbox2.cell(1,incr)="EMGA.F":incr++
symbolslistbox2.cell(1,incr)="EMKX.F":incr++
symbolslistbox2.cell(1,incr)="EMO.F":incr++
symbolslistbox2.cell(1,incr)="EMQQ.F":incr++
symbolslistbox2.cell(1,incr)="EMR.F":incr++
symbolslistbox2.cell(1,incr)="EMSM.F":incr++
symbolslistbox2.cell(1,incr)="EMSV.F":incr++
symbolslistbox2.cell(1,incr)="EMUX.F":incr++
symbolslistbox2.cell(1,incr)="EMWE.F":incr++
symbolslistbox2.cell(1,incr)="EN3.F":incr++
symbolslistbox2.cell(1,incr)="ENA.F":incr++
symbolslistbox2.cell(1,incr)="ENB.F":incr++
symbolslistbox2.cell(1,incr)="ENCA.F":incr++
symbolslistbox2.cell(1,incr)="ENI.F":incr++
symbolslistbox2.cell(1,incr)="ENL.F":incr++
symbolslistbox2.cell(1,incr)="ENMN.F":incr++
symbolslistbox2.cell(1,incr)="ENOA.F":incr++
symbolslistbox2.cell(1,incr)="ENQ.F":incr++
symbolslistbox2.cell(1,incr)="ENUR.F":incr++
'symbolslistbox2.cell(1,incr)="ENY.F":incr++
symbolslistbox2.cell(1,incr)="EO5.F":incr++
symbolslistbox2.cell(1,incr)="EO7.F":incr++
symbolslistbox2.cell(1,incr)="EOAN.F":incr++
symbolslistbox2.cell(1,incr)="EOT.F":incr++
symbolslistbox2.cell(1,incr)="EP3.F":incr++
symbolslistbox2.cell(1,incr)="EP5.F":incr++
symbolslistbox2.cell(1,incr)="EP6.F":incr++
symbolslistbox2.cell(1,incr)="EP7.F":incr++
symbolslistbox2.cell(1,incr)="EPE.F":incr++
'symbolslistbox2.cell(1,incr)="EPK.F":incr++
symbolslistbox2.cell(1,incr)="EPU.F":incr++
'symbolslistbox2.cell(1,incr)="EQ4.F":incr++
symbolslistbox2.cell(1,incr)="EQ6.F":incr++
symbolslistbox2.cell(1,incr)="EQEU.F":incr++
symbolslistbox2.cell(1,incr)="EQQQ.F":incr++
symbolslistbox2.cell(1,incr)="EQR.F":incr++
symbolslistbox2.cell(1,incr)="ER2N.F":incr++
symbolslistbox2.cell(1,incr)="ER4.F":incr++
symbolslistbox2.cell(1,incr)="ER7.F":incr++
symbolslistbox2.cell(1,incr)="ER9.F":incr++
symbolslistbox2.cell(1,incr)="ERCB.F":incr++
symbolslistbox2.cell(1,incr)="ERCG.F":incr++
symbolslistbox2.cell(1,incr)="ERE.F":incr++
'symbolslistbox2.cell(1,incr)="ERO1.F":incr++
symbolslistbox2.cell(1,incr)="ERT.F":incr++
symbolslistbox2.cell(1,incr)="ERWE.F":incr++
symbolslistbox2.cell(1,incr)="ES5R.F":incr++
symbolslistbox2.cell(1,incr)="ESDA.F":incr++
symbolslistbox2.cell(1,incr)="ESEE.F":incr++
symbolslistbox2.cell(1,incr)="ESEH.F":incr++
'symbolslistbox2.cell(1,incr)="ESF.F":incr++
symbolslistbox2.cell(1,incr)="ESHB.F":incr++
symbolslistbox2.cell(1,incr)="ESL.F":incr++
symbolslistbox2.cell(1,incr)="ESY.F":incr++
symbolslistbox2.cell(1,incr)="ET7.F":incr++
symbolslistbox2.cell(1,incr)="ET82.F":incr++
symbolslistbox2.cell(1,incr)="ETA.F":incr++
symbolslistbox2.cell(1,incr)="ETG.F":incr++
'symbolslistbox2.cell(1,incr)="ETH.F":incr++
symbolslistbox2.cell(1,incr)="ETL2.F":incr++
symbolslistbox2.cell(1,incr)="ETLE.F":incr++
symbolslistbox2.cell(1,incr)="ETLF.F":incr++
symbolslistbox2.cell(1,incr)="ETLH.F":incr++
symbolslistbox2.cell(1,incr)="ETLI.F":incr++
symbolslistbox2.cell(1,incr)="ETLX.F":incr++
symbolslistbox2.cell(1,incr)="ETLZ.F":incr++
'symbolslistbox2.cell(1,incr)="ETRA.F":incr++
symbolslistbox2.cell(1,incr)="ETSZ.F":incr++
symbolslistbox2.cell(1,incr)="ETX.F":incr++
symbolslistbox2.cell(1,incr)="ETY.F":incr++
symbolslistbox2.cell(1,incr)="EUCA.F":incr++
symbolslistbox2.cell(1,incr)="EUH.F":incr++
symbolslistbox2.cell(1,incr)="EUHA.F":incr++
symbolslistbox2.cell(1,incr)="EUHI.F":incr++
'symbolslistbox2.cell(1,incr)="EUII.F":incr++
symbolslistbox2.cell(1,incr)="EUIN.F":incr++
symbolslistbox2.cell(1,incr)="EUK3.F":incr++
symbolslistbox2.cell(1,incr)="EUN0.F":incr++
symbolslistbox2.cell(1,incr)="EUN1.F":incr++
symbolslistbox2.cell(1,incr)="EUN2.F":incr++
symbolslistbox2.cell(1,incr)="EUN3.F":incr++
symbolslistbox2.cell(1,incr)="EUN4.F":incr++
symbolslistbox2.cell(1,incr)="EUN5.F":incr++
symbolslistbox2.cell(1,incr)="EUN6.F":incr++
symbolslistbox2.cell(1,incr)="EUN8.F":incr++
symbolslistbox2.cell(1,incr)="EUN9.F":incr++
symbolslistbox2.cell(1,incr)="EUNA.F":incr++
symbolslistbox2.cell(1,incr)="EUNH.F":incr++
symbolslistbox2.cell(1,incr)="EUNI.F":incr++
symbolslistbox2.cell(1,incr)="EUNJ.F":incr++
symbolslistbox2.cell(1,incr)="EUNK.F":incr++
symbolslistbox2.cell(1,incr)="EUNL.F":incr++
symbolslistbox2.cell(1,incr)="EUNM.F":incr++
symbolslistbox2.cell(1,incr)="EUNN.F":incr++
symbolslistbox2.cell(1,incr)="EUNR.F":incr++
symbolslistbox2.cell(1,incr)="EUNS.F":incr++
symbolslistbox2.cell(1,incr)="EUNT.F":incr++
symbolslistbox2.cell(1,incr)="EUNU.F":incr++
symbolslistbox2.cell(1,incr)="EUNW.F":incr++
symbolslistbox2.cell(1,incr)="EUNX.F":incr++
symbolslistbox2.cell(1,incr)="EUNY.F":incr++
symbolslistbox2.cell(1,incr)="EUNZ.F":incr++
symbolslistbox2.cell(1,incr)="EUPE.F":incr++
symbolslistbox2.cell(1,incr)="EUQ.F":incr++
symbolslistbox2.cell(1,incr)="EUW.F":incr++
symbolslistbox2.cell(1,incr)="EUX.F":incr++
symbolslistbox2.cell(1,incr)="EUZ.F":incr++
symbolslistbox2.cell(1,incr)="EV1.F":incr++
symbolslistbox2.cell(1,incr)="EV9.F":incr++
'symbolslistbox2.cell(1,incr)="EVCN.F":incr++
symbolslistbox2.cell(1,incr)="EVD.F":incr++
symbolslistbox2.cell(1,incr)="EVI.F":incr++
symbolslistbox2.cell(1,incr)="EVK.F":incr++
symbolslistbox2.cell(1,incr)="EVN.F":incr++
'symbolslistbox2.cell(1,incr)="EVS.F":incr++
symbolslistbox2.cell(1,incr)="EVT.F":incr++
symbolslistbox2.cell(1,incr)="EVZ.F":incr++
symbolslistbox2.cell(1,incr)="EW1.F":incr++
symbolslistbox2.cell(1,incr)="EW2.F":incr++
symbolslistbox2.cell(1,incr)="EW3.F":incr++
symbolslistbox2.cell(1,incr)="EWG.F":incr++
'symbolslistbox2.cell(1,incr)="EWI.F":incr++
symbolslistbox2.cell(1,incr)="EWL.F":incr++
'symbolslistbox2.cell(1,incr)="EWW.F":incr++
symbolslistbox2.cell(1,incr)="EWZ.F":incr++
symbolslistbox2.cell(1,incr)="EX9.F":incr++
symbolslistbox2.cell(1,incr)="EXF1.F":incr++
symbolslistbox2.cell(1,incr)="EXH1.F":incr++
symbolslistbox2.cell(1,incr)="EXH2.F":incr++
symbolslistbox2.cell(1,incr)="EXH3.F":incr++
symbolslistbox2.cell(1,incr)="EXH4.F":incr++
symbolslistbox2.cell(1,incr)="EXH5.F":incr++
symbolslistbox2.cell(1,incr)="EXH6.F":incr++
symbolslistbox2.cell(1,incr)="EXH7.F":incr++
symbolslistbox2.cell(1,incr)="EXH8.F":incr++
symbolslistbox2.cell(1,incr)="EXH9.F":incr++
symbolslistbox2.cell(1,incr)="EXHA.F":incr++
symbolslistbox2.cell(1,incr)="EXHB.F":incr++
symbolslistbox2.cell(1,incr)="EXHC.F":incr++
symbolslistbox2.cell(1,incr)="EXHD.F":incr++
symbolslistbox2.cell(1,incr)="EXHE.F":incr++
symbolslistbox2.cell(1,incr)="EXHF.F":incr++
symbolslistbox2.cell(1,incr)="EXI1.F":incr++
symbolslistbox2.cell(1,incr)="EXI2.F":incr++
symbolslistbox2.cell(1,incr)="EXI3.F":incr++
symbolslistbox2.cell(1,incr)="EXI5.F":incr++
symbolslistbox2.cell(1,incr)="EXK.F":incr++
symbolslistbox2.cell(1,incr)="EXM.F":incr++
symbolslistbox2.cell(1,incr)="EXP.F":incr++
symbolslistbox2.cell(1,incr)="EXS2.F":incr++
symbolslistbox2.cell(1,incr)="EXS3.F":incr++
symbolslistbox2.cell(1,incr)="EXSB.F":incr++
symbolslistbox2.cell(1,incr)="EXSC.F":incr++
symbolslistbox2.cell(1,incr)="EXSD.F":incr++
symbolslistbox2.cell(1,incr)="EXSE.F":incr++
symbolslistbox2.cell(1,incr)="EXSG.F":incr++
symbolslistbox2.cell(1,incr)="EXSH.F":incr++
symbolslistbox2.cell(1,incr)="EXSI.F":incr++
symbolslistbox2.cell(1,incr)="EXV1.F":incr++
symbolslistbox2.cell(1,incr)="EXV2.F":incr++
symbolslistbox2.cell(1,incr)="EXV3.F":incr++
symbolslistbox2.cell(1,incr)="EXV4.F":incr++
symbolslistbox2.cell(1,incr)="EXV5.F":incr++
symbolslistbox2.cell(1,incr)="EXV6.F":incr++
symbolslistbox2.cell(1,incr)="EXV7.F":incr++
symbolslistbox2.cell(1,incr)="EXV8.F":incr++
symbolslistbox2.cell(1,incr)="EXV9.F":incr++
symbolslistbox2.cell(1,incr)="EXVM.F":incr++
symbolslistbox2.cell(1,incr)="EXW1.F":incr++
symbolslistbox2.cell(1,incr)="EXW3.F":incr++
symbolslistbox2.cell(1,incr)="EXX1.F":incr++
symbolslistbox2.cell(1,incr)="EXX5.F":incr++
symbolslistbox2.cell(1,incr)="EXX6.F":incr++
symbolslistbox2.cell(1,incr)="EXX7.F":incr++
symbolslistbox2.cell(1,incr)="EXXT.F":incr++
symbolslistbox2.cell(1,incr)="EXXU.F":incr++
symbolslistbox2.cell(1,incr)="EXXV.F":incr++
symbolslistbox2.cell(1,incr)="EXXW.F":incr++
symbolslistbox2.cell(1,incr)="EXXY.F":incr++
symbolslistbox2.cell(1,incr)="EY3.F":incr++
symbolslistbox2.cell(1,incr)="EYWN.F":incr++
symbolslistbox2.cell(1,incr)="EZ1.F":incr++
symbolslistbox2.cell(1,incr)="EZ2A.F":incr++
symbolslistbox2.cell(1,incr)="EZ5.F":incr++
symbolslistbox2.cell(1,incr)="EZB.F":incr++
symbolslistbox2.cell(1,incr)="EZQ.F":incr++
symbolslistbox2.cell(1,incr)="EZV.F":incr++
symbolslistbox2.cell(1,incr)="EZX.F":incr++
symbolslistbox2.cell(1,incr)="EZY.F":incr++
'symbolslistbox2.cell(1,incr)="F02.F":incr++
symbolslistbox2.cell(1,incr)="F12.F":incr++
symbolslistbox2.cell(1,incr)="F1H.F":incr++
symbolslistbox2.cell(1,incr)="F1YN.F":incr++
symbolslistbox2.cell(1,incr)="F2I.F":incr++
'symbolslistbox2.cell(1,incr)="F2P.F":incr++
symbolslistbox2.cell(1,incr)="F2T.F":incr++
symbolslistbox2.cell(1,incr)="F3A.F":incr++
symbolslistbox2.cell(1,incr)="F3C.F":incr++
symbolslistbox2.cell(1,incr)="F3E1.F":incr++
symbolslistbox2.cell(1,incr)="F4M.F":incr++
'symbolslistbox2.cell(1,incr)="F4R.F":incr++
symbolslistbox2.cell(1,incr)="F4S.F":incr++
symbolslistbox2.cell(1,incr)="F500.F":incr++
symbolslistbox2.cell(1,incr)="F5J.F":incr++
symbolslistbox2.cell(1,incr)="F5M.F":incr++
symbolslistbox2.cell(1,incr)="F5U.F":incr++
symbolslistbox2.cell(1,incr)="F5V1.F":incr++
symbolslistbox2.cell(1,incr)="F5W.F":incr++
symbolslistbox2.cell(1,incr)="F6H.F":incr++
symbolslistbox2.cell(1,incr)="F6O1.F":incr++
symbolslistbox2.cell(1,incr)="F6T.F":incr++
symbolslistbox2.cell(1,incr)="F701.F":incr++
symbolslistbox2.cell(1,incr)="F702.F":incr++
symbolslistbox2.cell(1,incr)="F703.F":incr++
'symbolslistbox2.cell(1,incr)="F750.F":incr++
'symbolslistbox2.cell(1,incr)="F751.F":incr++
symbolslistbox2.cell(1,incr)="F93.F":incr++
'symbolslistbox2.cell(1,incr)="F9E.F":incr++
symbolslistbox2.cell(1,incr)="FA1.F":incr++
'symbolslistbox2.cell(1,incr)="FA6.F":incr++
symbolslistbox2.cell(1,incr)="FAA.F":incr++
symbolslistbox2.cell(1,incr)="FAC.F":incr++
symbolslistbox2.cell(1,incr)="FAEU.F":incr++
symbolslistbox2.cell(1,incr)="FAHY.F":incr++
symbolslistbox2.cell(1,incr)="FAI.F":incr++
symbolslistbox2.cell(1,incr)="FAN.F":incr++
symbolslistbox2.cell(1,incr)="FAR.F":incr++
symbolslistbox2.cell(1,incr)="FAS.F":incr++
symbolslistbox2.cell(1,incr)="FAU.F":incr++
symbolslistbox2.cell(1,incr)="FB1.F":incr++
symbolslistbox2.cell(1,incr)="FB2A.F":incr++
symbolslistbox2.cell(1,incr)="FBB.F":incr++
symbolslistbox2.cell(1,incr)="FBD.F":incr++
symbolslistbox2.cell(1,incr)="FC6A.F":incr++
symbolslistbox2.cell(1,incr)="FC8.F":incr++
symbolslistbox2.cell(1,incr)="FCC.F":incr++
symbolslistbox2.cell(1,incr)="FCF.F":incr++
symbolslistbox2.cell(1,incr)="FCGN.F":incr++
symbolslistbox2.cell(1,incr)="FCQ.F":incr++
symbolslistbox2.cell(1,incr)="FCV.F":incr++
symbolslistbox2.cell(1,incr)="FDE.F":incr++
symbolslistbox2.cell(1,incr)="FDK.F":incr++
symbolslistbox2.cell(1,incr)="FDN.F":incr++
symbolslistbox2.cell(1,incr)="FDO.F":incr++
symbolslistbox2.cell(1,incr)="FDX.F":incr++
symbolslistbox2.cell(1,incr)="FE4.F":incr++
symbolslistbox2.cell(1,incr)="FE7.F":incr++
symbolslistbox2.cell(1,incr)="FEEM.F":incr++
symbolslistbox2.cell(1,incr)="FET.F":incr++
symbolslistbox2.cell(1,incr)="FEUQ.F":incr++
symbolslistbox2.cell(1,incr)="FEV.F":incr++
symbolslistbox2.cell(1,incr)="FEW.F":incr++
symbolslistbox2.cell(1,incr)="FEX.F":incr++
symbolslistbox2.cell(1,incr)="FEY2.F":incr++
symbolslistbox2.cell(1,incr)="FF0.F":incr++
symbolslistbox2.cell(1,incr)="FFC.F":incr++
symbolslistbox2.cell(1,incr)="FFEA.F":incr++
symbolslistbox2.cell(1,incr)="FFH.F":incr++
symbolslistbox2.cell(1,incr)="FFO1.F":incr++
symbolslistbox2.cell(1,incr)="FFP.F":incr++
symbolslistbox2.cell(1,incr)="FFR.F":incr++
symbolslistbox2.cell(1,incr)="FFV.F":incr++
symbolslistbox2.cell(1,incr)="FFX.F":incr++
symbolslistbox2.cell(1,incr)="FG1.F":incr++
symbolslistbox2.cell(1,incr)="FG5.F":incr++
symbolslistbox2.cell(1,incr)="FG9.F":incr++
symbolslistbox2.cell(1,incr)="FGEQ.F":incr++
symbolslistbox2.cell(1,incr)="FGEU.F":incr++
symbolslistbox2.cell(1,incr)="FGPN.F":incr++
symbolslistbox2.cell(1,incr)="FGR.F":incr++
symbolslistbox2.cell(1,incr)="FHL.F":incr++
symbolslistbox2.cell(1,incr)="FHW.F":incr++
symbolslistbox2.cell(1,incr)="FIE.F":incr++
symbolslistbox2.cell(1,incr)="FIV.F":incr++
symbolslistbox2.cell(1,incr)="FJ3.F":incr++
symbolslistbox2.cell(1,incr)="FJC.F":incr++
symbolslistbox2.cell(1,incr)="FJE.F":incr++
symbolslistbox2.cell(1,incr)="FJG.F":incr++
'symbolslistbox2.cell(1,incr)="FJH.F":incr++
symbolslistbox2.cell(1,incr)="FJI.F":incr++
symbolslistbox2.cell(1,incr)="FJK.F":incr++
symbolslistbox2.cell(1,incr)="FJZ.F":incr++
symbolslistbox2.cell(1,incr)="FK2.F":incr++
symbolslistbox2.cell(1,incr)="FKA.F":incr++
symbolslistbox2.cell(1,incr)="FKC.F":incr++
'symbolslistbox2.cell(1,incr)="FKGC.F":incr++
symbolslistbox2.cell(1,incr)="FKM.F":incr++
symbolslistbox2.cell(1,incr)="FL2P.F":incr++
'symbolslistbox2.cell(1,incr)="FL4.F":incr++
symbolslistbox2.cell(1,incr)="FL9.F":incr++
symbolslistbox2.cell(1,incr)="FLB.F":incr++
symbolslistbox2.cell(1,incr)="FLI.F":incr++
symbolslistbox2.cell(1,incr)="FLN.F":incr++
symbolslistbox2.cell(1,incr)="FLU.F":incr++
symbolslistbox2.cell(1,incr)="FLW1.F":incr++
symbolslistbox2.cell(1,incr)="FLXD.F":incr++
symbolslistbox2.cell(1,incr)="FLXE.F":incr++
symbolslistbox2.cell(1,incr)="FLXG.F":incr++
symbolslistbox2.cell(1,incr)="FLXU.F":incr++
symbolslistbox2.cell(1,incr)="FLXX.F":incr++
symbolslistbox2.cell(1,incr)="FM6.F":incr++
symbolslistbox2.cell(1,incr)="FMC1.F":incr++
symbolslistbox2.cell(1,incr)="FME.F":incr++
symbolslistbox2.cell(1,incr)="FMF.F":incr++
symbolslistbox2.cell(1,incr)="FMK.F":incr++
symbolslistbox2.cell(1,incr)="FMNB.F":incr++
symbolslistbox2.cell(1,incr)="FMP.F":incr++
symbolslistbox2.cell(1,incr)="FMQ.F":incr++
symbolslistbox2.cell(1,incr)="FMV.F":incr++
'symbolslistbox2.cell(1,incr)="FMZ.F":incr++
symbolslistbox2.cell(1,incr)="FN2.F":incr++
symbolslistbox2.cell(1,incr)="FNG.F":incr++
symbolslistbox2.cell(1,incr)="FNI.F":incr++
symbolslistbox2.cell(1,incr)="FNL.F":incr++
symbolslistbox2.cell(1,incr)="FNTN.F":incr++
symbolslistbox2.cell(1,incr)="FNV2.F":incr++
symbolslistbox2.cell(1,incr)="FO8.F":incr++
symbolslistbox2.cell(1,incr)="FOJ1.F":incr++
symbolslistbox2.cell(1,incr)="FOO.F":incr++
symbolslistbox2.cell(1,incr)="FOT.F":incr++
symbolslistbox2.cell(1,incr)="FOU1.F":incr++
symbolslistbox2.cell(1,incr)="FOV.F":incr++
symbolslistbox2.cell(1,incr)="FP3.F":incr++
symbolslistbox2.cell(1,incr)="FP5.F":incr++
symbolslistbox2.cell(1,incr)="FPC.F":incr++
symbolslistbox2.cell(1,incr)="FPE.F":incr++
symbolslistbox2.cell(1,incr)="FPH.F":incr++
symbolslistbox2.cell(1,incr)="FPMB.F":incr++
symbolslistbox2.cell(1,incr)="FPO.F":incr++
'symbolslistbox2.cell(1,incr)="FPRP.F":incr++
symbolslistbox2.cell(1,incr)="FPW.F":incr++
symbolslistbox2.cell(1,incr)="FQI.F":incr++
symbolslistbox2.cell(1,incr)="FR4N.F":incr++
symbolslistbox2.cell(1,incr)="FR7.F":incr++
symbolslistbox2.cell(1,incr)="FR9.F":incr++
symbolslistbox2.cell(1,incr)="FRA.F":incr++
symbolslistbox2.cell(1,incr)="FRC3.F":incr++
symbolslistbox2.cell(1,incr)="FRC4.F":incr++
symbolslistbox2.cell(1,incr)="FRCJ.F":incr++
symbolslistbox2.cell(1,incr)="FRE.F":incr++
symbolslistbox2.cell(1,incr)="FRHN.F":incr++
symbolslistbox2.cell(1,incr)="FRI.F":incr++
symbolslistbox2.cell(1,incr)="FRK.F":incr++
symbolslistbox2.cell(1,incr)="FRLN.F":incr++
symbolslistbox2.cell(1,incr)="FRM2.F":incr++
symbolslistbox2.cell(1,incr)="FRNE.F":incr++
symbolslistbox2.cell(1,incr)="FRNH.F":incr++
symbolslistbox2.cell(1,incr)="FRNU.F":incr++
'symbolslistbox2.cell(1,incr)="FRO.F":incr++
symbolslistbox2.cell(1,incr)="FRS.F":incr++
symbolslistbox2.cell(1,incr)="FRW.F":incr++
symbolslistbox2.cell(1,incr)="FRYA.F":incr++
symbolslistbox2.cell(1,incr)="FSE.F":incr++
symbolslistbox2.cell(1,incr)="FSG.F":incr++
'symbolslistbox2.cell(1,incr)="FSH.F":incr++
symbolslistbox2.cell(1,incr)="FSL.F":incr++
symbolslistbox2.cell(1,incr)="FSRA.F":incr++
symbolslistbox2.cell(1,incr)="FT1.F":incr++
symbolslistbox2.cell(1,incr)="FT2.F":incr++
symbolslistbox2.cell(1,incr)="FT7.F":incr++
symbolslistbox2.cell(1,incr)="FTGG.F":incr++
symbolslistbox2.cell(1,incr)="FTGU.F":incr++
symbolslistbox2.cell(1,incr)="FTN.F":incr++
'symbolslistbox2.cell(1,incr)="FTO.F":incr++
symbolslistbox2.cell(1,incr)="FTP.F":incr++
'symbolslistbox2.cell(1,incr)="FTQ.F":incr++
symbolslistbox2.cell(1,incr)="FTZ.F":incr++
symbolslistbox2.cell(1,incr)="FU5.F":incr++
symbolslistbox2.cell(1,incr)="FU7.F":incr++
symbolslistbox2.cell(1,incr)="FUC.F":incr++
symbolslistbox2.cell(1,incr)="FUE1.F":incr++
symbolslistbox2.cell(1,incr)="FUH.F":incr++
symbolslistbox2.cell(1,incr)="FUJ1.F":incr++
symbolslistbox2.cell(1,incr)="FUK.F":incr++
symbolslistbox2.cell(1,incr)="FUO.F":incr++
symbolslistbox2.cell(1,incr)="FUP.F":incr++
symbolslistbox2.cell(1,incr)="FUR.F":incr++
symbolslistbox2.cell(1,incr)="FUSA.F":incr++
symbolslistbox2.cell(1,incr)="FUSD.F":incr++
symbolslistbox2.cell(1,incr)="FUSU.F":incr++
'symbolslistbox2.cell(1,incr)="FUX.F":incr++
symbolslistbox2.cell(1,incr)="FUY.F":incr++
symbolslistbox2.cell(1,incr)="FV8.F":incr++
'symbolslistbox2.cell(1,incr)="FVEN.F":incr++
symbolslistbox2.cell(1,incr)="FVI.F":incr++
symbolslistbox2.cell(1,incr)="FVJ.F":incr++
'symbolslistbox2.cell(1,incr)="FVM.F":incr++
symbolslistbox2.cell(1,incr)="FVSH.F":incr++
symbolslistbox2.cell(1,incr)="FVSJ.F":incr++
symbolslistbox2.cell(1,incr)="FVUI.F":incr++
symbolslistbox2.cell(1,incr)="FW3.F":incr++
symbolslistbox2.cell(1,incr)="FWC.F":incr++
symbolslistbox2.cell(1,incr)="FWG.F":incr++
symbolslistbox2.cell(1,incr)="FWQ.F":incr++
symbolslistbox2.cell(1,incr)="FWV.F":incr++
symbolslistbox2.cell(1,incr)="FX8.F":incr++
symbolslistbox2.cell(1,incr)="FX9.F":incr++
symbolslistbox2.cell(1,incr)="FXG.F":incr++
symbolslistbox2.cell(1,incr)="FXI.F":incr++
symbolslistbox2.cell(1,incr)="FXMA.F":incr++
symbolslistbox2.cell(1,incr)="FYB.F":incr++
'symbolslistbox2.cell(1,incr)="FYM.F":incr++
symbolslistbox2.cell(1,incr)="FZA.F":incr++
symbolslistbox2.cell(1,incr)="FZM.F":incr++
'symbolslistbox2.cell(1,incr)="G04.F":incr++
symbolslistbox2.cell(1,incr)="G09.F":incr++
symbolslistbox2.cell(1,incr)="G0G.F":incr++
symbolslistbox2.cell(1,incr)="G14.F":incr++
symbolslistbox2.cell(1,incr)="G17.F":incr++
symbolslistbox2.cell(1,incr)="G1A.F":incr++
symbolslistbox2.cell(1,incr)="G1G.F":incr++
symbolslistbox2.cell(1,incr)="G1MN.F":incr++
symbolslistbox2.cell(1,incr)="G1P.F":incr++
symbolslistbox2.cell(1,incr)="G1V.F":incr++
symbolslistbox2.cell(1,incr)="G2C.F":incr++
'symbolslistbox2.cell(1,incr)="G2K1.F":incr++
symbolslistbox2.cell(1,incr)="G2M.F":incr++
symbolslistbox2.cell(1,incr)="G2O.F":incr++
'symbolslistbox2.cell(1,incr)="G2U.F":incr++
symbolslistbox2.cell(1,incr)="G2X.F":incr++
symbolslistbox2.cell(1,incr)="G2XJ.F":incr++
symbolslistbox2.cell(1,incr)="G3B.F":incr++
symbolslistbox2.cell(1,incr)="G3C.F":incr++
'symbolslistbox2.cell(1,incr)="G3E.F":incr++
symbolslistbox2.cell(1,incr)="G3J.F":incr++
symbolslistbox2.cell(1,incr)="G3U.F":incr++
symbolslistbox2.cell(1,incr)="G3V.F":incr++
symbolslistbox2.cell(1,incr)="G4U.F":incr++
symbolslistbox2.cell(1,incr)="G5HA.F":incr++
'symbolslistbox2.cell(1,incr)="G5M.F":incr++
'symbolslistbox2.cell(1,incr)="G5N.F":incr++
symbolslistbox2.cell(1,incr)="G6H.F":incr++
symbolslistbox2.cell(1,incr)="G6P.F":incr++
symbolslistbox2.cell(1,incr)="G7B.F":incr++
symbolslistbox2.cell(1,incr)="G7C.F":incr++
symbolslistbox2.cell(1,incr)="G7E.F":incr++
symbolslistbox2.cell(1,incr)="G7P.F":incr++
symbolslistbox2.cell(1,incr)="G7W.F":incr++
symbolslistbox2.cell(1,incr)="G84.F":incr++
symbolslistbox2.cell(1,incr)="G90.F":incr++
symbolslistbox2.cell(1,incr)="G91.F":incr++
symbolslistbox2.cell(1,incr)="G9N1.F":incr++
symbolslistbox2.cell(1,incr)="G9X.F":incr++
symbolslistbox2.cell(1,incr)="G9Y.F":incr++
symbolslistbox2.cell(1,incr)="GA7.F":incr++
symbolslistbox2.cell(1,incr)="GA8.F":incr++
symbolslistbox2.cell(1,incr)="GAB.F":incr++
'symbolslistbox2.cell(1,incr)="GAD.F":incr++
symbolslistbox2.cell(1,incr)="GAH.F":incr++
symbolslistbox2.cell(1,incr)="GAN.F":incr++
symbolslistbox2.cell(1,incr)="GAP.F":incr++
symbolslistbox2.cell(1,incr)="GAV.F":incr++
symbolslistbox2.cell(1,incr)="GBE.F":incr++
symbolslistbox2.cell(1,incr)="GBF.F":incr++
symbolslistbox2.cell(1,incr)="GBH.F":incr++
symbolslistbox2.cell(1,incr)="GBKB.F":incr++
symbolslistbox2.cell(1,incr)="GBMB.F":incr++
'symbolslistbox2.cell(1,incr)="GBRA.F":incr++
'symbolslistbox2.cell(1,incr)="GBSE.F":incr++
symbolslistbox2.cell(1,incr)="GBY.F":incr++
symbolslistbox2.cell(1,incr)="GC2U.F":incr++
symbolslistbox2.cell(1,incr)="GC40.F":incr++
'symbolslistbox2.cell(1,incr)="GC5.F":incr++
symbolslistbox2.cell(1,incr)="GC6.F":incr++
'symbolslistbox2.cell(1,incr)="GCI1.F":incr++
symbolslistbox2.cell(1,incr)="GCU.F":incr++
symbolslistbox2.cell(1,incr)="GCY.F":incr++
symbolslistbox2.cell(1,incr)="GCZB.F":incr++
'symbolslistbox2.cell(1,incr)="GD2.F":incr++
symbolslistbox2.cell(1,incr)="GD6.F":incr++
symbolslistbox2.cell(1,incr)="GD8A.F":incr++
symbolslistbox2.cell(1,incr)="GDM.F":incr++
symbolslistbox2.cell(1,incr)="GDX.F":incr++
symbolslistbox2.cell(1,incr)="GDZD.F":incr++
symbolslistbox2.cell(1,incr)="GE9.F":incr++
'symbolslistbox2.cell(1,incr)="GEC.F":incr++
symbolslistbox2.cell(1,incr)="GEF.F":incr++
symbolslistbox2.cell(1,incr)="GEG.F":incr++
'symbolslistbox2.cell(1,incr)="GEH.F":incr++
symbolslistbox2.cell(1,incr)="GEI.F":incr++
symbolslistbox2.cell(1,incr)="GEKA.F":incr++
'symbolslistbox2.cell(1,incr)="GEY.F":incr++
symbolslistbox2.cell(1,incr)="GF8.F":incr++
'symbolslistbox2.cell(1,incr)="GFC.F":incr++
symbolslistbox2.cell(1,incr)="GFEA.F":incr++
symbolslistbox2.cell(1,incr)="GFG.F":incr++
symbolslistbox2.cell(1,incr)="GFT.F":incr++
symbolslistbox2.cell(1,incr)="GFW1.F":incr++
'symbolslistbox2.cell(1,incr)="GFX.F":incr++
'symbolslistbox2.cell(1,incr)="GG3.F":incr++
symbolslistbox2.cell(1,incr)="GGD.F":incr++
symbolslistbox2.cell(1,incr)="GGG.F":incr++
symbolslistbox2.cell(1,incr)="GGK.F":incr++
symbolslistbox2.cell(1,incr)="GGN.F":incr++
symbolslistbox2.cell(1,incr)="GGRA.F":incr++
symbolslistbox2.cell(1,incr)="GGS.F":incr++
symbolslistbox2.cell(1,incr)="GGZ.F":incr++
symbolslistbox2.cell(1,incr)="GH3.F":incr++
symbolslistbox2.cell(1,incr)="GH8.F":incr++
symbolslistbox2.cell(1,incr)="GHA.F":incr++
symbolslistbox2.cell(1,incr)="GHFH.F":incr++
symbolslistbox2.cell(1,incr)="GHH.F":incr++
symbolslistbox2.cell(1,incr)="GHK.F":incr++
'symbolslistbox2.cell(1,incr)="GHN.F":incr++
symbolslistbox2.cell(1,incr)="GHO.F":incr++
symbolslistbox2.cell(1,incr)="GHU.F":incr++
symbolslistbox2.cell(1,incr)="GI0A.F":incr++
symbolslistbox2.cell(1,incr)="GI2.F":incr++
symbolslistbox2.cell(1,incr)="GI4.F":incr++
symbolslistbox2.cell(1,incr)="GIB.F":incr++
symbolslistbox2.cell(1,incr)="GIH.F":incr++
symbolslistbox2.cell(1,incr)="GIL.F":incr++
symbolslistbox2.cell(1,incr)="GIO.F":incr++
symbolslistbox2.cell(1,incr)="GIS.F":incr++
symbolslistbox2.cell(1,incr)="GIW.F":incr++
symbolslistbox2.cell(1,incr)="GJ7.F":incr++
symbolslistbox2.cell(1,incr)="GJB.F":incr++
'symbolslistbox2.cell(1,incr)="GJF.F":incr++
symbolslistbox2.cell(1,incr)="GK9.F":incr++
symbolslistbox2.cell(1,incr)="GKD.F":incr++
symbolslistbox2.cell(1,incr)="GKE.F":incr++
symbolslistbox2.cell(1,incr)="GKS.F":incr++
symbolslistbox2.cell(1,incr)="GLC.F":incr++
symbolslistbox2.cell(1,incr)="GLH.F":incr++
symbolslistbox2.cell(1,incr)="GLJ.F":incr++
symbolslistbox2.cell(1,incr)="GLN.F":incr++
symbolslistbox2.cell(1,incr)="GLO.F":incr++
symbolslistbox2.cell(1,incr)="GLUX.F":incr++
symbolslistbox2.cell(1,incr)="GLV.F":incr++
symbolslistbox2.cell(1,incr)="GLW.F":incr++
symbolslistbox2.cell(1,incr)="GM0N.F":incr++
symbolslistbox2.cell(1,incr)="GME.F":incr++
symbolslistbox2.cell(1,incr)="GMM.F":incr++
symbolslistbox2.cell(1,incr)="GN8.F":incr++
symbolslistbox2.cell(1,incr)="GNAR.F":incr++
'symbolslistbox2.cell(1,incr)="GNF.F":incr++
symbolslistbox2.cell(1,incr)="GNN.F":incr++
symbolslistbox2.cell(1,incr)="GNV.F":incr++
symbolslistbox2.cell(1,incr)="GOAI.F":incr++
symbolslistbox2.cell(1,incr)="GOB.F":incr++
symbolslistbox2.cell(1,incr)="GOC.F":incr++
symbolslistbox2.cell(1,incr)="GON.F":incr++
symbolslistbox2.cell(1,incr)="GOS.F":incr++
symbolslistbox2.cell(1,incr)="GOU.F":incr++
symbolslistbox2.cell(1,incr)="GOV.F":incr++
symbolslistbox2.cell(1,incr)="GOZ2.F":incr++
symbolslistbox2.cell(1,incr)="GP7.F":incr++
symbolslistbox2.cell(1,incr)="GP7A.F":incr++
symbolslistbox2.cell(1,incr)="GPI1.F":incr++
symbolslistbox2.cell(1,incr)="GPT.F":incr++
symbolslistbox2.cell(1,incr)="GQQ.F":incr++
symbolslistbox2.cell(1,incr)="GQR.F":incr++
symbolslistbox2.cell(1,incr)="GR3.F":incr++
symbolslistbox2.cell(1,incr)="GR8.F":incr++
symbolslistbox2.cell(1,incr)="GRA.F":incr++
symbolslistbox2.cell(1,incr)="GRB.F":incr++
symbolslistbox2.cell(1,incr)="GRCH.F":incr++
symbolslistbox2.cell(1,incr)="GRF.F":incr++
symbolslistbox2.cell(1,incr)="GRG.F":incr++
'symbolslistbox2.cell(1,incr)="GRJ.F":incr++
'symbolslistbox2.cell(1,incr)="GRL.F":incr++
symbolslistbox2.cell(1,incr)="GRM.F":incr++
symbolslistbox2.cell(1,incr)="GRR.F":incr++
symbolslistbox2.cell(1,incr)="GRU.F":incr++
symbolslistbox2.cell(1,incr)="GRV.F":incr++
symbolslistbox2.cell(1,incr)="GRZ.F":incr++
symbolslistbox2.cell(1,incr)="GS7.F":incr++
symbolslistbox2.cell(1,incr)="GS7A.F":incr++
symbolslistbox2.cell(1,incr)="GSA.F":incr++
symbolslistbox2.cell(1,incr)="GSC1.F":incr++
symbolslistbox2.cell(1,incr)="GSDE.F":incr++
symbolslistbox2.cell(1,incr)="GSG.F":incr++
symbolslistbox2.cell(1,incr)="GSR.F":incr++
symbolslistbox2.cell(1,incr)="GSZ.F":incr++
symbolslistbox2.cell(1,incr)="GTN.F":incr++
symbolslistbox2.cell(1,incr)="GTQ1.F":incr++
symbolslistbox2.cell(1,incr)="GTT.F":incr++
symbolslistbox2.cell(1,incr)="GTX.F":incr++
'symbolslistbox2.cell(1,incr)="GU2.F":incr++
symbolslistbox2.cell(1,incr)="GU5.F":incr++
symbolslistbox2.cell(1,incr)="GU8.F":incr++
symbolslistbox2.cell(1,incr)="GU9.F":incr++
symbolslistbox2.cell(1,incr)="GUE.F":incr++
symbolslistbox2.cell(1,incr)="GUG.F":incr++
symbolslistbox2.cell(1,incr)="GUI.F":incr++
symbolslistbox2.cell(1,incr)="GUJB.F":incr++
symbolslistbox2.cell(1,incr)="GUL.F":incr++
symbolslistbox2.cell(1,incr)="GUN.F":incr++
symbolslistbox2.cell(1,incr)="GUV.F":incr++
symbolslistbox2.cell(1,incr)="GUW.F":incr++
'symbolslistbox2.cell(1,incr)="GUZ.F":incr++
symbolslistbox2.cell(1,incr)="GV6.F":incr++
'symbolslistbox2.cell(1,incr)="GV8A.F":incr++
'symbolslistbox2.cell(1,incr)="GVM.F":incr++
'symbolslistbox2.cell(1,incr)="GW2A.F":incr++
symbolslistbox2.cell(1,incr)="GW4N.F":incr++
'symbolslistbox2.cell(1,incr)="GWA.F":incr++
symbolslistbox2.cell(1,incr)="GWS.F":incr++
symbolslistbox2.cell(1,incr)="GWW.F":incr++
symbolslistbox2.cell(1,incr)="GXCN.F":incr++
symbolslistbox2.cell(1,incr)="GXD.F":incr++
symbolslistbox2.cell(1,incr)="GXE.F":incr++
symbolslistbox2.cell(1,incr)="GXG.F":incr++
symbolslistbox2.cell(1,incr)="GXI.F":incr++
symbolslistbox2.cell(1,incr)="GXP1.F":incr++
symbolslistbox2.cell(1,incr)="GY5.F":incr++
symbolslistbox2.cell(1,incr)="GYC.F":incr++
symbolslistbox2.cell(1,incr)="GZ3.F":incr++
symbolslistbox2.cell(1,incr)="GZ5.F":incr++
symbolslistbox2.cell(1,incr)="GZF.F":incr++
symbolslistbox2.cell(1,incr)="GZT.F":incr++
symbolslistbox2.cell(1,incr)="H11.F":incr++
symbolslistbox2.cell(1,incr)="H1D5.F":incr++
symbolslistbox2.cell(1,incr)="H1Q.F":incr++
symbolslistbox2.cell(1,incr)="H24.F":incr++
symbolslistbox2.cell(1,incr)="H2J.F":incr++
'symbolslistbox2.cell(1,incr)="H2V.F":incr++
symbolslistbox2.cell(1,incr)="H3M.F":incr++
symbolslistbox2.cell(1,incr)="H410.F":incr++
symbolslistbox2.cell(1,incr)="H411.F":incr++
'symbolslistbox2.cell(1,incr)="H41I.F":incr++
symbolslistbox2.cell(1,incr)="H41J.F":incr++
symbolslistbox2.cell(1,incr)="H41K.F":incr++
symbolslistbox2.cell(1,incr)="H4L1.F":incr++
symbolslistbox2.cell(1,incr)="H4O.F":incr++
symbolslistbox2.cell(1,incr)="H4W.F":incr++
symbolslistbox2.cell(1,incr)="H4Z9.F":incr++
symbolslistbox2.cell(1,incr)="H4ZA.F":incr++
symbolslistbox2.cell(1,incr)="H4ZB.F":incr++
symbolslistbox2.cell(1,incr)="H4ZC.F":incr++
symbolslistbox2.cell(1,incr)="H4ZD.F":incr++
symbolslistbox2.cell(1,incr)="H4ZE.F":incr++
symbolslistbox2.cell(1,incr)="H4ZF.F":incr++
symbolslistbox2.cell(1,incr)="H4ZG.F":incr++
symbolslistbox2.cell(1,incr)="H4ZH.F":incr++
symbolslistbox2.cell(1,incr)="H4ZI.F":incr++
symbolslistbox2.cell(1,incr)="H4ZJ.F":incr++
symbolslistbox2.cell(1,incr)="H4ZK.F":incr++
symbolslistbox2.cell(1,incr)="H4ZL.F":incr++
symbolslistbox2.cell(1,incr)="H4ZM.F":incr++
symbolslistbox2.cell(1,incr)="H4ZP.F":incr++
symbolslistbox2.cell(1,incr)="H4ZQ.F":incr++
symbolslistbox2.cell(1,incr)="H4ZR.F":incr++
symbolslistbox2.cell(1,incr)="H4ZS.F":incr++
symbolslistbox2.cell(1,incr)="H4ZT.F":incr++
symbolslistbox2.cell(1,incr)="H4ZU.F":incr++
symbolslistbox2.cell(1,incr)="H4ZV.F":incr++
symbolslistbox2.cell(1,incr)="H4ZW.F":incr++
symbolslistbox2.cell(1,incr)="H5E.F":incr++
symbolslistbox2.cell(1,incr)="H5P.F":incr++
symbolslistbox2.cell(1,incr)="H6K.F":incr++
symbolslistbox2.cell(1,incr)="H6P.F":incr++
symbolslistbox2.cell(1,incr)="H6Q.F":incr++
symbolslistbox2.cell(1,incr)="H6W.F":incr++
symbolslistbox2.cell(1,incr)="H73.F":incr++
symbolslistbox2.cell(1,incr)="H7K.F":incr++
'symbolslistbox2.cell(1,incr)="H9O1.F":incr++
symbolslistbox2.cell(1,incr)="H9W.F":incr++
symbolslistbox2.cell(1,incr)="H9Y.F":incr++
symbolslistbox2.cell(1,incr)="HA3.F":incr++
symbolslistbox2.cell(1,incr)="HA7.F":incr++
'symbolslistbox2.cell(1,incr)="HAE.F":incr++
symbolslistbox2.cell(1,incr)="HAL.F":incr++
symbolslistbox2.cell(1,incr)="HAM1.F":incr++
symbolslistbox2.cell(1,incr)="HAO.F":incr++
'symbolslistbox2.cell(1,incr)="HAP1.F":incr++
symbolslistbox2.cell(1,incr)="HAR.F":incr++
symbolslistbox2.cell(1,incr)="HAW.F":incr++
symbolslistbox2.cell(1,incr)="HAY.F":incr++
symbolslistbox2.cell(1,incr)="HAZ.F":incr++
symbolslistbox2.cell(1,incr)="HB1.F":incr++
symbolslistbox2.cell(1,incr)="HB6.F":incr++
symbolslistbox2.cell(1,incr)="HBC1.F":incr++
symbolslistbox2.cell(1,incr)="HBD1.F":incr++
symbolslistbox2.cell(1,incr)="HBF.F":incr++
symbolslistbox2.cell(1,incr)="HBG.F":incr++
symbolslistbox2.cell(1,incr)="HBI.F":incr++
symbolslistbox2.cell(1,incr)="HBM.F":incr++
symbolslistbox2.cell(1,incr)="HBO.F":incr++
symbolslistbox2.cell(1,incr)="HBP.F":incr++
symbolslistbox2.cell(1,incr)="HC1.F":incr++
symbolslistbox2.cell(1,incr)="HC5.F":incr++
'symbolslistbox2.cell(1,incr)="HC7B.F":incr++
'symbolslistbox2.cell(1,incr)="HCD.F":incr++
symbolslistbox2.cell(1,incr)="HCG.F":incr++
symbolslistbox2.cell(1,incr)="HCH.F":incr++
symbolslistbox2.cell(1,incr)="HCL.F":incr++
symbolslistbox2.cell(1,incr)="HCM.F":incr++
symbolslistbox2.cell(1,incr)="HCQ.F":incr++
symbolslistbox2.cell(1,incr)="HCW.F":incr++
symbolslistbox2.cell(1,incr)="HDB.F":incr++
symbolslistbox2.cell(1,incr)="HDD.F":incr++
symbolslistbox2.cell(1,incr)="HDI.F":incr++
symbolslistbox2.cell(1,incr)="HDK.F":incr++
symbolslistbox2.cell(1,incr)="HDLV.F":incr++
symbolslistbox2.cell(1,incr)="HDP1.F":incr++
symbolslistbox2.cell(1,incr)="HDU.F":incr++
'symbolslistbox2.cell(1,incr)="HDZ.F":incr++
symbolslistbox2.cell(1,incr)="HE9.F":incr++
symbolslistbox2.cell(1,incr)="HEE.F":incr++
symbolslistbox2.cell(1,incr)="HEH.F":incr++
symbolslistbox2.cell(1,incr)="HEI.F":incr++
symbolslistbox2.cell(1,incr)="HEN.F":incr++
symbolslistbox2.cell(1,incr)="HETA.F":incr++
symbolslistbox2.cell(1,incr)="HF1.F":incr++
symbolslistbox2.cell(1,incr)="HF7N.F":incr++
'symbolslistbox2.cell(1,incr)="HFE.F":incr++
symbolslistbox2.cell(1,incr)="HFF.F":incr++
symbolslistbox2.cell(1,incr)="HG1.F":incr++
symbolslistbox2.cell(1,incr)="HG6.F":incr++
'symbolslistbox2.cell(1,incr)="HGG.F":incr++
'symbolslistbox2.cell(1,incr)="HGJ.F":incr++
'symbolslistbox2.cell(1,incr)="HGM.F":incr++
symbolslistbox2.cell(1,incr)="HGNC.F":incr++
symbolslistbox2.cell(1,incr)="HH1.F":incr++
symbolslistbox2.cell(1,incr)="HHE.F":incr++
symbolslistbox2.cell(1,incr)="HHFA.F":incr++
'symbolslistbox2.cell(1,incr)="HHI.F":incr++
symbolslistbox2.cell(1,incr)="HI4.F":incr++
'symbolslistbox2.cell(1,incr)="HI5.F":incr++
symbolslistbox2.cell(1,incr)="HI6.F":incr++
symbolslistbox2.cell(1,incr)="HIA1.F":incr++
symbolslistbox2.cell(1,incr)="HIFH.F":incr++
symbolslistbox2.cell(1,incr)="HIJ2.F":incr++
symbolslistbox2.cell(1,incr)="HIK.F":incr++
symbolslistbox2.cell(1,incr)="HIN.F":incr++
symbolslistbox2.cell(1,incr)="HIUC.F":incr++
'symbolslistbox2.cell(1,incr)="HJ2.F":incr++
symbolslistbox2.cell(1,incr)="HJ6A.F":incr++
symbolslistbox2.cell(1,incr)="HJI.F":incr++
symbolslistbox2.cell(1,incr)="HK2C.F":incr++
symbolslistbox2.cell(1,incr)="HK51.F":incr++
symbolslistbox2.cell(1,incr)="HKC.F":incr++
'symbolslistbox2.cell(1,incr)="HKE.F":incr++
'symbolslistbox2.cell(1,incr)="HKF.F":incr++
symbolslistbox2.cell(1,incr)="HKU.F":incr++
symbolslistbox2.cell(1,incr)="HKY.F":incr++
symbolslistbox2.cell(1,incr)="HL5.F":incr++
symbolslistbox2.cell(1,incr)="HL8.F":incr++
symbolslistbox2.cell(1,incr)="HLD.F":incr++
symbolslistbox2.cell(1,incr)="HLG.F":incr++
symbolslistbox2.cell(1,incr)="HLH.F":incr++
symbolslistbox2.cell(1,incr)="HLL.F":incr++
'symbolslistbox2.cell(1,incr)="HLM.F":incr++
symbolslistbox2.cell(1,incr)="HLPN.F":incr++
symbolslistbox2.cell(1,incr)="HLS.F":incr++
symbolslistbox2.cell(1,incr)="HLU.F":incr++
symbolslistbox2.cell(1,incr)="HLV.F":incr++
symbolslistbox2.cell(1,incr)="HLX.F":incr++
symbolslistbox2.cell(1,incr)="HM0.F":incr++
symbolslistbox2.cell(1,incr)="HM5.F":incr++
symbolslistbox2.cell(1,incr)="HMC.F":incr++
symbolslistbox2.cell(1,incr)="HMI.F":incr++
'symbolslistbox2.cell(1,incr)="HMM.F":incr++
symbolslistbox2.cell(1,incr)="HMO.F":incr++
symbolslistbox2.cell(1,incr)="HMSB.F":incr++
symbolslistbox2.cell(1,incr)="HMT.F":incr++
symbolslistbox2.cell(1,incr)="HMU.F":incr++
symbolslistbox2.cell(1,incr)="HN9.F":incr++
'symbolslistbox2.cell(1,incr)="HNIB.F":incr++
symbolslistbox2.cell(1,incr)="HNK1.F":incr++
symbolslistbox2.cell(1,incr)="HNL.F":incr++
symbolslistbox2.cell(1,incr)="HNM.F":incr++
symbolslistbox2.cell(1,incr)="HNN.F":incr++
symbolslistbox2.cell(1,incr)="HNR1.F":incr++
symbolslistbox2.cell(1,incr)="HO1.F":incr++
symbolslistbox2.cell(1,incr)="HO2.F":incr++
'symbolslistbox2.cell(1,incr)="HO5.F":incr++
symbolslistbox2.cell(1,incr)="HO7.F":incr++
symbolslistbox2.cell(1,incr)="HO9.F":incr++
symbolslistbox2.cell(1,incr)="HOD.F":incr++
symbolslistbox2.cell(1,incr)="HOJ.F":incr++
symbolslistbox2.cell(1,incr)="HOO.F":incr++
symbolslistbox2.cell(1,incr)="HOT.F":incr++
symbolslistbox2.cell(1,incr)="HOU.F":incr++
symbolslistbox2.cell(1,incr)="HOX.F":incr++
'symbolslistbox2.cell(1,incr)="HOZ.F":incr++
'symbolslistbox2.cell(1,incr)="HP3.F":incr++
'symbolslistbox2.cell(1,incr)="HP4.F":incr++
symbolslistbox2.cell(1,incr)="HP6H.F":incr++
symbolslistbox2.cell(1,incr)="HPC.F":incr++
symbolslistbox2.cell(1,incr)="HPD.F":incr++
symbolslistbox2.cell(1,incr)="HPE.F":incr++
'symbolslistbox2.cell(1,incr)="HPG1.F":incr++
'symbolslistbox2.cell(1,incr)="HPJN.F":incr++
symbolslistbox2.cell(1,incr)="HPO.F":incr++
symbolslistbox2.cell(1,incr)="HPR.F":incr++
symbolslistbox2.cell(1,incr)="HPU.F":incr++
symbolslistbox2.cell(1,incr)="HPX.F":incr++
symbolslistbox2.cell(1,incr)="HQF.F":incr++
symbolslistbox2.cell(1,incr)="HQK.F":incr++
symbolslistbox2.cell(1,incr)="HQS.F":incr++
symbolslistbox2.cell(1,incr)="HR5.F":incr++
symbolslistbox2.cell(1,incr)="HR6.F":incr++
symbolslistbox2.cell(1,incr)="HR7.F":incr++
symbolslistbox2.cell(1,incr)="HRB.F":incr++
symbolslistbox2.cell(1,incr)="HRH.F":incr++
symbolslistbox2.cell(1,incr)="HRJ1.F":incr++
symbolslistbox2.cell(1,incr)="HRO.F":incr++
symbolslistbox2.cell(1,incr)="HRPK.F":incr++
symbolslistbox2.cell(1,incr)="HRS.F":incr++
symbolslistbox2.cell(1,incr)="HRT.F":incr++
symbolslistbox2.cell(1,incr)="HRZ.F":incr++
symbolslistbox2.cell(1,incr)="HS0.F":incr++
symbolslistbox2.cell(1,incr)="HS1.F":incr++
symbolslistbox2.cell(1,incr)="HS2.F":incr++
symbolslistbox2.cell(1,incr)="HS6.F":incr++
symbolslistbox2.cell(1,incr)="HSB.F":incr++
symbolslistbox2.cell(1,incr)="HSG.F":incr++
symbolslistbox2.cell(1,incr)="HSKN.F":incr++
symbolslistbox2.cell(1,incr)="HSY.F":incr++
symbolslistbox2.cell(1,incr)="HSZ.F":incr++
symbolslistbox2.cell(1,incr)="HT2.F":incr++
symbolslistbox2.cell(1,incr)="HT4.F":incr++
symbolslistbox2.cell(1,incr)="HTD.F":incr++
symbolslistbox2.cell(1,incr)="HTR.F":incr++
symbolslistbox2.cell(1,incr)="HU3.F":incr++
symbolslistbox2.cell(1,incr)="HU7.F":incr++
symbolslistbox2.cell(1,incr)="HUA.F":incr++
symbolslistbox2.cell(1,incr)="HUEC.F":incr++
symbolslistbox2.cell(1,incr)="HUKI.F":incr++
'symbolslistbox2.cell(1,incr)="HUL.F":incr++
symbolslistbox2.cell(1,incr)="HUM.F":incr++
symbolslistbox2.cell(1,incr)="HUN2.F":incr++
symbolslistbox2.cell(1,incr)="HUP1.F":incr++
symbolslistbox2.cell(1,incr)="HVB.F":incr++
'symbolslistbox2.cell(1,incr)="HVP.F":incr++
symbolslistbox2.cell(1,incr)="HWC.F":incr++
symbolslistbox2.cell(1,incr)="HWI.F":incr++
symbolslistbox2.cell(1,incr)="HX1A.F":incr++
'symbolslistbox2.cell(1,incr)="HX6.F":incr++
'symbolslistbox2.cell(1,incr)="HXGB.F":incr++
symbolslistbox2.cell(1,incr)="HXL.F":incr++
symbolslistbox2.cell(1,incr)="HXXB.F":incr++
symbolslistbox2.cell(1,incr)="HY3M.F":incr++
symbolslistbox2.cell(1,incr)="HY5A.F":incr++
symbolslistbox2.cell(1,incr)="HY7.F":incr++
symbolslistbox2.cell(1,incr)="HYB.F":incr++
symbolslistbox2.cell(1,incr)="HYEA.F":incr++
symbolslistbox2.cell(1,incr)="HYI.F":incr++
symbolslistbox2.cell(1,incr)="HYK.F":incr++
symbolslistbox2.cell(1,incr)="HYN.F":incr++
symbolslistbox2.cell(1,incr)="HYQ.F":incr++
symbolslistbox2.cell(1,incr)="HYU.F":incr++
symbolslistbox2.cell(1,incr)="HYVN.F":incr++
symbolslistbox2.cell(1,incr)="HZ8.F":incr++
symbolslistbox2.cell(1,incr)="HZJ.F":incr++
symbolslistbox2.cell(1,incr)="HZS.F":incr++
symbolslistbox2.cell(1,incr)="I10.F":incr++
symbolslistbox2.cell(1,incr)="I1M.F":incr++
symbolslistbox2.cell(1,incr)="I3A1.F":incr++
symbolslistbox2.cell(1,incr)="I3B.F":incr++
symbolslistbox2.cell(1,incr)="I3F.F":incr++
symbolslistbox2.cell(1,incr)="I3N.F":incr++
'symbolslistbox2.cell(1,incr)="I3X.F":incr++
symbolslistbox2.cell(1,incr)="I43.F":incr++
symbolslistbox2.cell(1,incr)="I4F.F":incr++
symbolslistbox2.cell(1,incr)="I4P.F":incr++
'symbolslistbox2.cell(1,incr)="I4U.F":incr++
symbolslistbox2.cell(1,incr)="I5G.F":incr++
symbolslistbox2.cell(1,incr)="I5M.F":incr++
'symbolslistbox2.cell(1,incr)="I5N.F":incr++
symbolslistbox2.cell(1,incr)="I5P.F":incr++
symbolslistbox2.cell(1,incr)="I5Q1.F":incr++
symbolslistbox2.cell(1,incr)="I5U.F":incr++
symbolslistbox2.cell(1,incr)="I6I.F":incr++
symbolslistbox2.cell(1,incr)="I76.F":incr++
symbolslistbox2.cell(1,incr)="I7B.F":incr++
symbolslistbox2.cell(1,incr)="I7G.F":incr++
symbolslistbox2.cell(1,incr)="I7N.F":incr++
symbolslistbox2.cell(1,incr)="I8D.F":incr++
symbolslistbox2.cell(1,incr)="I8M.F":incr++
symbolslistbox2.cell(1,incr)="I8R.F":incr++
'symbolslistbox2.cell(1,incr)="I8T.F":incr++
symbolslistbox2.cell(1,incr)="I8U.F":incr++
symbolslistbox2.cell(1,incr)="I93.F":incr++
'symbolslistbox2.cell(1,incr)="I97.F":incr++
symbolslistbox2.cell(1,incr)="I9CA.F":incr++
symbolslistbox2.cell(1,incr)="IA6.F":incr++
symbolslistbox2.cell(1,incr)="IAH.F":incr++
symbolslistbox2.cell(1,incr)="IAL.F":incr++
symbolslistbox2.cell(1,incr)="IBC0.F":incr++
symbolslistbox2.cell(1,incr)="IBC2.F":incr++
symbolslistbox2.cell(1,incr)="IBC3.F":incr++
symbolslistbox2.cell(1,incr)="IBC4.F":incr++
symbolslistbox2.cell(1,incr)="IBC5.F":incr++
symbolslistbox2.cell(1,incr)="IBC6.F":incr++
symbolslistbox2.cell(1,incr)="IBC7.F":incr++
symbolslistbox2.cell(1,incr)="IBC9.F":incr++
symbolslistbox2.cell(1,incr)="IBCA.F":incr++
symbolslistbox2.cell(1,incr)="IBCD.F":incr++
symbolslistbox2.cell(1,incr)="IBCF.F":incr++
symbolslistbox2.cell(1,incr)="IBCG.F":incr++
symbolslistbox2.cell(1,incr)="IBCH.F":incr++
symbolslistbox2.cell(1,incr)="IBCI.F":incr++
symbolslistbox2.cell(1,incr)="IBCJ.F":incr++
symbolslistbox2.cell(1,incr)="IBCK.F":incr++
symbolslistbox2.cell(1,incr)="IBCL.F":incr++
symbolslistbox2.cell(1,incr)="IBCM.F":incr++
symbolslistbox2.cell(1,incr)="IBCN.F":incr++
symbolslistbox2.cell(1,incr)="IBCQ.F":incr++
symbolslistbox2.cell(1,incr)="IBCS.F":incr++
symbolslistbox2.cell(1,incr)="IBCY.F":incr++
symbolslistbox2.cell(1,incr)="IBCZ.F":incr++
symbolslistbox2.cell(1,incr)="IBE1.F":incr++
symbolslistbox2.cell(1,incr)="IBI.F":incr++
symbolslistbox2.cell(1,incr)="IBM.F":incr++
symbolslistbox2.cell(1,incr)="IBT.F":incr++
symbolslistbox2.cell(1,incr)="IC1H.F":incr++
symbolslistbox2.cell(1,incr)="IC2.F":incr++
symbolslistbox2.cell(1,incr)="IC7.F":incr++
symbolslistbox2.cell(1,incr)="IC8.F":incr++
symbolslistbox2.cell(1,incr)="ICA.F":incr++
symbolslistbox2.cell(1,incr)="ICK.F":incr++
symbolslistbox2.cell(1,incr)="ICW5.F":incr++
symbolslistbox2.cell(1,incr)="ICY.F":incr++
symbolslistbox2.cell(1,incr)="ID6.F":incr++
symbolslistbox2.cell(1,incr)="ID7.F":incr++
symbolslistbox2.cell(1,incr)="IDA.F":incr++
symbolslistbox2.cell(1,incr)="IDC2.F":incr++
symbolslistbox2.cell(1,incr)="IDD.F":incr++
symbolslistbox2.cell(1,incr)="IDG.F":incr++
symbolslistbox2.cell(1,incr)="IDI.F":incr++
symbolslistbox2.cell(1,incr)="IDJ.F":incr++
symbolslistbox2.cell(1,incr)="IDO1.F":incr++
symbolslistbox2.cell(1,incr)="IDP.F":incr++
symbolslistbox2.cell(1,incr)="IDVA.F":incr++
symbolslistbox2.cell(1,incr)="IDZ.F":incr++
'symbolslistbox2.cell(1,incr)="IE7.F":incr++
'symbolslistbox2.cell(1,incr)="IEF.F":incr++
'symbolslistbox2.cell(1,incr)="IEG.F":incr++
symbolslistbox2.cell(1,incr)="IEI.F":incr++
symbolslistbox2.cell(1,incr)="IES.F":incr++
symbolslistbox2.cell(1,incr)="IF6N.F":incr++
symbolslistbox2.cell(1,incr)="IF7.F":incr++
symbolslistbox2.cell(1,incr)="IFA.F":incr++
symbolslistbox2.cell(1,incr)="IFF.F":incr++
symbolslistbox2.cell(1,incr)="IFGA.F":incr++
symbolslistbox2.cell(1,incr)="IFS.F":incr++
symbolslistbox2.cell(1,incr)="IFX.F":incr++
'symbolslistbox2.cell(1,incr)="IFZ.F":incr++
'symbolslistbox2.cell(1,incr)="IGN.F":incr++
symbolslistbox2.cell(1,incr)="IGS1.F":incr++
'symbolslistbox2.cell(1,incr)="IHB.F":incr++
symbolslistbox2.cell(1,incr)="IHCB.F":incr++
'symbolslistbox2.cell(1,incr)="IHM.F":incr++
symbolslistbox2.cell(1,incr)="IHP.F":incr++
'symbolslistbox2.cell(1,incr)="IHR.F":incr++
symbolslistbox2.cell(1,incr)="II6.F":incr++
symbolslistbox2.cell(1,incr)="II8.F":incr++
'symbolslistbox2.cell(1,incr)="IIE.F":incr++
symbolslistbox2.cell(1,incr)="IJ7.F":incr++
symbolslistbox2.cell(1,incr)="IJ8.F":incr++
symbolslistbox2.cell(1,incr)="IJCA.F":incr++
symbolslistbox2.cell(1,incr)="IJSA.F":incr++
symbolslistbox2.cell(1,incr)="IJU.F":incr++
symbolslistbox2.cell(1,incr)="IKF.F":incr++
symbolslistbox2.cell(1,incr)="IKL.F":incr++
symbolslistbox2.cell(1,incr)="IKP.F":incr++
'symbolslistbox2.cell(1,incr)="IL2.F":incr++
symbolslistbox2.cell(1,incr)="IL3.F":incr++
symbolslistbox2.cell(1,incr)="IL8.F":incr++
symbolslistbox2.cell(1,incr)="ILT.F":incr++
symbolslistbox2.cell(1,incr)="ILU.F":incr++
symbolslistbox2.cell(1,incr)="ILZ.F":incr++
symbolslistbox2.cell(1,incr)="IM2A.F":incr++
'symbolslistbox2.cell(1,incr)="IM3.F":incr++
symbolslistbox2.cell(1,incr)="IM8N.F":incr++
'symbolslistbox2.cell(1,incr)="IM9.F":incr++
symbolslistbox2.cell(1,incr)="IMA.F":incr++
'symbolslistbox2.cell(1,incr)="IMB.F":incr++
symbolslistbox2.cell(1,incr)="IMI1.F":incr++
symbolslistbox2.cell(1,incr)="IMO1.F":incr++
symbolslistbox2.cell(1,incr)="IMP.F":incr++
symbolslistbox2.cell(1,incr)="IMQ1.F":incr++
symbolslistbox2.cell(1,incr)="IMS.F":incr++
'symbolslistbox2.cell(1,incr)="IMTA.F":incr++
symbolslistbox2.cell(1,incr)="IMU.F":incr++
symbolslistbox2.cell(1,incr)="IMV.F":incr++
symbolslistbox2.cell(1,incr)="IMW.F":incr++
'symbolslistbox2.cell(1,incr)="IN0.F":incr++
symbolslistbox2.cell(1,incr)="INH.F":incr++
symbolslistbox2.cell(1,incr)="INL.F":incr++
symbolslistbox2.cell(1,incr)="INP.F":incr++
symbolslistbox2.cell(1,incr)="INR.F":incr++
'symbolslistbox2.cell(1,incr)="IO0.F":incr++
symbolslistbox2.cell(1,incr)="IO5A.F":incr++
symbolslistbox2.cell(1,incr)="IO8N.F":incr++
symbolslistbox2.cell(1,incr)="IOC.F":incr++
'symbolslistbox2.cell(1,incr)="IOJ.F":incr++
symbolslistbox2.cell(1,incr)="IOY.F":incr++
symbolslistbox2.cell(1,incr)="IPF.F":incr++
symbolslistbox2.cell(1,incr)="IPG.F":incr++
symbolslistbox2.cell(1,incr)="IPHB.F":incr++
symbolslistbox2.cell(1,incr)="IPJ1.F":incr++
symbolslistbox2.cell(1,incr)="IPZ.F":incr++
symbolslistbox2.cell(1,incr)="IQ3.F":incr++
symbolslistbox2.cell(1,incr)="IQ8.F":incr++
symbolslistbox2.cell(1,incr)="IQI.F":incr++
symbolslistbox2.cell(1,incr)="IQQ0.F":incr++
symbolslistbox2.cell(1,incr)="IQQ4.F":incr++
symbolslistbox2.cell(1,incr)="IQQ5.F":incr++
symbolslistbox2.cell(1,incr)="IQQ6.F":incr++
symbolslistbox2.cell(1,incr)="IQQ7.F":incr++
symbolslistbox2.cell(1,incr)="IQQ9.F":incr++
symbolslistbox2.cell(1,incr)="IQQA.F":incr++
symbolslistbox2.cell(1,incr)="IQQB.F":incr++
symbolslistbox2.cell(1,incr)="IQQC.F":incr++
symbolslistbox2.cell(1,incr)="IQQD.F":incr++
symbolslistbox2.cell(1,incr)="IQQE.F":incr++
symbolslistbox2.cell(1,incr)="IQQF.F":incr++
symbolslistbox2.cell(1,incr)="IQQG.F":incr++
symbolslistbox2.cell(1,incr)="IQQH.F":incr++
symbolslistbox2.cell(1,incr)="IQQI.F":incr++
symbolslistbox2.cell(1,incr)="IQQJ.F":incr++
symbolslistbox2.cell(1,incr)="IQQK.F":incr++
symbolslistbox2.cell(1,incr)="IQQL.F":incr++
symbolslistbox2.cell(1,incr)="IQQM.F":incr++
symbolslistbox2.cell(1,incr)="IQQN.F":incr++
symbolslistbox2.cell(1,incr)="IQQP.F":incr++
symbolslistbox2.cell(1,incr)="IQQQ.F":incr++
symbolslistbox2.cell(1,incr)="IQQR.F":incr++
symbolslistbox2.cell(1,incr)="IQQS.F":incr++
symbolslistbox2.cell(1,incr)="IQQT.F":incr++
symbolslistbox2.cell(1,incr)="IQQU.F":incr++
'symbolslistbox2.cell(1,incr)="IQQV.F":incr++
symbolslistbox2.cell(1,incr)="IQQX.F":incr++
symbolslistbox2.cell(1,incr)="IQQY.F":incr++
symbolslistbox2.cell(1,incr)="IRN.F":incr++
symbolslistbox2.cell(1,incr)="IROB.F":incr++
symbolslistbox2.cell(1,incr)="IS04.F":incr++
symbolslistbox2.cell(1,incr)="IS06.F":incr++
symbolslistbox2.cell(1,incr)="IS07.F":incr++
symbolslistbox2.cell(1,incr)="IS0D.F":incr++
symbolslistbox2.cell(1,incr)="IS0E.F":incr++
symbolslistbox2.cell(1,incr)="IS0L.F":incr++
symbolslistbox2.cell(1,incr)="IS0M.F":incr++
symbolslistbox2.cell(1,incr)="IS0P.F":incr++
symbolslistbox2.cell(1,incr)="IS0Q.F":incr++
symbolslistbox2.cell(1,incr)="IS0R.F":incr++
symbolslistbox2.cell(1,incr)="IS0S.F":incr++
symbolslistbox2.cell(1,incr)="IS0X.F":incr++
symbolslistbox2.cell(1,incr)="IS0Y.F":incr++
symbolslistbox2.cell(1,incr)="IS0Z.F":incr++
symbolslistbox2.cell(1,incr)="IS31.F":incr++
symbolslistbox2.cell(1,incr)="IS3B.F":incr++
symbolslistbox2.cell(1,incr)="IS3C.F":incr++
symbolslistbox2.cell(1,incr)="IS3F.F":incr++
symbolslistbox2.cell(1,incr)="IS3G.F":incr++
symbolslistbox2.cell(1,incr)="IS3H.F":incr++
symbolslistbox2.cell(1,incr)="IS3J.F":incr++
symbolslistbox2.cell(1,incr)="IS3K.F":incr++
symbolslistbox2.cell(1,incr)="IS3L.F":incr++
symbolslistbox2.cell(1,incr)="IS3M.F":incr++
symbolslistbox2.cell(1,incr)="IS3N.F":incr++
symbolslistbox2.cell(1,incr)="IS3Q.F":incr++
symbolslistbox2.cell(1,incr)="IS3R.F":incr++
symbolslistbox2.cell(1,incr)="IS3S.F":incr++
symbolslistbox2.cell(1,incr)="IS3T.F":incr++
symbolslistbox2.cell(1,incr)="IS3U.F":incr++
symbolslistbox2.cell(1,incr)="IS4S.F":incr++
symbolslistbox2.cell(1,incr)="IS7.F":incr++
symbolslistbox2.cell(1,incr)="IS8.F":incr++
symbolslistbox2.cell(1,incr)="ISI.F":incr++
symbolslistbox2.cell(1,incr)="ISM.F":incr++
symbolslistbox2.cell(1,incr)="ISPA.F":incr++
'symbolslistbox2.cell(1,incr)="ISR.F":incr++
'symbolslistbox2.cell(1,incr)="ISTM.F":incr++
symbolslistbox2.cell(1,incr)="ISW.F":incr++
symbolslistbox2.cell(1,incr)="IT1.F":incr++
'symbolslistbox2.cell(1,incr)="IT3A.F":incr++
symbolslistbox2.cell(1,incr)="IT6.F":incr++
symbolslistbox2.cell(1,incr)="ITB.F":incr++
'symbolslistbox2.cell(1,incr)="ITE.F":incr++
symbolslistbox2.cell(1,incr)="ITH.F":incr++
'symbolslistbox2.cell(1,incr)="ITJ.F":incr++
symbolslistbox2.cell(1,incr)="ITN.F":incr++
symbolslistbox2.cell(1,incr)="ITP.F":incr++
symbolslistbox2.cell(1,incr)="ITU.F":incr++
symbolslistbox2.cell(1,incr)="IU2.F":incr++
symbolslistbox2.cell(1,incr)="IU5C.F":incr++
symbolslistbox2.cell(1,incr)="IUC1.F":incr++
symbolslistbox2.cell(1,incr)="IUI1.F":incr++
symbolslistbox2.cell(1,incr)="IUQ.F":incr++
symbolslistbox2.cell(1,incr)="IUR.F":incr++
symbolslistbox2.cell(1,incr)="IUS2.F":incr++
symbolslistbox2.cell(1,incr)="IUS3.F":incr++
symbolslistbox2.cell(1,incr)="IUS4.F":incr++
symbolslistbox2.cell(1,incr)="IUS5.F":incr++
symbolslistbox2.cell(1,incr)="IUS6.F":incr++
symbolslistbox2.cell(1,incr)="IUS7.F":incr++
symbolslistbox2.cell(1,incr)="IUS8.F":incr++
symbolslistbox2.cell(1,incr)="IUSC.F":incr++
symbolslistbox2.cell(1,incr)="IUSK.F":incr++
symbolslistbox2.cell(1,incr)="IUSL.F":incr++
symbolslistbox2.cell(1,incr)="IUSM.F":incr++
symbolslistbox2.cell(1,incr)="IUSN.F":incr++
symbolslistbox2.cell(1,incr)="IUSP.F":incr++
symbolslistbox2.cell(1,incr)="IUSQ.F":incr++
'symbolslistbox2.cell(1,incr)="IUSR.F":incr++
symbolslistbox2.cell(1,incr)="IUST.F":incr++
symbolslistbox2.cell(1,incr)="IUSU.F":incr++
symbolslistbox2.cell(1,incr)="IUSZ.F":incr++
symbolslistbox2.cell(1,incr)="IV3.F":incr++
symbolslistbox2.cell(1,incr)="IV8.F":incr++
symbolslistbox2.cell(1,incr)="IVKA.F":incr++
'symbolslistbox2.cell(1,incr)="IVSA.F":incr++
'symbolslistbox2.cell(1,incr)="IVSB.F":incr++
symbolslistbox2.cell(1,incr)="IVU.F":incr++
symbolslistbox2.cell(1,incr)="IVX.F":incr++
symbolslistbox2.cell(1,incr)="IW2.F":incr++
symbolslistbox2.cell(1,incr)="IW3.F":incr++
symbolslistbox2.cell(1,incr)="IWJ.F":incr++
symbolslistbox2.cell(1,incr)="IX1.F":incr++
'symbolslistbox2.cell(1,incr)="IX4.F":incr++
symbolslistbox2.cell(1,incr)="IX6.F":incr++
symbolslistbox2.cell(1,incr)="IXX.F":incr++
symbolslistbox2.cell(1,incr)="IY4.F":incr++
symbolslistbox2.cell(1,incr)="IY5.F":incr++
symbolslistbox2.cell(1,incr)="IYAA.F":incr++
symbolslistbox2.cell(1,incr)="IZ1.F":incr++
'symbolslistbox2.cell(1,incr)="IZ3.F":incr++
'symbolslistbox2.cell(1,incr)="IZ8A.F":incr++
symbolslistbox2.cell(1,incr)="IZB.F":incr++
symbolslistbox2.cell(1,incr)="J1GR.F":incr++
symbolslistbox2.cell(1,incr)="J2B.F":incr++
symbolslistbox2.cell(1,incr)="J2E.F":incr++
symbolslistbox2.cell(1,incr)="J2S.F":incr++
symbolslistbox2.cell(1,incr)="J4O.F":incr++
symbolslistbox2.cell(1,incr)="J4S.F":incr++
symbolslistbox2.cell(1,incr)="J6I.F":incr++
symbolslistbox2.cell(1,incr)="J6W.F":incr++
symbolslistbox2.cell(1,incr)="J7K.F":incr++
symbolslistbox2.cell(1,incr)="J7Z.F":incr++
symbolslistbox2.cell(1,incr)="J8D.F":incr++
'symbolslistbox2.cell(1,incr)="J9B.F":incr++
symbolslistbox2.cell(1,incr)="J9R.F":incr++
symbolslistbox2.cell(1,incr)="JA13.F":incr++
symbolslistbox2.cell(1,incr)="JAF.F":incr++
symbolslistbox2.cell(1,incr)="JAN.F":incr++
symbolslistbox2.cell(1,incr)="JAP.F":incr++
symbolslistbox2.cell(1,incr)="JAT.F":incr++
symbolslistbox2.cell(1,incr)="JAW.F":incr++
symbolslistbox2.cell(1,incr)="JB2.F":incr++
symbolslistbox2.cell(1,incr)="JB3.F":incr++
symbolslistbox2.cell(1,incr)="JBL.F":incr++
symbolslistbox2.cell(1,incr)="JBT.F":incr++
symbolslistbox2.cell(1,incr)="JBX.F":incr++
symbolslistbox2.cell(1,incr)="JCM.F":incr++
'symbolslistbox2.cell(1,incr)="JCP.F":incr++
symbolslistbox2.cell(1,incr)="JE13.F":incr++
symbolslistbox2.cell(1,incr)="JE2.F":incr++
symbolslistbox2.cell(1,incr)="JE3.F":incr++
symbolslistbox2.cell(1,incr)="JE9N.F":incr++
symbolslistbox2.cell(1,incr)="JEG.F":incr++
symbolslistbox2.cell(1,incr)="JEH.F":incr++
symbolslistbox2.cell(1,incr)="JEJ.F":incr++
symbolslistbox2.cell(1,incr)="JEM.F":incr++
symbolslistbox2.cell(1,incr)="JEN.F":incr++
symbolslistbox2.cell(1,incr)="JEP.F":incr++
symbolslistbox2.cell(1,incr)="JER5.F":incr++
symbolslistbox2.cell(1,incr)="JEST.F":incr++
symbolslistbox2.cell(1,incr)="JF1.F":incr++
symbolslistbox2.cell(1,incr)="JFM.F":incr++
symbolslistbox2.cell(1,incr)="JFR.F":incr++
symbolslistbox2.cell(1,incr)="JGA.F":incr++
'symbolslistbox2.cell(1,incr)="JGE.F":incr++
symbolslistbox2.cell(1,incr)="JHJ.F":incr++
symbolslistbox2.cell(1,incr)="JHU1.F":incr++
symbolslistbox2.cell(1,incr)="JHY.F":incr++
symbolslistbox2.cell(1,incr)="JI3.F":incr++
symbolslistbox2.cell(1,incr)="JI5.F":incr++
symbolslistbox2.cell(1,incr)="JIX.F":incr++
symbolslistbox2.cell(1,incr)="JKX.F":incr++
symbolslistbox2.cell(1,incr)="JM2.F":incr++
'symbolslistbox2.cell(1,incr)="JM4A.F":incr++
symbolslistbox2.cell(1,incr)="JMBE.F":incr++
symbolslistbox2.cell(1,incr)="JMD.F":incr++
'symbolslistbox2.cell(1,incr)="JMFE.F":incr++
symbolslistbox2.cell(1,incr)="JMI.F":incr++
symbolslistbox2.cell(1,incr)="JMM.F":incr++
symbolslistbox2.cell(1,incr)="JMX.F":incr++
symbolslistbox2.cell(1,incr)="JNJ.F":incr++
symbolslistbox2.cell(1,incr)="JNP.F":incr++
symbolslistbox2.cell(1,incr)="JOE.F":incr++
symbolslistbox2.cell(1,incr)="JOT.F":incr++
'symbolslistbox2.cell(1,incr)="JP0.F":incr++
'symbolslistbox2.cell(1,incr)="JP1.F":incr++
symbolslistbox2.cell(1,incr)="JP40.F":incr++
symbolslistbox2.cell(1,incr)="JP4H.F":incr++
symbolslistbox2.cell(1,incr)="JP9.F":incr++
symbolslistbox2.cell(1,incr)="JPBM.F":incr++
'symbolslistbox2.cell(1,incr)="JPGM.F":incr++
symbolslistbox2.cell(1,incr)="JPNH.F":incr++
symbolslistbox2.cell(1,incr)="JPPS.F":incr++
symbolslistbox2.cell(1,incr)="JPX.F":incr++
symbolslistbox2.cell(1,incr)="JREB.F":incr++
symbolslistbox2.cell(1,incr)="JREE.F":incr++
symbolslistbox2.cell(1,incr)="JREG.F":incr++
symbolslistbox2.cell(1,incr)="JREM.F":incr++
symbolslistbox2.cell(1,incr)="JREU.F":incr++
symbolslistbox2.cell(1,incr)="JRUB.F":incr++
symbolslistbox2.cell(1,incr)="JSE.F":incr++
symbolslistbox2.cell(1,incr)="JSRI.F":incr++
symbolslistbox2.cell(1,incr)="JSY.F":incr++
symbolslistbox2.cell(1,incr)="JT5.F":incr++
symbolslistbox2.cell(1,incr)="JTI.F":incr++
symbolslistbox2.cell(1,incr)="JUB.F":incr++
symbolslistbox2.cell(1,incr)="JUE.F":incr++
symbolslistbox2.cell(1,incr)="JUS1.F":incr++
symbolslistbox2.cell(1,incr)="JUVE.F":incr++
symbolslistbox2.cell(1,incr)="JVC.F":incr++
symbolslistbox2.cell(1,incr)="JWG1.F":incr++
symbolslistbox2.cell(1,incr)="JXC1.F":incr++
'symbolslistbox2.cell(1,incr)="JY21.F":incr++
symbolslistbox2.cell(1,incr)="JYA.F":incr++
symbolslistbox2.cell(1,incr)="JYR.F":incr++
symbolslistbox2.cell(1,incr)="JYS1.F":incr++
'symbolslistbox2.cell(1,incr)="K1N.F":incr++
'symbolslistbox2.cell(1,incr)="K1Q.F":incr++
symbolslistbox2.cell(1,incr)="K1R.F":incr++
symbolslistbox2.cell(1,incr)="K1SN.F":incr++
symbolslistbox2.cell(1,incr)="K20A.F":incr++
symbolslistbox2.cell(1,incr)="K21.F":incr++
symbolslistbox2.cell(1,incr)="K22.F":incr++
symbolslistbox2.cell(1,incr)="K2Y.F":incr++
symbolslistbox2.cell(1,incr)="K34.F":incr++
symbolslistbox2.cell(1,incr)="K3A.F":incr++
symbolslistbox2.cell(1,incr)="K4I.F":incr++
symbolslistbox2.cell(1,incr)="K6B.F":incr++
symbolslistbox2.cell(1,incr)="K7A.F":incr++
symbolslistbox2.cell(1,incr)="K8A.F":incr++
'symbolslistbox2.cell(1,incr)="K90.F":incr++
'symbolslistbox2.cell(1,incr)="KA3.F":incr++
symbolslistbox2.cell(1,incr)="KA6N.F":incr++
symbolslistbox2.cell(1,incr)="KA8.F":incr++
symbolslistbox2.cell(1,incr)="KAJ.F":incr++
'symbolslistbox2.cell(1,incr)="KAN.F":incr++
symbolslistbox2.cell(1,incr)="KAO.F":incr++
symbolslistbox2.cell(1,incr)="KAP.F":incr++
'symbolslistbox2.cell(1,incr)="KAX2.F":incr++
symbolslistbox2.cell(1,incr)="KB1B.F":incr++
symbolslistbox2.cell(1,incr)="KB2.F":incr++
symbolslistbox2.cell(1,incr)="KB9.F":incr++
symbolslistbox2.cell(1,incr)="KBH.F":incr++
'symbolslistbox2.cell(1,incr)="KBK.F":incr++
symbolslistbox2.cell(1,incr)="KBWA.F":incr++
symbolslistbox2.cell(1,incr)="KBX.F":incr++
'symbolslistbox2.cell(1,incr)="KC1A.F":incr++
symbolslistbox2.cell(1,incr)="KC4.F":incr++
symbolslistbox2.cell(1,incr)="KCN.F":incr++
symbolslistbox2.cell(1,incr)="KCO.F":incr++
'symbolslistbox2.cell(1,incr)="KCY.F":incr++
symbolslistbox2.cell(1,incr)="KD4.F":incr++
symbolslistbox2.cell(1,incr)="KD7.F":incr++
symbolslistbox2.cell(1,incr)="KDA.F":incr++
symbolslistbox2.cell(1,incr)="KDB.F":incr++
symbolslistbox2.cell(1,incr)="KDIC.F":incr++
symbolslistbox2.cell(1,incr)="KEC.F":incr++
symbolslistbox2.cell(1,incr)="KEE.F":incr++
symbolslistbox2.cell(1,incr)="KEH.F":incr++
symbolslistbox2.cell(1,incr)="KEI.F":incr++
symbolslistbox2.cell(1,incr)="KEK.F":incr++
symbolslistbox2.cell(1,incr)="KEL.F":incr++
symbolslistbox2.cell(1,incr)="KEM.F":incr++
symbolslistbox2.cell(1,incr)="KEP1.F":incr++
symbolslistbox2.cell(1,incr)="KEY.F":incr++
symbolslistbox2.cell(1,incr)="KFI1.F":incr++
symbolslistbox2.cell(1,incr)="KGHA.F":incr++
symbolslistbox2.cell(1,incr)="KGR.F":incr++
'symbolslistbox2.cell(1,incr)="KGU.F":incr++
symbolslistbox2.cell(1,incr)="KGX.F":incr++
symbolslistbox2.cell(1,incr)="KGZ.F":incr++
symbolslistbox2.cell(1,incr)="KHE.F":incr++
symbolslistbox2.cell(1,incr)="KHP.F":incr++
symbolslistbox2.cell(1,incr)="KI2.F":incr++
symbolslistbox2.cell(1,incr)="KIC.F":incr++
symbolslistbox2.cell(1,incr)="KIK.F":incr++
symbolslistbox2.cell(1,incr)="KIN2.F":incr++
symbolslistbox2.cell(1,incr)="KIO.F":incr++
symbolslistbox2.cell(1,incr)="KIR.F":incr++
symbolslistbox2.cell(1,incr)="KIS.F":incr++
symbolslistbox2.cell(1,incr)="KIY.F":incr++
'symbolslistbox2.cell(1,incr)="KJ6.F":incr++
'symbolslistbox2.cell(1,incr)="KJ7.F":incr++
symbolslistbox2.cell(1,incr)="KJ8.F":incr++
symbolslistbox2.cell(1,incr)="KK2.F":incr++
symbolslistbox2.cell(1,incr)="KK3A.F":incr++
'symbolslistbox2.cell(1,incr)="KK6.F":incr++
symbolslistbox2.cell(1,incr)="KKC.F":incr++
symbolslistbox2.cell(1,incr)="KKI.F":incr++
symbolslistbox2.cell(1,incr)="KLA.F":incr++
symbolslistbox2.cell(1,incr)="KLH.F":incr++
symbolslistbox2.cell(1,incr)="KLI1.F":incr++
symbolslistbox2.cell(1,incr)="KLMH.F":incr++
symbolslistbox2.cell(1,incr)="KLN.F":incr++
symbolslistbox2.cell(1,incr)="KLU1.F":incr++
symbolslistbox2.cell(1,incr)="KM6.F":incr++
symbolslistbox2.cell(1,incr)="KMY.F":incr++
symbolslistbox2.cell(1,incr)="KN6.F":incr++
symbolslistbox2.cell(1,incr)="KN7.F":incr++
symbolslistbox2.cell(1,incr)="KO2.F":incr++
symbolslistbox2.cell(1,incr)="KO71.F":incr++
symbolslistbox2.cell(1,incr)="KO9.F":incr++
symbolslistbox2.cell(1,incr)="KOA.F":incr++
symbolslistbox2.cell(1,incr)="KOC.F":incr++
symbolslistbox2.cell(1,incr)="KODN.F":incr++
symbolslistbox2.cell(1,incr)="KOG.F":incr++
symbolslistbox2.cell(1,incr)="KOM1.F":incr++
symbolslistbox2.cell(1,incr)="KONN.F":incr++
symbolslistbox2.cell(1,incr)="KOU.F":incr++
symbolslistbox2.cell(1,incr)="KOX.F":incr++
symbolslistbox2.cell(1,incr)="KOY.F":incr++
'symbolslistbox2.cell(1,incr)="KP8.F":incr++
symbolslistbox2.cell(1,incr)="KPI1.F":incr++
symbolslistbox2.cell(1,incr)="KPN.F":incr++
symbolslistbox2.cell(1,incr)="KPO.F":incr++
symbolslistbox2.cell(1,incr)="KPR.F":incr++
symbolslistbox2.cell(1,incr)="KPSN.F":incr++
'symbolslistbox2.cell(1,incr)="KQ1.F":incr++
symbolslistbox2.cell(1,incr)="KR3.F":incr++
'symbolslistbox2.cell(1,incr)="KRD.F":incr++
symbolslistbox2.cell(1,incr)="KRN.F":incr++
symbolslistbox2.cell(1,incr)="KRZ.F":incr++
symbolslistbox2.cell(1,incr)="KSB.F":incr++
symbolslistbox2.cell(1,incr)="KSB3.F":incr++
symbolslistbox2.cell(1,incr)="KSC.F":incr++
symbolslistbox2.cell(1,incr)="KST.F":incr++
symbolslistbox2.cell(1,incr)="KSW.F":incr++
symbolslistbox2.cell(1,incr)="KSX.F":incr++
symbolslistbox2.cell(1,incr)="KT9.F":incr++
symbolslistbox2.cell(1,incr)="KTF.F":incr++
symbolslistbox2.cell(1,incr)="KU1.F":incr++
symbolslistbox2.cell(1,incr)="KU2.F":incr++
'symbolslistbox2.cell(1,incr)="KUD.F":incr++
symbolslistbox2.cell(1,incr)="KUO1.F":incr++
symbolslistbox2.cell(1,incr)="KUY.F":incr++
symbolslistbox2.cell(1,incr)="KV7.F":incr++
symbolslistbox2.cell(1,incr)="KW2.F":incr++
symbolslistbox2.cell(1,incr)="KW9A.F":incr++
symbolslistbox2.cell(1,incr)="KWE1.F":incr++
symbolslistbox2.cell(1,incr)="KWG.F":incr++
symbolslistbox2.cell(1,incr)="KWI.F":incr++
'symbolslistbox2.cell(1,incr)="KWK3.F":incr++
symbolslistbox2.cell(1,incr)="KWO.F":incr++
symbolslistbox2.cell(1,incr)="KWS.F":incr++
'symbolslistbox2.cell(1,incr)="KWW.F":incr++
'symbolslistbox2.cell(1,incr)="KWY1.F":incr++
symbolslistbox2.cell(1,incr)="KX1G.F":incr++
symbolslistbox2.cell(1,incr)="KY3A.F":incr++
symbolslistbox2.cell(1,incr)="KY4.F":incr++
symbolslistbox2.cell(1,incr)="KY6.F":incr++
symbolslistbox2.cell(1,incr)="KY7.F":incr++
symbolslistbox2.cell(1,incr)="KYC.F":incr++
symbolslistbox2.cell(1,incr)="KYK.F":incr++
symbolslistbox2.cell(1,incr)="KYM1.F":incr++
symbolslistbox2.cell(1,incr)="KYR.F":incr++
symbolslistbox2.cell(1,incr)="KYSA.F":incr++
symbolslistbox2.cell(1,incr)="KYW.F":incr++
symbolslistbox2.cell(1,incr)="L09.F":incr++
symbolslistbox2.cell(1,incr)="L1S.F":incr++
'symbolslistbox2.cell(1,incr)="L1T.F":incr++
symbolslistbox2.cell(1,incr)="L2Q.F":incr++
symbolslistbox2.cell(1,incr)="L3X.F":incr++
symbolslistbox2.cell(1,incr)="L3XA.F":incr++
symbolslistbox2.cell(1,incr)="L3XB.F":incr++
symbolslistbox2.cell(1,incr)="L4R.F":incr++
symbolslistbox2.cell(1,incr)="L51.F":incr++
symbolslistbox2.cell(1,incr)="L5A.F":incr++
symbolslistbox2.cell(1,incr)="L5K.F":incr++
symbolslistbox2.cell(1,incr)="L60.F":incr++
symbolslistbox2.cell(1,incr)="L7D.F":incr++
symbolslistbox2.cell(1,incr)="L8G.F":incr++
symbolslistbox2.cell(1,incr)="L8I3.F":incr++
'symbolslistbox2.cell(1,incr)="L9W.F":incr++
symbolslistbox2.cell(1,incr)="LA5.F":incr++
symbolslistbox2.cell(1,incr)="LA6A.F":incr++
'symbolslistbox2.cell(1,incr)="LA8N.F":incr++
symbolslistbox2.cell(1,incr)="LAB.F":incr++
symbolslistbox2.cell(1,incr)="LAG.F":incr++
symbolslistbox2.cell(1,incr)="LAR.F":incr++
symbolslistbox2.cell(1,incr)="LAV.F":incr++
symbolslistbox2.cell(1,incr)="LAW.F":incr++
symbolslistbox2.cell(1,incr)="LAZ.F":incr++
symbolslistbox2.cell(1,incr)="LB3A.F":incr++
'symbolslistbox2.cell(1,incr)="LB7.F":incr++
symbolslistbox2.cell(1,incr)="LBL.F":incr++
symbolslistbox2.cell(1,incr)="LC1.F":incr++
symbolslistbox2.cell(1,incr)="LCEU.F":incr++
symbolslistbox2.cell(1,incr)="LCJ.F":incr++
symbolslistbox2.cell(1,incr)="LCLA.F":incr++
symbolslistbox2.cell(1,incr)="LCM.F":incr++
symbolslistbox2.cell(1,incr)="LCO.F":incr++
symbolslistbox2.cell(1,incr)="LCR.F":incr++
symbolslistbox2.cell(1,incr)="LCUA.F":incr++
symbolslistbox2.cell(1,incr)="LCUJ.F":incr++
symbolslistbox2.cell(1,incr)="LCUK.F":incr++
symbolslistbox2.cell(1,incr)="LCUS.F":incr++
symbolslistbox2.cell(1,incr)="LCUW.F":incr++
symbolslistbox2.cell(1,incr)="LCVB.F":incr++
'symbolslistbox2.cell(1,incr)="LCY.F":incr++
symbolslistbox2.cell(1,incr)="LD1A.F":incr++
symbolslistbox2.cell(1,incr)="LDB.F":incr++
symbolslistbox2.cell(1,incr)="LDCE.F":incr++
symbolslistbox2.cell(1,incr)="LDE.F":incr++
'symbolslistbox2.cell(1,incr)="LDG.F":incr++
symbolslistbox2.cell(1,incr)="LDYA.F":incr++
symbolslistbox2.cell(1,incr)="LDZA.F":incr++
symbolslistbox2.cell(1,incr)="LE6N.F":incr++
'symbolslistbox2.cell(1,incr)="LE7.F":incr++
symbolslistbox2.cell(1,incr)="LEC.F":incr++
symbolslistbox2.cell(1,incr)="LEEU.F":incr++
symbolslistbox2.cell(1,incr)="LEG.F":incr++
symbolslistbox2.cell(1,incr)="LEI.F":incr++
symbolslistbox2.cell(1,incr)="LEN.F":incr++
symbolslistbox2.cell(1,incr)="LEO.F":incr++
symbolslistbox2.cell(1,incr)="LESE.F":incr++
symbolslistbox2.cell(1,incr)="LESG.F":incr++
symbolslistbox2.cell(1,incr)="LESU.F":incr++
symbolslistbox2.cell(1,incr)="LESW.F":incr++
symbolslistbox2.cell(1,incr)="LET.F":incr++
symbolslistbox2.cell(1,incr)="LEW.F":incr++
symbolslistbox2.cell(1,incr)="LF9.F":incr++
symbolslistbox2.cell(1,incr)="LFD.F":incr++
'symbolslistbox2.cell(1,incr)="LFP.F":incr++
symbolslistbox2.cell(1,incr)="LFS.F":incr++
symbolslistbox2.cell(1,incr)="LG1.F":incr++
symbolslistbox2.cell(1,incr)="LG4.F":incr++
symbolslistbox2.cell(1,incr)="LGDN.F":incr++
'symbolslistbox2.cell(1,incr)="LGG.F":incr++
symbolslistbox2.cell(1,incr)="LGI.F":incr++
symbolslistbox2.cell(1,incr)="LGLG.F":incr++
symbolslistbox2.cell(1,incr)="LGQG.F":incr++
symbolslistbox2.cell(1,incr)="LGQI.F":incr++
symbolslistbox2.cell(1,incr)="LGR.F":incr++
symbolslistbox2.cell(1,incr)="LGWS.F":incr++
symbolslistbox2.cell(1,incr)="LGWT.F":incr++
symbolslistbox2.cell(1,incr)="LGWU.F":incr++
symbolslistbox2.cell(1,incr)="LGX1.F":incr++
symbolslistbox2.cell(1,incr)="LH6.F":incr++
symbolslistbox2.cell(1,incr)="LHA.F":incr++
symbolslistbox2.cell(1,incr)="LHL.F":incr++
symbolslistbox2.cell(1,incr)="LI3.F":incr++
'symbolslistbox2.cell(1,incr)="LI5.F":incr++
symbolslistbox2.cell(1,incr)="LI9.F":incr++
symbolslistbox2.cell(1,incr)="LID.F":incr++
symbolslistbox2.cell(1,incr)="LIE.F":incr++
'symbolslistbox2.cell(1,incr)="LIH.F":incr++
symbolslistbox2.cell(1,incr)="LIN.F":incr++
symbolslistbox2.cell(1,incr)="LIP.F":incr++
symbolslistbox2.cell(1,incr)="LIV.F":incr++
'symbolslistbox2.cell(1,incr)="LJ1.F":incr++
symbolslistbox2.cell(1,incr)="LJPP.F":incr++
'symbolslistbox2.cell(1,incr)="LK9.F":incr++
symbolslistbox2.cell(1,incr)="LKB.F":incr++
symbolslistbox2.cell(1,incr)="LKG.F":incr++
symbolslistbox2.cell(1,incr)="LKQ1.F":incr++
symbolslistbox2.cell(1,incr)="LKT.F":incr++
symbolslistbox2.cell(1,incr)="LL6.F":incr++
symbolslistbox2.cell(1,incr)="LLD.F":incr++
symbolslistbox2.cell(1,incr)="LLY.F":incr++
symbolslistbox2.cell(1,incr)="LMF.F":incr++
symbolslistbox2.cell(1,incr)="LMO.F":incr++
symbolslistbox2.cell(1,incr)="LMP.F":incr++
symbolslistbox2.cell(1,incr)="LMVF.F":incr++
symbolslistbox2.cell(1,incr)="LMWE.F":incr++
'symbolslistbox2.cell(1,incr)="LMX.F":incr++
symbolslistbox2.cell(1,incr)="LN1.F":incr++
symbolslistbox2.cell(1,incr)="LN3.F":incr++
symbolslistbox2.cell(1,incr)="LN5.F":incr++
symbolslistbox2.cell(1,incr)="LNE.F":incr++
symbolslistbox2.cell(1,incr)="LNH.F":incr++
symbolslistbox2.cell(1,incr)="LNK.F":incr++
symbolslistbox2.cell(1,incr)="LNLB.F":incr++
symbolslistbox2.cell(1,incr)="LNN.F":incr++
symbolslistbox2.cell(1,incr)="LNR.F":incr++
symbolslistbox2.cell(1,incr)="LO24.F":incr++
'symbolslistbox2.cell(1,incr)="LO3.F":incr++
symbolslistbox2.cell(1,incr)="LO6A.F":incr++
symbolslistbox2.cell(1,incr)="LOC.F":incr++
symbolslistbox2.cell(1,incr)="LOM.F":incr++
symbolslistbox2.cell(1,incr)="LOO.F":incr++
symbolslistbox2.cell(1,incr)="LOR.F":incr++
symbolslistbox2.cell(1,incr)="LP1.F":incr++
symbolslistbox2.cell(1,incr)="LP3.F":incr++
symbolslistbox2.cell(1,incr)="LPE.F":incr++
symbolslistbox2.cell(1,incr)="LPK.F":incr++
'symbolslistbox2.cell(1,incr)="LPL2.F":incr++
symbolslistbox2.cell(1,incr)="LPS1.F":incr++
'symbolslistbox2.cell(1,incr)="LPVX.F":incr++
symbolslistbox2.cell(1,incr)="LPZB.F":incr++
symbolslistbox2.cell(1,incr)="LQP.F":incr++
symbolslistbox2.cell(1,incr)="LR6B.F":incr++
symbolslistbox2.cell(1,incr)="LRC.F":incr++
'symbolslistbox2.cell(1,incr)="LRY.F":incr++
symbolslistbox2.cell(1,incr)="LS2.F":incr++
symbolslistbox2.cell(1,incr)="LS3.F":incr++
symbolslistbox2.cell(1,incr)="LS4C.F":incr++
symbolslistbox2.cell(1,incr)="LSE.F":incr++
symbolslistbox2.cell(1,incr)="LSI.F":incr++
symbolslistbox2.cell(1,incr)="LSJ.F":incr++
symbolslistbox2.cell(1,incr)="LSK7.F":incr++
symbolslistbox2.cell(1,incr)="LSK8.F":incr++
symbolslistbox2.cell(1,incr)="LSX.F":incr++
symbolslistbox2.cell(1,incr)="LT0A.F":incr++
symbolslistbox2.cell(1,incr)="LT5.F":incr++
symbolslistbox2.cell(1,incr)="LT7.F":incr++
'symbolslistbox2.cell(1,incr)="LTD.F":incr++
symbolslistbox2.cell(1,incr)="LTH.F":incr++
symbolslistbox2.cell(1,incr)="LTP.F":incr++
symbolslistbox2.cell(1,incr)="LTR.F":incr++
symbolslistbox2.cell(1,incr)="LTT.F":incr++
symbolslistbox2.cell(1,incr)="LU2.F":incr++
symbolslistbox2.cell(1,incr)="LU4.F":incr++
'symbolslistbox2.cell(1,incr)="LUM.F":incr++
symbolslistbox2.cell(1,incr)="LUS.F":incr++
symbolslistbox2.cell(1,incr)="LUY1.F":incr++
symbolslistbox2.cell(1,incr)="LVO.F":incr++
symbolslistbox2.cell(1,incr)="LVT.F":incr++
symbolslistbox2.cell(1,incr)="LWB.F":incr++
symbolslistbox2.cell(1,incr)="LWCR.F":incr++
symbolslistbox2.cell(1,incr)="LWE.F":incr++
symbolslistbox2.cell(1,incr)="LWF.F":incr++
symbolslistbox2.cell(1,incr)="LWX.F":incr++
symbolslistbox2.cell(1,incr)="LX6.F":incr++
symbolslistbox2.cell(1,incr)="LXI.F":incr++
symbolslistbox2.cell(1,incr)="LXN.F":incr++
symbolslistbox2.cell(1,incr)="LXS.F":incr++
symbolslistbox2.cell(1,incr)="LXU.F":incr++
symbolslistbox2.cell(1,incr)="LY1.F":incr++
symbolslistbox2.cell(1,incr)="LYBF.F":incr++
symbolslistbox2.cell(1,incr)="LYBK.F":incr++
symbolslistbox2.cell(1,incr)="LYEB.F":incr++
'symbolslistbox2.cell(1,incr)="LYEU.F":incr++
symbolslistbox2.cell(1,incr)="LYI.F":incr++
'symbolslistbox2.cell(1,incr)="LYMI.F":incr++
symbolslistbox2.cell(1,incr)="LYMS.F":incr++
symbolslistbox2.cell(1,incr)="LYMZ.F":incr++
symbolslistbox2.cell(1,incr)="LYP6.F":incr++
symbolslistbox2.cell(1,incr)="LYQ1.F":incr++
symbolslistbox2.cell(1,incr)="LYQ2.F":incr++
symbolslistbox2.cell(1,incr)="LYQ3.F":incr++
symbolslistbox2.cell(1,incr)="LYQ6.F":incr++
symbolslistbox2.cell(1,incr)="LYQ7.F":incr++
symbolslistbox2.cell(1,incr)="LYQK.F":incr++
symbolslistbox2.cell(1,incr)="LYQL.F":incr++
symbolslistbox2.cell(1,incr)="LYQS.F":incr++
symbolslistbox2.cell(1,incr)="LYQY.F":incr++
symbolslistbox2.cell(1,incr)="LYS4.F":incr++
symbolslistbox2.cell(1,incr)="LYS5.F":incr++
'symbolslistbox2.cell(1,incr)="LYS6.F":incr++
symbolslistbox2.cell(1,incr)="LYSX.F":incr++
symbolslistbox2.cell(1,incr)="LYV.F":incr++
symbolslistbox2.cell(1,incr)="LYX7.F":incr++
symbolslistbox2.cell(1,incr)="LYXA.F":incr++
symbolslistbox2.cell(1,incr)="LYXC.F":incr++
symbolslistbox2.cell(1,incr)="LYXD.F":incr++
symbolslistbox2.cell(1,incr)="LYXF.F":incr++
symbolslistbox2.cell(1,incr)="LYY0.F":incr++
symbolslistbox2.cell(1,incr)="LYY4.F":incr++
symbolslistbox2.cell(1,incr)="LYY5.F":incr++
symbolslistbox2.cell(1,incr)="LYY7.F":incr++
symbolslistbox2.cell(1,incr)="LYY8.F":incr++
symbolslistbox2.cell(1,incr)="LYYA.F":incr++
symbolslistbox2.cell(1,incr)="LYYB.F":incr++
'symbolslistbox2.cell(1,incr)="LZ1.F":incr++
'symbolslistbox2.cell(1,incr)="LZ6.F":incr++
symbolslistbox2.cell(1,incr)="M04.F":incr++
symbolslistbox2.cell(1,incr)="M05.F":incr++
symbolslistbox2.cell(1,incr)="M07.F":incr++
symbolslistbox2.cell(1,incr)="M09.F":incr++
'symbolslistbox2.cell(1,incr)="M1H.F":incr++
symbolslistbox2.cell(1,incr)="M1L.F":incr++
symbolslistbox2.cell(1,incr)="M1W.F":incr++
symbolslistbox2.cell(1,incr)="M2L.F":incr++
symbolslistbox2.cell(1,incr)="M3C.F":incr++
symbolslistbox2.cell(1,incr)="M3I.F":incr++
symbolslistbox2.cell(1,incr)="M3K.F":incr++
symbolslistbox2.cell(1,incr)="M3L.F":incr++
symbolslistbox2.cell(1,incr)="M3U.F":incr++
symbolslistbox2.cell(1,incr)="M3V.F":incr++
'symbolslistbox2.cell(1,incr)="M3Z.F":incr++
symbolslistbox2.cell(1,incr)="M4B.F":incr++
symbolslistbox2.cell(1,incr)="M4I.F":incr++
symbolslistbox2.cell(1,incr)="M4M.F":incr++
symbolslistbox2.cell(1,incr)="M4N.F":incr++
symbolslistbox2.cell(1,incr)="M55.F":incr++
'symbolslistbox2.cell(1,incr)="M5BQ.F":incr++
symbolslistbox2.cell(1,incr)="M5F.F":incr++
symbolslistbox2.cell(1,incr)="M5V.F":incr++
symbolslistbox2.cell(1,incr)="M5Z.F":incr++
symbolslistbox2.cell(1,incr)="M6G.F":incr++
symbolslistbox2.cell(1,incr)="M6J.F":incr++
'symbolslistbox2.cell(1,incr)="M6O.F":incr++
symbolslistbox2.cell(1,incr)="M6P.F":incr++
symbolslistbox2.cell(1,incr)="M6Q.F":incr++
'symbolslistbox2.cell(1,incr)="M7B.F":incr++
symbolslistbox2.cell(1,incr)="M7U.F":incr++
symbolslistbox2.cell(1,incr)="M83.F":incr++
symbolslistbox2.cell(1,incr)="M8R.F":incr++
symbolslistbox2.cell(1,incr)="M8V.F":incr++
symbolslistbox2.cell(1,incr)="M9R.F":incr++
symbolslistbox2.cell(1,incr)="M9SA.F":incr++
symbolslistbox2.cell(1,incr)="M9SD.F":incr++
symbolslistbox2.cell(1,incr)="M9SV.F":incr++
'symbolslistbox2.cell(1,incr)="MA1.F":incr++
symbolslistbox2.cell(1,incr)="MA6.F":incr++
symbolslistbox2.cell(1,incr)="MABB.F":incr++
symbolslistbox2.cell(1,incr)="MAH1.F":incr++
symbolslistbox2.cell(1,incr)="MAK.F":incr++
'symbolslistbox2.cell(1,incr)="MAN.F":incr++
symbolslistbox2.cell(1,incr)="MAQ.F":incr++
symbolslistbox2.cell(1,incr)="MARA.F":incr++
symbolslistbox2.cell(1,incr)="MAT1.F":incr++
symbolslistbox2.cell(1,incr)="MBB.F":incr++
symbolslistbox2.cell(1,incr)="MBH3.F":incr++
symbolslistbox2.cell(1,incr)="MBI.F":incr++
symbolslistbox2.cell(1,incr)="MBJ.F":incr++
symbolslistbox2.cell(1,incr)="MBK.F":incr++
'symbolslistbox2.cell(1,incr)="MBO.F":incr++
symbolslistbox2.cell(1,incr)="MBQ.F":incr++
'symbolslistbox2.cell(1,incr)="MBW.F":incr++
symbolslistbox2.cell(1,incr)="MBY.F":incr++
'symbolslistbox2.cell(1,incr)="MC2.F":incr++
symbolslistbox2.cell(1,incr)="MC8.F":incr++
'symbolslistbox2.cell(1,incr)="MCD.F":incr++
symbolslistbox2.cell(1,incr)="MCE.F":incr++
symbolslistbox2.cell(1,incr)="MCH.F":incr++
symbolslistbox2.cell(1,incr)="MCK.F":incr++
'symbolslistbox2.cell(1,incr)="MCN.F":incr++
symbolslistbox2.cell(1,incr)="MCP.F":incr++
symbolslistbox2.cell(1,incr)="MCX.F":incr++
symbolslistbox2.cell(1,incr)="MCY.F":incr++
symbolslistbox2.cell(1,incr)="MD4X.F":incr++
'symbolslistbox2.cell(1,incr)="MD7A.F":incr++
symbolslistbox2.cell(1,incr)="MD9.F":incr++
symbolslistbox2.cell(1,incr)="MDBA.F":incr++
symbolslistbox2.cell(1,incr)="MDBU.F":incr++
symbolslistbox2.cell(1,incr)="MDD.F":incr++
symbolslistbox2.cell(1,incr)="MDF.F":incr++
symbolslistbox2.cell(1,incr)="MDN.F":incr++
symbolslistbox2.cell(1,incr)="MDO.F":incr++
'symbolslistbox2.cell(1,incr)="MDS.F":incr++
symbolslistbox2.cell(1,incr)="ME5A.F":incr++
symbolslistbox2.cell(1,incr)="ME7.F":incr++
symbolslistbox2.cell(1,incr)="ME9.F":incr++
symbolslistbox2.cell(1,incr)="MEA.F":incr++
symbolslistbox2.cell(1,incr)="MEC.F":incr++
symbolslistbox2.cell(1,incr)="MED.F":incr++
symbolslistbox2.cell(1,incr)="MEF.F":incr++
'symbolslistbox2.cell(1,incr)="MEF1.F":incr++
symbolslistbox2.cell(1,incr)="MEL.F":incr++
'symbolslistbox2.cell(1,incr)="MEP.F":incr++
symbolslistbox2.cell(1,incr)="MEQA.F":incr++
symbolslistbox2.cell(1,incr)="MES.F":incr++
'symbolslistbox2.cell(1,incr)="MEU2.F":incr++
symbolslistbox2.cell(1,incr)="MEX.F":incr++
'symbolslistbox2.cell(1,incr)="MEZ.F":incr++
symbolslistbox2.cell(1,incr)="MF6.F":incr++
'symbolslistbox2.cell(1,incr)="MFM3.F":incr++
symbolslistbox2.cell(1,incr)="MFU.F":incr++
symbolslistbox2.cell(1,incr)="MFY.F":incr++
symbolslistbox2.cell(1,incr)="MFZ.F":incr++
symbolslistbox2.cell(1,incr)="MFZA.F":incr++
symbolslistbox2.cell(1,incr)="MG3B.F":incr++
symbolslistbox2.cell(1,incr)="MGA.F":incr++
symbolslistbox2.cell(1,incr)="MGC.F":incr++
symbolslistbox2.cell(1,incr)="MGE.F":incr++
symbolslistbox2.cell(1,incr)="MGG.F":incr++
symbolslistbox2.cell(1,incr)="MGI.F":incr++
symbolslistbox2.cell(1,incr)="MGK.F":incr++
symbolslistbox2.cell(1,incr)="MGYB.F":incr++
symbolslistbox2.cell(1,incr)="MH2.F":incr++
symbolslistbox2.cell(1,incr)="MH6.F":incr++
symbolslistbox2.cell(1,incr)="MHC.F":incr++
symbolslistbox2.cell(1,incr)="MHG.F":incr++
symbolslistbox2.cell(1,incr)="MHL.F":incr++
symbolslistbox2.cell(1,incr)="MHQ.F":incr++
symbolslistbox2.cell(1,incr)="MHR.F":incr++
symbolslistbox2.cell(1,incr)="MHT.F":incr++
symbolslistbox2.cell(1,incr)="MHZ.F":incr++
symbolslistbox2.cell(1,incr)="MI5.F":incr++
symbolslistbox2.cell(1,incr)="MI7.F":incr++
symbolslistbox2.cell(1,incr)="MI8.F":incr++
symbolslistbox2.cell(1,incr)="MIB.F":incr++
symbolslistbox2.cell(1,incr)="MIE1.F":incr++
symbolslistbox2.cell(1,incr)="MIGA.F":incr++
symbolslistbox2.cell(1,incr)="MIH.F":incr++
symbolslistbox2.cell(1,incr)="MII.F":incr++
symbolslistbox2.cell(1,incr)="MILA.F":incr++
symbolslistbox2.cell(1,incr)="MIU.F":incr++
symbolslistbox2.cell(1,incr)="MIVA.F":incr++
symbolslistbox2.cell(1,incr)="MIVB.F":incr++
symbolslistbox2.cell(1,incr)="MIVU.F":incr++
'symbolslistbox2.cell(1,incr)="MIY.F":incr++
symbolslistbox2.cell(1,incr)="MIZ.F":incr++
symbolslistbox2.cell(1,incr)="MJ3.F":incr++
symbolslistbox2.cell(1,incr)="MJ8.F":incr++
symbolslistbox2.cell(1,incr)="MJB.F":incr++
symbolslistbox2.cell(1,incr)="MJC.F":incr++
symbolslistbox2.cell(1,incr)="MJE.F":incr++
symbolslistbox2.cell(1,incr)="MJF.F":incr++
symbolslistbox2.cell(1,incr)="MJH.F":incr++
symbolslistbox2.cell(1,incr)="MJMT.F":incr++
symbolslistbox2.cell(1,incr)="MJP.F":incr++
symbolslistbox2.cell(1,incr)="MJS.F":incr++
symbolslistbox2.cell(1,incr)="MJT.F":incr++
symbolslistbox2.cell(1,incr)="MK2A.F":incr++
symbolslistbox2.cell(1,incr)="MKL.F":incr++
symbolslistbox2.cell(1,incr)="MKN2.F":incr++
symbolslistbox2.cell(1,incr)="MKO.F":incr++
symbolslistbox2.cell(1,incr)="MKS.F":incr++
symbolslistbox2.cell(1,incr)="MKT.F":incr++
'symbolslistbox2.cell(1,incr)="MKU.F":incr++
symbolslistbox2.cell(1,incr)="MLB1.F":incr++
symbolslistbox2.cell(1,incr)="MLE.F":incr++
symbolslistbox2.cell(1,incr)="MLL.F":incr++
symbolslistbox2.cell(1,incr)="MLP.F":incr++
symbolslistbox2.cell(1,incr)="MLQ2.F":incr++
symbolslistbox2.cell(1,incr)="MLU.F":incr++
symbolslistbox2.cell(1,incr)="MLW.F":incr++
symbolslistbox2.cell(1,incr)="MM3.F":incr++
symbolslistbox2.cell(1,incr)="MM4.F":incr++
symbolslistbox2.cell(1,incr)="MM7.F":incr++
symbolslistbox2.cell(1,incr)="MMF.F":incr++
symbolslistbox2.cell(1,incr)="MMG.F":incr++
symbolslistbox2.cell(1,incr)="MMIA.F":incr++
'symbolslistbox2.cell(1,incr)="MMK.F":incr++
symbolslistbox2.cell(1,incr)="MMM.F":incr++
symbolslistbox2.cell(1,incr)="MMO.F":incr++
symbolslistbox2.cell(1,incr)="MMT.F":incr++
symbolslistbox2.cell(1,incr)="MMX.F":incr++
symbolslistbox2.cell(1,incr)="MMY.F":incr++
symbolslistbox2.cell(1,incr)="MN0.F":incr++
symbolslistbox2.cell(1,incr)="MNK.F":incr++
symbolslistbox2.cell(1,incr)="MNL.F":incr++
symbolslistbox2.cell(1,incr)="MNMA.F":incr++
symbolslistbox2.cell(1,incr)="MNV6.F":incr++
symbolslistbox2.cell(1,incr)="MO4.F":incr++
symbolslistbox2.cell(1,incr)="MO8.F":incr++
symbolslistbox2.cell(1,incr)="MOED.F":incr++
symbolslistbox2.cell(1,incr)="MOEU.F":incr++
symbolslistbox2.cell(1,incr)="MOH.F":incr++
symbolslistbox2.cell(1,incr)="MOI.F":incr++
'symbolslistbox2.cell(1,incr)="MOP.F":incr++
symbolslistbox2.cell(1,incr)="MOR.F":incr++
symbolslistbox2.cell(1,incr)="MOS.F":incr++
symbolslistbox2.cell(1,incr)="MPCK.F":incr++
symbolslistbox2.cell(1,incr)="MPG.F":incr++
symbolslistbox2.cell(1,incr)="MPN.F":incr++
symbolslistbox2.cell(1,incr)="MPO.F":incr++
symbolslistbox2.cell(1,incr)="MPRK.F":incr++
'symbolslistbox2.cell(1,incr)="MPS.F":incr++
symbolslistbox2.cell(1,incr)="MPW.F":incr++
symbolslistbox2.cell(1,incr)="MPX.F":incr++
symbolslistbox2.cell(1,incr)="MQ1.F":incr++
symbolslistbox2.cell(1,incr)="MQ8.F":incr++
symbolslistbox2.cell(1,incr)="MQG.F":incr++
symbolslistbox2.cell(1,incr)="MQI.F":incr++
symbolslistbox2.cell(1,incr)="MR2.F":incr++
symbolslistbox2.cell(1,incr)="MR4.F":incr++
'symbolslistbox2.cell(1,incr)="MR7.F":incr++
symbolslistbox2.cell(1,incr)="MRI.F":incr++
symbolslistbox2.cell(1,incr)="MRK.F":incr++
symbolslistbox2.cell(1,incr)="MRR.F":incr++
symbolslistbox2.cell(1,incr)="MRY.F":incr++
symbolslistbox2.cell(1,incr)="MS8.F":incr++
symbolslistbox2.cell(1,incr)="MSAG.F":incr++
symbolslistbox2.cell(1,incr)="MSBA.F":incr++
symbolslistbox2.cell(1,incr)="MSED.F":incr++
symbolslistbox2.cell(1,incr)="MSF.F":incr++
symbolslistbox2.cell(1,incr)="MSH.F":incr++
symbolslistbox2.cell(1,incr)="MSI.F":incr++
symbolslistbox2.cell(1,incr)="MSK.F":incr++
symbolslistbox2.cell(1,incr)="MSN.F":incr++
symbolslistbox2.cell(1,incr)="MSPA.F":incr++
symbolslistbox2.cell(1,incr)="MSQ.F":incr++
symbolslistbox2.cell(1,incr)="MSRB.F":incr++
symbolslistbox2.cell(1,incr)="MT1.F":incr++
symbolslistbox2.cell(1,incr)="MT2.F":incr++
'symbolslistbox2.cell(1,incr)="MT7.F":incr++
'symbolslistbox2.cell(1,incr)="MT9.F":incr++
symbolslistbox2.cell(1,incr)="MTA.F":incr++
symbolslistbox2.cell(1,incr)="MTK.F":incr++
symbolslistbox2.cell(1,incr)="MTLA.F":incr++
symbolslistbox2.cell(1,incr)="MTO.F":incr++
symbolslistbox2.cell(1,incr)="MTR.F":incr++
symbolslistbox2.cell(1,incr)="MTS1.F":incr++
symbolslistbox2.cell(1,incr)="MTT.F":incr++
symbolslistbox2.cell(1,incr)="MTW.F":incr++
symbolslistbox2.cell(1,incr)="MU1.F":incr++
symbolslistbox2.cell(1,incr)="MUB.F":incr++
symbolslistbox2.cell(1,incr)="MUD.F":incr++
symbolslistbox2.cell(1,incr)="MUE.F":incr++
symbolslistbox2.cell(1,incr)="MUF.F":incr++
symbolslistbox2.cell(1,incr)="MUG.F":incr++
symbolslistbox2.cell(1,incr)="MUI.F":incr++
symbolslistbox2.cell(1,incr)="MUJ.F":incr++
symbolslistbox2.cell(1,incr)="MUM.F":incr++
symbolslistbox2.cell(1,incr)="MUQ.F":incr++
symbolslistbox2.cell(1,incr)="MUR1.F":incr++
'symbolslistbox2.cell(1,incr)="MUS.F":incr++
symbolslistbox2.cell(1,incr)="MUT.F":incr++
symbolslistbox2.cell(1,incr)="MUT3.F":incr++
symbolslistbox2.cell(1,incr)="MUV2.F":incr++
symbolslistbox2.cell(1,incr)="MUY.F":incr++
symbolslistbox2.cell(1,incr)="MV3.F":incr++
symbolslistbox2.cell(1,incr)="MV4.F":incr++
'symbolslistbox2.cell(1,incr)="MV9.F":incr++
symbolslistbox2.cell(1,incr)="MVIN.F":incr++
'symbolslistbox2.cell(1,incr)="MVL.F":incr++
symbolslistbox2.cell(1,incr)="MVR.F":incr++
symbolslistbox2.cell(1,incr)="MVV1.F":incr++
symbolslistbox2.cell(1,incr)="MW1A.F":incr++
symbolslistbox2.cell(1,incr)="MW7.F":incr++
symbolslistbox2.cell(1,incr)="MWB.F":incr++
'symbolslistbox2.cell(1,incr)="MWG2.F":incr++
symbolslistbox2.cell(1,incr)="MWI.F":incr++
symbolslistbox2.cell(1,incr)="MWK.F":incr++
symbolslistbox2.cell(1,incr)="MWX.F":incr++
symbolslistbox2.cell(1,incr)="MWZ.F":incr++
symbolslistbox2.cell(1,incr)="MX2.F":incr++
symbolslistbox2.cell(1,incr)="MX4A.F":incr++
symbolslistbox2.cell(1,incr)="MX5.F":incr++
symbolslistbox2.cell(1,incr)="MX7A.F":incr++
'symbolslistbox2.cell(1,incr)="MX9.F":incr++
symbolslistbox2.cell(1,incr)="MXD.F":incr++
symbolslistbox2.cell(1,incr)="MXG1.F":incr++
symbolslistbox2.cell(1,incr)="MXI.F":incr++
symbolslistbox2.cell(1,incr)="MXN.F":incr++
symbolslistbox2.cell(1,incr)="MXR.F":incr++
symbolslistbox2.cell(1,incr)="MXUK.F":incr++
symbolslistbox2.cell(1,incr)="MY1.F":incr++
'symbolslistbox2.cell(1,incr)="MY3.F":incr++
symbolslistbox2.cell(1,incr)="MY8.F":incr++
symbolslistbox2.cell(1,incr)="MYD.F":incr++
symbolslistbox2.cell(1,incr)="MYM.F":incr++
symbolslistbox2.cell(1,incr)="MYP.F":incr++
symbolslistbox2.cell(1,incr)="MZ4.F":incr++
symbolslistbox2.cell(1,incr)="MZ8.F":incr++
symbolslistbox2.cell(1,incr)="MZA.F":incr++
symbolslistbox2.cell(1,incr)="MZB.F":incr++
'symbolslistbox2.cell(1,incr)="MZP.F":incr++
symbolslistbox2.cell(1,incr)="MZX.F":incr++
symbolslistbox2.cell(1,incr)="N0S.F":incr++
symbolslistbox2.cell(1,incr)="N1N.F":incr++
symbolslistbox2.cell(1,incr)="N1U.F":incr++
'symbolslistbox2.cell(1,incr)="N2F.F":incr++
symbolslistbox2.cell(1,incr)="N2L.F":incr++
symbolslistbox2.cell(1,incr)="N2V.F":incr++
'symbolslistbox2.cell(1,incr)="N2Z.F":incr++
symbolslistbox2.cell(1,incr)="N3Y.F":incr++
symbolslistbox2.cell(1,incr)="N4CN.F":incr++
'symbolslistbox2.cell(1,incr)="N5C.F":incr++
symbolslistbox2.cell(1,incr)="N5Z.F":incr++
'symbolslistbox2.cell(1,incr)="N6M1.F":incr++
symbolslistbox2.cell(1,incr)="N76.F":incr++
symbolslistbox2.cell(1,incr)="N7E.F":incr++
symbolslistbox2.cell(1,incr)="N7G.F":incr++
'symbolslistbox2.cell(1,incr)="N9A.F":incr++
symbolslistbox2.cell(1,incr)="N9B.F":incr++
symbolslistbox2.cell(1,incr)="N9J.F":incr++
symbolslistbox2.cell(1,incr)="N9L.F":incr++
symbolslistbox2.cell(1,incr)="N9S.F":incr++
symbolslistbox2.cell(1,incr)="N9U.F":incr++
symbolslistbox2.cell(1,incr)="NA2.F":incr++
symbolslistbox2.cell(1,incr)="NAH.F":incr++
'symbolslistbox2.cell(1,incr)="NAI.F":incr++
symbolslistbox2.cell(1,incr)="NAL.F":incr++
symbolslistbox2.cell(1,incr)="NAQ.F":incr++
symbolslistbox2.cell(1,incr)="NB3.F":incr++
symbolslistbox2.cell(1,incr)="NB5.F":incr++
'symbolslistbox2.cell(1,incr)="NB6.F":incr++
symbolslistbox2.cell(1,incr)="NB9.F":incr++
'symbolslistbox2.cell(1,incr)="NBA.F":incr++
symbolslistbox2.cell(1,incr)="NBC.F":incr++
symbolslistbox2.cell(1,incr)="NBG6.F":incr++
symbolslistbox2.cell(1,incr)="NBO.F":incr++
symbolslistbox2.cell(1,incr)="NC0.F":incr++
symbolslistbox2.cell(1,incr)="NC0B.F":incr++
symbolslistbox2.cell(1,incr)="NC2B.F":incr++
symbolslistbox2.cell(1,incr)="NCB.F":incr++
symbolslistbox2.cell(1,incr)="NCGB.F":incr++
symbolslistbox2.cell(1,incr)="NCL.F":incr++
symbolslistbox2.cell(1,incr)="NCO.F":incr++
symbolslistbox2.cell(1,incr)="NCR1.F":incr++
symbolslistbox2.cell(1,incr)="NCUN.F":incr++
symbolslistbox2.cell(1,incr)="NCYD.F":incr++
symbolslistbox2.cell(1,incr)="ND1.F":incr++
symbolslistbox2.cell(1,incr)="ND3.F":incr++
symbolslistbox2.cell(1,incr)="ND5.F":incr++
symbolslistbox2.cell(1,incr)="NDA.F":incr++
'symbolslistbox2.cell(1,incr)="NDH1.F":incr++
symbolslistbox2.cell(1,incr)="NDX1.F":incr++
symbolslistbox2.cell(1,incr)="NE3.F":incr++
symbolslistbox2.cell(1,incr)="NE4H.F":incr++
symbolslistbox2.cell(1,incr)="NE6.F":incr++
symbolslistbox2.cell(1,incr)="NEC1.F":incr++
symbolslistbox2.cell(1,incr)="NEF.F":incr++
symbolslistbox2.cell(1,incr)="NEH.F":incr++
symbolslistbox2.cell(1,incr)="NEM.F":incr++
symbolslistbox2.cell(1,incr)="NEN.F":incr++
symbolslistbox2.cell(1,incr)="NEQ.F":incr++
symbolslistbox2.cell(1,incr)="NER.F":incr++
symbolslistbox2.cell(1,incr)="NESM.F":incr++
symbolslistbox2.cell(1,incr)="NEX.F":incr++
symbolslistbox2.cell(1,incr)="NF2.F":incr++
'symbolslistbox2.cell(1,incr)="NF3.F":incr++
symbolslistbox2.cell(1,incr)="NFA.F":incr++
symbolslistbox2.cell(1,incr)="NFC.F":incr++
symbolslistbox2.cell(1,incr)="NFG.F":incr++
symbolslistbox2.cell(1,incr)="NFR.F":incr++
symbolslistbox2.cell(1,incr)="NFS.F":incr++
symbolslistbox2.cell(1,incr)="NG2.F":incr++
'symbolslistbox2.cell(1,incr)="NG4.F":incr++
symbolslistbox2.cell(1,incr)="NG9.F":incr++
'symbolslistbox2.cell(1,incr)="NGF.F":incr++
symbolslistbox2.cell(1,incr)="NGI.F":incr++
symbolslistbox2.cell(1,incr)="NGJ.F":incr++
symbolslistbox2.cell(1,incr)="NGK.F":incr++
symbolslistbox2.cell(1,incr)="NGLB.F":incr++
symbolslistbox2.cell(1,incr)="NGP.F":incr++
symbolslistbox2.cell(1,incr)="NGQ1.F":incr++
symbolslistbox2.cell(1,incr)="NGR.F":incr++
symbolslistbox2.cell(1,incr)="NGU.F":incr++
symbolslistbox2.cell(1,incr)="NH5.F":incr++
'symbolslistbox2.cell(1,incr)="NH6.F":incr++
symbolslistbox2.cell(1,incr)="NH8.F":incr++
symbolslistbox2.cell(1,incr)="NHK.F":incr++
symbolslistbox2.cell(1,incr)="NHM.F":incr++
symbolslistbox2.cell(1,incr)="NHS.F":incr++
symbolslistbox2.cell(1,incr)="NI1.F":incr++
symbolslistbox2.cell(1,incr)="NI3.F":incr++
symbolslistbox2.cell(1,incr)="NI6.F":incr++
symbolslistbox2.cell(1,incr)="NI7.F":incr++
symbolslistbox2.cell(1,incr)="NI9.F":incr++
symbolslistbox2.cell(1,incr)="NIB.F":incr++
symbolslistbox2.cell(1,incr)="NIB1.F":incr++
symbolslistbox2.cell(1,incr)="NISA.F":incr++
symbolslistbox2.cell(1,incr)="NJ1.F":incr++
symbolslistbox2.cell(1,incr)="NJ2.F":incr++
symbolslistbox2.cell(1,incr)="NJPA.F":incr++
symbolslistbox2.cell(1,incr)="NK1A.F":incr++
symbolslistbox2.cell(1,incr)="NK4L.F":incr++
symbolslistbox2.cell(1,incr)="NK8.F":incr++
symbolslistbox2.cell(1,incr)="NKB2.F":incr++
symbolslistbox2.cell(1,incr)="NKC.F":incr++
symbolslistbox2.cell(1,incr)="NKE.F":incr++
symbolslistbox2.cell(1,incr)="NKN.F":incr++
symbolslistbox2.cell(1,incr)="NKT.F":incr++
'symbolslistbox2.cell(1,incr)="NL5.F":incr++
'symbolslistbox2.cell(1,incr)="NLC.F":incr++
symbolslistbox2.cell(1,incr)="NLM.F":incr++
symbolslistbox2.cell(1,incr)="NLV.F":incr++
symbolslistbox2.cell(1,incr)="NM4.F":incr++
symbolslistbox2.cell(1,incr)="NMA.F":incr++
symbolslistbox2.cell(1,incr)="NMM.F":incr++
symbolslistbox2.cell(1,incr)="NMR.F":incr++
symbolslistbox2.cell(1,incr)="NN2.F":incr++
'symbolslistbox2.cell(1,incr)="NNC.F":incr++
symbolslistbox2.cell(1,incr)="NNFN.F":incr++
symbolslistbox2.cell(1,incr)="NNIC.F":incr++
symbolslistbox2.cell(1,incr)="NNJ.F":incr++
symbolslistbox2.cell(1,incr)="NNL.F":incr++
symbolslistbox2.cell(1,incr)="NNM.F":incr++
symbolslistbox2.cell(1,incr)="NNND.F":incr++
symbolslistbox2.cell(1,incr)="NNR.F":incr++
symbolslistbox2.cell(1,incr)="NNW.F":incr++
symbolslistbox2.cell(1,incr)="NO3.F":incr++
symbolslistbox2.cell(1,incr)="NO4.F":incr++
symbolslistbox2.cell(1,incr)="NO8.F":incr++
symbolslistbox2.cell(1,incr)="NOA3.F":incr++
'symbolslistbox2.cell(1,incr)="NOC.F":incr++
symbolslistbox2.cell(1,incr)="NOEJ.F":incr++
symbolslistbox2.cell(1,incr)="NOH1.F":incr++
'symbolslistbox2.cell(1,incr)="NOT.F":incr++
symbolslistbox2.cell(1,incr)="NOTA.F":incr++
symbolslistbox2.cell(1,incr)="NOU.F":incr++
symbolslistbox2.cell(1,incr)="NOVC.F":incr++
symbolslistbox2.cell(1,incr)="NOX.F":incr++
symbolslistbox2.cell(1,incr)="NP7.F":incr++
'symbolslistbox2.cell(1,incr)="NPD.F":incr++
symbolslistbox2.cell(1,incr)="NPG.F":incr++
symbolslistbox2.cell(1,incr)="NPS.F":incr++
symbolslistbox2.cell(1,incr)="NPV.F":incr++
symbolslistbox2.cell(1,incr)="NPW1.F":incr++
'symbolslistbox2.cell(1,incr)="NPY.F":incr++
symbolslistbox2.cell(1,incr)="NQ1.F":incr++
symbolslistbox2.cell(1,incr)="NQ9.F":incr++
symbolslistbox2.cell(1,incr)="NQG.F":incr++
symbolslistbox2.cell(1,incr)="NQI.F":incr++
symbolslistbox2.cell(1,incr)="NQL1.F":incr++
symbolslistbox2.cell(1,incr)="NQSE.F":incr++
symbolslistbox2.cell(1,incr)="NR7.F":incr++
symbolslistbox2.cell(1,incr)="NRA.F":incr++
symbolslistbox2.cell(1,incr)="NRD.F":incr++
symbolslistbox2.cell(1,incr)="NRE.F":incr++
symbolslistbox2.cell(1,incr)="NRM.F":incr++
symbolslistbox2.cell(1,incr)="NRN.F":incr++
symbolslistbox2.cell(1,incr)="NS4E.F":incr++
symbolslistbox2.cell(1,incr)="NS7.F":incr++
symbolslistbox2.cell(1,incr)="NS9B.F":incr++
symbolslistbox2.cell(1,incr)="NSC.F":incr++
symbolslistbox2.cell(1,incr)="NSE.F":incr++
symbolslistbox2.cell(1,incr)="NSGB.F":incr++
symbolslistbox2.cell(1,incr)="NSK.F":incr++
symbolslistbox2.cell(1,incr)="NSN.F":incr++
'symbolslistbox2.cell(1,incr)="NSU.F":incr++
symbolslistbox2.cell(1,incr)="NSZ.F":incr++
symbolslistbox2.cell(1,incr)="NT1.F":incr++
symbolslistbox2.cell(1,incr)="NT4.F":incr++
symbolslistbox2.cell(1,incr)="NT5.F":incr++
symbolslistbox2.cell(1,incr)="NTA.F":incr++
symbolslistbox2.cell(1,incr)="NTG.F":incr++
symbolslistbox2.cell(1,incr)="NTH.F":incr++
'symbolslistbox2.cell(1,incr)="NTK.F":incr++
symbolslistbox2.cell(1,incr)="NTN.F":incr++
symbolslistbox2.cell(1,incr)="NTO.F":incr++
symbolslistbox2.cell(1,incr)="NTP.F":incr++
symbolslistbox2.cell(1,incr)="NTR.F":incr++
symbolslistbox2.cell(1,incr)="NTT.F":incr++
symbolslistbox2.cell(1,incr)="NU42.F":incr++
symbolslistbox2.cell(1,incr)="NU5.F":incr++
symbolslistbox2.cell(1,incr)="NUC.F":incr++
symbolslistbox2.cell(1,incr)="NUF.F":incr++
symbolslistbox2.cell(1,incr)="NUN.F":incr++
symbolslistbox2.cell(1,incr)="NUO.F":incr++
symbolslistbox2.cell(1,incr)="NUS.F":incr++
symbolslistbox2.cell(1,incr)="NUX.F":incr++
symbolslistbox2.cell(1,incr)="NV9.F":incr++
symbolslistbox2.cell(1,incr)="NVAP.F":incr++
symbolslistbox2.cell(1,incr)="NVAV.F":incr++
symbolslistbox2.cell(1,incr)="NVD.F":incr++
symbolslistbox2.cell(1,incr)="NVE.F":incr++
symbolslistbox2.cell(1,incr)="NVG.F":incr++
symbolslistbox2.cell(1,incr)="NVJP.F":incr++
symbolslistbox2.cell(1,incr)="NVK.F":incr++
symbolslistbox2.cell(1,incr)="NVPB.F":incr++
'symbolslistbox2.cell(1,incr)="NVPE.F":incr++
symbolslistbox2.cell(1,incr)="NVQ.F":incr++
symbolslistbox2.cell(1,incr)="NVV1.F":incr++
'symbolslistbox2.cell(1,incr)="NW9.F":incr++
symbolslistbox2.cell(1,incr)="NWC.F":incr++
'symbolslistbox2.cell(1,incr)="NWD.F":incr++
symbolslistbox2.cell(1,incr)="NWF.F":incr++
symbolslistbox2.cell(1,incr)="NWG.F":incr++
symbolslistbox2.cell(1,incr)="NWJ.F":incr++
symbolslistbox2.cell(1,incr)="NWL.F":incr++
symbolslistbox2.cell(1,incr)="NWM.F":incr++
symbolslistbox2.cell(1,incr)="NWP.F":incr++
symbolslistbox2.cell(1,incr)="NWS.F":incr++
symbolslistbox2.cell(1,incr)="NWT.F":incr++
symbolslistbox2.cell(1,incr)="NWX.F":incr++
symbolslistbox2.cell(1,incr)="NWZA.F":incr++
symbolslistbox2.cell(1,incr)="NXG.F":incr++
symbolslistbox2.cell(1,incr)="NXOA.F":incr++
symbolslistbox2.cell(1,incr)="NXPT.F":incr++
symbolslistbox2.cell(1,incr)="NXS.F":incr++
symbolslistbox2.cell(1,incr)="NXU.F":incr++
symbolslistbox2.cell(1,incr)="NXZ.F":incr++
symbolslistbox2.cell(1,incr)="NY7.F":incr++
symbolslistbox2.cell(1,incr)="NYG1.F":incr++
symbolslistbox2.cell(1,incr)="NYKA.F":incr++
symbolslistbox2.cell(1,incr)="NYM.F":incr++
symbolslistbox2.cell(1,incr)="NYT.F":incr++
symbolslistbox2.cell(1,incr)="NYVK.F":incr++
symbolslistbox2.cell(1,incr)="NZCA.F":incr++
symbolslistbox2.cell(1,incr)="NZE.F":incr++
symbolslistbox2.cell(1,incr)="NZM2.F":incr++
symbolslistbox2.cell(1,incr)="NZT.F":incr++
'symbolslistbox2.cell(1,incr)="NZX.F":incr++
symbolslistbox2.cell(1,incr)="O1A.F":incr++
symbolslistbox2.cell(1,incr)="O1E.F":incr++
symbolslistbox2.cell(1,incr)="O2C.F":incr++
symbolslistbox2.cell(1,incr)="O2D.F":incr++
symbolslistbox2.cell(1,incr)="O2T.F":incr++
symbolslistbox2.cell(1,incr)="O3B.F":incr++
symbolslistbox2.cell(1,incr)="O3P.F":incr++
symbolslistbox2.cell(1,incr)="O4B.F":incr++
symbolslistbox2.cell(1,incr)="O5A.F":incr++
symbolslistbox2.cell(1,incr)="O5G.F":incr++
symbolslistbox2.cell(1,incr)="O5H.F":incr++
symbolslistbox2.cell(1,incr)="O5I.F":incr++
symbolslistbox2.cell(1,incr)="O5P.F":incr++
symbolslistbox2.cell(1,incr)="O5Q.F":incr++
symbolslistbox2.cell(1,incr)="O6M.F":incr++
symbolslistbox2.cell(1,incr)="O7F.F":incr++
symbolslistbox2.cell(1,incr)="O7F1.F":incr++
symbolslistbox2.cell(1,incr)="O7N.F":incr++
symbolslistbox2.cell(1,incr)="OA2.F":incr++
'symbolslistbox2.cell(1,incr)="OAC.F":incr++
'symbolslistbox2.cell(1,incr)="OAIA.F":incr++
symbolslistbox2.cell(1,incr)="OB8.F":incr++
symbolslistbox2.cell(1,incr)="OB9.F":incr++
symbolslistbox2.cell(1,incr)="OBA.F":incr++
symbolslistbox2.cell(1,incr)="OBB.F":incr++
symbolslistbox2.cell(1,incr)="OBC.F":incr++
symbolslistbox2.cell(1,incr)="OBD.F":incr++
'symbolslistbox2.cell(1,incr)="OBF.F":incr++
symbolslistbox2.cell(1,incr)="OBL.F":incr++
symbolslistbox2.cell(1,incr)="OBS.F":incr++
symbolslistbox2.cell(1,incr)="OC5.F":incr++
symbolslistbox2.cell(1,incr)="OC9.F":incr++
symbolslistbox2.cell(1,incr)="OCBA.F":incr++
symbolslistbox2.cell(1,incr)="OCC.F":incr++
symbolslistbox2.cell(1,incr)="OCI1.F":incr++
symbolslistbox2.cell(1,incr)="OCJ.F":incr++
symbolslistbox2.cell(1,incr)="OCKA.F":incr++
symbolslistbox2.cell(1,incr)="OCM.F":incr++
symbolslistbox2.cell(1,incr)="OCN.F":incr++
symbolslistbox2.cell(1,incr)="OCT.F":incr++
symbolslistbox2.cell(1,incr)="OCW.F":incr++
'symbolslistbox2.cell(1,incr)="OD73.F":incr++
'symbolslistbox2.cell(1,incr)="OD7B.F":incr++
'symbolslistbox2.cell(1,incr)="OD7C.F":incr++
'symbolslistbox2.cell(1,incr)="OD7D.F":incr++
'symbolslistbox2.cell(1,incr)="OD7E.F":incr++
'symbolslistbox2.cell(1,incr)="OD7F.F":incr++
'symbolslistbox2.cell(1,incr)="OD7G.F":incr++
'symbolslistbox2.cell(1,incr)="OD7H.F":incr++
'symbolslistbox2.cell(1,incr)="OD7J.F":incr++
'symbolslistbox2.cell(1,incr)="OD7K.F":incr++
'symbolslistbox2.cell(1,incr)="OD7L.F":incr++
'symbolslistbox2.cell(1,incr)="OD7M.F":incr++
'symbolslistbox2.cell(1,incr)="OD7N.F":incr++
'symbolslistbox2.cell(1,incr)="OD7P.F":incr++
'symbolslistbox2.cell(1,incr)="OD7R.F":incr++
'symbolslistbox2.cell(1,incr)="OD7S.F":incr++
'symbolslistbox2.cell(1,incr)="OD7T.F":incr++
'symbolslistbox2.cell(1,incr)="OD7U.F":incr++
'symbolslistbox2.cell(1,incr)="OD7V.F":incr++
'symbolslistbox2.cell(1,incr)="OD7W.F":incr++
'symbolslistbox2.cell(1,incr)="OD7Z.F":incr++
symbolslistbox2.cell(1,incr)="OD8.F":incr++
'symbolslistbox2.cell(1,incr)="ODE.F":incr++
symbolslistbox2.cell(1,incr)="ODF.F":incr++
'symbolslistbox2.cell(1,incr)="ODP.F":incr++
'symbolslistbox2.cell(1,incr)="OE6.F":incr++
symbolslistbox2.cell(1,incr)="OEL.F":incr++
symbolslistbox2.cell(1,incr)="OEMA.F":incr++
symbolslistbox2.cell(1,incr)="OEWA.F":incr++
symbolslistbox2.cell(1,incr)="OEX.F":incr++
symbolslistbox2.cell(1,incr)="OEZ.F":incr++
symbolslistbox2.cell(1,incr)="OFK.F":incr++
symbolslistbox2.cell(1,incr)="OFP.F":incr++
'symbolslistbox2.cell(1,incr)="OFZ.F":incr++
symbolslistbox2.cell(1,incr)="OG5.F":incr++
symbolslistbox2.cell(1,incr)="OG9.F":incr++
symbolslistbox2.cell(1,incr)="OGL.F":incr++
symbolslistbox2.cell(1,incr)="OGM1.F":incr++
symbolslistbox2.cell(1,incr)="OHB.F":incr++
symbolslistbox2.cell(1,incr)="OHE.F":incr++
symbolslistbox2.cell(1,incr)="OHH.F":incr++
symbolslistbox2.cell(1,incr)="OHP.F":incr++
symbolslistbox2.cell(1,incr)="OHZ.F":incr++
symbolslistbox2.cell(1,incr)="OI2.F":incr++
'symbolslistbox2.cell(1,incr)="OI3.F":incr++
'symbolslistbox2.cell(1,incr)="OI4.F":incr++
symbolslistbox2.cell(1,incr)="OIC.F":incr++
symbolslistbox2.cell(1,incr)="OII.F":incr++
'symbolslistbox2.cell(1,incr)="OIS.F":incr++
symbolslistbox2.cell(1,incr)="OIT.F":incr++
symbolslistbox2.cell(1,incr)="OIX.F":incr++
symbolslistbox2.cell(1,incr)="OJI.F":incr++
symbolslistbox2.cell(1,incr)="OK3.F":incr++
'symbolslistbox2.cell(1,incr)="OKA.F":incr++
symbolslistbox2.cell(1,incr)="OKI.F":incr++
symbolslistbox2.cell(1,incr)="OKL.F":incr++
symbolslistbox2.cell(1,incr)="OKN.F":incr++
symbolslistbox2.cell(1,incr)="OKU.F":incr++
symbolslistbox2.cell(1,incr)="OL5.F":incr++
symbolslistbox2.cell(1,incr)="OL6.F":incr++
symbolslistbox2.cell(1,incr)="OLD.F":incr++
symbolslistbox2.cell(1,incr)="OLG.F":incr++
symbolslistbox2.cell(1,incr)="OLL.F":incr++
symbolslistbox2.cell(1,incr)="OLN.F":incr++
symbolslistbox2.cell(1,incr)="OLU.F":incr++
symbolslistbox2.cell(1,incr)="OLWN.F":incr++
symbolslistbox2.cell(1,incr)="OLX.F":incr++
symbolslistbox2.cell(1,incr)="OLY1.F":incr++
symbolslistbox2.cell(1,incr)="OLZ.F":incr++
symbolslistbox2.cell(1,incr)="OM3M.F":incr++
symbolslistbox2.cell(1,incr)="OM6.F":incr++
symbolslistbox2.cell(1,incr)="OMS1.F":incr++
symbolslistbox2.cell(1,incr)="OMV.F":incr++
symbolslistbox2.cell(1,incr)="ON1.F":incr++
symbolslistbox2.cell(1,incr)="ONE.F":incr++
symbolslistbox2.cell(1,incr)="ONK.F":incr++
'symbolslistbox2.cell(1,incr)="OOEA.F":incr++
symbolslistbox2.cell(1,incr)="OP4.F":incr++
'symbolslistbox2.cell(1,incr)="OP8.F":incr++
symbolslistbox2.cell(1,incr)="OPA.F":incr++
symbolslistbox2.cell(1,incr)="OPC.F":incr++
symbolslistbox2.cell(1,incr)="OPEN.F":incr++
symbolslistbox2.cell(1,incr)="OPQ.F":incr++
symbolslistbox2.cell(1,incr)="OQH.F":incr++
symbolslistbox2.cell(1,incr)="OQS.F":incr++
symbolslistbox2.cell(1,incr)="OR6.F":incr++
'symbolslistbox2.cell(1,incr)="OR7.F":incr++
symbolslistbox2.cell(1,incr)="OR8.F":incr++
symbolslistbox2.cell(1,incr)="ORA.F":incr++
symbolslistbox2.cell(1,incr)="ORC.F":incr++
symbolslistbox2.cell(1,incr)="OREA.F":incr++
symbolslistbox2.cell(1,incr)="ORG.F":incr++
symbolslistbox2.cell(1,incr)="ORI1.F":incr++
symbolslistbox2.cell(1,incr)="ORJ.F":incr++
symbolslistbox2.cell(1,incr)="ORL.F":incr++
symbolslistbox2.cell(1,incr)="ORS.F":incr++
symbolslistbox2.cell(1,incr)="OS1.F":incr++
symbolslistbox2.cell(1,incr)="OS2.F":incr++
symbolslistbox2.cell(1,incr)="OS3.F":incr++
'symbolslistbox2.cell(1,incr)="OS7.F":incr++
symbolslistbox2.cell(1,incr)="OSA.F":incr++
symbolslistbox2.cell(1,incr)="OSG.F":incr++
symbolslistbox2.cell(1,incr)="OSOB.F":incr++
symbolslistbox2.cell(1,incr)="OSP2.F":incr++
symbolslistbox2.cell(1,incr)="OSR.F":incr++
symbolslistbox2.cell(1,incr)="OSW.F":incr++
symbolslistbox2.cell(1,incr)="OSX2.F":incr++
symbolslistbox2.cell(1,incr)="OSX4.F":incr++
symbolslistbox2.cell(1,incr)="OSX6.F":incr++
symbolslistbox2.cell(1,incr)="OSX9.F":incr++
symbolslistbox2.cell(1,incr)="OSXC.F":incr++
symbolslistbox2.cell(1,incr)="OSXF.F":incr++
symbolslistbox2.cell(1,incr)="OSXJ.F":incr++
symbolslistbox2.cell(1,incr)="OSXM.F":incr++
'symbolslistbox2.cell(1,incr)="OSY.F":incr++
symbolslistbox2.cell(1,incr)="OSZG.F":incr++
symbolslistbox2.cell(1,incr)="OT7.F":incr++
symbolslistbox2.cell(1,incr)="OTE.F":incr++
symbolslistbox2.cell(1,incr)="OTK.F":incr++
symbolslistbox2.cell(1,incr)="OTP.F":incr++
symbolslistbox2.cell(1,incr)="OTX.F":incr++
symbolslistbox2.cell(1,incr)="OU1.F":incr++
'symbolslistbox2.cell(1,incr)="OU2A.F":incr++
'symbolslistbox2.cell(1,incr)="OU5.F":incr++
symbolslistbox2.cell(1,incr)="OU6.F":incr++
symbolslistbox2.cell(1,incr)="OUE1.F":incr++
symbolslistbox2.cell(1,incr)="OUTA.F":incr++
symbolslistbox2.cell(1,incr)="OUW.F":incr++
symbolslistbox2.cell(1,incr)="OVER.F":incr++
symbolslistbox2.cell(1,incr)="OVI.F":incr++
'symbolslistbox2.cell(1,incr)="OVZ3.F":incr++
'symbolslistbox2.cell(1,incr)="OW0.F":incr++
'symbolslistbox2.cell(1,incr)="OWC.F":incr++
symbolslistbox2.cell(1,incr)="OWK.F":incr++
symbolslistbox2.cell(1,incr)="OWLE.F":incr++
symbolslistbox2.cell(1,incr)="OWQ.F":incr++
symbolslistbox2.cell(1,incr)="OWY.F":incr++
symbolslistbox2.cell(1,incr)="OXD.F":incr++
symbolslistbox2.cell(1,incr)="OXR.F":incr++
'symbolslistbox2.cell(1,incr)="OY3.F":incr++
symbolslistbox2.cell(1,incr)="OYC.F":incr++
symbolslistbox2.cell(1,incr)="OYD.F":incr++
'symbolslistbox2.cell(1,incr)="OYK.F":incr++
symbolslistbox2.cell(1,incr)="OYO.F":incr++
symbolslistbox2.cell(1,incr)="OYS.F":incr++
'symbolslistbox2.cell(1,incr)="OYX.F":incr++
symbolslistbox2.cell(1,incr)="OZTA.F":incr++
symbolslistbox2.cell(1,incr)="OZV2.F":incr++
symbolslistbox2.cell(1,incr)="P09.F":incr++
'symbolslistbox2.cell(1,incr)="P0E.F":incr++
symbolslistbox2.cell(1,incr)="P1I.F":incr++
symbolslistbox2.cell(1,incr)="P1M.F":incr++
symbolslistbox2.cell(1,incr)="P2F.F":incr++
symbolslistbox2.cell(1,incr)="P2I.F":incr++
'symbolslistbox2.cell(1,incr)="P2O.F":incr++
symbolslistbox2.cell(1,incr)="P2W.F":incr++
symbolslistbox2.cell(1,incr)="P36.F":incr++
symbolslistbox2.cell(1,incr)="P3G.F":incr++
symbolslistbox2.cell(1,incr)="P4N.F":incr++
symbolslistbox2.cell(1,incr)="P4O.F":incr++
symbolslistbox2.cell(1,incr)="P4Q.F":incr++
symbolslistbox2.cell(1,incr)="P4R.F":incr++
symbolslistbox2.cell(1,incr)="P4XA.F":incr++
symbolslistbox2.cell(1,incr)="P500.F":incr++
symbolslistbox2.cell(1,incr)="P5C.F":incr++
symbolslistbox2.cell(1,incr)="P5IB.F":incr++
symbolslistbox2.cell(1,incr)="P5P.F":incr++
symbolslistbox2.cell(1,incr)="P5TA.F":incr++
symbolslistbox2.cell(1,incr)="P5X.F":incr++
symbolslistbox2.cell(1,incr)="P6K.F":incr++
'symbolslistbox2.cell(1,incr)="P7K.F":incr++
'symbolslistbox2.cell(1,incr)="P7S.F":incr++
symbolslistbox2.cell(1,incr)="P8ET.F":incr++
symbolslistbox2.cell(1,incr)="P8X.F":incr++
symbolslistbox2.cell(1,incr)="P91.F":incr++
symbolslistbox2.cell(1,incr)="P94P.F":incr++
symbolslistbox2.cell(1,incr)="P9G.F":incr++
symbolslistbox2.cell(1,incr)="P9I.F":incr++
symbolslistbox2.cell(1,incr)="P9O.F":incr++
symbolslistbox2.cell(1,incr)="P9R.F":incr++
symbolslistbox2.cell(1,incr)="PA2.F":incr++
symbolslistbox2.cell(1,incr)="PA6.F":incr++
symbolslistbox2.cell(1,incr)="PA8.F":incr++
symbolslistbox2.cell(1,incr)="PA9.F":incr++
symbolslistbox2.cell(1,incr)="PAC.F":incr++
symbolslistbox2.cell(1,incr)="PAE.F":incr++
symbolslistbox2.cell(1,incr)="PAH3.F":incr++
symbolslistbox2.cell(1,incr)="PAR.F":incr++
'symbolslistbox2.cell(1,incr)="PB3.F":incr++
symbolslistbox2.cell(1,incr)="PB8.F":incr++
symbolslistbox2.cell(1,incr)="PBCB.F":incr++
symbolslistbox2.cell(1,incr)="PBN.F":incr++
symbolslistbox2.cell(1,incr)="PBV.F":incr++
symbolslistbox2.cell(1,incr)="PBW.F":incr++
symbolslistbox2.cell(1,incr)="PC5.F":incr++
symbolslistbox2.cell(1,incr)="PC6.F":incr++
symbolslistbox2.cell(1,incr)="PC8.F":incr++
symbolslistbox2.cell(1,incr)="PCC.F":incr++
symbolslistbox2.cell(1,incr)="PCE1.F":incr++
symbolslistbox2.cell(1,incr)="PCG.F":incr++
symbolslistbox2.cell(1,incr)="PCU.F":incr++
symbolslistbox2.cell(1,incr)="PCX.F":incr++
symbolslistbox2.cell(1,incr)="PD0.F":incr++
symbolslistbox2.cell(1,incr)="PD1A.F":incr++
symbolslistbox2.cell(1,incr)="PD2.F":incr++
symbolslistbox2.cell(1,incr)="PD3.F":incr++
'symbolslistbox2.cell(1,incr)="PD5.F":incr++
symbolslistbox2.cell(1,incr)="PD9.F":incr++
symbolslistbox2.cell(1,incr)="PDA.F":incr++
symbolslistbox2.cell(1,incr)="PDC.F":incr++
'symbolslistbox2.cell(1,incr)="PDL.F":incr++
'symbolslistbox2.cell(1,incr)="PDR.F":incr++
symbolslistbox2.cell(1,incr)="PDSE.F":incr++
symbolslistbox2.cell(1,incr)="PE1.F":incr++
symbolslistbox2.cell(1,incr)="PE2.F":incr++
symbolslistbox2.cell(1,incr)="PEA.F":incr++
symbolslistbox2.cell(1,incr)="PEH.F":incr++
symbolslistbox2.cell(1,incr)="PEKB.F":incr++
symbolslistbox2.cell(1,incr)="PEN.F":incr++
symbolslistbox2.cell(1,incr)="PEO.F":incr++
symbolslistbox2.cell(1,incr)="PEP.F":incr++
symbolslistbox2.cell(1,incr)="PER.F":incr++
symbolslistbox2.cell(1,incr)="PES.F":incr++
'symbolslistbox2.cell(1,incr)="PEU.F":incr++
symbolslistbox2.cell(1,incr)="PEW.F":incr++
'symbolslistbox2.cell(1,incr)="PF3.F":incr++
symbolslistbox2.cell(1,incr)="PF8.F":incr++
symbolslistbox2.cell(1,incr)="PFE.F":incr++
symbolslistbox2.cell(1,incr)="PFI.F":incr++
symbolslistbox2.cell(1,incr)="PFQ.F":incr++
symbolslistbox2.cell(1,incr)="PFS.F":incr++
symbolslistbox2.cell(1,incr)="PFV.F":incr++
symbolslistbox2.cell(1,incr)="PFW1.F":incr++
'symbolslistbox2.cell(1,incr)="PFYA.F":incr++
'symbolslistbox2.cell(1,incr)="PG1.F":incr++
symbolslistbox2.cell(1,incr)="PG4.F":incr++
symbolslistbox2.cell(1,incr)="PGB1.F":incr++
symbolslistbox2.cell(1,incr)="PGC.F":incr++
'symbolslistbox2.cell(1,incr)="PGH1.F":incr++
symbolslistbox2.cell(1,incr)="PGJ.F":incr++
symbolslistbox2.cell(1,incr)="PGN.F":incr++
symbolslistbox2.cell(1,incr)="PGR.F":incr++
symbolslistbox2.cell(1,incr)="PGS1.F":incr++
symbolslistbox2.cell(1,incr)="PGV.F":incr++
symbolslistbox2.cell(1,incr)="PGW.F":incr++
symbolslistbox2.cell(1,incr)="PGZ.F":incr++
symbolslistbox2.cell(1,incr)="PH7.F":incr++
symbolslistbox2.cell(1,incr)="PHE.F":incr++
symbolslistbox2.cell(1,incr)="PHGN.F":incr++
symbolslistbox2.cell(1,incr)="PHH2.F":incr++
symbolslistbox2.cell(1,incr)="PHI1.F":incr++
symbolslistbox2.cell(1,incr)="PHM7.F":incr++
symbolslistbox2.cell(1,incr)="PHO.F":incr++
symbolslistbox2.cell(1,incr)="PHPN.F":incr++
symbolslistbox2.cell(1,incr)="PHQ.F":incr++
symbolslistbox2.cell(1,incr)="PHZ.F":incr++
symbolslistbox2.cell(1,incr)="PI2.F":incr++
symbolslistbox2.cell(1,incr)="PI6.F":incr++
symbolslistbox2.cell(1,incr)="PI7.F":incr++
symbolslistbox2.cell(1,incr)="PIK.F":incr++
symbolslistbox2.cell(1,incr)="PIR.F":incr++
symbolslistbox2.cell(1,incr)="PIT.F":incr++
symbolslistbox2.cell(1,incr)="PJ4A.F":incr++
symbolslistbox2.cell(1,incr)="PJC.F":incr++
symbolslistbox2.cell(1,incr)="PJEU.F":incr++
symbolslistbox2.cell(1,incr)="PJFB.F":incr++
symbolslistbox2.cell(1,incr)="PJM.F":incr++
symbolslistbox2.cell(1,incr)="PJP.F":incr++
symbolslistbox2.cell(1,incr)="PJR.F":incr++
symbolslistbox2.cell(1,incr)="PJS1.F":incr++
symbolslistbox2.cell(1,incr)="PJSR.F":incr++
symbolslistbox2.cell(1,incr)="PJXC.F":incr++
symbolslistbox2.cell(1,incr)="PK2.F":incr++
'symbolslistbox2.cell(1,incr)="PK5.F":incr++
symbolslistbox2.cell(1,incr)="PKA.F":incr++
symbolslistbox2.cell(1,incr)="PKB.F":incr++
symbolslistbox2.cell(1,incr)="PKE.F":incr++
symbolslistbox2.cell(1,incr)="PKJ2.F":incr++
symbolslistbox2.cell(1,incr)="PKN.F":incr++
symbolslistbox2.cell(1,incr)="PKY1.F":incr++
symbolslistbox2.cell(1,incr)="PL6.F":incr++
symbolslistbox2.cell(1,incr)="PL8.F":incr++
'symbolslistbox2.cell(1,incr)="PLF.F":incr++
symbolslistbox2.cell(1,incr)="PLL.F":incr++
symbolslistbox2.cell(1,incr)="PLR.F":incr++
symbolslistbox2.cell(1,incr)="PLUN.F":incr++
'symbolslistbox2.cell(1,incr)="PM4.F":incr++
symbolslistbox2.cell(1,incr)="PM6.F":incr++
symbolslistbox2.cell(1,incr)="PM7A.F":incr++
symbolslistbox2.cell(1,incr)="PMQ.F":incr++
symbolslistbox2.cell(1,incr)="PMTA.F":incr++
symbolslistbox2.cell(1,incr)="PMV.F":incr++
symbolslistbox2.cell(1,incr)="PN1.F":incr++
symbolslistbox2.cell(1,incr)="PND.F":incr++
symbolslistbox2.cell(1,incr)="PNE3.F":incr++
symbolslistbox2.cell(1,incr)="PNF.F":incr++
symbolslistbox2.cell(1,incr)="PNK.F":incr++
symbolslistbox2.cell(1,incr)="PNO.F":incr++
symbolslistbox2.cell(1,incr)="PNP.F":incr++
symbolslistbox2.cell(1,incr)="PNT.F":incr++
symbolslistbox2.cell(1,incr)="PNU.F":incr++
symbolslistbox2.cell(1,incr)="PNY.F":incr++
symbolslistbox2.cell(1,incr)="PO0.F":incr++
symbolslistbox2.cell(1,incr)="PO6.F":incr++
symbolslistbox2.cell(1,incr)="PO9.F":incr++
'symbolslistbox2.cell(1,incr)="POF.F":incr++
symbolslistbox2.cell(1,incr)="POH1.F":incr++
symbolslistbox2.cell(1,incr)="POJN.F":incr++
symbolslistbox2.cell(1,incr)="POQ.F":incr++
symbolslistbox2.cell(1,incr)="PP1.F":incr++
symbolslistbox2.cell(1,incr)="PP21.F":incr++
symbolslistbox2.cell(1,incr)="PP4A.F":incr++
symbolslistbox2.cell(1,incr)="PP9.F":incr++
symbolslistbox2.cell(1,incr)="PPB.F":incr++
'symbolslistbox2.cell(1,incr)="PPE.F":incr++
symbolslistbox2.cell(1,incr)="PPK.F":incr++
symbolslistbox2.cell(1,incr)="PPQ.F":incr++
symbolslistbox2.cell(1,incr)="PPX.F":incr++
symbolslistbox2.cell(1,incr)="PPY.F":incr++
symbolslistbox2.cell(1,incr)="PQ2.F":incr++
symbolslistbox2.cell(1,incr)="PQ3.F":incr++
symbolslistbox2.cell(1,incr)="PQ4.F":incr++
symbolslistbox2.cell(1,incr)="PQ51.F":incr++
symbolslistbox2.cell(1,incr)="PQ6.F":incr++
symbolslistbox2.cell(1,incr)="PQ9.F":incr++
symbolslistbox2.cell(1,incr)="PQIA.F":incr++
symbolslistbox2.cell(1,incr)="PQM.F":incr++
'symbolslistbox2.cell(1,incr)="PQQB.F":incr++
symbolslistbox2.cell(1,incr)="PQX1.F":incr++
'symbolslistbox2.cell(1,incr)="PR5.F":incr++
'symbolslistbox2.cell(1,incr)="PRE.F":incr++
'symbolslistbox2.cell(1,incr)="PRF.F":incr++
symbolslistbox2.cell(1,incr)="PRG.F":incr++
symbolslistbox2.cell(1,incr)="PRHA.F":incr++
symbolslistbox2.cell(1,incr)="PRK.F":incr++
symbolslistbox2.cell(1,incr)="PRL.F":incr++
symbolslistbox2.cell(1,incr)="PRP.F":incr++
symbolslistbox2.cell(1,incr)="PRRB.F":incr++
symbolslistbox2.cell(1,incr)="PRU.F":incr++
symbolslistbox2.cell(1,incr)="PRVA.F":incr++
symbolslistbox2.cell(1,incr)="PS1.F":incr++
symbolslistbox2.cell(1,incr)="PS3.F":incr++
'symbolslistbox2.cell(1,incr)="PS4.F":incr++
symbolslistbox2.cell(1,incr)="PS8.F":incr++
symbolslistbox2.cell(1,incr)="PSAN.F":incr++
symbolslistbox2.cell(1,incr)="PSE.F":incr++
symbolslistbox2.cell(1,incr)="PSFE.F":incr++
symbolslistbox2.cell(1,incr)="PSM.F":incr++
symbolslistbox2.cell(1,incr)="PSWD.F":incr++
symbolslistbox2.cell(1,incr)="PSX.F":incr++
'symbolslistbox2.cell(1,incr)="PT3.F":incr++
symbolslistbox2.cell(1,incr)="PTB.F":incr++
symbolslistbox2.cell(1,incr)="PTCA.F":incr++
symbolslistbox2.cell(1,incr)="PTM.F":incr++
symbolslistbox2.cell(1,incr)="PTNA.F":incr++
symbolslistbox2.cell(1,incr)="PTQ.F":incr++
symbolslistbox2.cell(1,incr)="PTY.F":incr++
symbolslistbox2.cell(1,incr)="PU4.F":incr++
symbolslistbox2.cell(1,incr)="PU7.F":incr++
symbolslistbox2.cell(1,incr)="PU8.F":incr++
symbolslistbox2.cell(1,incr)="PUB.F":incr++
symbolslistbox2.cell(1,incr)="PUD.F":incr++
symbolslistbox2.cell(1,incr)="PUM.F":incr++
symbolslistbox2.cell(1,incr)="PUP.F":incr++
symbolslistbox2.cell(1,incr)="PUWA.F":incr++
'symbolslistbox2.cell(1,incr)="PUZ.F":incr++
'symbolslistbox2.cell(1,incr)="PV3A.F":incr++
symbolslistbox2.cell(1,incr)="PV6.F":incr++
symbolslistbox2.cell(1,incr)="PVDA.F":incr++
'symbolslistbox2.cell(1,incr)="PVF1.F":incr++
symbolslistbox2.cell(1,incr)="PVGB.F":incr++
symbolslistbox2.cell(1,incr)="PVH.F":incr++
symbolslistbox2.cell(1,incr)="PVJA.F":incr++
symbolslistbox2.cell(1,incr)="PVQ.F":incr++
symbolslistbox2.cell(1,incr)="PW5.F":incr++
symbolslistbox2.cell(1,incr)="PW9.F":incr++
symbolslistbox2.cell(1,incr)="PWC.F":incr++
'symbolslistbox2.cell(1,incr)="PWF.F":incr++
symbolslistbox2.cell(1,incr)="PWI.F":incr++
symbolslistbox2.cell(1,incr)="PWO.F":incr++
symbolslistbox2.cell(1,incr)="PWT.F":incr++
symbolslistbox2.cell(1,incr)="PX4.F":incr++
symbolslistbox2.cell(1,incr)="PXH.F":incr++
symbolslistbox2.cell(1,incr)="PXI.F":incr++
symbolslistbox2.cell(1,incr)="PXK.F":incr++
symbolslistbox2.cell(1,incr)="PXLX.F":incr++
symbolslistbox2.cell(1,incr)="PXS.F":incr++
symbolslistbox2.cell(1,incr)="PY9.F":incr++
symbolslistbox2.cell(1,incr)="PYA.F":incr++
'symbolslistbox2.cell(1,incr)="PYJ.F":incr++
symbolslistbox2.cell(1,incr)="PYV.F":incr++
symbolslistbox2.cell(1,incr)="PYW.F":incr++
symbolslistbox2.cell(1,incr)="PYX.F":incr++
symbolslistbox2.cell(1,incr)="PYXA.F":incr++
symbolslistbox2.cell(1,incr)="PZ1.F":incr++
symbolslistbox2.cell(1,incr)="PZM.F":incr++
symbolslistbox2.cell(1,incr)="PZQA.F":incr++
symbolslistbox2.cell(1,incr)="PZS.F":incr++
symbolslistbox2.cell(1,incr)="PZX.F":incr++
'symbolslistbox2.cell(1,incr)="Q8Q.F":incr++
symbolslistbox2.cell(1,incr)="QA4A.F":incr++
symbolslistbox2.cell(1,incr)="QAA.F":incr++
symbolslistbox2.cell(1,incr)="QAN.F":incr++
symbolslistbox2.cell(1,incr)="QB3.F":incr++
symbolslistbox2.cell(1,incr)="QB7.F":incr++
symbolslistbox2.cell(1,incr)="QBE.F":incr++
symbolslistbox2.cell(1,incr)="QC1.F":incr++
symbolslistbox2.cell(1,incr)="QC8.F":incr++
symbolslistbox2.cell(1,incr)="QC9.F":incr++
symbolslistbox2.cell(1,incr)="QCH.F":incr++
symbolslistbox2.cell(1,incr)="QCI.F":incr++
'symbolslistbox2.cell(1,incr)="QCQ.F":incr++
symbolslistbox2.cell(1,incr)="QCTA.F":incr++
symbolslistbox2.cell(1,incr)="QD4.F":incr++
symbolslistbox2.cell(1,incr)="QDI.F":incr++
symbolslistbox2.cell(1,incr)="QDV5.F":incr++
symbolslistbox2.cell(1,incr)="QDVA.F":incr++
symbolslistbox2.cell(1,incr)="QDVB.F":incr++
symbolslistbox2.cell(1,incr)="QDVC.F":incr++
symbolslistbox2.cell(1,incr)="QDVD.F":incr++
symbolslistbox2.cell(1,incr)="QDVE.F":incr++
symbolslistbox2.cell(1,incr)="QDVF.F":incr++
symbolslistbox2.cell(1,incr)="QDVG.F":incr++
symbolslistbox2.cell(1,incr)="QDVH.F":incr++
symbolslistbox2.cell(1,incr)="QDVI.F":incr++
symbolslistbox2.cell(1,incr)="QDVK.F":incr++
symbolslistbox2.cell(1,incr)="QDVL.F":incr++
'symbolslistbox2.cell(1,incr)="QDVM.F":incr++
symbolslistbox2.cell(1,incr)="QDVN.F":incr++
symbolslistbox2.cell(1,incr)="QDVP.F":incr++
symbolslistbox2.cell(1,incr)="QDVQ.F":incr++
symbolslistbox2.cell(1,incr)="QDVR.F":incr++
symbolslistbox2.cell(1,incr)="QDVS.F":incr++
symbolslistbox2.cell(1,incr)="QDVW.F":incr++
symbolslistbox2.cell(1,incr)="QDVX.F":incr++
symbolslistbox2.cell(1,incr)="QDVY.F":incr++
symbolslistbox2.cell(1,incr)="QE1.F":incr++
symbolslistbox2.cell(1,incr)="QEN.F":incr++
symbolslistbox2.cell(1,incr)="QF8.F":incr++
symbolslistbox2.cell(1,incr)="QF9.F":incr++
symbolslistbox2.cell(1,incr)="QFI.F":incr++
symbolslistbox2.cell(1,incr)="QFP.F":incr++
symbolslistbox2.cell(1,incr)="QFRA.F":incr++
symbolslistbox2.cell(1,incr)="QGH.F":incr++
symbolslistbox2.cell(1,incr)="QGI.F":incr++
symbolslistbox2.cell(1,incr)="QGJ.F":incr++
symbolslistbox2.cell(1,incr)="QGU.F":incr++
symbolslistbox2.cell(1,incr)="QHD.F":incr++
symbolslistbox2.cell(1,incr)="QHH.F":incr++
symbolslistbox2.cell(1,incr)="QHI.F":incr++
symbolslistbox2.cell(1,incr)="QIA.F":incr++
symbolslistbox2.cell(1,incr)="QIG.F":incr++
symbolslistbox2.cell(1,incr)="QIN.F":incr++
symbolslistbox2.cell(1,incr)="QIT1.F":incr++
symbolslistbox2.cell(1,incr)="QIW.F":incr++
symbolslistbox2.cell(1,incr)="QJE.F":incr++
symbolslistbox2.cell(1,incr)="QJQ.F":incr++
symbolslistbox2.cell(1,incr)="QL1.F":incr++
'symbolslistbox2.cell(1,incr)="QLA.F":incr++
symbolslistbox2.cell(1,incr)="QLDN.F":incr++
symbolslistbox2.cell(1,incr)="QMBN.F":incr++
symbolslistbox2.cell(1,incr)="QMC.F":incr++
symbolslistbox2.cell(1,incr)="QNC1.F":incr++
symbolslistbox2.cell(1,incr)="QPE.F":incr++
symbolslistbox2.cell(1,incr)="QPJ.F":incr++
'symbolslistbox2.cell(1,incr)="QPV.F":incr++
symbolslistbox2.cell(1,incr)="QPX.F":incr++
'symbolslistbox2.cell(1,incr)="QR2.F":incr++
symbolslistbox2.cell(1,incr)="QS2A.F":incr++
'symbolslistbox2.cell(1,incr)="QSC.F":incr++
symbolslistbox2.cell(1,incr)="QSU.F":incr++
symbolslistbox2.cell(1,incr)="QSV.F":incr++
symbolslistbox2.cell(1,incr)="QTS.F":incr++
symbolslistbox2.cell(1,incr)="QU4B.F":incr++
symbolslistbox2.cell(1,incr)="QU5A.F":incr++
symbolslistbox2.cell(1,incr)="QUC.F":incr++
symbolslistbox2.cell(1,incr)="QUED.F":incr++
symbolslistbox2.cell(1,incr)="QUEU.F":incr++
symbolslistbox2.cell(1,incr)="QVMP.F":incr++
'symbolslistbox2.cell(1,incr)="QXP1.F":incr++
symbolslistbox2.cell(1,incr)="QY1.F":incr++
symbolslistbox2.cell(1,incr)="QY6.F":incr++
symbolslistbox2.cell(1,incr)="QYM.F":incr++
symbolslistbox2.cell(1,incr)="R0F.F":incr++
symbolslistbox2.cell(1,incr)="R1D.F":incr++
symbolslistbox2.cell(1,incr)="R1H.F":incr++
symbolslistbox2.cell(1,incr)="R1R.F":incr++
symbolslistbox2.cell(1,incr)="R1Y.F":incr++
'symbolslistbox2.cell(1,incr)="R2F.F":incr++
symbolslistbox2.cell(1,incr)="R2V.F":incr++
symbolslistbox2.cell(1,incr)="R35.F":incr++
symbolslistbox2.cell(1,incr)="R3Q.F":incr++
'symbolslistbox2.cell(1,incr)="R3W.F":incr++
symbolslistbox2.cell(1,incr)="R4M.F":incr++
'symbolslistbox2.cell(1,incr)="R4P.F":incr++
symbolslistbox2.cell(1,incr)="R4Y.F":incr++
symbolslistbox2.cell(1,incr)="R5X.F":incr++
symbolslistbox2.cell(1,incr)="R66.F":incr++
symbolslistbox2.cell(1,incr)="R6C.F":incr++
symbolslistbox2.cell(1,incr)="R6C3.F":incr++
symbolslistbox2.cell(1,incr)="R6R.F":incr++
symbolslistbox2.cell(1,incr)="R7D.F":incr++
symbolslistbox2.cell(1,incr)="R7G.F":incr++
symbolslistbox2.cell(1,incr)="R7Y1.F":incr++
symbolslistbox2.cell(1,incr)="R8B.F":incr++
symbolslistbox2.cell(1,incr)="R90.F":incr++
'symbolslistbox2.cell(1,incr)="R99.F":incr++
symbolslistbox2.cell(1,incr)="RA6.F":incr++
symbolslistbox2.cell(1,incr)="RAA.F":incr++
symbolslistbox2.cell(1,incr)="RAB.F":incr++
symbolslistbox2.cell(1,incr)="RAC.F":incr++
symbolslistbox2.cell(1,incr)="RAE.F":incr++
symbolslistbox2.cell(1,incr)="RAG.F":incr++
symbolslistbox2.cell(1,incr)="RAK.F":incr++
symbolslistbox2.cell(1,incr)="RAM.F":incr++
symbolslistbox2.cell(1,incr)="RATV.F":incr++
symbolslistbox2.cell(1,incr)="RAW.F":incr++
symbolslistbox2.cell(1,incr)="RAX.F":incr++
symbolslistbox2.cell(1,incr)="RAY.F":incr++
symbolslistbox2.cell(1,incr)="RAZB.F":incr++
symbolslistbox2.cell(1,incr)="RB4.F":incr++
symbolslistbox2.cell(1,incr)="RB8.F":incr++
symbolslistbox2.cell(1,incr)="RBE1.F":incr++
symbolslistbox2.cell(1,incr)="RC8.F":incr++
symbolslistbox2.cell(1,incr)="RCF.F":incr++
symbolslistbox2.cell(1,incr)="RCIB.F":incr++
symbolslistbox2.cell(1,incr)="RCMN.F":incr++
symbolslistbox2.cell(1,incr)="RCO.F":incr++
symbolslistbox2.cell(1,incr)="RCY.F":incr++
symbolslistbox2.cell(1,incr)="RCZ.F":incr++
symbolslistbox2.cell(1,incr)="RDEB.F":incr++
symbolslistbox2.cell(1,incr)="RDF1.F":incr++
symbolslistbox2.cell(1,incr)="RDO.F":incr++
symbolslistbox2.cell(1,incr)="RE3.F":incr++
symbolslistbox2.cell(1,incr)="RE7.F":incr++
symbolslistbox2.cell(1,incr)="RE8.F":incr++
symbolslistbox2.cell(1,incr)="REAL.F":incr++
symbolslistbox2.cell(1,incr)="REB.F":incr++
symbolslistbox2.cell(1,incr)="REP.F":incr++
symbolslistbox2.cell(1,incr)="RER1.F":incr++
symbolslistbox2.cell(1,incr)="REU1.F":incr++
symbolslistbox2.cell(1,incr)="REW.F":incr++
symbolslistbox2.cell(1,incr)="RF5.F":incr++
symbolslistbox2.cell(1,incr)="RF6.F":incr++
'symbolslistbox2.cell(1,incr)="RFR.F":incr++
symbolslistbox2.cell(1,incr)="RFS.F":incr++
symbolslistbox2.cell(1,incr)="RG2A.F":incr++
symbolslistbox2.cell(1,incr)="RG3.F":incr++
symbolslistbox2.cell(1,incr)="RG6.F":incr++
symbolslistbox2.cell(1,incr)="RG7.F":incr++
symbolslistbox2.cell(1,incr)="RG8.F":incr++
symbolslistbox2.cell(1,incr)="RGB.F":incr++
'symbolslistbox2.cell(1,incr)="RGG.F":incr++
symbolslistbox2.cell(1,incr)="RGH.F":incr++
symbolslistbox2.cell(1,incr)="RGI.F":incr++
symbolslistbox2.cell(1,incr)="RGN.F":incr++
symbolslistbox2.cell(1,incr)="RGPB.F":incr++
symbolslistbox2.cell(1,incr)="RH6B.F":incr++
symbolslistbox2.cell(1,incr)="RHJ.F":incr++
symbolslistbox2.cell(1,incr)="RHK.F":incr++
symbolslistbox2.cell(1,incr)="RHM.F":incr++
symbolslistbox2.cell(1,incr)="RHN.F":incr++
'symbolslistbox2.cell(1,incr)="RHO.F":incr++
'symbolslistbox2.cell(1,incr)="RHO5.F":incr++
symbolslistbox2.cell(1,incr)="RI1.F":incr++
symbolslistbox2.cell(1,incr)="RI2A.F":incr++
symbolslistbox2.cell(1,incr)="RI4.F":incr++
symbolslistbox2.cell(1,incr)="RI7.F":incr++
'symbolslistbox2.cell(1,incr)="RIA.F":incr++
'symbolslistbox2.cell(1,incr)="RIB.F":incr++
symbolslistbox2.cell(1,incr)="RIC1.F":incr++
symbolslistbox2.cell(1,incr)="RIG2.F":incr++
'symbolslistbox2.cell(1,incr)="RIHN.F":incr++
symbolslistbox2.cell(1,incr)="RIK.F":incr++
symbolslistbox2.cell(1,incr)="RIO1.F":incr++
symbolslistbox2.cell(1,incr)="RIR.F":incr++
'symbolslistbox2.cell(1,incr)="RITN.F":incr++
symbolslistbox2.cell(1,incr)="RJ8.F":incr++
symbolslistbox2.cell(1,incr)="RJA.F":incr++
symbolslistbox2.cell(1,incr)="RJF.F":incr++
symbolslistbox2.cell(1,incr)="RJIB.F":incr++
symbolslistbox2.cell(1,incr)="RJN.F":incr++
symbolslistbox2.cell(1,incr)="RJO.F":incr++
symbolslistbox2.cell(1,incr)="RKB.F":incr++
'symbolslistbox2.cell(1,incr)="RKD.F":incr++
symbolslistbox2.cell(1,incr)="RKM.F":incr++
symbolslistbox2.cell(1,incr)="RKQ.F":incr++
symbolslistbox2.cell(1,incr)="RL1.F":incr++
symbolslistbox2.cell(1,incr)="RL2.F":incr++
symbolslistbox2.cell(1,incr)="RLD.F":incr++
symbolslistbox2.cell(1,incr)="RLF.F":incr++
symbolslistbox2.cell(1,incr)="RLI.F":incr++
symbolslistbox2.cell(1,incr)="RLS.F":incr++
symbolslistbox2.cell(1,incr)="RM9.F":incr++
symbolslistbox2.cell(1,incr)="RMB.F":incr++
symbolslistbox2.cell(1,incr)="RMC.F":incr++
symbolslistbox2.cell(1,incr)="RME.F":incr++
symbolslistbox2.cell(1,incr)="RMG.F":incr++
symbolslistbox2.cell(1,incr)="RMN.F":incr++
symbolslistbox2.cell(1,incr)="RMV1.F":incr++
symbolslistbox2.cell(1,incr)="RMY.F":incr++
symbolslistbox2.cell(1,incr)="RMZ.F":incr++
symbolslistbox2.cell(1,incr)="RN4.F":incr++
symbolslistbox2.cell(1,incr)="RN5.F":incr++
symbolslistbox2.cell(1,incr)="RN6.F":incr++
symbolslistbox2.cell(1,incr)="RN7.F":incr++
symbolslistbox2.cell(1,incr)="RNF.F":incr++
symbolslistbox2.cell(1,incr)="RNKA.F":incr++
symbolslistbox2.cell(1,incr)="RNL.F":incr++
symbolslistbox2.cell(1,incr)="RNL1.F":incr++
symbolslistbox2.cell(1,incr)="RNWA.F":incr++
symbolslistbox2.cell(1,incr)="RNY.F":incr++
symbolslistbox2.cell(1,incr)="RO1.F":incr++
symbolslistbox2.cell(1,incr)="RO41.F":incr++
symbolslistbox2.cell(1,incr)="RO9.F":incr++
symbolslistbox2.cell(1,incr)="ROAI.F":incr++
symbolslistbox2.cell(1,incr)="ROEA.F":incr++
symbolslistbox2.cell(1,incr)="ROF.F":incr++
symbolslistbox2.cell(1,incr)="ROG.F":incr++
symbolslistbox2.cell(1,incr)="ROI.F":incr++
symbolslistbox2.cell(1,incr)="ROM.F":incr++
symbolslistbox2.cell(1,incr)="ROP.F":incr++
symbolslistbox2.cell(1,incr)="ROW.F":incr++
symbolslistbox2.cell(1,incr)="RP8.F":incr++
symbolslistbox2.cell(1,incr)="RPHA.F":incr++
symbolslistbox2.cell(1,incr)="RPL.F":incr++
symbolslistbox2.cell(1,incr)="RPU.F":incr++
symbolslistbox2.cell(1,incr)="RQFI.F":incr++
symbolslistbox2.cell(1,incr)="RQM.F":incr++
symbolslistbox2.cell(1,incr)="RQQ.F":incr++
symbolslistbox2.cell(1,incr)="RQQ1.F":incr++
'symbolslistbox2.cell(1,incr)="RR3.F":incr++
symbolslistbox2.cell(1,incr)="RRC.F":incr++
symbolslistbox2.cell(1,incr)="RRJ.F":incr++
symbolslistbox2.cell(1,incr)="RRN.F":incr++
symbolslistbox2.cell(1,incr)="RRTL.F":incr++
symbolslistbox2.cell(1,incr)="RRU.F":incr++
symbolslistbox2.cell(1,incr)="RRZ.F":incr++
symbolslistbox2.cell(1,incr)="RS2K.F":incr++
symbolslistbox2.cell(1,incr)="RS3.F":incr++
symbolslistbox2.cell(1,incr)="RS6.F":incr++
'symbolslistbox2.cell(1,incr)="RS8.F":incr++
symbolslistbox2.cell(1,incr)="RSH.F":incr++
symbolslistbox2.cell(1,incr)="RSK.F":incr++
symbolslistbox2.cell(1,incr)="RSL2.F":incr++
symbolslistbox2.cell(1,incr)="RSM.F":incr++
symbolslistbox2.cell(1,incr)="RSO.F":incr++
symbolslistbox2.cell(1,incr)="RSX.F":incr++
symbolslistbox2.cell(1,incr)="RT2.F":incr++
symbolslistbox2.cell(1,incr)="RTA1.F":incr++
symbolslistbox2.cell(1,incr)="RTC.F":incr++
symbolslistbox2.cell(1,incr)="RTE.F":incr++
symbolslistbox2.cell(1,incr)="RTHA.F":incr++
symbolslistbox2.cell(1,incr)="RTL.F":incr++
symbolslistbox2.cell(1,incr)="RTO1.F":incr++
symbolslistbox2.cell(1,incr)="RTV.F":incr++
symbolslistbox2.cell(1,incr)="RTZ.F":incr++
symbolslistbox2.cell(1,incr)="RU6.F":incr++
symbolslistbox2.cell(1,incr)="RUG.F":incr++
symbolslistbox2.cell(1,incr)="RUNA.F":incr++
'symbolslistbox2.cell(1,incr)="RV1.F":incr++
symbolslistbox2.cell(1,incr)="RV6.F":incr++
symbolslistbox2.cell(1,incr)="RV7.F":incr++
symbolslistbox2.cell(1,incr)="RVL1.F":incr++
symbolslistbox2.cell(1,incr)="RW4.F":incr++
symbolslistbox2.cell(1,incr)="RWA.F":incr++
symbolslistbox2.cell(1,incr)="RWE.F":incr++
symbolslistbox2.cell(1,incr)="RWI.F":incr++
symbolslistbox2.cell(1,incr)="RWL.F":incr++
symbolslistbox2.cell(1,incr)="RWM.F":incr++
symbolslistbox2.cell(1,incr)="RWW.F":incr++
symbolslistbox2.cell(1,incr)="RX3.F":incr++
symbolslistbox2.cell(1,incr)="RXC.F":incr++
symbolslistbox2.cell(1,incr)="RY2.F":incr++
symbolslistbox2.cell(1,incr)="RYC.F":incr++
symbolslistbox2.cell(1,incr)="RYD.F":incr++
symbolslistbox2.cell(1,incr)="RYE.F":incr++
symbolslistbox2.cell(1,incr)="RYO1.F":incr++
symbolslistbox2.cell(1,incr)="RYS1.F":incr++
symbolslistbox2.cell(1,incr)="RYTB.F":incr++
symbolslistbox2.cell(1,incr)="RYU.F":incr++
symbolslistbox2.cell(1,incr)="RYV.F":incr++
symbolslistbox2.cell(1,incr)="RZF.F":incr++
symbolslistbox2.cell(1,incr)="RZT.F":incr++
symbolslistbox2.cell(1,incr)="RZU.F":incr++
symbolslistbox2.cell(1,incr)="RZW.F":incr++
symbolslistbox2.cell(1,incr)="RZX.F":incr++
symbolslistbox2.cell(1,incr)="S00.F":incr++
symbolslistbox2.cell(1,incr)="S01.F":incr++
symbolslistbox2.cell(1,incr)="S08.F":incr++
symbolslistbox2.cell(1,incr)="S0U.F":incr++
symbolslistbox2.cell(1,incr)="S0V.F":incr++
symbolslistbox2.cell(1,incr)="S0Z.F":incr++
symbolslistbox2.cell(1,incr)="S19.F":incr++
symbolslistbox2.cell(1,incr)="S1R.F":incr++
symbolslistbox2.cell(1,incr)="S1Y.F":incr++
symbolslistbox2.cell(1,incr)="S24.F":incr++
symbolslistbox2.cell(1,incr)="S2N.F":incr++
'symbolslistbox2.cell(1,incr)="S2O.F":incr++
symbolslistbox2.cell(1,incr)="S2Z.F":incr++
symbolslistbox2.cell(1,incr)="S3A.F":incr++
'symbolslistbox2.cell(1,incr)="S3F.F":incr++
'symbolslistbox2.cell(1,incr)="S3O.F":incr++
symbolslistbox2.cell(1,incr)="S3T.F":incr++
symbolslistbox2.cell(1,incr)="S3X.F":incr++
symbolslistbox2.cell(1,incr)="S3Y.F":incr++
symbolslistbox2.cell(1,incr)="S49.F":incr++
symbolslistbox2.cell(1,incr)="S4A.F":incr++
symbolslistbox2.cell(1,incr)="S4C.F":incr++
symbolslistbox2.cell(1,incr)="S4VC.F":incr++
'symbolslistbox2.cell(1,incr)="S5H.F":incr++
symbolslistbox2.cell(1,incr)="S5L.F":incr++
symbolslistbox2.cell(1,incr)="S5M.F":incr++
symbolslistbox2.cell(1,incr)="S5U5.F":incr++
symbolslistbox2.cell(1,incr)="S5YA.F":incr++
symbolslistbox2.cell(1,incr)="S64.F":incr++
symbolslistbox2.cell(1,incr)="S6DW.F":incr++
symbolslistbox2.cell(1,incr)="S6IA.F":incr++
symbolslistbox2.cell(1,incr)="S6M.F":incr++
symbolslistbox2.cell(1,incr)="S6N.F":incr++
'symbolslistbox2.cell(1,incr)="S6UQ.F":incr++
symbolslistbox2.cell(1,incr)="S6W.F":incr++
symbolslistbox2.cell(1,incr)="S6X0.F":incr++
symbolslistbox2.cell(1,incr)="S76.F":incr++
symbolslistbox2.cell(1,incr)="S7A.F":incr++
symbolslistbox2.cell(1,incr)="S7MB.F":incr++
symbolslistbox2.cell(1,incr)="S7V.F":incr++
symbolslistbox2.cell(1,incr)="S7XE.F":incr++
'symbolslistbox2.cell(1,incr)="S82.F":incr++
symbolslistbox2.cell(1,incr)="S8F.F":incr++
symbolslistbox2.cell(1,incr)="S8N.F":incr++
symbolslistbox2.cell(1,incr)="S8P.F":incr++
symbolslistbox2.cell(1,incr)="S92.F":incr++
symbolslistbox2.cell(1,incr)="S9K.F":incr++
symbolslistbox2.cell(1,incr)="S9L.F":incr++
symbolslistbox2.cell(1,incr)="S9M.F":incr++
symbolslistbox2.cell(1,incr)="S9P2.F":incr++
symbolslistbox2.cell(1,incr)="S9Q.F":incr++
symbolslistbox2.cell(1,incr)="S9W.F":incr++
symbolslistbox2.cell(1,incr)="S9Y.F":incr++
symbolslistbox2.cell(1,incr)="SA4.F":incr++
symbolslistbox2.cell(1,incr)="SA8A.F":incr++
symbolslistbox2.cell(1,incr)="SAB.F":incr++
symbolslistbox2.cell(1,incr)="SAK.F":incr++
symbolslistbox2.cell(1,incr)="SAL.F":incr++
symbolslistbox2.cell(1,incr)="SANT.F":incr++
symbolslistbox2.cell(1,incr)="SAOA.F":incr++
symbolslistbox2.cell(1,incr)="SAP.F":incr++
symbolslistbox2.cell(1,incr)="SAR.F":incr++
symbolslistbox2.cell(1,incr)="SAX.F":incr++
symbolslistbox2.cell(1,incr)="SAYN.F":incr++
'symbolslistbox2.cell(1,incr)="SB2.F":incr++
symbolslistbox2.cell(1,incr)="SB3.F":incr++
symbolslistbox2.cell(1,incr)="SB7.F":incr++
'symbolslistbox2.cell(1,incr)="SB9.F":incr++
symbolslistbox2.cell(1,incr)="SBOA.F":incr++
symbolslistbox2.cell(1,incr)="SBS.F":incr++
symbolslistbox2.cell(1,incr)="SBTA.F":incr++
symbolslistbox2.cell(1,incr)="SBW.F":incr++
symbolslistbox2.cell(1,incr)="SC00.F":incr++
symbolslistbox2.cell(1,incr)="SC01.F":incr++
symbolslistbox2.cell(1,incr)="SC02.F":incr++
symbolslistbox2.cell(1,incr)="SC03.F":incr++
symbolslistbox2.cell(1,incr)="SC04.F":incr++
symbolslistbox2.cell(1,incr)="SC05.F":incr++
symbolslistbox2.cell(1,incr)="SC06.F":incr++
symbolslistbox2.cell(1,incr)="SC0C.F":incr++
symbolslistbox2.cell(1,incr)="SC0D.F":incr++
symbolslistbox2.cell(1,incr)="SC0E.F":incr++
symbolslistbox2.cell(1,incr)="SC0F.F":incr++
symbolslistbox2.cell(1,incr)="SC0G.F":incr++
symbolslistbox2.cell(1,incr)="SC0H.F":incr++
symbolslistbox2.cell(1,incr)="SC0I.F":incr++
symbolslistbox2.cell(1,incr)="SC0J.F":incr++
symbolslistbox2.cell(1,incr)="SC0K.F":incr++
symbolslistbox2.cell(1,incr)="SC0P.F":incr++
symbolslistbox2.cell(1,incr)="SC0Q.F":incr++
symbolslistbox2.cell(1,incr)="SC0R.F":incr++
symbolslistbox2.cell(1,incr)="SC0S.F":incr++
symbolslistbox2.cell(1,incr)="SC0T.F":incr++
symbolslistbox2.cell(1,incr)="SC0U.F":incr++
symbolslistbox2.cell(1,incr)="SC0V.F":incr++
symbolslistbox2.cell(1,incr)="SC0W.F":incr++
symbolslistbox2.cell(1,incr)="SC0X.F":incr++
symbolslistbox2.cell(1,incr)="SC0Y.F":incr++
symbolslistbox2.cell(1,incr)="SC0Z.F":incr++
symbolslistbox2.cell(1,incr)="SC2.F":incr++
symbolslistbox2.cell(1,incr)="SC3.F":incr++
symbolslistbox2.cell(1,incr)="SC5A.F":incr++
symbolslistbox2.cell(1,incr)="SCA.F":incr++
symbolslistbox2.cell(1,incr)="SCB.F":incr++
symbolslistbox2.cell(1,incr)="SCD1.F":incr++
symbolslistbox2.cell(1,incr)="SCE.F":incr++
symbolslistbox2.cell(1,incr)="SCL.F":incr++
symbolslistbox2.cell(1,incr)="SCM.F":incr++
symbolslistbox2.cell(1,incr)="SCNR.F":incr++
symbolslistbox2.cell(1,incr)="SCP.F":incr++
symbolslistbox2.cell(1,incr)="SCT.F":incr++
symbolslistbox2.cell(1,incr)="SCZ.F":incr++
symbolslistbox2.cell(1,incr)="SD5.F":incr++
symbolslistbox2.cell(1,incr)="SDA.F":incr++
symbolslistbox2.cell(1,incr)="SDF.F":incr++
symbolslistbox2.cell(1,incr)="SDF1.F":incr++
symbolslistbox2.cell(1,incr)="SDP.F":incr++
symbolslistbox2.cell(1,incr)="SDRC.F":incr++
symbolslistbox2.cell(1,incr)="SDV.F":incr++
symbolslistbox2.cell(1,incr)="SE4.F":incr++
symbolslistbox2.cell(1,incr)="SE7.F":incr++
symbolslistbox2.cell(1,incr)="SEAA.F":incr++
symbolslistbox2.cell(1,incr)="SEAB.F":incr++
symbolslistbox2.cell(1,incr)="SEAC.F":incr++
symbolslistbox2.cell(1,incr)="SEBA.F":incr++
symbolslistbox2.cell(1,incr)="SEBC.F":incr++
symbolslistbox2.cell(1,incr)="SEE.F":incr++
symbolslistbox2.cell(1,incr)="SEH.F":incr++
symbolslistbox2.cell(1,incr)="SEJ1.F":incr++
symbolslistbox2.cell(1,incr)="SELD.F":incr++
symbolslistbox2.cell(1,incr)="SEO.F":incr++
symbolslistbox2.cell(1,incr)="SEP.F":incr++
symbolslistbox2.cell(1,incr)="SEW.F":incr++
symbolslistbox2.cell(1,incr)="SF7.F":incr++
symbolslistbox2.cell(1,incr)="SF9.F":incr++
symbolslistbox2.cell(1,incr)="SFB1.F":incr++
symbolslistbox2.cell(1,incr)="SFD1.F":incr++
symbolslistbox2.cell(1,incr)="SFN.F":incr++
'symbolslistbox2.cell(1,incr)="SFRN.F":incr++
symbolslistbox2.cell(1,incr)="SFT.F":incr++
symbolslistbox2.cell(1,incr)="SFU1.F":incr++
symbolslistbox2.cell(1,incr)="SFX.F":incr++
symbolslistbox2.cell(1,incr)="SG7.F":incr++
symbolslistbox2.cell(1,incr)="SGAJ.F":incr++
symbolslistbox2.cell(1,incr)="SGAS.F":incr++
symbolslistbox2.cell(1,incr)="SGCC.F":incr++
symbolslistbox2.cell(1,incr)="SGE.F":incr++
'symbolslistbox2.cell(1,incr)="SGG.F":incr++
symbolslistbox2.cell(1,incr)="SGI.F":incr++
symbolslistbox2.cell(1,incr)="SGJH.F":incr++
symbolslistbox2.cell(1,incr)="SGK1.F":incr++
symbolslistbox2.cell(1,incr)="SGL.F":incr++
symbolslistbox2.cell(1,incr)="SGM.F":incr++
'symbolslistbox2.cell(1,incr)="SGQ.F":incr++
symbolslistbox2.cell(1,incr)="SGR.F":incr++
symbolslistbox2.cell(1,incr)="SGT.F":incr++
symbolslistbox2.cell(1,incr)="SH0.F":incr++
'symbolslistbox2.cell(1,incr)="SH11.F":incr++
symbolslistbox2.cell(1,incr)="SH9.F":incr++
symbolslistbox2.cell(1,incr)="SHD.F":incr++
symbolslistbox2.cell(1,incr)="SHF.F":incr++
symbolslistbox2.cell(1,incr)="SHG.F":incr++
symbolslistbox2.cell(1,incr)="SHJ.F":incr++
symbolslistbox2.cell(1,incr)="SHM.F":incr++
symbolslistbox2.cell(1,incr)="SHP5.F":incr++
'symbolslistbox2.cell(1,incr)="SHR.F":incr++
symbolslistbox2.cell(1,incr)="SHS.F":incr++
symbolslistbox2.cell(1,incr)="SHWK.F":incr++
symbolslistbox2.cell(1,incr)="SHX.F":incr++
symbolslistbox2.cell(1,incr)="SHZH.F":incr++
symbolslistbox2.cell(1,incr)="SI1A.F":incr++
symbolslistbox2.cell(1,incr)="SI2.F":incr++
symbolslistbox2.cell(1,incr)="SI3.F":incr++
'symbolslistbox2.cell(1,incr)="SI4.F":incr++
symbolslistbox2.cell(1,incr)="SI8.F":incr++
symbolslistbox2.cell(1,incr)="SIA1.F":incr++
symbolslistbox2.cell(1,incr)="SIE.F":incr++
'symbolslistbox2.cell(1,incr)="SIH.F":incr++
symbolslistbox2.cell(1,incr)="SII.F":incr++
'symbolslistbox2.cell(1,incr)="SIKA.F":incr++
'symbolslistbox2.cell(1,incr)="SIM.F":incr++
symbolslistbox2.cell(1,incr)="SIS.F":incr++
symbolslistbox2.cell(1,incr)="SIT4.F":incr++
symbolslistbox2.cell(1,incr)="SIX2.F":incr++
symbolslistbox2.cell(1,incr)="SIX3.F":incr++
symbolslistbox2.cell(1,incr)="SIY.F":incr++
symbolslistbox2.cell(1,incr)="SJ3.F":incr++
symbolslistbox2.cell(1,incr)="SJ7.F":incr++
symbolslistbox2.cell(1,incr)="SJ8.F":incr++
symbolslistbox2.cell(1,incr)="SJC.F":incr++
symbolslistbox2.cell(1,incr)="SJJ.F":incr++
symbolslistbox2.cell(1,incr)="SJL.F":incr++
symbolslistbox2.cell(1,incr)="SJN.F":incr++
'symbolslistbox2.cell(1,incr)="SJR.F":incr++
symbolslistbox2.cell(1,incr)="SJS.F":incr++
symbolslistbox2.cell(1,incr)="SJX.F":incr++
symbolslistbox2.cell(1,incr)="SJY.F":incr++
symbolslistbox2.cell(1,incr)="SK3.F":incr++
symbolslistbox2.cell(1,incr)="SKAA.F":incr++
symbolslistbox2.cell(1,incr)="SKB.F":incr++
symbolslistbox2.cell(1,incr)="SKC2.F":incr++
symbolslistbox2.cell(1,incr)="SKFA.F":incr++
symbolslistbox2.cell(1,incr)="SKFB.F":incr++
symbolslistbox2.cell(1,incr)="SKM.F":incr++
symbolslistbox2.cell(1,incr)="SKNB.F":incr++
'symbolslistbox2.cell(1,incr)="SKO.F":incr++
symbolslistbox2.cell(1,incr)="SKS.F":incr++
symbolslistbox2.cell(1,incr)="SKT.F":incr++
symbolslistbox2.cell(1,incr)="SKWA.F":incr++
symbolslistbox2.cell(1,incr)="SL1.F":incr++
symbolslistbox2.cell(1,incr)="SL2.F":incr++
symbolslistbox2.cell(1,incr)="SL3.F":incr++
symbolslistbox2.cell(1,incr)="SLD.F":incr++
'symbolslistbox2.cell(1,incr)="SLE.F":incr++
symbolslistbox2.cell(1,incr)="SLL.F":incr++
symbolslistbox2.cell(1,incr)="SLMA.F":incr++
symbolslistbox2.cell(1,incr)="SLMB.F":incr++
symbolslistbox2.cell(1,incr)="SLMC.F":incr++
symbolslistbox2.cell(1,incr)="SLMD.F":incr++
symbolslistbox2.cell(1,incr)="SLO.F":incr++
symbolslistbox2.cell(1,incr)="SLT.F":incr++
symbolslistbox2.cell(1,incr)="SLUS.F":incr++
symbolslistbox2.cell(1,incr)="SM1.F":incr++
symbolslistbox2.cell(1,incr)="SM2.F":incr++
symbolslistbox2.cell(1,incr)="SM3.F":incr++
symbolslistbox2.cell(1,incr)="SM8T.F":incr++
symbolslistbox2.cell(1,incr)="SMA.F":incr++
symbolslistbox2.cell(1,incr)="SMB.F":incr++
symbolslistbox2.cell(1,incr)="SMC.F":incr++
symbolslistbox2.cell(1,incr)="SMG.F":incr++
symbolslistbox2.cell(1,incr)="SMHN.F":incr++
symbolslistbox2.cell(1,incr)="SMIF.F":incr++
symbolslistbox2.cell(1,incr)="SMLD.F":incr++
symbolslistbox2.cell(1,incr)="SMLN.F":incr++
symbolslistbox2.cell(1,incr)="SMLP.F":incr++
symbolslistbox2.cell(1,incr)="SMLU.F":incr++
symbolslistbox2.cell(1,incr)="SMLW.F":incr++
symbolslistbox2.cell(1,incr)="SMM.F":incr++
symbolslistbox2.cell(1,incr)="SMO.F":incr++
symbolslistbox2.cell(1,incr)="SMPA.F":incr++
symbolslistbox2.cell(1,incr)="SMRE.F":incr++
symbolslistbox2.cell(1,incr)="SMRN.F":incr++
symbolslistbox2.cell(1,incr)="SMS2.F":incr++
'symbolslistbox2.cell(1,incr)="SMTU.F":incr++
symbolslistbox2.cell(1,incr)="SMWN.F":incr++
symbolslistbox2.cell(1,incr)="SMZ1.F":incr++
symbolslistbox2.cell(1,incr)="SN6.F":incr++
symbolslistbox2.cell(1,incr)="SNAW.F":incr++
symbolslistbox2.cell(1,incr)="SND.F":incr++
symbolslistbox2.cell(1,incr)="SNG.F":incr++
symbolslistbox2.cell(1,incr)="SNH.F":incr++
symbolslistbox2.cell(1,incr)="SNK.F":incr++
symbolslistbox2.cell(1,incr)="SNM.F":incr++
symbolslistbox2.cell(1,incr)="SNO.F":incr++
symbolslistbox2.cell(1,incr)="SNQB.F":incr++
symbolslistbox2.cell(1,incr)="SNS.F":incr++
symbolslistbox2.cell(1,incr)="SNW.F":incr++
symbolslistbox2.cell(1,incr)="SO3.F":incr++
symbolslistbox2.cell(1,incr)="SO7.F":incr++
symbolslistbox2.cell(1,incr)="SOBA.F":incr++
symbolslistbox2.cell(1,incr)="SOC.F":incr++
symbolslistbox2.cell(1,incr)="SODJ.F":incr++
'symbolslistbox2.cell(1,incr)="SOE1.F":incr++
symbolslistbox2.cell(1,incr)="SOH1.F":incr++
symbolslistbox2.cell(1,incr)="SOK.F":incr++
symbolslistbox2.cell(1,incr)="SOL.F":incr++
symbolslistbox2.cell(1,incr)="SOMB.F":incr++
symbolslistbox2.cell(1,incr)="SON1.F":incr++
symbolslistbox2.cell(1,incr)="SOT.F":incr++
symbolslistbox2.cell(1,incr)="SOW.F":incr++
symbolslistbox2.cell(1,incr)="SP1.F":incr++
symbolslistbox2.cell(1,incr)="SP8.F":incr++
symbolslistbox2.cell(1,incr)="SPB.F":incr++
symbolslistbox2.cell(1,incr)="SPF1.F":incr++
symbolslistbox2.cell(1,incr)="SPFA.F":incr++
symbolslistbox2.cell(1,incr)="SPFE.F":incr++
symbolslistbox2.cell(1,incr)="SPH1.F":incr++
symbolslistbox2.cell(1,incr)="SPM.F":incr++
'symbolslistbox2.cell(1,incr)="SPO.F":incr++
symbolslistbox2.cell(1,incr)="SPP3.F":incr++
symbolslistbox2.cell(1,incr)="SPP7.F":incr++
symbolslistbox2.cell(1,incr)="SPPE.F":incr++
symbolslistbox2.cell(1,incr)="SPPX.F":incr++
symbolslistbox2.cell(1,incr)="SPT6.F":incr++
symbolslistbox2.cell(1,incr)="SPU.F":incr++
symbolslistbox2.cell(1,incr)="SPW.F":incr++
symbolslistbox2.cell(1,incr)="SPY1.F":incr++
symbolslistbox2.cell(1,incr)="SPY4.F":incr++
symbolslistbox2.cell(1,incr)="SPY5.F":incr++
symbolslistbox2.cell(1,incr)="SPYA.F":incr++
symbolslistbox2.cell(1,incr)="SPYC.F":incr++
symbolslistbox2.cell(1,incr)="SPYD.F":incr++
symbolslistbox2.cell(1,incr)="SPYE.F":incr++
symbolslistbox2.cell(1,incr)="SPYF.F":incr++
symbolslistbox2.cell(1,incr)="SPYG.F":incr++
symbolslistbox2.cell(1,incr)="SPYH.F":incr++
symbolslistbox2.cell(1,incr)="SPYI.F":incr++
symbolslistbox2.cell(1,incr)="SPYJ.F":incr++
symbolslistbox2.cell(1,incr)="SPYK.F":incr++
symbolslistbox2.cell(1,incr)="SPYM.F":incr++
symbolslistbox2.cell(1,incr)="SPYN.F":incr++
symbolslistbox2.cell(1,incr)="SPYP.F":incr++
symbolslistbox2.cell(1,incr)="SPYQ.F":incr++
symbolslistbox2.cell(1,incr)="SPYR.F":incr++
symbolslistbox2.cell(1,incr)="SPYT.F":incr++
symbolslistbox2.cell(1,incr)="SPYU.F":incr++
symbolslistbox2.cell(1,incr)="SPYV.F":incr++
symbolslistbox2.cell(1,incr)="SPYW.F":incr++
symbolslistbox2.cell(1,incr)="SPYX.F":incr++
symbolslistbox2.cell(1,incr)="SPYY.F":incr++
symbolslistbox2.cell(1,incr)="SPYZ.F":incr++
symbolslistbox2.cell(1,incr)="SQ6B.F":incr++
symbolslistbox2.cell(1,incr)="SQE.F":incr++
symbolslistbox2.cell(1,incr)="SQR.F":incr++
symbolslistbox2.cell(1,incr)="SQU.F":incr++
symbolslistbox2.cell(1,incr)="SR3.F":incr++
symbolslistbox2.cell(1,incr)="SR6.F":incr++
'symbolslistbox2.cell(1,incr)="SR9.F":incr++
symbolslistbox2.cell(1,incr)="SRB.F":incr++
symbolslistbox2.cell(1,incr)="SRI.F":incr++
symbolslistbox2.cell(1,incr)="SRJ.F":incr++
symbolslistbox2.cell(1,incr)="SRM.F":incr++
symbolslistbox2.cell(1,incr)="SRP.F":incr++
symbolslistbox2.cell(1,incr)="SRS.F":incr++
symbolslistbox2.cell(1,incr)="SRT.F":incr++
symbolslistbox2.cell(1,incr)="SRY.F":incr++
symbolslistbox2.cell(1,incr)="SS1A.F":incr++
symbolslistbox2.cell(1,incr)="SSF.F":incr++
symbolslistbox2.cell(1,incr)="SSH.F":incr++
symbolslistbox2.cell(1,incr)="SSM1.F":incr++
'symbolslistbox2.cell(1,incr)="SSN.F":incr++
symbolslistbox2.cell(1,incr)="SST.F":incr++
symbolslistbox2.cell(1,incr)="SSU.F":incr++
symbolslistbox2.cell(1,incr)="SSUN.F":incr++
symbolslistbox2.cell(1,incr)="SSV2.F":incr++
symbolslistbox2.cell(1,incr)="SSW.F":incr++
symbolslistbox2.cell(1,incr)="SSXN.F":incr++
symbolslistbox2.cell(1,incr)="ST2.F":incr++
symbolslistbox2.cell(1,incr)="ST5.F":incr++
symbolslistbox2.cell(1,incr)="ST9.F":incr++
symbolslistbox2.cell(1,incr)="STAA.F":incr++
symbolslistbox2.cell(1,incr)="STD.F":incr++
'symbolslistbox2.cell(1,incr)="STNA.F":incr++
symbolslistbox2.cell(1,incr)="STO3.F":incr++
symbolslistbox2.cell(1,incr)="STS1.F":incr++
symbolslistbox2.cell(1,incr)="STXH.F":incr++
'symbolslistbox2.cell(1,incr)="SU1N.F":incr++
symbolslistbox2.cell(1,incr)="SU2.F":incr++
symbolslistbox2.cell(1,incr)="SU4.F":incr++
'symbolslistbox2.cell(1,incr)="SUA2.F":incr++
symbolslistbox2.cell(1,incr)="SUI.F":incr++
symbolslistbox2.cell(1,incr)="SUK.F":incr++
'symbolslistbox2.cell(1,incr)="SUL1.F":incr++
symbolslistbox2.cell(1,incr)="SUMA.F":incr++
symbolslistbox2.cell(1,incr)="SUR.F":incr++
symbolslistbox2.cell(1,incr)="SUX.F":incr++
symbolslistbox2.cell(1,incr)="SUY1.F":incr++
symbolslistbox2.cell(1,incr)="SV2.F":incr++
symbolslistbox2.cell(1,incr)="SV4.F":incr++
symbolslistbox2.cell(1,incr)="SVC.F":incr++
symbolslistbox2.cell(1,incr)="SVE.F":incr++
symbolslistbox2.cell(1,incr)="SVKB.F":incr++
symbolslistbox2.cell(1,incr)="SVT1.F":incr++
symbolslistbox2.cell(1,incr)="SW1.F":incr++
symbolslistbox2.cell(1,incr)="SW5.F":incr++
symbolslistbox2.cell(1,incr)="SW6.F":incr++
symbolslistbox2.cell(1,incr)="SW9.F":incr++
symbolslistbox2.cell(1,incr)="SWA.F":incr++
symbolslistbox2.cell(1,incr)="SWC.F":incr++
symbolslistbox2.cell(1,incr)="SWD.F":incr++
symbolslistbox2.cell(1,incr)="SWG.F":incr++
symbolslistbox2.cell(1,incr)="SWI.F":incr++
symbolslistbox2.cell(1,incr)="SWI1.F":incr++
'symbolslistbox2.cell(1,incr)="SWJ.F":incr++
'symbolslistbox2.cell(1,incr)="SWM.F":incr++
symbolslistbox2.cell(1,incr)="SWN.F":incr++
symbolslistbox2.cell(1,incr)="SWQ.F":incr++
symbolslistbox2.cell(1,incr)="SWS.F":incr++
symbolslistbox2.cell(1,incr)="SXR0.F":incr++
symbolslistbox2.cell(1,incr)="SXR1.F":incr++
symbolslistbox2.cell(1,incr)="SXR2.F":incr++
symbolslistbox2.cell(1,incr)="SXR3.F":incr++
symbolslistbox2.cell(1,incr)="SXR4.F":incr++
symbolslistbox2.cell(1,incr)="SXR5.F":incr++
symbolslistbox2.cell(1,incr)="SXR6.F":incr++
symbolslistbox2.cell(1,incr)="SXR7.F":incr++
symbolslistbox2.cell(1,incr)="SXR8.F":incr++
symbolslistbox2.cell(1,incr)="SXRD.F":incr++
symbolslistbox2.cell(1,incr)="SXRF.F":incr++
symbolslistbox2.cell(1,incr)="SXRG.F":incr++
symbolslistbox2.cell(1,incr)="SXRH.F":incr++
symbolslistbox2.cell(1,incr)="SXRJ.F":incr++
symbolslistbox2.cell(1,incr)="SXRP.F":incr++
symbolslistbox2.cell(1,incr)="SXRQ.F":incr++
symbolslistbox2.cell(1,incr)="SXRR.F":incr++
symbolslistbox2.cell(1,incr)="SXRS.F":incr++
symbolslistbox2.cell(1,incr)="SXRT.F":incr++
symbolslistbox2.cell(1,incr)="SXRU.F":incr++
symbolslistbox2.cell(1,incr)="SXRV.F":incr++
symbolslistbox2.cell(1,incr)="SXRW.F":incr++
symbolslistbox2.cell(1,incr)="SXRY.F":incr++
symbolslistbox2.cell(1,incr)="SXRZ.F":incr++
symbolslistbox2.cell(1,incr)="SXV.F":incr++
symbolslistbox2.cell(1,incr)="SY1.F":incr++
symbolslistbox2.cell(1,incr)="SY2.F":incr++
symbolslistbox2.cell(1,incr)="SY4.F":incr++
symbolslistbox2.cell(1,incr)="SY9.F":incr++
symbolslistbox2.cell(1,incr)="SYB3.F":incr++
symbolslistbox2.cell(1,incr)="SYB4.F":incr++
symbolslistbox2.cell(1,incr)="SYB5.F":incr++
symbolslistbox2.cell(1,incr)="SYBA.F":incr++
symbolslistbox2.cell(1,incr)="SYBB.F":incr++
symbolslistbox2.cell(1,incr)="SYBC.F":incr++
symbolslistbox2.cell(1,incr)="SYBD.F":incr++
symbolslistbox2.cell(1,incr)="SYBF.F":incr++
symbolslistbox2.cell(1,incr)="SYBG.F":incr++
symbolslistbox2.cell(1,incr)="SYBI.F":incr++
symbolslistbox2.cell(1,incr)="SYBJ.F":incr++
symbolslistbox2.cell(1,incr)="SYBK.F":incr++
symbolslistbox2.cell(1,incr)="SYBL.F":incr++
symbolslistbox2.cell(1,incr)="SYBM.F":incr++
symbolslistbox2.cell(1,incr)="SYBN.F":incr++
symbolslistbox2.cell(1,incr)="SYBQ.F":incr++
symbolslistbox2.cell(1,incr)="SYBR.F":incr++
symbolslistbox2.cell(1,incr)="SYBS.F":incr++
symbolslistbox2.cell(1,incr)="SYBT.F":incr++
symbolslistbox2.cell(1,incr)="SYBU.F":incr++
symbolslistbox2.cell(1,incr)="SYBV.F":incr++
symbolslistbox2.cell(1,incr)="SYBW.F":incr++
symbolslistbox2.cell(1,incr)="SYBY.F":incr++
symbolslistbox2.cell(1,incr)="SYJ.F":incr++
symbolslistbox2.cell(1,incr)="SYK.F":incr++
symbolslistbox2.cell(1,incr)="SYM.F":incr++
'symbolslistbox2.cell(1,incr)="SYN.F":incr++
symbolslistbox2.cell(1,incr)="SYP.F":incr++
symbolslistbox2.cell(1,incr)="SYT.F":incr++
symbolslistbox2.cell(1,incr)="SYV.F":incr++
symbolslistbox2.cell(1,incr)="SYY.F":incr++
symbolslistbox2.cell(1,incr)="SYZ.F":incr++
symbolslistbox2.cell(1,incr)="SZ1.F":incr++
symbolslistbox2.cell(1,incr)="SZ2.F":incr++
symbolslistbox2.cell(1,incr)="SZ31.F":incr++
'symbolslistbox2.cell(1,incr)="SZ4A.F":incr++
'symbolslistbox2.cell(1,incr)="SZ6.F":incr++
symbolslistbox2.cell(1,incr)="SZD.F":incr++
symbolslistbox2.cell(1,incr)="SZG.F":incr++
symbolslistbox2.cell(1,incr)="SZO.F":incr++
symbolslistbox2.cell(1,incr)="SZR.F":incr++
symbolslistbox2.cell(1,incr)="SZU.F":incr++
'symbolslistbox2.cell(1,incr)="SZY.F":incr++
symbolslistbox2.cell(1,incr)="T0P.F":incr++
symbolslistbox2.cell(1,incr)="T1L.F":incr++
'symbolslistbox2.cell(1,incr)="T23.F":incr++
'symbolslistbox2.cell(1,incr)="T2A.F":incr++
symbolslistbox2.cell(1,incr)="T2G.F":incr++
symbolslistbox2.cell(1,incr)="T2L.F":incr++
symbolslistbox2.cell(1,incr)="T3KE.F":incr++
symbolslistbox2.cell(1,incr)="T3O.F":incr++
symbolslistbox2.cell(1,incr)="T41.F":incr++
symbolslistbox2.cell(1,incr)="T4W.F":incr++
symbolslistbox2.cell(1,incr)="T59.F":incr++
symbolslistbox2.cell(1,incr)="T5N.F":incr++
symbolslistbox2.cell(1,incr)="T5O.F":incr++
symbolslistbox2.cell(1,incr)="T5R.F":incr++
symbolslistbox2.cell(1,incr)="T5W.F":incr++
symbolslistbox2.cell(1,incr)="T62.F":incr++
symbolslistbox2.cell(1,incr)="T6A.F":incr++
symbolslistbox2.cell(1,incr)="T6ET.F":incr++
symbolslistbox2.cell(1,incr)="T6O.F":incr++
symbolslistbox2.cell(1,incr)="T6R.F":incr++
symbolslistbox2.cell(1,incr)="T6W.F":incr++
symbolslistbox2.cell(1,incr)="T70.F":incr++
symbolslistbox2.cell(1,incr)="T7D.F":incr++
symbolslistbox2.cell(1,incr)="T7W.F":incr++
symbolslistbox2.cell(1,incr)="T80.F":incr++
symbolslistbox2.cell(1,incr)="T86.F":incr++
symbolslistbox2.cell(1,incr)="T8F.F":incr++
'symbolslistbox2.cell(1,incr)="T97.F":incr++
'symbolslistbox2.cell(1,incr)="T98.F":incr++
symbolslistbox2.cell(1,incr)="T9O.F":incr++
symbolslistbox2.cell(1,incr)="T9P.F":incr++
symbolslistbox2.cell(1,incr)="T9Q.F":incr++
symbolslistbox2.cell(1,incr)="T9T.F":incr++
symbolslistbox2.cell(1,incr)="T9Z.F":incr++
symbolslistbox2.cell(1,incr)="TA1.F":incr++
symbolslistbox2.cell(1,incr)="TAH.F":incr++
'symbolslistbox2.cell(1,incr)="TAJ.F":incr++
'symbolslistbox2.cell(1,incr)="TAK.F":incr++
symbolslistbox2.cell(1,incr)="TAL.F":incr++
symbolslistbox2.cell(1,incr)="TAO.F":incr++
'symbolslistbox2.cell(1,incr)="TAP1.F":incr++
symbolslistbox2.cell(1,incr)="TAQ.F":incr++
symbolslistbox2.cell(1,incr)="TAR.F":incr++
symbolslistbox2.cell(1,incr)="TATB.F":incr++
symbolslistbox2.cell(1,incr)="TAX.F":incr++
symbolslistbox2.cell(1,incr)="TB5.F":incr++
symbolslistbox2.cell(1,incr)="TB6.F":incr++
symbolslistbox2.cell(1,incr)="TB8A.F":incr++
symbolslistbox2.cell(1,incr)="TBA.F":incr++
symbolslistbox2.cell(1,incr)="TBCN.F":incr++
symbolslistbox2.cell(1,incr)="TBD.F":incr++
symbolslistbox2.cell(1,incr)="TBH.F":incr++
symbolslistbox2.cell(1,incr)="TBK.F":incr++
'symbolslistbox2.cell(1,incr)="TBM.F":incr++
symbolslistbox2.cell(1,incr)="TBT.F":incr++
symbolslistbox2.cell(1,incr)="TC2A.F":incr++
'symbolslistbox2.cell(1,incr)="TC5.F":incr++
'symbolslistbox2.cell(1,incr)="TC6.F":incr++
'symbolslistbox2.cell(1,incr)="TC7.F":incr++
symbolslistbox2.cell(1,incr)="TCA.F":incr++
symbolslistbox2.cell(1,incr)="TCBT.F":incr++
symbolslistbox2.cell(1,incr)="TCC4.F":incr++
symbolslistbox2.cell(1,incr)="TCD.F":incr++
symbolslistbox2.cell(1,incr)="TCID.F":incr++
symbolslistbox2.cell(1,incr)="TCM1.F":incr++
'symbolslistbox2.cell(1,incr)="TCO.F":incr++
symbolslistbox2.cell(1,incr)="TCU.F":incr++
symbolslistbox2.cell(1,incr)="TCW.F":incr++
symbolslistbox2.cell(1,incr)="TCX.F":incr++
symbolslistbox2.cell(1,incr)="TD5A.F":incr++
'symbolslistbox2.cell(1,incr)="TDA1.F":incr++
symbolslistbox2.cell(1,incr)="TDB.F":incr++
'symbolslistbox2.cell(1,incr)="TDC.F":incr++
'symbolslistbox2.cell(1,incr)="TDF.F":incr++
symbolslistbox2.cell(1,incr)="TDI.F":incr++
symbolslistbox2.cell(1,incr)="TDJ.F":incr++
symbolslistbox2.cell(1,incr)="TDK.F":incr++
'symbolslistbox2.cell(1,incr)="TDM.F":incr++
'symbolslistbox2.cell(1,incr)="TDT.F":incr++
symbolslistbox2.cell(1,incr)="TE1.F":incr++
'symbolslistbox2.cell(1,incr)="TE8N.F":incr++
symbolslistbox2.cell(1,incr)="TECA.F":incr++
symbolslistbox2.cell(1,incr)="TEE.F":incr++
symbolslistbox2.cell(1,incr)="TEG.F":incr++
symbolslistbox2.cell(1,incr)="TEKB.F":incr++
symbolslistbox2.cell(1,incr)="TEQ.F":incr++
symbolslistbox2.cell(1,incr)="TEV.F":incr++
'symbolslistbox2.cell(1,incr)="TEW.F":incr++
symbolslistbox2.cell(1,incr)="TEY.F":incr++
symbolslistbox2.cell(1,incr)="TEZ.F":incr++
symbolslistbox2.cell(1,incr)="TF2.F":incr++
symbolslistbox2.cell(1,incr)="TF7A.F":incr++
symbolslistbox2.cell(1,incr)="TFHD.F":incr++
symbolslistbox2.cell(1,incr)="TFTB.F":incr++
symbolslistbox2.cell(1,incr)="TFZ.F":incr++
symbolslistbox2.cell(1,incr)="TG4.F":incr++
symbolslistbox2.cell(1,incr)="TG5.F":incr++
symbolslistbox2.cell(1,incr)="TG7.F":incr++
symbolslistbox2.cell(1,incr)="TG9.F":incr++
symbolslistbox2.cell(1,incr)="TGBT.F":incr++
symbolslistbox2.cell(1,incr)="TGI.F":incr++
symbolslistbox2.cell(1,incr)="TGNA.F":incr++
symbolslistbox2.cell(1,incr)="TGO.F":incr++
symbolslistbox2.cell(1,incr)="TGR.F":incr++
symbolslistbox2.cell(1,incr)="TGT.F":incr++
symbolslistbox2.cell(1,incr)="TGX.F":incr++
symbolslistbox2.cell(1,incr)="TH1.F":incr++
symbolslistbox2.cell(1,incr)="TH3B.F":incr++
'symbolslistbox2.cell(1,incr)="TH9A.F":incr++
symbolslistbox2.cell(1,incr)="THC1.F":incr++
symbolslistbox2.cell(1,incr)="THL.F":incr++
symbolslistbox2.cell(1,incr)="THM.F":incr++
'symbolslistbox2.cell(1,incr)="TI2.F":incr++
symbolslistbox2.cell(1,incr)="TI8.F":incr++
symbolslistbox2.cell(1,incr)="TIA.F":incr++
symbolslistbox2.cell(1,incr)="TIB1.F":incr++
symbolslistbox2.cell(1,incr)="TIE.F":incr++
'symbolslistbox2.cell(1,incr)="TIF.F":incr++
symbolslistbox2.cell(1,incr)="TIH1.F":incr++
symbolslistbox2.cell(1,incr)="TII.F":incr++
symbolslistbox2.cell(1,incr)="TIJ.F":incr++
symbolslistbox2.cell(1,incr)="TIQ1.F":incr++
symbolslistbox2.cell(1,incr)="TIS.F":incr++
symbolslistbox2.cell(1,incr)="TIUP.F":incr++
symbolslistbox2.cell(1,incr)="TIV.F":incr++
symbolslistbox2.cell(1,incr)="TJ3.F":incr++
symbolslistbox2.cell(1,incr)="TJG.F":incr++
symbolslistbox2.cell(1,incr)="TJH7.F":incr++
symbolslistbox2.cell(1,incr)="TJN.F":incr++
symbolslistbox2.cell(1,incr)="TJS.F":incr++
symbolslistbox2.cell(1,incr)="TJW.F":incr++
symbolslistbox2.cell(1,incr)="TJX.F":incr++
'symbolslistbox2.cell(1,incr)="TK4.F":incr++
symbolslistbox2.cell(1,incr)="TKA.F":incr++
symbolslistbox2.cell(1,incr)="TKD.F":incr++
symbolslistbox2.cell(1,incr)="TKE.F":incr++
symbolslistbox2.cell(1,incr)="TKH.F":incr++
symbolslistbox2.cell(1,incr)="TKK1.F":incr++
symbolslistbox2.cell(1,incr)="TKM.F":incr++
symbolslistbox2.cell(1,incr)="TKS.F":incr++
symbolslistbox2.cell(1,incr)="TKY.F":incr++
symbolslistbox2.cell(1,incr)="TL0.F":incr++
symbolslistbox2.cell(1,incr)="TLA.F":incr++
symbolslistbox2.cell(1,incr)="TLD.F":incr++
'symbolslistbox2.cell(1,incr)="TLI.F":incr++
symbolslistbox2.cell(1,incr)="TLJ.F":incr++
symbolslistbox2.cell(1,incr)="TLK.F":incr++
symbolslistbox2.cell(1,incr)="TLLB.F":incr++
symbolslistbox2.cell(1,incr)="TLS.F":incr++
symbolslistbox2.cell(1,incr)="TLX.F":incr++
symbolslistbox2.cell(1,incr)="TLY.F":incr++
symbolslistbox2.cell(1,incr)="TM2.F":incr++
symbolslistbox2.cell(1,incr)="TM8A.F":incr++
symbolslistbox2.cell(1,incr)="TMD.F":incr++
symbolslistbox2.cell(1,incr)="TMI.F":incr++
symbolslistbox2.cell(1,incr)="TMJ.F":incr++
symbolslistbox2.cell(1,incr)="TMR.F":incr++
symbolslistbox2.cell(1,incr)="TMU.F":incr++
symbolslistbox2.cell(1,incr)="TN3.F":incr++
symbolslistbox2.cell(1,incr)="TN8.F":incr++
symbolslistbox2.cell(1,incr)="TNE5.F":incr++
symbolslistbox2.cell(1,incr)="TNG.F":incr++
symbolslistbox2.cell(1,incr)="TNN.F":incr++
symbolslistbox2.cell(1,incr)="TNR.F":incr++
symbolslistbox2.cell(1,incr)="TNU3.F":incr++
symbolslistbox2.cell(1,incr)="TO5.F":incr++
'symbolslistbox2.cell(1,incr)="TO6.F":incr++
symbolslistbox2.cell(1,incr)="TO7.F":incr++
symbolslistbox2.cell(1,incr)="TOA.F":incr++
symbolslistbox2.cell(1,incr)="TOB.F":incr++
'symbolslistbox2.cell(1,incr)="TOE.F":incr++
symbolslistbox2.cell(1,incr)="TOG.F":incr++
symbolslistbox2.cell(1,incr)="TOH.F":incr++
'symbolslistbox2.cell(1,incr)="TOJ.F":incr++
symbolslistbox2.cell(1,incr)="TOK.F":incr++
symbolslistbox2.cell(1,incr)="TOM.F":incr++
symbolslistbox2.cell(1,incr)="TON.F":incr++
symbolslistbox2.cell(1,incr)="TOR1.F":incr++
symbolslistbox2.cell(1,incr)="TOS.F":incr++
symbolslistbox2.cell(1,incr)="TOTB.F":incr++
symbolslistbox2.cell(1,incr)="TOU.F":incr++
symbolslistbox2.cell(1,incr)="TOW.F":incr++
symbolslistbox2.cell(1,incr)="TPA1.F":incr++
symbolslistbox2.cell(1,incr)="TPD.F":incr++
symbolslistbox2.cell(1,incr)="TPE.F":incr++
symbolslistbox2.cell(1,incr)="TPO.F":incr++
symbolslistbox2.cell(1,incr)="TPQ.F":incr++
symbolslistbox2.cell(1,incr)="TPW.F":incr++
symbolslistbox2.cell(1,incr)="TPX.F":incr++
symbolslistbox2.cell(1,incr)="TQ2.F":incr++
symbolslistbox2.cell(1,incr)="TQ71.F":incr++
symbolslistbox2.cell(1,incr)="TQ8.F":incr++
symbolslistbox2.cell(1,incr)="TQC.F":incr++
'symbolslistbox2.cell(1,incr)="TQG.F":incr++
symbolslistbox2.cell(1,incr)="TQI.F":incr++
symbolslistbox2.cell(1,incr)="TQIR.F":incr++
symbolslistbox2.cell(1,incr)="TQJ.F":incr++
symbolslistbox2.cell(1,incr)="TQK.F":incr++
'symbolslistbox2.cell(1,incr)="TQL.F":incr++
symbolslistbox2.cell(1,incr)="TQM.F":incr++
symbolslistbox2.cell(1,incr)="TQN.F":incr++
symbolslistbox2.cell(1,incr)="TQR.F":incr++
symbolslistbox2.cell(1,incr)="TQW.F":incr++
'symbolslistbox2.cell(1,incr)="TQY.F":incr++
symbolslistbox2.cell(1,incr)="TR1.F":incr++
symbolslistbox2.cell(1,incr)="TR4.F":incr++
'symbolslistbox2.cell(1,incr)="TR5.F":incr++
symbolslistbox2.cell(1,incr)="TR9.F":incr++
'symbolslistbox2.cell(1,incr)="TRC.F":incr++
symbolslistbox2.cell(1,incr)="TRET.F":incr++
symbolslistbox2.cell(1,incr)="TRG.F":incr++
symbolslistbox2.cell(1,incr)="TRL.F":incr++
symbolslistbox2.cell(1,incr)="TRR.F":incr++
symbolslistbox2.cell(1,incr)="TRS.F":incr++
'symbolslistbox2.cell(1,incr)="TRT1.F":incr++
symbolslistbox2.cell(1,incr)="TRVC.F":incr++
symbolslistbox2.cell(1,incr)="TRW.F":incr++
symbolslistbox2.cell(1,incr)="TS6.F":incr++
symbolslistbox2.cell(1,incr)="TSA.F":incr++
symbolslistbox2.cell(1,incr)="TSB.F":incr++
symbolslistbox2.cell(1,incr)="TSE1.F":incr++
symbolslistbox2.cell(1,incr)="TSFA.F":incr++
symbolslistbox2.cell(1,incr)="TSI.F":incr++
symbolslistbox2.cell(1,incr)="TSQ.F":incr++
symbolslistbox2.cell(1,incr)="TSS.F":incr++
symbolslistbox2.cell(1,incr)="TSTA.F":incr++
symbolslistbox2.cell(1,incr)="TSWE.F":incr++
symbolslistbox2.cell(1,incr)="TT1.F":incr++
symbolslistbox2.cell(1,incr)="TT6.F":incr++
symbolslistbox2.cell(1,incr)="TT8.F":incr++
symbolslistbox2.cell(1,incr)="TTA.F":incr++
symbolslistbox2.cell(1,incr)="TTEB.F":incr++
'symbolslistbox2.cell(1,incr)="TTI.F":incr++
symbolslistbox2.cell(1,incr)="TTK.F":incr++
symbolslistbox2.cell(1,incr)="TTO.F":incr++
symbolslistbox2.cell(1,incr)="TTPX.F":incr++
symbolslistbox2.cell(1,incr)="TTR1.F":incr++
symbolslistbox2.cell(1,incr)="TTU.F":incr++
symbolslistbox2.cell(1,incr)="TU0.F":incr++
'symbolslistbox2.cell(1,incr)="TU8.F":incr++
'symbolslistbox2.cell(1,incr)="TUB.F":incr++
symbolslistbox2.cell(1,incr)="TUI1.F":incr++
symbolslistbox2.cell(1,incr)="TUN.F":incr++
symbolslistbox2.cell(1,incr)="TUO.F":incr++
symbolslistbox2.cell(1,incr)="TUP.F":incr++
symbolslistbox2.cell(1,incr)="TUR.F":incr++
symbolslistbox2.cell(1,incr)="TVD6.F":incr++
symbolslistbox2.cell(1,incr)="TVL.F":incr++
symbolslistbox2.cell(1,incr)="TVTB.F":incr++
symbolslistbox2.cell(1,incr)="TW11.F":incr++
symbolslistbox2.cell(1,incr)="TWA.F":incr++
symbolslistbox2.cell(1,incr)="TWH.F":incr++
symbolslistbox2.cell(1,incr)="TWL.F":incr++
symbolslistbox2.cell(1,incr)="TWN.F":incr++
symbolslistbox2.cell(1,incr)="TWW.F":incr++
symbolslistbox2.cell(1,incr)="TWY.F":incr++
symbolslistbox2.cell(1,incr)="TWZ.F":incr++
symbolslistbox2.cell(1,incr)="TX0.F":incr++
symbolslistbox2.cell(1,incr)="TXC2.F":incr++
symbolslistbox2.cell(1,incr)="TXG.F":incr++
symbolslistbox2.cell(1,incr)="TXM1.F":incr++
symbolslistbox2.cell(1,incr)="TXT.F":incr++
symbolslistbox2.cell(1,incr)="TXW.F":incr++
symbolslistbox2.cell(1,incr)="TY7.F":incr++
symbolslistbox2.cell(1,incr)="TYC1.F":incr++
symbolslistbox2.cell(1,incr)="TYG.F":incr++
symbolslistbox2.cell(1,incr)="TYP.F":incr++
symbolslistbox2.cell(1,incr)="TYR.F":incr++
symbolslistbox2.cell(1,incr)="TYU2.F":incr++
symbolslistbox2.cell(1,incr)="TYZ.F":incr++
symbolslistbox2.cell(1,incr)="TZ1.F":incr++
symbolslistbox2.cell(1,incr)="TZ3.F":incr++
symbolslistbox2.cell(1,incr)="TZ4.F":incr++
symbolslistbox2.cell(1,incr)="TZ6.F":incr++
symbolslistbox2.cell(1,incr)="TZ7.F":incr++
symbolslistbox2.cell(1,incr)="TZ8.F":incr++
'symbolslistbox2.cell(1,incr)="TZG.F":incr++
symbolslistbox2.cell(1,incr)="TZL1.F":incr++
symbolslistbox2.cell(1,incr)="TZO.F":incr++
symbolslistbox2.cell(1,incr)="U1B.F":incr++
symbolslistbox2.cell(1,incr)="U1D.F":incr++
symbolslistbox2.cell(1,incr)="U1FB.F":incr++
symbolslistbox2.cell(1,incr)="U1O.F":incr++
symbolslistbox2.cell(1,incr)="U1P.F":incr++
symbolslistbox2.cell(1,incr)="U6Z.F":incr++
'symbolslistbox2.cell(1,incr)="U7MA.F":incr++
symbolslistbox2.cell(1,incr)="U7N1.F":incr++
'symbolslistbox2.cell(1,incr)="U9A.F":incr++
'symbolslistbox2.cell(1,incr)="U9O.F":incr++
symbolslistbox2.cell(1,incr)="U9R.F":incr++
symbolslistbox2.cell(1,incr)="U9T.F":incr++
'symbolslistbox2.cell(1,incr)="U9U.F":incr++
symbolslistbox2.cell(1,incr)="U9V.F":incr++
symbolslistbox2.cell(1,incr)="UA9.F":incr++
symbolslistbox2.cell(1,incr)="UAL1.F":incr++
'symbolslistbox2.cell(1,incr)="UAN.F":incr++
symbolslistbox2.cell(1,incr)="UAO.F":incr++
symbolslistbox2.cell(1,incr)="UB5.F":incr++
symbolslistbox2.cell(1,incr)="UBE.F":incr++
'symbolslistbox2.cell(1,incr)="UBQ.F":incr++
symbolslistbox2.cell(1,incr)="UBU3.F":incr++
symbolslistbox2.cell(1,incr)="UBU5.F":incr++
symbolslistbox2.cell(1,incr)="UBU7.F":incr++
symbolslistbox2.cell(1,incr)="UBU9.F":incr++
symbolslistbox2.cell(1,incr)="UBUD.F":incr++
symbolslistbox2.cell(1,incr)="UBUJ.F":incr++
symbolslistbox2.cell(1,incr)="UBUM.F":incr++
symbolslistbox2.cell(1,incr)="UBUR.F":incr++
symbolslistbox2.cell(1,incr)="UBUS.F":incr++
symbolslistbox2.cell(1,incr)="UBUT.F":incr++
symbolslistbox2.cell(1,incr)="UBUV.F":incr++
symbolslistbox2.cell(1,incr)="UBUW.F":incr++
symbolslistbox2.cell(1,incr)="UBUX.F":incr++
symbolslistbox2.cell(1,incr)="UCBN.F":incr++
symbolslistbox2.cell(1,incr)="UCE.F":incr++
symbolslistbox2.cell(1,incr)="UCM.F":incr++
symbolslistbox2.cell(1,incr)="UDB.F":incr++
'symbolslistbox2.cell(1,incr)="UDD.F":incr++
symbolslistbox2.cell(1,incr)="UDM.F":incr++
symbolslistbox2.cell(1,incr)="UE1.F":incr++
symbolslistbox2.cell(1,incr)="UEF0.F":incr++
'symbolslistbox2.cell(1,incr)="UEF2.F":incr++
'symbolslistbox2.cell(1,incr)="UEF3.F":incr++
symbolslistbox2.cell(1,incr)="UEF5.F":incr++
symbolslistbox2.cell(1,incr)="UEF6.F":incr++
symbolslistbox2.cell(1,incr)="UEF7.F":incr++
symbolslistbox2.cell(1,incr)="UEF8.F":incr++
symbolslistbox2.cell(1,incr)="UEF9.F":incr++
symbolslistbox2.cell(1,incr)="UEFD.F":incr++
symbolslistbox2.cell(1,incr)="UEFE.F":incr++
symbolslistbox2.cell(1,incr)="UEFF.F":incr++
symbolslistbox2.cell(1,incr)="UEFI.F":incr++
'symbolslistbox2.cell(1,incr)="UEFL.F":incr++
symbolslistbox2.cell(1,incr)="UEFR.F":incr++
symbolslistbox2.cell(1,incr)="UEFS.F":incr++
symbolslistbox2.cell(1,incr)="UEFZ.F":incr++
symbolslistbox2.cell(1,incr)="UEH.F":incr++
symbolslistbox2.cell(1,incr)="UEI.F":incr++
symbolslistbox2.cell(1,incr)="UEN.F":incr++
symbolslistbox2.cell(1,incr)="UEO.F":incr++
symbolslistbox2.cell(1,incr)="UEQ7.F":incr++
symbolslistbox2.cell(1,incr)="UEQD.F":incr++
symbolslistbox2.cell(1,incr)="UEQU.F":incr++
symbolslistbox2.cell(1,incr)="UET0.F":incr++
symbolslistbox2.cell(1,incr)="UET1.F":incr++
symbolslistbox2.cell(1,incr)="UF2.F":incr++
symbolslistbox2.cell(1,incr)="UF3.F":incr++
symbolslistbox2.cell(1,incr)="UFG.F":incr++
'symbolslistbox2.cell(1,incr)="UFLE.F":incr++
symbolslistbox2.cell(1,incr)="UFX.F":incr++
symbolslistbox2.cell(1,incr)="UG5A.F":incr++
symbolslistbox2.cell(1,incr)="UG6.F":incr++
'symbolslistbox2.cell(1,incr)="UG8K.F":incr++
symbolslistbox2.cell(1,incr)="UG9.F":incr++
symbolslistbox2.cell(1,incr)="UGI.F":incr++
symbolslistbox2.cell(1,incr)="UGL.F":incr++
symbolslistbox2.cell(1,incr)="UGN.F":incr++
symbolslistbox2.cell(1,incr)="UGO.F":incr++
'symbolslistbox2.cell(1,incr)="UGY.F":incr++
'symbolslistbox2.cell(1,incr)="UH7.F":incr++
'symbolslistbox2.cell(1,incr)="UHR.F":incr++
symbolslistbox2.cell(1,incr)="UHS.F":incr++
'symbolslistbox2.cell(1,incr)="UIA.F":incr++
symbolslistbox2.cell(1,incr)="UII.F":incr++
symbolslistbox2.cell(1,incr)="UIM1.F":incr++
symbolslistbox2.cell(1,incr)="UIM2.F":incr++
symbolslistbox2.cell(1,incr)="UIM3.F":incr++
symbolslistbox2.cell(1,incr)="UIM4.F":incr++
symbolslistbox2.cell(1,incr)="UIM5.F":incr++
symbolslistbox2.cell(1,incr)="UIM6.F":incr++
symbolslistbox2.cell(1,incr)="UIM7.F":incr++
'symbolslistbox2.cell(1,incr)="UIM8.F":incr++
symbolslistbox2.cell(1,incr)="UIM9.F":incr++
symbolslistbox2.cell(1,incr)="UIMA.F":incr++
symbolslistbox2.cell(1,incr)="UIMB.F":incr++
symbolslistbox2.cell(1,incr)="UIMC.F":incr++
symbolslistbox2.cell(1,incr)="UIMD.F":incr++
symbolslistbox2.cell(1,incr)="UIME.F":incr++
symbolslistbox2.cell(1,incr)="UIMF.F":incr++
symbolslistbox2.cell(1,incr)="UIMI.F":incr++
symbolslistbox2.cell(1,incr)="UIMM.F":incr++
symbolslistbox2.cell(1,incr)="UIMP.F":incr++
symbolslistbox2.cell(1,incr)="UIMR.F":incr++
symbolslistbox2.cell(1,incr)="UIMT.F":incr++
symbolslistbox2.cell(1,incr)="UIMY.F":incr++
symbolslistbox2.cell(1,incr)="UIMZ.F":incr++
symbolslistbox2.cell(1,incr)="UINE.F":incr++
symbolslistbox2.cell(1,incr)="UINF.F":incr++
symbolslistbox2.cell(1,incr)="UIPN.F":incr++
symbolslistbox2.cell(1,incr)="UIQ1.F":incr++
'symbolslistbox2.cell(1,incr)="UIQC.F":incr++
symbolslistbox2.cell(1,incr)="UIQI.F":incr++
symbolslistbox2.cell(1,incr)="UIQK.F":incr++
symbolslistbox2.cell(1,incr)="UIQL.F":incr++
symbolslistbox2.cell(1,incr)="UJ1.F":incr++
symbolslistbox2.cell(1,incr)="UK2.F":incr++
'symbolslistbox2.cell(1,incr)="UK4.F":incr++
symbolslistbox2.cell(1,incr)="UL9.F":incr++
symbolslistbox2.cell(1,incr)="ULC.F":incr++
'symbolslistbox2.cell(1,incr)="ULS.F":incr++
symbolslistbox2.cell(1,incr)="UMA.F":incr++
symbolslistbox2.cell(1,incr)="UMB.F":incr++
symbolslistbox2.cell(1,incr)="UMQ.F":incr++
symbolslistbox2.cell(1,incr)="UMZ.F":incr++
symbolslistbox2.cell(1,incr)="UN3.F":incr++
symbolslistbox2.cell(1,incr)="UN4.F":incr++
'symbolslistbox2.cell(1,incr)="UN7.F":incr++
symbolslistbox2.cell(1,incr)="UN9.F":incr++
symbolslistbox2.cell(1,incr)="UNBA.F":incr++
symbolslistbox2.cell(1,incr)="UNC.F":incr++
symbolslistbox2.cell(1,incr)="UNH.F":incr++
'symbolslistbox2.cell(1,incr)="UNI2.F":incr++
symbolslistbox2.cell(1,incr)="UNJ.F":incr++
symbolslistbox2.cell(1,incr)="UNK.F":incr++
symbolslistbox2.cell(1,incr)="UNP.F":incr++
symbolslistbox2.cell(1,incr)="UNS1.F":incr++
symbolslistbox2.cell(1,incr)="UNVB.F":incr++
symbolslistbox2.cell(1,incr)="UOB.F":incr++
symbolslistbox2.cell(1,incr)="UOF.F":incr++
symbolslistbox2.cell(1,incr)="UOPN.F":incr++
symbolslistbox2.cell(1,incr)="UP0.F":incr++
symbolslistbox2.cell(1,incr)="UP7.F":incr++
symbolslistbox2.cell(1,incr)="UPAB.F":incr++
symbolslistbox2.cell(1,incr)="UPH.F":incr++
symbolslistbox2.cell(1,incr)="UPN.F":incr++
symbolslistbox2.cell(1,incr)="UPR.F":incr++
symbolslistbox2.cell(1,incr)="UR2.F":incr++
symbolslistbox2.cell(1,incr)="UR3.F":incr++
symbolslistbox2.cell(1,incr)="UR9.F":incr++
symbolslistbox2.cell(1,incr)="US7.F":incr++
symbolslistbox2.cell(1,incr)="US8A.F":incr++
symbolslistbox2.cell(1,incr)="USE.F":incr++
symbolslistbox2.cell(1,incr)="USH.F":incr++
symbolslistbox2.cell(1,incr)="USI.F":incr++
symbolslistbox2.cell(1,incr)="USJ.F":incr++
symbolslistbox2.cell(1,incr)="USN.F":incr++
symbolslistbox2.cell(1,incr)="USR.F":incr++
symbolslistbox2.cell(1,incr)="USS.F":incr++
symbolslistbox2.cell(1,incr)="USV.F":incr++
symbolslistbox2.cell(1,incr)="USX1.F":incr++
symbolslistbox2.cell(1,incr)="USY1.F":incr++
symbolslistbox2.cell(1,incr)="UT5A.F":incr++
symbolslistbox2.cell(1,incr)="UTDI.F":incr++
symbolslistbox2.cell(1,incr)="UTH.F":incr++
symbolslistbox2.cell(1,incr)="UTI.F":incr++
symbolslistbox2.cell(1,incr)="UTN.F":incr++
'symbolslistbox2.cell(1,incr)="UTO.F":incr++
symbolslistbox2.cell(1,incr)="UTY.F":incr++
symbolslistbox2.cell(1,incr)="UU4.F":incr++
symbolslistbox2.cell(1,incr)="UUD.F":incr++
symbolslistbox2.cell(1,incr)="UUEC.F":incr++
symbolslistbox2.cell(1,incr)="UUM.F":incr++
symbolslistbox2.cell(1,incr)="UUU.F":incr++
symbolslistbox2.cell(1,incr)="UV7.F":incr++
symbolslistbox2.cell(1,incr)="UVD.F":incr++
symbolslistbox2.cell(1,incr)="UVV.F":incr++
symbolslistbox2.cell(1,incr)="UWS.F":incr++
symbolslistbox2.cell(1,incr)="UWV.F":incr++
symbolslistbox2.cell(1,incr)="UX2A.F":incr++
symbolslistbox2.cell(1,incr)="UXO.F":incr++
symbolslistbox2.cell(1,incr)="UXX.F":incr++
'symbolslistbox2.cell(1,incr)="UZAA.F":incr++
symbolslistbox2.cell(1,incr)="UZC.F":incr++
symbolslistbox2.cell(1,incr)="UZU.F":incr++
symbolslistbox2.cell(1,incr)="V00.F":incr++
symbolslistbox2.cell(1,incr)="V0Y.F":incr++
symbolslistbox2.cell(1,incr)="V16.F":incr++
symbolslistbox2.cell(1,incr)="V1S.F":incr++
symbolslistbox2.cell(1,incr)="V1Y.F":incr++
'symbolslistbox2.cell(1,incr)="V2U.F":incr++
symbolslistbox2.cell(1,incr)="V3ET.F":incr++
symbolslistbox2.cell(1,incr)="V3S.F":incr++
symbolslistbox2.cell(1,incr)="V3U.F":incr++
symbolslistbox2.cell(1,incr)="V3V.F":incr++
symbolslistbox2.cell(1,incr)="V4S.F":incr++
'symbolslistbox2.cell(1,incr)="V4TA.F":incr++
symbolslistbox2.cell(1,incr)="V50A.F":incr++
symbolslistbox2.cell(1,incr)="V50D.F":incr++
symbolslistbox2.cell(1,incr)="V5W.F":incr++
symbolslistbox2.cell(1,incr)="V6C.F":incr++
symbolslistbox2.cell(1,incr)="V6H.F":incr++
symbolslistbox2.cell(1,incr)="V7B1.F":incr++
symbolslistbox2.cell(1,incr)="V7O.F":incr++
symbolslistbox2.cell(1,incr)="V7P.F":incr++
'symbolslistbox2.cell(1,incr)="V7S.F":incr++
symbolslistbox2.cell(1,incr)="V7XN.F":incr++
symbolslistbox2.cell(1,incr)="V8H.F":incr++
symbolslistbox2.cell(1,incr)="V94.F":incr++
'symbolslistbox2.cell(1,incr)="V9LA.F":incr++
symbolslistbox2.cell(1,incr)="VA21.F":incr++
symbolslistbox2.cell(1,incr)="VA7A.F":incr++
symbolslistbox2.cell(1,incr)="VAI.F":incr++
symbolslistbox2.cell(1,incr)="VALD.F":incr++
symbolslistbox2.cell(1,incr)="VALU.F":incr++
symbolslistbox2.cell(1,incr)="VAN.F":incr++
symbolslistbox2.cell(1,incr)="VAS.F":incr++
'symbolslistbox2.cell(1,incr)="VAT.F":incr++
symbolslistbox2.cell(1,incr)="VAW.F":incr++
symbolslistbox2.cell(1,incr)="VB2.F":incr++
symbolslistbox2.cell(1,incr)="VBK.F":incr++
'symbolslistbox2.cell(1,incr)="VBL.F":incr++
symbolslistbox2.cell(1,incr)="VBO.F":incr++
'symbolslistbox2.cell(1,incr)="VCE.F":incr++
symbolslistbox2.cell(1,incr)="VCV.F":incr++
symbolslistbox2.cell(1,incr)="VDIV.F":incr++
'symbolslistbox2.cell(1,incr)="VDXX.F":incr++
symbolslistbox2.cell(1,incr)="VDY.F":incr++
symbolslistbox2.cell(1,incr)="VE7.F":incr++
symbolslistbox2.cell(1,incr)="VECP.F":incr++
symbolslistbox2.cell(1,incr)="VEE.F":incr++
symbolslistbox2.cell(1,incr)="VEH.F":incr++
symbolslistbox2.cell(1,incr)="VEM.F":incr++
symbolslistbox2.cell(1,incr)="VEN.F":incr++
symbolslistbox2.cell(1,incr)="VEO.F":incr++
symbolslistbox2.cell(1,incr)="VERX.F":incr++
symbolslistbox2.cell(1,incr)="VFEM.F":incr++
symbolslistbox2.cell(1,incr)="VFP.F":incr++
symbolslistbox2.cell(1,incr)="VG0K.F":incr++
symbolslistbox2.cell(1,incr)="VG8.F":incr++
symbolslistbox2.cell(1,incr)="VGA.F":incr++
symbolslistbox2.cell(1,incr)="VGEB.F":incr++
symbolslistbox2.cell(1,incr)="VGEJ.F":incr++
symbolslistbox2.cell(1,incr)="VGEM.F":incr++
symbolslistbox2.cell(1,incr)="VGEU.F":incr++
symbolslistbox2.cell(1,incr)="VGOV.F":incr++
symbolslistbox2.cell(1,incr)="VGR.F":incr++
symbolslistbox2.cell(1,incr)="VGTY.F":incr++
symbolslistbox2.cell(1,incr)="VGVE.F":incr++
'symbolslistbox2.cell(1,incr)="VGVL.F":incr++
symbolslistbox2.cell(1,incr)="VGWD.F":incr++
symbolslistbox2.cell(1,incr)="VGWL.F":incr++
symbolslistbox2.cell(1,incr)="VHM.F":incr++
symbolslistbox2.cell(1,incr)="VHY.F":incr++
symbolslistbox2.cell(1,incr)="VI1.F":incr++
symbolslistbox2.cell(1,incr)="VIGB.F":incr++
symbolslistbox2.cell(1,incr)="VIH1.F":incr++
symbolslistbox2.cell(1,incr)="VIP.F":incr++
symbolslistbox2.cell(1,incr)="VIS.F":incr++
symbolslistbox2.cell(1,incr)="VJC.F":incr++
symbolslistbox2.cell(1,incr)="VJF.F":incr++
symbolslistbox2.cell(1,incr)="VJPN.F":incr++
symbolslistbox2.cell(1,incr)="VLED.F":incr++
symbolslistbox2.cell(1,incr)="VLEU.F":incr++
'symbolslistbox2.cell(1,incr)="VLIQ.F":incr++
'symbolslistbox2.cell(1,incr)="VLM.F":incr++
'symbolslistbox2.cell(1,incr)="VLON.F":incr++
symbolslistbox2.cell(1,incr)="VLUD.F":incr++
symbolslistbox2.cell(1,incr)="VLUS.F":incr++
symbolslistbox2.cell(1,incr)="VM4.F":incr++
symbolslistbox2.cell(1,incr)="VMC.F":incr++
symbolslistbox2.cell(1,incr)="VMID.F":incr++
'symbolslistbox2.cell(1,incr)="VMOM.F":incr++
symbolslistbox2.cell(1,incr)="VMR1.F":incr++
symbolslistbox2.cell(1,incr)="VMUS.F":incr++
'symbolslistbox2.cell(1,incr)="VMVL.F":incr++
symbolslistbox2.cell(1,incr)="VNB.F":incr++
symbolslistbox2.cell(1,incr)="VNC1.F":incr++
symbolslistbox2.cell(1,incr)="VNI.F":incr++
'symbolslistbox2.cell(1,incr)="VNM.F":incr++
symbolslistbox2.cell(1,incr)="VNRT.F":incr++
symbolslistbox2.cell(1,incr)="VNX.F":incr++
symbolslistbox2.cell(1,incr)="VO1.F":incr++
symbolslistbox2.cell(1,incr)="VO7.F":incr++
symbolslistbox2.cell(1,incr)="VOL3.F":incr++
symbolslistbox2.cell(1,incr)="VON.F":incr++
symbolslistbox2.cell(1,incr)="VOOL.F":incr++
symbolslistbox2.cell(1,incr)="VOP.F":incr++
'symbolslistbox2.cell(1,incr)="VOQ.F":incr++
symbolslistbox2.cell(1,incr)="VOS.F":incr++
symbolslistbox2.cell(1,incr)="VOW.F":incr++
symbolslistbox2.cell(1,incr)="VOX.F":incr++
symbolslistbox2.cell(1,incr)="VPK5.F":incr++
'symbolslistbox2.cell(1,incr)="VQJ.F":incr++
symbolslistbox2.cell(1,incr)="VRS.F":incr++
symbolslistbox2.cell(1,incr)="VS1.F":incr++
symbolslistbox2.cell(1,incr)="VS2.F":incr++
symbolslistbox2.cell(1,incr)="VS51.F":incr++
symbolslistbox2.cell(1,incr)="VSA2.F":incr++
symbolslistbox2.cell(1,incr)="VSC.F":incr++
symbolslistbox2.cell(1,incr)="VSL.F":incr++
symbolslistbox2.cell(1,incr)="VTCB.F":incr++
symbolslistbox2.cell(1,incr)="VTFN.F":incr++
'symbolslistbox2.cell(1,incr)="VTJ1.F":incr++
symbolslistbox2.cell(1,incr)="VTM.F":incr++
symbolslistbox2.cell(1,incr)="VTX.F":incr++
symbolslistbox2.cell(1,incr)="VTY.F":incr++
symbolslistbox2.cell(1,incr)="VTZ.F":incr++
symbolslistbox2.cell(1,incr)="VU1.F":incr++
symbolslistbox2.cell(1,incr)="VUCP.F":incr++
symbolslistbox2.cell(1,incr)="VUKE.F":incr++
symbolslistbox2.cell(1,incr)="VUSA.F":incr++
symbolslistbox2.cell(1,incr)="VUSC.F":incr++
symbolslistbox2.cell(1,incr)="VVD.F":incr++
symbolslistbox2.cell(1,incr)="VVDH.F":incr++
symbolslistbox2.cell(1,incr)="VVU.F":incr++
'symbolslistbox2.cell(1,incr)="VWS.F":incr++
symbolslistbox2.cell(1,incr)="VX1.F":incr++
'symbolslistbox2.cell(1,incr)="VX5E.F":incr++
'symbolslistbox2.cell(1,incr)="VX8A.F":incr++
symbolslistbox2.cell(1,incr)="VZ8.F":incr++
symbolslistbox2.cell(1,incr)="VZS.F":incr++
symbolslistbox2.cell(1,incr)="W0I.F":incr++
'symbolslistbox2.cell(1,incr)="W17A.F":incr++
symbolslistbox2.cell(1,incr)="W1D.F":incr++
'symbolslistbox2.cell(1,incr)="W1I.F":incr++
symbolslistbox2.cell(1,incr)="W1J.F":incr++
symbolslistbox2.cell(1,incr)="W1M.F":incr++
symbolslistbox2.cell(1,incr)="W1T2.F":incr++
symbolslistbox2.cell(1,incr)="W1U.F":incr++
symbolslistbox2.cell(1,incr)="W2L.F":incr++
symbolslistbox2.cell(1,incr)="W3U.F":incr++
symbolslistbox2.cell(1,incr)="W3W.F":incr++
'symbolslistbox2.cell(1,incr)="W4G.F":incr++
'symbolslistbox2.cell(1,incr)="W5C.F":incr++
symbolslistbox2.cell(1,incr)="W5E.F":incr++
symbolslistbox2.cell(1,incr)="W5XA.F":incr++
symbolslistbox2.cell(1,incr)="W6O.F":incr++
symbolslistbox2.cell(1,incr)="W7D.F":incr++
symbolslistbox2.cell(1,incr)="W7L.F":incr++
symbolslistbox2.cell(1,incr)="W8A.F":incr++
'symbolslistbox2.cell(1,incr)="W8U.F":incr++
symbolslistbox2.cell(1,incr)="W8V.F":incr++
symbolslistbox2.cell(1,incr)="W8W.F":incr++
'symbolslistbox2.cell(1,incr)="W8Z.F":incr++
symbolslistbox2.cell(1,incr)="W9N.F":incr++
symbolslistbox2.cell(1,incr)="WA3.F":incr++
symbolslistbox2.cell(1,incr)="WA5.F":incr++
symbolslistbox2.cell(1,incr)="WA9.F":incr++
symbolslistbox2.cell(1,incr)="WAC.F":incr++
symbolslistbox2.cell(1,incr)="WAO.F":incr++
symbolslistbox2.cell(1,incr)="WAY.F":incr++
symbolslistbox2.cell(1,incr)="WAZ.F":incr++
symbolslistbox2.cell(1,incr)="WB1.F":incr++
symbolslistbox2.cell(1,incr)="WB2.F":incr++
symbolslistbox2.cell(1,incr)="WBC.F":incr++
symbolslistbox2.cell(1,incr)="WBCC.F":incr++
symbolslistbox2.cell(1,incr)="WBJ.F":incr++
symbolslistbox2.cell(1,incr)="WC2.F":incr++
symbolslistbox2.cell(1,incr)="WC3.F":incr++
symbolslistbox2.cell(1,incr)="WC7.F":incr++
symbolslistbox2.cell(1,incr)="WCE.F":incr++
symbolslistbox2.cell(1,incr)="WCH.F":incr++
symbolslistbox2.cell(1,incr)="WCMK.F":incr++
symbolslistbox2.cell(1,incr)="WCQ1.F":incr++
symbolslistbox2.cell(1,incr)="WD1.F":incr++
'symbolslistbox2.cell(1,incr)="WD5.F":incr++
symbolslistbox2.cell(1,incr)="WDC.F":incr++
'symbolslistbox2.cell(1,incr)="WDDA.F":incr++
symbolslistbox2.cell(1,incr)="WDFI.F":incr++
'symbolslistbox2.cell(1,incr)="WDI.F":incr++
symbolslistbox2.cell(1,incr)="WDNR.F":incr++
symbolslistbox2.cell(1,incr)="WDP.F":incr++
symbolslistbox2.cell(1,incr)="WE1.F":incr++
symbolslistbox2.cell(1,incr)="WE3.F":incr++
symbolslistbox2.cell(1,incr)="WE7.F":incr++
symbolslistbox2.cell(1,incr)="WED.F":incr++
'symbolslistbox2.cell(1,incr)="WEG1.F":incr++
symbolslistbox2.cell(1,incr)="WEJ.F":incr++
symbolslistbox2.cell(1,incr)="WEK.F":incr++
symbolslistbox2.cell(1,incr)="WEW.F":incr++
symbolslistbox2.cell(1,incr)="WF2.F":incr++
symbolslistbox2.cell(1,incr)="WF3.F":incr++
symbolslistbox2.cell(1,incr)="WF5A.F":incr++
'symbolslistbox2.cell(1,incr)="WF8B.F":incr++
symbolslistbox2.cell(1,incr)="WF9.F":incr++
symbolslistbox2.cell(1,incr)="WFC.F":incr++
symbolslistbox2.cell(1,incr)="WFG1.F":incr++
symbolslistbox2.cell(1,incr)="WFK.F":incr++
symbolslistbox2.cell(1,incr)="WFS.F":incr++
symbolslistbox2.cell(1,incr)="WGF1.F":incr++
symbolslistbox2.cell(1,incr)="WGSA.F":incr++
symbolslistbox2.cell(1,incr)="WHA.F":incr++
symbolslistbox2.cell(1,incr)="WHE.F":incr++
symbolslistbox2.cell(1,incr)="WHF4.F":incr++
'symbolslistbox2.cell(1,incr)="WHI.F":incr++
'symbolslistbox2.cell(1,incr)="WHL.F":incr++
symbolslistbox2.cell(1,incr)="WHR.F":incr++
'symbolslistbox2.cell(1,incr)="WI0.F":incr++
symbolslistbox2.cell(1,incr)="WI1.F":incr++
symbolslistbox2.cell(1,incr)="WI4.F":incr++
symbolslistbox2.cell(1,incr)="WIB.F":incr++
symbolslistbox2.cell(1,incr)="WIC.F":incr++
'symbolslistbox2.cell(1,incr)="WID.F":incr++
symbolslistbox2.cell(1,incr)="WIG1.F":incr++
symbolslistbox2.cell(1,incr)="WIQ.F":incr++
symbolslistbox2.cell(1,incr)="WIS.F":incr++
symbolslistbox2.cell(1,incr)="WJL.F":incr++
symbolslistbox2.cell(1,incr)="WKH.F":incr++
'symbolslistbox2.cell(1,incr)="WKU.F":incr++
symbolslistbox2.cell(1,incr)="WL6.F":incr++
symbolslistbox2.cell(1,incr)="WL9.F":incr++
symbolslistbox2.cell(1,incr)="WM1.F":incr++
symbolslistbox2.cell(1,incr)="WMB.F":incr++
symbolslistbox2.cell(1,incr)="WMC1.F":incr++
symbolslistbox2.cell(1,incr)="WMIN.F":incr++
symbolslistbox2.cell(1,incr)="WML1.F":incr++
symbolslistbox2.cell(1,incr)="WMR.F":incr++
symbolslistbox2.cell(1,incr)="WMT.F":incr++
symbolslistbox2.cell(1,incr)="WN6.F":incr++
symbolslistbox2.cell(1,incr)="WNL.F":incr++
'symbolslistbox2.cell(1,incr)="WNO.F":incr++
symbolslistbox2.cell(1,incr)="WO6.F":incr++
symbolslistbox2.cell(1,incr)="WOF.F":incr++
symbolslistbox2.cell(1,incr)="WON1.F":incr++
symbolslistbox2.cell(1,incr)="WOO.F":incr++
symbolslistbox2.cell(1,incr)="WOPA.F":incr++
symbolslistbox2.cell(1,incr)="WOSB.F":incr++
symbolslistbox2.cell(1,incr)="WP7.F":incr++
'symbolslistbox2.cell(1,incr)="WPE.F":incr++
symbolslistbox2.cell(1,incr)="WPIA.F":incr++
symbolslistbox2.cell(1,incr)="WPOB.F":incr++
symbolslistbox2.cell(1,incr)="WPS.F":incr++
symbolslistbox2.cell(1,incr)="WQ9.F":incr++
symbolslistbox2.cell(1,incr)="WR1.F":incr++
symbolslistbox2.cell(1,incr)="WRI.F":incr++
'symbolslistbox2.cell(1,incr)="WRM.F":incr++
symbolslistbox2.cell(1,incr)="WRW.F":incr++
symbolslistbox2.cell(1,incr)="WRX1.F":incr++
symbolslistbox2.cell(1,incr)="WSE.F":incr++
symbolslistbox2.cell(1,incr)="WSU.F":incr++
symbolslistbox2.cell(1,incr)="WSV2.F":incr++
symbolslistbox2.cell(1,incr)="WT5.F":incr++
'symbolslistbox2.cell(1,incr)="WT8.F":incr++
symbolslistbox2.cell(1,incr)="WTB.F":incr++
'symbolslistbox2.cell(1,incr)="WTD0.F":incr++
symbolslistbox2.cell(1,incr)="WTD7.F":incr++
symbolslistbox2.cell(1,incr)="WTD8.F":incr++
symbolslistbox2.cell(1,incr)="WTD9.F":incr++
'symbolslistbox2.cell(1,incr)="WTDB.F":incr++
symbolslistbox2.cell(1,incr)="WTDF.F":incr++
symbolslistbox2.cell(1,incr)="WTDH.F":incr++
symbolslistbox2.cell(1,incr)="WTDI.F":incr++
symbolslistbox2.cell(1,incr)="WTDM.F":incr++
symbolslistbox2.cell(1,incr)="WTDX.F":incr++
symbolslistbox2.cell(1,incr)="WTDY.F":incr++
'symbolslistbox2.cell(1,incr)="WTDZ.F":incr++
'symbolslistbox2.cell(1,incr)="WTEA.F":incr++
'symbolslistbox2.cell(1,incr)="WTEC.F":incr++
symbolslistbox2.cell(1,incr)="WTED.F":incr++
symbolslistbox2.cell(1,incr)="WTEE.F":incr++
symbolslistbox2.cell(1,incr)="WTEH.F":incr++
symbolslistbox2.cell(1,incr)="WTEI.F":incr++
symbolslistbox2.cell(1,incr)="WTEM.F":incr++
symbolslistbox2.cell(1,incr)="WTES.F":incr++
symbolslistbox2.cell(1,incr)="WTEU.F":incr++
'symbolslistbox2.cell(1,incr)="WTEZ.F":incr++
symbolslistbox2.cell(1,incr)="WTH.F":incr++
symbolslistbox2.cell(1,incr)="WTIC.F":incr++
symbolslistbox2.cell(1,incr)="WTIF.F":incr++
symbolslistbox2.cell(1,incr)="WTIM.F":incr++
symbolslistbox2.cell(1,incr)="WTIZ.F":incr++
symbolslistbox2.cell(1,incr)="WTM1.F":incr++
'symbolslistbox2.cell(1,incr)="WTT.F":incr++
symbolslistbox2.cell(1,incr)="WUC1.F":incr++
symbolslistbox2.cell(1,incr)="WUG.F":incr++
symbolslistbox2.cell(1,incr)="WUP.F":incr++
symbolslistbox2.cell(1,incr)="WUW.F":incr++
symbolslistbox2.cell(1,incr)="WV8.F":incr++
symbolslistbox2.cell(1,incr)="WVDA.F":incr++
symbolslistbox2.cell(1,incr)="WVH.F":incr++
symbolslistbox2.cell(1,incr)="WW1.F":incr++
symbolslistbox2.cell(1,incr)="WW2.F":incr++
symbolslistbox2.cell(1,incr)="WW4.F":incr++
symbolslistbox2.cell(1,incr)="WW6.F":incr++
'symbolslistbox2.cell(1,incr)="WW8.F":incr++
symbolslistbox2.cell(1,incr)="WWG.F":incr++
symbolslistbox2.cell(1,incr)="WWR.F":incr++
symbolslistbox2.cell(1,incr)="WX1.F":incr++
symbolslistbox2.cell(1,incr)="WX2.F":incr++
symbolslistbox2.cell(1,incr)="WX3.F":incr++
symbolslistbox2.cell(1,incr)="WX5.F":incr++
symbolslistbox2.cell(1,incr)="WX6.F":incr++
symbolslistbox2.cell(1,incr)="WX7.F":incr++
symbolslistbox2.cell(1,incr)="WXA.F":incr++
symbolslistbox2.cell(1,incr)="WXE.F":incr++
symbolslistbox2.cell(1,incr)="WXF.F":incr++
symbolslistbox2.cell(1,incr)="WXV.F":incr++
symbolslistbox2.cell(1,incr)="WY2.F":incr++
symbolslistbox2.cell(1,incr)="WY4.F":incr++
symbolslistbox2.cell(1,incr)="WY8.F":incr++
symbolslistbox2.cell(1,incr)="WYR.F":incr++
'symbolslistbox2.cell(1,incr)="WZM.F":incr++
symbolslistbox2.cell(1,incr)="X010.F":incr++
symbolslistbox2.cell(1,incr)="X011.F":incr++
symbolslistbox2.cell(1,incr)="X013.F":incr++
symbolslistbox2.cell(1,incr)="X014.F":incr++
'symbolslistbox2.cell(1,incr)="X017.F":incr++
symbolslistbox2.cell(1,incr)="X020.F":incr++
symbolslistbox2.cell(1,incr)="X022.F":incr++
symbolslistbox2.cell(1,incr)="X023.F":incr++
symbolslistbox2.cell(1,incr)="X025.F":incr++
symbolslistbox2.cell(1,incr)="X026.F":incr++
symbolslistbox2.cell(1,incr)="X03B.F":incr++
symbolslistbox2.cell(1,incr)="X03C.F":incr++
symbolslistbox2.cell(1,incr)="X03F.F":incr++
symbolslistbox2.cell(1,incr)="X03G.F":incr++
symbolslistbox2.cell(1,incr)="X13G.F":incr++
'symbolslistbox2.cell(1,incr)="X1T.F":incr++
symbolslistbox2.cell(1,incr)="X2S.F":incr++
symbolslistbox2.cell(1,incr)="X500.F":incr++
'symbolslistbox2.cell(1,incr)="X501.F":incr++
'symbolslistbox2.cell(1,incr)="X502.F":incr++
'symbolslistbox2.cell(1,incr)="X503.F":incr++
'symbolslistbox2.cell(1,incr)="X504.F":incr++
'symbolslistbox2.cell(1,incr)="X505.F":incr++
'symbolslistbox2.cell(1,incr)="X507.F":incr++
'symbolslistbox2.cell(1,incr)="X508.F":incr++
'symbolslistbox2.cell(1,incr)="X509.F":incr++
symbolslistbox2.cell(1,incr)="X9T.F":incr++
symbolslistbox2.cell(1,incr)="XA4.F":incr++
'symbolslistbox2.cell(1,incr)="XAH.F":incr++
symbolslistbox2.cell(1,incr)="XAIN.F":incr++
symbolslistbox2.cell(1,incr)="XAMB.F":incr++
symbolslistbox2.cell(1,incr)="XAT1.F":incr++
symbolslistbox2.cell(1,incr)="XB4A.F":incr++
symbolslistbox2.cell(1,incr)="XB4F.F":incr++
symbolslistbox2.cell(1,incr)="XB6.F":incr++
symbolslistbox2.cell(1,incr)="XBAE.F":incr++
symbolslistbox2.cell(1,incr)="XBAG.F":incr++
symbolslistbox2.cell(1,incr)="XBAI.F":incr++
symbolslistbox2.cell(1,incr)="XBAK.F":incr++
symbolslistbox2.cell(1,incr)="XBAS.F":incr++
symbolslistbox2.cell(1,incr)="XBAT.F":incr++
symbolslistbox2.cell(1,incr)="XBCD.F":incr++
'symbolslistbox2.cell(1,incr)="XBJF.F":incr++
symbolslistbox2.cell(1,incr)="XBLA.F":incr++
symbolslistbox2.cell(1,incr)="XBO2.F":incr++
symbolslistbox2.cell(1,incr)="XC4.F":incr++
symbolslistbox2.cell(1,incr)="XCA.F":incr++
symbolslistbox2.cell(1,incr)="XCC.F":incr++
symbolslistbox2.cell(1,incr)="XCD.F":incr++
symbolslistbox2.cell(1,incr)="XCI.F":incr++
symbolslistbox2.cell(1,incr)="XCP1.F":incr++
symbolslistbox2.cell(1,incr)="XCQ.F":incr++
symbolslistbox2.cell(1,incr)="XCS2.F":incr++
symbolslistbox2.cell(1,incr)="XCS3.F":incr++
symbolslistbox2.cell(1,incr)="XCS4.F":incr++
symbolslistbox2.cell(1,incr)="XCW.F":incr++
symbolslistbox2.cell(1,incr)="XCY.F":incr++
symbolslistbox2.cell(1,incr)="XD4.F":incr++
symbolslistbox2.cell(1,incr)="XD5E.F":incr++
symbolslistbox2.cell(1,incr)="XD9E.F":incr++
symbolslistbox2.cell(1,incr)="XD9U.F":incr++
symbolslistbox2.cell(1,incr)="XDDX.F":incr++
symbolslistbox2.cell(1,incr)="XDEB.F":incr++
symbolslistbox2.cell(1,incr)="XDEM.F":incr++
symbolslistbox2.cell(1,incr)="XDEP.F":incr++
symbolslistbox2.cell(1,incr)="XDEQ.F":incr++
symbolslistbox2.cell(1,incr)="XDEV.F":incr++
symbolslistbox2.cell(1,incr)="XDEW.F":incr++
symbolslistbox2.cell(1,incr)="XDGE.F":incr++
symbolslistbox2.cell(1,incr)="XDGM.F":incr++
symbolslistbox2.cell(1,incr)="XDGU.F":incr++
symbolslistbox2.cell(1,incr)="XDH.F":incr++
symbolslistbox2.cell(1,incr)="XDJE.F":incr++
symbolslistbox2.cell(1,incr)="XDJP.F":incr++
symbolslistbox2.cell(1,incr)="XDN0.F":incr++
symbolslistbox2.cell(1,incr)="XDND.F":incr++
symbolslistbox2.cell(1,incr)="XDNE.F":incr++
symbolslistbox2.cell(1,incr)="XDNY.F":incr++
symbolslistbox2.cell(1,incr)="XDPD.F":incr++
symbolslistbox2.cell(1,incr)="XDPE.F":incr++
symbolslistbox2.cell(1,incr)="XDUK.F":incr++
symbolslistbox2.cell(1,incr)="XDW0.F":incr++
symbolslistbox2.cell(1,incr)="XDWC.F":incr++
symbolslistbox2.cell(1,incr)="XDWD.F":incr++
symbolslistbox2.cell(1,incr)="XDWF.F":incr++
symbolslistbox2.cell(1,incr)="XDWH.F":incr++
symbolslistbox2.cell(1,incr)="XDWI.F":incr++
symbolslistbox2.cell(1,incr)="XDWL.F":incr++
symbolslistbox2.cell(1,incr)="XDWM.F":incr++
symbolslistbox2.cell(1,incr)="XDWS.F":incr++
symbolslistbox2.cell(1,incr)="XDWT.F":incr++
symbolslistbox2.cell(1,incr)="XDWU.F":incr++
symbolslistbox2.cell(1,incr)="XDWY.F":incr++
symbolslistbox2.cell(1,incr)="XE9.F":incr++
symbolslistbox2.cell(1,incr)="XEB.F":incr++
symbolslistbox2.cell(1,incr)="XEJ.F":incr++
symbolslistbox2.cell(1,incr)="XESD.F":incr++
symbolslistbox2.cell(1,incr)="XESP.F":incr++
symbolslistbox2.cell(1,incr)="XEUA.F":incr++
symbolslistbox2.cell(1,incr)="XFB.F":incr++
symbolslistbox2.cell(1,incr)="XG7S.F":incr++
symbolslistbox2.cell(1,incr)="XGH.F":incr++
symbolslistbox2.cell(1,incr)="XGII.F":incr++
symbolslistbox2.cell(1,incr)="XGIU.F":incr++
symbolslistbox2.cell(1,incr)="XGJ.F":incr++
symbolslistbox2.cell(1,incr)="XGLF.F":incr++
symbolslistbox2.cell(1,incr)="XGVD.F":incr++
'symbolslistbox2.cell(1,incr)="XGW.F":incr++
symbolslistbox2.cell(1,incr)="XHN1.F":incr++
symbolslistbox2.cell(1,incr)="XHNA.F":incr++
symbolslistbox2.cell(1,incr)="XHY1.F":incr++
symbolslistbox2.cell(1,incr)="XHYA.F":incr++
symbolslistbox2.cell(1,incr)="XHYG.F":incr++
symbolslistbox2.cell(1,incr)="XI9.F":incr++
symbolslistbox2.cell(1,incr)="XIC.F":incr++
symbolslistbox2.cell(1,incr)="XIEE.F":incr++
symbolslistbox2.cell(1,incr)="XIM.F":incr++
symbolslistbox2.cell(1,incr)="XIN.F":incr++
symbolslistbox2.cell(1,incr)="XIX.F":incr++
symbolslistbox2.cell(1,incr)="XJSE.F":incr++
symbolslistbox2.cell(1,incr)="XKR.F":incr++
symbolslistbox2.cell(1,incr)="XLIQ.F":incr++
'symbolslistbox2.cell(1,incr)="XM8.F":incr++
'symbolslistbox2.cell(1,incr)="XM91.F":incr++
symbolslistbox2.cell(1,incr)="XMAW.F":incr++
symbolslistbox2.cell(1,incr)="XMF.F":incr++
symbolslistbox2.cell(1,incr)="XMK9.F":incr++
symbolslistbox2.cell(1,incr)="XMLP.F":incr++
symbolslistbox2.cell(1,incr)="XMME.F":incr++
symbolslistbox2.cell(1,incr)="XMVE.F":incr++
symbolslistbox2.cell(1,incr)="XNP.F":incr++
symbolslistbox2.cell(1,incr)="XONA.F":incr++
symbolslistbox2.cell(1,incr)="XPG.F":incr++
symbolslistbox2.cell(1,incr)="XPH.F":incr++
symbolslistbox2.cell(1,incr)="XPK.F":incr++
symbolslistbox2.cell(1,incr)="XPQP.F":incr++
symbolslistbox2.cell(1,incr)="XQB.F":incr++
symbolslistbox2.cell(1,incr)="XQC.F":incr++
symbolslistbox2.cell(1,incr)="XQJ.F":incr++
symbolslistbox2.cell(1,incr)="XQN.F":incr++
symbolslistbox2.cell(1,incr)="XQUA.F":incr++
symbolslistbox2.cell(1,incr)="XQUE.F":incr++
symbolslistbox2.cell(1,incr)="XREA.F":incr++
symbolslistbox2.cell(1,incr)="XRG.F":incr++
'symbolslistbox2.cell(1,incr)="XRP1.F":incr++
symbolslistbox2.cell(1,incr)="XRS2.F":incr++
symbolslistbox2.cell(1,incr)="XRSM.F":incr++
symbolslistbox2.cell(1,incr)="XS3A.F":incr++
symbolslistbox2.cell(1,incr)="XS4.F":incr++
symbolslistbox2.cell(1,incr)="XS7W.F":incr++
symbolslistbox2.cell(1,incr)="XSA.F":incr++
symbolslistbox2.cell(1,incr)="XSC.F":incr++
symbolslistbox2.cell(1,incr)="XSE.F":incr++
symbolslistbox2.cell(1,incr)="XSG.F":incr++
symbolslistbox2.cell(1,incr)="XSI.F":incr++
symbolslistbox2.cell(1,incr)="XSK.F":incr++
symbolslistbox2.cell(1,incr)="XSNA.F":incr++
'symbolslistbox2.cell(1,incr)="XSQ.F":incr++
symbolslistbox2.cell(1,incr)="XST.F":incr++
symbolslistbox2.cell(1,incr)="XSXE.F":incr++
symbolslistbox2.cell(1,incr)="XSZ.F":incr++
symbolslistbox2.cell(1,incr)="XT1.F":incr++
'symbolslistbox2.cell(1,incr)="XT2A.F":incr++
symbolslistbox2.cell(1,incr)="XT3B.F":incr++
symbolslistbox2.cell(1,incr)="XTY.F":incr++
symbolslistbox2.cell(1,incr)="XU61.F":incr++
symbolslistbox2.cell(1,incr)="XUCD.F":incr++
symbolslistbox2.cell(1,incr)="XUCS.F":incr++
symbolslistbox2.cell(1,incr)="XUEM.F":incr++
symbolslistbox2.cell(1,incr)="XUEN.F":incr++
symbolslistbox2.cell(1,incr)="XUFN.F":incr++
symbolslistbox2.cell(1,incr)="XUHC.F":incr++
symbolslistbox2.cell(1,incr)="XUHY.F":incr++
symbolslistbox2.cell(1,incr)="XUN.F":incr++
symbolslistbox2.cell(1,incr)="XUP.F":incr++
symbolslistbox2.cell(1,incr)="XUTC.F":incr++
symbolslistbox2.cell(1,incr)="XUTD.F":incr++
symbolslistbox2.cell(1,incr)="XUTE.F":incr++
symbolslistbox2.cell(1,incr)="XWEH.F":incr++
symbolslistbox2.cell(1,incr)="XWM.F":incr++
symbolslistbox2.cell(1,incr)="XWTS.F":incr++
symbolslistbox2.cell(1,incr)="XXT.F":incr++
symbolslistbox2.cell(1,incr)="XXY.F":incr++
symbolslistbox2.cell(1,incr)="XY1D.F":incr++
symbolslistbox2.cell(1,incr)="XY4P.F":incr++
symbolslistbox2.cell(1,incr)="XY6.F":incr++
symbolslistbox2.cell(1,incr)="XYD.F":incr++
symbolslistbox2.cell(1,incr)="XYLD.F":incr++
symbolslistbox2.cell(1,incr)="XYLE.F":incr++
symbolslistbox2.cell(1,incr)="XYP1.F":incr++
symbolslistbox2.cell(1,incr)="XYPD.F":incr++
symbolslistbox2.cell(1,incr)="XYUA.F":incr++
symbolslistbox2.cell(1,incr)="XZEU.F":incr++
symbolslistbox2.cell(1,incr)="XZMJ.F":incr++
symbolslistbox2.cell(1,incr)="XZMU.F":incr++
'symbolslistbox2.cell(1,incr)="XZPN.F":incr++
symbolslistbox2.cell(1,incr)="XZW0.F":incr++
symbolslistbox2.cell(1,incr)="Y1F.F":incr++
symbolslistbox2.cell(1,incr)="Y9L.F":incr++
symbolslistbox2.cell(1,incr)="YA1.F":incr++
symbolslistbox2.cell(1,incr)="YAAA.F":incr++
'symbolslistbox2.cell(1,incr)="YAB2.F":incr++
symbolslistbox2.cell(1,incr)="YB3.F":incr++
symbolslistbox2.cell(1,incr)="YBB.F":incr++
symbolslistbox2.cell(1,incr)="YC8.F":incr++
'symbolslistbox2.cell(1,incr)="YCK.F":incr++
symbolslistbox2.cell(1,incr)="YCP.F":incr++
symbolslistbox2.cell(1,incr)="YDAB.F":incr++
'symbolslistbox2.cell(1,incr)="YDL.F":incr++
symbolslistbox2.cell(1,incr)="YDX.F":incr++
symbolslistbox2.cell(1,incr)="YEC.F":incr++
'symbolslistbox2.cell(1,incr)="YEL1.F":incr++
symbolslistbox2.cell(1,incr)="YGK.F":incr++
'symbolslistbox2.cell(1,incr)="YGL.F":incr++
'symbolslistbox2.cell(1,incr)="YGW.F":incr++
symbolslistbox2.cell(1,incr)="YHA.F":incr++
'symbolslistbox2.cell(1,incr)="YIH.F":incr++
'symbolslistbox2.cell(1,incr)="YIN.F":incr++
symbolslistbox2.cell(1,incr)="YIT.F":incr++
symbolslistbox2.cell(1,incr)="YIZH.F":incr++
symbolslistbox2.cell(1,incr)="YKE.F":incr++
'symbolslistbox2.cell(1,incr)="YM0.F":incr++
symbolslistbox2.cell(1,incr)="YM1.F":incr++
symbolslistbox2.cell(1,incr)="YM9A.F":incr++
symbolslistbox2.cell(1,incr)="YMA.F":incr++
symbolslistbox2.cell(1,incr)="YME.F":incr++
symbolslistbox2.cell(1,incr)="YMI.F":incr++
symbolslistbox2.cell(1,incr)="YMK.F":incr++
symbolslistbox2.cell(1,incr)="YMO.F":incr++
symbolslistbox2.cell(1,incr)="YMP3.F":incr++
'symbolslistbox2.cell(1,incr)="YMT.F":incr++
symbolslistbox2.cell(1,incr)="YOC.F":incr++
symbolslistbox2.cell(1,incr)="YOJ.F":incr++
symbolslistbox2.cell(1,incr)="YP9.F":incr++
symbolslistbox2.cell(1,incr)="YPH.F":incr++
symbolslistbox2.cell(1,incr)="YRB.F":incr++
symbolslistbox2.cell(1,incr)="YSG.F":incr++
symbolslistbox2.cell(1,incr)="YSN.F":incr++
symbolslistbox2.cell(1,incr)="YSON.F":incr++
symbolslistbox2.cell(1,incr)="YT2A.F":incr++
symbolslistbox2.cell(1,incr)="YT8.F":incr++
symbolslistbox2.cell(1,incr)="YTR.F":incr++
symbolslistbox2.cell(1,incr)="YTT.F":incr++
symbolslistbox2.cell(1,incr)="YUE1.F":incr++
'symbolslistbox2.cell(1,incr)="YUI.F":incr++
'symbolslistbox2.cell(1,incr)="YUM.F":incr++
symbolslistbox2.cell(1,incr)="YXS.F":incr++
'symbolslistbox2.cell(1,incr)="YZA.F":incr++
symbolslistbox2.cell(1,incr)="YZC.F":incr++
symbolslistbox2.cell(1,incr)="YZCA.F":incr++
symbolslistbox2.cell(1,incr)="Z081.F":incr++
symbolslistbox2.cell(1,incr)="Z1L.F":incr++
symbolslistbox2.cell(1,incr)="Z85.F":incr++
symbolslistbox2.cell(1,incr)="ZA0.F":incr++
'symbolslistbox2.cell(1,incr)="ZA2.F":incr++
'symbolslistbox2.cell(1,incr)="ZA7.F":incr++
symbolslistbox2.cell(1,incr)="ZAL.F":incr++
'symbolslistbox2.cell(1,incr)="ZAR.F":incr++
symbolslistbox2.cell(1,incr)="ZAS.F":incr++
'symbolslistbox2.cell(1,incr)="ZAY.F":incr++
symbolslistbox2.cell(1,incr)="ZB1.F":incr++
symbolslistbox2.cell(1,incr)="ZCB.F":incr++
symbolslistbox2.cell(1,incr)="ZCH.F":incr++
symbolslistbox2.cell(1,incr)="ZCT1.F":incr++
symbolslistbox2.cell(1,incr)="ZDO.F":incr++
'symbolslistbox2.cell(1,incr)="ZEE.F":incr++
symbolslistbox2.cell(1,incr)="ZEF.F":incr++
symbolslistbox2.cell(1,incr)="ZEG.F":incr++
symbolslistbox2.cell(1,incr)="ZEGA.F":incr++
'symbolslistbox2.cell(1,incr)="ZESM.F":incr++
symbolslistbox2.cell(1,incr)="ZFI1.F":incr++
'symbolslistbox2.cell(1,incr)="ZFIN.F":incr++
symbolslistbox2.cell(1,incr)="ZFS.F":incr++
symbolslistbox2.cell(1,incr)="ZGC.F":incr++
symbolslistbox2.cell(1,incr)="ZGY.F":incr++
symbolslistbox2.cell(1,incr)="ZHJ.F":incr++
'symbolslistbox2.cell(1,incr)="ZIJB.F":incr++
symbolslistbox2.cell(1,incr)="ZIL2.F":incr++
symbolslistbox2.cell(1,incr)="ZIM.F":incr++
symbolslistbox2.cell(1,incr)="ZM3.F":incr++
'symbolslistbox2.cell(1,incr)="ZM7.F":incr++
symbolslistbox2.cell(1,incr)="ZMM.F":incr++
'symbolslistbox2.cell(1,incr)="ZMX.F":incr++
symbolslistbox2.cell(1,incr)="ZNH.F":incr++
symbolslistbox2.cell(1,incr)="ZNHH.F":incr++
symbolslistbox2.cell(1,incr)="ZO1.F":incr++
symbolslistbox2.cell(1,incr)="ZOE.F":incr++
symbolslistbox2.cell(1,incr)="ZOF.F":incr++
symbolslistbox2.cell(1,incr)="ZPDD.F":incr++
symbolslistbox2.cell(1,incr)="ZPDE.F":incr++
symbolslistbox2.cell(1,incr)="ZPDF.F":incr++
symbolslistbox2.cell(1,incr)="ZPDH.F":incr++
symbolslistbox2.cell(1,incr)="ZPDI.F":incr++
symbolslistbox2.cell(1,incr)="ZPDJ.F":incr++
symbolslistbox2.cell(1,incr)="ZPDK.F":incr++
symbolslistbox2.cell(1,incr)="ZPDM.F":incr++
symbolslistbox2.cell(1,incr)="ZPDS.F":incr++
symbolslistbox2.cell(1,incr)="ZPDT.F":incr++
symbolslistbox2.cell(1,incr)="ZPDU.F":incr++
symbolslistbox2.cell(1,incr)="ZPDW.F":incr++
symbolslistbox2.cell(1,incr)="ZPR5.F":incr++
symbolslistbox2.cell(1,incr)="ZPRA.F":incr++
symbolslistbox2.cell(1,incr)="ZPRC.F":incr++
symbolslistbox2.cell(1,incr)="ZPRE.F":incr++
symbolslistbox2.cell(1,incr)="ZPRG.F":incr++
symbolslistbox2.cell(1,incr)="ZPRI.F":incr++
symbolslistbox2.cell(1,incr)="ZPRL.F":incr++
symbolslistbox2.cell(1,incr)="ZPRP.F":incr++
symbolslistbox2.cell(1,incr)="ZPRR.F":incr++
symbolslistbox2.cell(1,incr)="ZPRS.F":incr++
symbolslistbox2.cell(1,incr)="ZPRU.F":incr++
symbolslistbox2.cell(1,incr)="ZPRV.F":incr++
symbolslistbox2.cell(1,incr)="ZPRW.F":incr++
symbolslistbox2.cell(1,incr)="ZPRX.F":incr++
symbolslistbox2.cell(1,incr)="ZS2.F":incr++
symbolslistbox2.cell(1,incr)="ZS3.F":incr++
symbolslistbox2.cell(1,incr)="ZSB.F":incr++
symbolslistbox2.cell(1,incr)="ZSK.F":incr++
symbolslistbox2.cell(1,incr)="ZSL.F":incr++
symbolslistbox2.cell(1,incr)="ZSRI.F":incr++
symbolslistbox2.cell(1,incr)="ZSV.F":incr++
symbolslistbox2.cell(1,incr)="ZT1A.F":incr++
symbolslistbox2.cell(1,incr)="ZTX.F":incr++
'symbolslistbox2.cell(1,incr)="ZU1.F":incr++
'symbolslistbox2.cell(1,incr)="ZU2.F":incr++
symbolslistbox2.cell(1,incr)="ZUO.F":incr++
symbolslistbox2.cell(1,incr)="ZVA.F":incr++
symbolslistbox2.cell(1,incr)="ZVB.F":incr++
symbolslistbox2.cell(1,incr)="ZVF.F":incr++
symbolslistbox2.cell(1,incr)="ZVL.F":incr++
symbolslistbox2.cell(1,incr)="ZVR.F":incr++
symbolslistbox2.cell(1,incr)="ZVW.F":incr++
symbolslistbox2.cell(1,incr)="ZVX.F":incr++
symbolslistbox2.cell(1,incr)="ZWC1.F":incr++
symbolslistbox2.cell(1,incr)="ZWS.F":incr++
symbolslistbox2.cell(1,incr)="ZY3.F":incr++
symbolslistbox2.cell(1,incr)="ZYA.F":incr++
'symbolslistbox2.cell(1,incr)="ZYT.F":incr++
symbolslistbox2.cell(1,incr)="ZYW.F":incr++
'symbolslistbox2.cell(1,incr)="ZYZN.F":incr++
symbolslistbox2.cell(1,incr)="ZZA.F":incr++
symbolslistbox2.cell(1,incr)="ZZF.F":incr++
symbolslistbox2.cell(1,incr)="ZZG.F":incr++
symbolslistbox2.cell(1,incr)="ZZMS.F"

defint frankfurtstocksincr=incr

    ' 6781 Frankfurt stocks incr 12220 - 19000
    ' incr=19000
    
    'showmessage str$(incr)
        
   incr++
   

' ---------------------------------- debug test purpose
'DIM dstf AS STRING
'    SELECT CASE dstimeframe.ItemIndex
'        CASE 0 :
'            dstf = "1"
'        CASE 1 :
'            dstf = "5"
'        CASE 2 :
'            dstf = "15"
'        CASE 3 :
'            dstf = "30"
'        case 4 :
'            dstf = "60"
'        case 5 :
'            dstf = "240"
'        case 6 :
'            dstf = "1440"
'        case 7 :
'            dstf = "10080"
'        case 8 :
'            dstf = "43200"
'    END SELECT

'DIM filestream22 AS QFILESTREAM
'defint incr22=0

'for incr22=7976 to 12290
'while fileexists("c:\qchartist\csv\"+symbolslistbox2.cell(1,incr22)+dstf+".csv")=0
'incr22++
'wend
'filestream22.Open("c:\qchartist\csv\"+symbolslistbox2.cell(1,incr22)+dstf+".csv" , 0)
'if filestream22.size<29696 then
        'PRINT "Error"
 '       writetolog(DATE$ + " " + TIME$ + " " + "error " +  symbolslistbox2.cell(1,incr22) + dstf) 'dstimeframe.item(dstimeframe.itemindex))        
'end if
'filestream22.Close
'next incr22


'exit sub    
' ---------------------- end of debug test purpose    
    
    'showmessage str$(incr)
    'exit sub

    signaltrigger = 0

    defint incr2=0
    ini.Section = "Settings"
    IF ini.get("lastsymbolYF" , "") <> "" THEN incr2 = val(ini.get("lastsymbolYF" , ""))
    WHILE signaltrigger = 0
    onerrorresumelabel :
    'barsdisplayed.Text = "222"
   ' datetimesetyf ' set the correct time period in data source
        IF ini.exist THEN
            ini.Section = "Settings"
            IF VAL(ini.get("automation" , "")) = 0 THEN
                signaltrigger = 1
                EXIT SUB
            END IF
        END IF

        writealive
        DIM i AS INTEGER
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
        useindischeckbox.Checked = 0   
        
        ini.Section = "Settings"
        if ini.get("scantimeframe" , "")="60" then dstimeframe.itemindex=4
        if ini.get("scantimeframe" , "")="1440" then dstimeframe.itemindex=6
        
        'incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        'END IF  
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2<usanasdaqstocksincr+1 or incr2>frankfurtstocksincr) THEN
        incr2=usanasdaqstocksincr+1
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and incr2>usanasdaqstocksincr THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 1 and VAL(ini.get("Scan_US_Stocks" , "")) = 1 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 and (incr2>frankfurtstocksincr) THEN
        incr2=0 
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        END IF
        
        ini.Section = "Settings"
        IF VAL(ini.get("Scan_UK_and_EU_stocks" , "")) = 0 and VAL(ini.get("Scan_US_Stocks" , "")) = 0 and VAL(ini.get("Scan_Forex_Stocks" , "")) = 0 THEN
        incr2=0
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'filestream.Close
        'goto wendend
        signaltrigger = 1
        EXIT SUB
        END IF              
          
        
        if incr2<=frankfurtstocksincr then dssource.itemindex=0              
        
        'while dssource.itemindex>0
        '    doevents
        '    dssource.itemindex=0
        'wend
        
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        IF dssymboledit.text="" then
        'signaltrigger = 1
        'goto wendend        
        dssource.itemindex=0
        incr2=0
        dssymboledit.text=symbolslistbox2.cell(1,incr2)
        end if
        incr2++
        ini.Section = "Settings"
        ini.Write("lastsymbolYF" , str$(incr2))
        datetimesetyf ' set the correct time period in data source
        ' Check if symbol exists
        'alphavantagesearchsymboledit.text=dssymboledit.text
        'alphavantagesearchsymbolbuttonclicksub          
        'timerautomation.enabled=1        
        'while timerautomationready=0
        'doevents
        'wend
        'timerautomationready=0
        'timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN   
        while dssource.itemindex>0
            doevents
            dssource.itemindex=0
        wend                   
        dsokclick
        'else 
        'goto wendend
        'end if
        
        timerautomation.enabled=1        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        'IF like(alphavantagesearchsymbolrichedit.text , "*"+alphavantagesearchsymboledit.text+"*") = 1 THEN                      
        'dsokclick
        'else 
        'goto wendend
        'end if
        
        writealive
        
        DIM filestream AS QFILESTREAM
        'DEFSTR filestr = ""    
        defint incr3=incr2-1
        if incr3<=frankfurtstocksincr then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
        if filestream.size<1000 then
        PRINT "Error"
        writetolog(DATE$ + " " + TIME$ + " " + "error " +  dssymboledit.text + dstimeframe.item(dstimeframe.itemindex))
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        'EXIT SUB
        filestream.Close
        goto onerrorresumelabel
        end if
        
        'DIM filestream AS QFILESTREAM
        'DEFSTR filestr = ""
        'defint incr3=incr2-1
        'if incr3<=1880 then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
        ''if incr3>427 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
        'filestr = ""
        'defstr filestreamlinecoun
        'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
        'PRINT "Error"
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'filestream.Close
        'goto onerrorresumelabel
        'END IF 
                                  
        'DOEVENTS
        'WEND
        filestream.Close
        
        'reimportfile()

        'btnOnClick(drwBox)
        'exit sub
        while displayedfile<1
        doevents
        wend                

        'symbolslistbox2.itemindex=symbolslistbox2.itemindex+1
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "MA Chanels FiboEnv Mid") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        if charttf(displayedfile)<>1 and _
            charttf(displayedfile)<>5 and _
            charttf(displayedfile)<>15 and _
            charttf(displayedfile)<>30 and _
            charttf(displayedfile)<>60 and _
            charttf(displayedfile)<>240 and _
            charttf(displayedfile)<>1440 and _
            charttf(displayedfile)<>10080 and _
            charttf(displayedfile)<>43200 then
                attribtfcombo.itemindex=4
                attribtfeditItemChanged
                MA_Chanels_FiboEnv_Midautotf.checked=0
                MA_Chanels_FiboEnv_Midcurtfedit.text="60"
                SwamiRSI_v1curtfedit.text="60"
                SwamiRSI_v1autotf.checked=0
        end if
        btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
        '        EXIT FOR
        '    END IF
        'NEXT i
        'indicatorslist.ItemIndex = i        
        'btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
        '        EXIT FOR
        '    END IF
        '    NEXT i
        '    indicatorslist.ItemIndex = i        
        '    btnaddindi_click()
        
         
        
        useindischeckbox.Checked=1
        'showcanvasclick
        justrefreshchart
        writealive

        defstr zerostr="0"
        defstr bdslowerbufferstr="MA_Chanels_FiboEnv_Midbuffer7"
        defstr bdsupperbufferstr="MA_Chanels_FiboEnv_Midbuffer1"
        'defstr SpanA_Bufferstr="SpanA_Buffer"
        'defstr SpanB_Bufferstr="SpanB_Buffer"
            
        IF (high(0) >= val(varptr$(getbufferdata(varptr(bdsupperbufferstr),varptr(zerostr))))) or (low(0) <= val(varptr$(getbufferdata(varptr(bdslowerbufferstr),varptr(zerostr))))) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
        
            useindischeckbox.Checked=1
            showcanvasclick
            justrefreshchart
            'writealive
            
            defstr RSI3bufferstr="RSI3"
            defstr sumRSIbufferstr="sumRSI"
                        
             
            'IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) or (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Bufferstr="SpanA_Buffer"
            defstr SpanB_Bufferstr="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Bufferstr),varptr(zerostr))))>val(varptr$(getbufferdata(varptr(SpanB_Bufferstr),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Buffer2str="SpanA_Buffer"
            defstr SpanB_Buffer2str="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Buffer2str),varptr(zerostr))))<val(varptr$(getbufferdata(varptr(SpanB_Buffer2str),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , dssymboledit.text)
            ini.Write("message" , dssymboledit.text)
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            
        END IF
        
        

       'sleep 2
       useindischeckbox.Checked=0
       ' closedispchart_click()
       
       'logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile) + CHR$(10)
        writetolog(DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile))

        'canvas.Visible = 0
        'sepindivalminlab.Visible = 0
        'sepindivalmaxlab.Visible = 0
        'sepindivalminedit.Visible = 0
        'sepindivalmaxedit.Visible = 0
        'sepindivalok.Visible = 0
        'showcanvas = 0
        'setup()
        'mixgridcolcount(displayedfile) = 0
        'mixgridcolcount2(displayedfile) = 0
        'mixgridcolcount3(displayedfile) = 0
        'mixgridcolcount4(displayedfile) = 0
        'updatemixerlists
        'say "Chart closed"
        openedfilesnb --
 
        cpptmpfuncreturn=varptr$(openedfilesnbminusone())

        dispchartnb.DelItems = dispchartnb.ItemCount - 1

        dispchartnb.ItemIndex = displayedfile - 1

        chartstart = Scrollchart.Position - numbars
        'updatemixerlists

        Graph.Visible = FALSE

        split.Visible = 0

        splith.Visible = 0

        closedispchart.Visible = FALSE

        Scrollchart.Visible = 0

        pricescaleplusbtn.visible=0

        pricescaleminusbtn.visible=0

        addbarsbtn.visible=0

        shiftchartbtn.visible=0        
        'closedispcanvas.Visible = 0    
        closedispcanvas_click    

        tfmult.Text = "1"

        barsdisplayed.Text = "222"

        'disableallindis  

        displayedfile=0
        MA_Chanels_FiboEnv_Midautotf.checked=1
        SwamiRSI_v1autotf.checked=1
        
        
        timerautomation.enabled=1
        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        wendend:
       
    WEND

END SUB


SUB autoreverse2 ' local_csv_files scanner

    signaltrigger = 0

    WHILE signaltrigger = 0
    
        IF ini.exist THEN
            ini.Section = "Settings"
            IF VAL(ini.get("automation" , "")) = 0 THEN
                signaltrigger = 1
                EXIT SUB
            END IF
        END IF

        writealive
        DIM i AS INTEGER
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
        useindischeckbox.Checked = 0   
        
        'dstimeframe.itemindex=4
       
          
        'tfmult.Text = STR$(1)


        DIM rndcsvlistitem AS INTEGER
        DIM checkfilesize AS QFILESTREAM
        DIM csvlistsize AS INTEGER
        csvlistsize = 0
        

        WHILE csvlistsize < 102400
            rndcsvlistitem = RND(csvList.ItemCount)
            checkfilesize.open(DirList.Directory + "\" + csvList.Item(rndcsvlistitem) , fmOpenRead)
            csvlistsize = checkfilesize.Size
            checkfilesize.close
        WEND     
        writealive
        
        DIM jjj AS string :
        jjj = csvList.Item(rndcsvlistitem)
        DIM kkk AS INTEGER
        kkk = INSTR(0 , jjj , ".")
        DIM iii AS INTEGER
        DIM lll AS STRING
        FOR iii = kkk - 1 TO 0 STEP - 1
            lll = MID$(jjj , iii , 1)
            IF ASC(lll) < 48 OR ASC(lll) > 57 THEN
                EXIT FOR
            END IF
            'writealive
        NEXT iii
        writealive
        DIM mmm AS STRING
        mmm = MID$(jjj , iii + 1)
        mmm = MID$(mmm , 0 , INSTR(0 , mmm , ".") - 1)
        
        writealive
        
        importfileauto2(DirList.Directory + "\" + csvList.Item(rndcsvlistitem))
        writealive
        'showmessage "1"       
        'reimportfile()
        'showmessage "2"
        'writealive

        
        'timerautomation.enabled=1        
        'while timerautomationready=0
        'doevents
        'wend
        'timerautomationready=0
        'timerautomation.enabled=0
        
        'writealive
        
        'showmessage "3"
        
        'reimportfile()

        'btnOnClick(drwBox)
        'exit sub
        'while displayedfile<1
        'doevents
        'wend                
        'showmessage "4"
        'symbolslistbox2.itemindex=symbolslistbox2.itemindex+1
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "MA Chanels FiboEnv Mid") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        if charttf(displayedfile)<>1 and _
            charttf(displayedfile)<>5 and _
            charttf(displayedfile)<>15 and _
            charttf(displayedfile)<>30 and _
            charttf(displayedfile)<>60 and _
            charttf(displayedfile)<>240 and _
            charttf(displayedfile)<>1440 and _
            charttf(displayedfile)<>10080 and _
            charttf(displayedfile)<>43200 then
                attribtfcombo.itemindex=4
                attribtfeditItemChanged
                MA_Chanels_FiboEnv_Midautotf.checked=0
                MA_Chanels_FiboEnv_Midcurtfedit.text="60"
                SwamiRSI_v1curtfedit.text="60"
                SwamiRSI_v1autotf.checked=0
        end if
        btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
        '        EXIT FOR
        '    END IF
        'NEXT i
        'indicatorslist.ItemIndex = i        
        'btnaddindi_click()
        
        'FOR i = 0 TO indicatorslist.ItemCount - 1
        '    IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
        '        EXIT FOR
        '    END IF
        '    NEXT i
        '    indicatorslist.ItemIndex = i        
        '    btnaddindi_click()
        
         
        
        useindischeckbox.Checked=1
        'showcanvasclick
        justrefreshchart
        writealive
        

        defstr zerostr="0"
        defstr bdslowerbufferstr="MA_Chanels_FiboEnv_Midbuffer7"
        defstr bdsupperbufferstr="MA_Chanels_FiboEnv_Midbuffer1"
        'defstr SpanA_Bufferstr="SpanA_Buffer"
        'defstr SpanB_Bufferstr="SpanB_Buffer"
            
        IF (high(0) >= val(varptr$(getbufferdata(varptr(bdsupperbufferstr),varptr(zerostr))))) or (low(0) <= val(varptr$(getbufferdata(varptr(bdslowerbufferstr),varptr(zerostr))))) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "SwamiRSI_v1") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
        
            useindischeckbox.Checked=1
            showcanvasclick
            justrefreshchart
            'writealive
            
            defstr RSI3bufferstr="RSI3"
            defstr sumRSIbufferstr="sumRSI"
                        
             
            'IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) or (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=100 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=100) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Bufferstr="SpanA_Buffer"
            defstr SpanB_Bufferstr="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Bufferstr),varptr(zerostr))))>val(varptr$(getbufferdata(varptr(SpanB_Bufferstr),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            'Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
	        Graph.autoSaveChart(homepath + "\" + STR$(timegettime) + csvList.Item(rndcsvlistitem) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , csvList.Item(rndcsvlistitem))
            ini.Write("message" , csvList.Item(rndcsvlistitem))
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            IF (val(varptr$(getbufferdata(varptr(RSI3bufferstr),varptr(zerostr))))=0 AND val(varptr$(getbufferdata(varptr(sumRSIbufferstr),varptr(zerostr))))=0) THEN
            
            FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Ichimoku") > 0 THEN
                EXIT FOR
            END IF
            NEXT i
            indicatorslist.ItemIndex = i        
            btnaddindi_click()
            
            useindischeckbox.Checked=1
            'showcanvasclick
            justrefreshchart
            
            defstr SpanA_Buffer2str="SpanA_Buffer"
            defstr SpanB_Buffer2str="SpanB_Buffer"
            
            IF (val(varptr$(getbufferdata(varptr(SpanA_Buffer2str),varptr(zerostr))))<val(varptr$(getbufferdata(varptr(SpanB_Buffer2str),varptr(zerostr))))) THEN
            'signaltrigger=1
            'print "Signal found"
            'exit sub
            'Graph.autoSaveChart(homepath + "\" + dssymboledit.text + dstimeframe.item(dstimeframe.itemindex) + ".bmp")
             Graph.autoSaveChart(homepath + "\" + STR$(timegettime) + csvList.Item(rndcsvlistitem) + ".bmp")
            
            ini.Section = "Settings"
            ini.Write("subject" , csvList.Item(rndcsvlistitem))
            ini.Write("message" , csvList.Item(rndcsvlistitem))
            ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                end if
            END IF                       
            
            END IF
            
            
        END IF
        
        

       'sleep 2
       useindischeckbox.Checked=0
       ' closedispchart_click()
       
       'logreverseedit.Text = logreverseedit.Text + DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile) + CHR$(10)
        writetolog(DATE$ + " " + TIME$ + " " + "Close chart " + importedfile(displayedfile))

        'canvas.Visible = 0
        'sepindivalminlab.Visible = 0
        'sepindivalmaxlab.Visible = 0
        'sepindivalminedit.Visible = 0
        'sepindivalmaxedit.Visible = 0
        'sepindivalok.Visible = 0
        'showcanvas = 0
        'setup()
        'mixgridcolcount(displayedfile) = 0
        'mixgridcolcount2(displayedfile) = 0
        'mixgridcolcount3(displayedfile) = 0
        'mixgridcolcount4(displayedfile) = 0
        'updatemixerlists
        'say "Chart closed"
        openedfilesnb --
 
        cpptmpfuncreturn=varptr$(openedfilesnbminusone())

        dispchartnb.DelItems = dispchartnb.ItemCount - 1

        dispchartnb.ItemIndex = displayedfile - 1

        chartstart = Scrollchart.Position - numbars
        'updatemixerlists

        Graph.Visible = FALSE

        split.Visible = 0

        splith.Visible = 0

        closedispchart.Visible = FALSE

        Scrollchart.Visible = 0

        pricescaleplusbtn.visible=0

        pricescaleminusbtn.visible=0

        addbarsbtn.visible=0

        shiftchartbtn.visible=0        
        'closedispcanvas.Visible = 0    
        closedispcanvas_click    

        tfmult.Text = "1"

        barsdisplayed.Text = "222"

        'disableallindis  

        displayedfile=0
        MA_Chanels_FiboEnv_Midautotf.checked=1
        SwamiRSI_v1autotf.checked=1
        
        
        timerautomation.enabled=1
        
        while timerautomationready=0
        doevents
        wend
        timerautomationready=0
        timerautomation.enabled=0
        wendend:
       
    WEND

END SUB


SUB signalsndfrmclose
    writealivetimer.Enabled = 0
    PLAYWAV "" , SND_ASYNC OR SND_LOOP
END SUB

SUB signalsnd
    PLAYWAV homepath + "\wav\C-1MAJ.WAV" , SND_ASYNC OR SND_LOOP
    signalsndform.Visible = 1
    'playwav "",snd_async or snd_loop
END SUB

SUB stopclicked
    signaltrigger = 1
END SUB

SUB barsdisplayedchange
    ini.Section = "Settings"
    ini.Write("barsdisplayed" , barsdisplayed.Text)
END SUB

SUB alphavantageapikeyeditchange
    ini.Section = "Settings"
    ini.Write("alphavantageapikey" , alphavantageapikeyedit.Text)
END SUB

SUB tiingoapikeyeditchange
    ini.Section = "Settings"
    ini.Write("tiingoapikey" , tiingoapikeyedit.Text)
END SUB

SUB finnhubapikeyeditchange
    ini.Section = "Settings"
    ini.Write("finnhubapikey" , finnhubapikeyedit.Text)
END SUB

sub alphavantagesearchsymbolbuttonclicksub
alphavantagesearchsymbolbutton.enabled=0
busystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , fmCreate)
busystream.WriteLine("1")
busystream.Close
DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\csv\alpha_vantage"
DIM pid AS INTEGER
pid = SHELL("test3.bat " + chr$(34) + alphavantagesearchsymboledit.Text + chr$(34) + " " + alphavantageapikeyedit.Text, 0)
alphavantagegoingto = "alphavantagereadsearchresult"  :  alphavantagesearchsymbolbusytimer.Interval = 1000  :  alphavantagesearchsymbolbusytimer.Enabled = 1
end sub

SUB cntbarseditchange
    ini.Section = "Settings"
    ini.Write("countedbars" , cntbarsedit.Text)
    setcntbarseditstr=cntbarsedit.Text:cpptmpfuncreturn=varptr$(setcntbarsedit(varptr(setcntbarseditstr)))
END SUB

SUB beginauto
    beginautotimer.Enabled = 1
END SUB

SUB beginexitsignal
    beginexitsignaltimer.Enabled = 1
END SUB

SUB beginauto2
'showmessage "3"
    beginautotimer.Enabled = 0
    writealive
    barsdisplayed.Text = "222"
    cntbarsedit.Text = "1000"

    'dssource.itemindex=3
    'dssymboledit.text=symbolslistbox2.item(symbolslistbox2.itemindex)
    'dsokclick
    'writealive
    'symbolslistbox2.itemindex=symbolslistbox2.itemindex+1
    'DIM iba AS INTEGER
    'FOR iba = 0 TO indicatorslist.ItemCount - 1
    '    IF INSTR(0 , indicatorslist.Item(iba) , "MA Chanels FiboEnv Mid") > 0 THEN
    '        EXIT FOR
    '    END IF
    'NEXT iba
    'indicatorslist.ItemIndex = iba
    'btnaddindi_click()
    'refresh_chart
    'writealive
    'showmessage "4"
    IF ini.exist THEN
        ini.Section = "Settings"
        IF ini.get("streamsource" , "") <> "" THEN
            IF ini.get("streamsource" , "") = "Use_local_csv_files" then autoreverse2
            IF ini.get("streamsource" , "") = "Use_AlphaVantage" then autoreverse
            IF ini.get("streamsource" , "") = "Use_Tiingo_Crypto" then autoreverse6
            IF ini.get("streamsource" , "") = "Use_Yahoo_Finance" and ini.get("scanstocksforwhichbroker" , "") = "JFD Broker" then 		
		while dssource.itemindex>0
            		doevents
            		dssource.itemindex=0
        	wend   
		autoreverse3
	    end if          
            IF ini.get("streamsource" , "") = "Use_Yahoo_Finance" and ini.get("scanstocksforwhichbroker" , "") = "eToro" then 		
		while dssource.itemindex>0
            		doevents
            		dssource.itemindex=0			
        	wend  
		autoreverse4             
	    end if
        IF ini.get("streamsource" , "") = "Use_Yahoo_Finance" and ini.get("scanstocksforwhichbroker" , "") = "Boursorama" then       
        while dssource.itemindex>0
                    doevents
                    dssource.itemindex=0            
            wend  
        autoreverse5             
        end if        
        end if
    end if
    'autoreverse2
    'showmessage "5"
END SUB

SUB beginexitsignal2
    beginexitsignaltimer.Enabled = 0
    barsdisplayed.Text = "300"
    cntbarsedit.Text = "300"
    DirList.update


    'if indicatorslistsel.Item(indicatorslist.itemindex)="" then
    'btnaddindi_click()
    'exit sub
    'end if
    'barsdisplayed.Text=200
    'justrefreshchart

    importfileauto2(DirList.Directory + "\" + csvList.Item(csvList.ItemIndex))
    refresh_chart
    'autoreverse
    beginexitsignal3
END SUB

SUB beginexitsignal3

    'section unfinished and portion of code not tested yet

    signaltrigger = 0

    'if indicatorslistsel.Item(indicatorslist.itemindex)="" then
    'btnaddindi_click()
    'exit sub
    'end if
    'barsdisplayed.Text=200
    'justrefreshchart

    WHILE signaltrigger = 0

        IF ini.exist THEN
            ini.Section = "Settings"
            IF VAL(ini.get("exitsignal" , "")) = 0 THEN
                signaltrigger = 1
                EXIT SUB
            END IF
        END IF

        writealive

        DIM i AS INTEGER
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
        useindischeckbox.Checked = 0

        tfmult.Text = STR$(1)

        'sleep 2
        'print csvlist.directory+"\"+csvlist.item(rnd(csvlist.itemcount))
        DIM rndcsvlistitem AS INTEGER
        DIM checkfilesize AS QFILESTREAM
        DIM csvlistsize AS INTEGER
        csvlistsize = 0

        importfileauto(DirList.Directory + "\" + csvList.Item(csvList.ItemIndex))
        reimportfile()

        writealive
        'SLEEP(VAL(pausesdurationedit.Text))

        '---------------------------- Reversing

        DIM getline$ AS STRING

        IF FILEEXISTS(homepath + "\reversetmp.log") = FALSE THEN

            PRINT " file not found "
            EXIT SUB
        END IF

        DIM file AS QFILESTREAM
        file.open(homepath + "\reversetmp.log" , 0)

        DEFINT j = 0
        DIM revdate AS STRING
        DIM revtime AS STRING


        DO

            j ++

            getline$ = file.ReadLine

            IF INSTR(getline$ , "Reverse") > 0 THEN
                revdate = MID$(MID$(getline$ , INSTR(getline$ , "From Date: ")) , 12 , INSTR(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , " ") - 1)
                revtime = MID$(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , INSTR(MID$(getline$ , INSTR(getline$ , "From Date: ") + 11) , " ") + 1 , 5)
                findbarfromfile(revdate , revtime)
                reversetillendnorefresh
            END IF

        LOOP UNTIL file.eof
        file.close

        file.open(homepath + "\reversetmp.log" , 0)
        DIM revtfmu AS STRING
        revtfmu = ""
        DO

            'j++

            getline$ = file.ReadLine

            IF INSTR(getline$ , "changed") > 0 THEN
                IF revtfmu = "" THEN
                    revtfmu = MID$(getline$ , INSTR(getline$ , "to") + 3 , 3)
                END IF
            END IF

        LOOP UNTIL file.eof
        file.close

        'refreshgrids
    refreshgrids2  

        writealive
        'SLEEP(VAL(pausesdurationedit.Text))

        exp10sub
        writealive
        'SLEEP(VAL(pausesdurationedit.Text))
        savegridtmp
        cpptmpfuncreturn=varptr$(savegridtmpcpp())

        tfmult.Text = revtfmu
        tfmultok_click

        writealive
        'SLEEP(VAL(pausesdurationedit.Text))
        '--------------------------------------

        goto justexport
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Center Of Gravity cpp") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        btnaddindi_click()
        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Volatility Stop") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        btnaddindi_click()
        'bbhlperiodedit.text=bolliperedit.text

        justrefreshchart

        writealive
        'SLEEP(VAL(pausesdurationedit.Text))    
defstr tmppath2      
DEFSTR url  
DEFSTR outFileName          
defstr zerostr="0"
defstr sqlbufferstr="sql"
defstr sqhbufferstr="sqh"
defstr fxbufferstr="fx"
defstr volatilitystopBuffer2str="volatilitystopBuffer2"
        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 1 THEN

            IF ((high(0) >= (val(varptr$(getbufferdata(varptr(sqlbufferstr),varptr(zerostr)))) + 0.5 * (val(varptr$(getbufferdata(varptr(fxbufferstr),varptr(zerostr)))) - val(varptr$(getbufferdata(varptr(sqlbufferstr),varptr(zerostr))))))) ) THEN ' OR (high(0) >= volatilitypivotema(0))
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 0 THEN

            IF ((low(0) <= (val(varptr$(getbufferdata(varptr(sqhbufferstr),varptr(zerostr)))) - 0.5 * (val(varptr$(getbufferdata(varptr(sqhbufferstr),varptr(zerostr)))) - val(varptr$(getbufferdata(varptr(fxbufferstr),varptr(zerostr))))))) OR (low(0) <= val(varptr$(getbufferdata(varptr(volatilitystopBuffer2str),varptr(zerostr))))) ) THEN 
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF


        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i

        'justrefreshchart

        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Candle Average") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        btnaddindi_click()

        'cntbarsedit.text="320"
        showcanvasclick

        'justrefreshchart
        writealive
        'SLEEP(VAL(pausesdurationedit.Text))

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 1 THEN

            IF (candleavgsma(1) = 1) THEN
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF
        'cntbarsedit.text="300"

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 0 THEN

            IF (candleavgsma(1) = - 1) THEN
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF


        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i

        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Value Chart") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        btnaddindi_click()
        'showcanvasclick
        justrefreshchart
        writealive
        'SLEEP(VAL(pausesdurationedit.Text))

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 1 THEN
            IF (vh(0) >= 3.5) THEN
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 0 THEN
            IF (vb(0) <= - 3.5) THEN
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF


        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i

        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Accelerator") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        btnaddindi_click()
        'showcanvasclick
        justrefreshchart
        writealive
        'SLEEP(VAL(pausesdurationedit.Text))

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 1 THEN
            IF (acceleratorbuffer0(1) >= 0) THEN
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 0 THEN
            IF (acceleratorbuffer0(1) <= 0) THEN
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF


        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i

        FOR i = 0 TO indicatorslist.ItemCount - 1
            IF INSTR(0 , indicatorslist.Item(i) , "Force Index") > 0 THEN
                EXIT FOR
            END IF
        NEXT i
        indicatorslist.ItemIndex = i
        btnaddindi_click()
        'showcanvasclick
        justrefreshchart
        writealive
        'SLEEP(VAL(pausesdurationedit.Text))

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 1 THEN
            IF (forceindexbuffer(1) >= 0) THEN
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF

        ini.Section = "Settings"
        IF VAL(ini.get("exitsignaldir" , "")) = 0 THEN
            IF (forceindexbuffer(1) <= 0) THEN
                writealivetimer.Enabled = 1
                signalsnd
                ini.Section = "Settings"
                ini.Write("exitsignal" , "0")
                'MailForm.Visible = 1
                ini.Section = "Settings"
                IF VAL(ini.get("mailer" , "")) = 1 THEN
                    'ButtonClick
                    'RUN CHR$(34) + homepath + "\sendmail2.exe" + CHR$(34)
                    url = "http://www.qchartist.net/signalmail/signalmail.php?"+STR$(timeGetTime)
                    outFileName = "signalmail.txt"
                    tmppath2 = CurDir$
                    CHDIR homepath
                    IF GetFileHTTP(url , outFileName) THEN
                    'SHOWMESSAGE "Download Error : " & url
                    'EXIT SUB
                    ELSE
                    'SHOWMESSAGE "Download Finished & OK : " & URL
                    END IF
                    CHDIR tmppath2

                END IF
                signaltrigger = 1
            END IF
        END IF
        
        FOR i = 0 TO indicatorslist.ItemCount - 1
            indicatorslist.ItemIndex = i
            btndelindi_click()
        NEXT i
        justexport:
        useindischeckbox.Checked = 0
        justrefreshchart
        writealive
        useindischeckbox.Checked = 0
        exportcollectionauto
        writealive                        
        tfmult.Text = "1"
        tfmultok_click
        barsdisplayed.Text = "300"
        dispbarsok_click
        writealive

    WEND

END SUB

SUB operations

    hdc = getdc(frmMain.Handle)
    'polybezier(hdc,curve.pointer,i)
    PolyDraw(hdc , curve.pointer , btypes(1) , ipoly)
    releasedc(hdc , frmMain.Handle)
END SUB

SUB pdown
    drag = 1
END SUB

SUB pup
    drag = 0
END SUB

SUB pmove

    IF drag = 1 THEN

        DIM XVAL AS INTEGER , YVAL AS INTEGER
        'GetCursorPos(NPOS)
        'XVAL=NPOS.xpos
        'YVAL=NPOS.ypos
        'xval=xval-frmmain.left-graph.left-5-mouseexcentricityx
        'yval=yval-frmmain.top-graph.top-43-mouseexcentricityy
        XVAL = mousemovegraphx
        YVAL = mousemovegraphy

        sx2(sender.tag + 1) = SCREEN.MouseX - sender.Left
        sy2(sender.tag + 1) = SCREEN.MouseY - sender.Top

        sender.Left = XVAL + Graph.Left  'screen.mousex - frmmain.left-8
        sender.Top = YVAL + Graph.Top  'screen.mousey - frmmain.top-28
        sx2(sender.TabOrder + 1) = SCREEN.MouseX - frmMain.Left - 8
        sy2(sender.sender.TabOrder + 1) = SCREEN.MouseY - frmMain.Top - 28


        pbez.x = XVAL + Graph.Left  'sender.left
        pbez.y = YVAL + Graph.Top  'sender.top
        DIM old AS INTEGER
        old = curve.Position
        curve.Position = sender.tag
        curve.writeudt pbez
        curve.Position = old
        frmMain.Repaint
        operations
    END IF


END SUB

function ibarshift (timeframe as integer,datetimeserial as double, limit as integer) as integer

dim i as integer
dim proxiarray(0 TO 1000) as double
dim proxihighest as double,proxilowest as double

select case timeframe

    case 1:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial1(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i

    case 5:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial5(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i
    
    case 15:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial15(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i
    
    case 30:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial30(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i
    
    case 60:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial60(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i
    
    case 240:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial240(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i
    
    case 1440:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial1440(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i
    
    case 10080:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial10080(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i
    
    case 43200:

    proxihighest = 0
    FOR i = 0 TO limit
        proxiarray(i)=datetimeserial43200(i)/datetimeserial
        if proxiarray(i)>=1 then
            proxiarray(i)=proxiarray(i)-1
        else
            proxiarray(i)=1-proxiarray(i)
        end if
        IF proxiarray(i) > proxihighest THEN
                proxihighest = proxiarray(i)
            END IF
    NEXT i
    proxilowest = proxihighest
    FOR i = 0 TO limit
            IF proxiarray(i) < proxilowest THEN
                proxilowest = proxiarray(i)
            END IF
        NEXT i
    FOR i = 0 TO limit
            IF proxiarray(i)=proxilowest THEN
                result=i
                exit for
            END IF
        NEXT i
    
end select

end function

sub openhelpsub

run "hh.exe "+homepath + "\docs\QChartist.chm"

end sub

sub viewreadme
    
    frmreadme.Visible = 1
end sub

sub viewwhatsnew
    
    frmwhatsnew.Visible = 1
end sub

sub speechinitialization
' --------------------------- Setup/Initializations ---------------------

' Initialize Speech (Only needs to be called here, once).
rtn2=Begin_Speech(TEXT_BUFFER_SIZE)
IF rtn2=1 THEN
' Get the number of (TTS Engines) Voices.
voiceTotal=Count_Voices
IF voiceTotal>0 THEN
' Store the Voice Data (Name, Age, etc) for each (TTS Engine) Voice.
Enum_VoiceData
' Get Voice Data for the Current (TTS Engine) Voice.
vdPtr=Get_VoiceData(currentVoice)

ELSE
usespeech.checked=0
  Select Case MessageBox("SAPI4 Error - SAPI4 and/or Voice Engines NOT Installed."+chr$(10)+"Would you like QChartist to install them for you now?", "SAPI4/Voice Engines installation", 4)
      Case 6'// User selected Yes
            '// Add Yes code here
            run homepath + "\speech\spchapi.exe"
            run homepath + "\speech\msttsl.exe"

      Case 7'// User selected No
            '// Add No code here

  End Select

END IF
ELSE
usespeech.checked=0
ShowMessage("Speech Library Error - Library Speech NOT Available.")

END IF

defint i
for i= currentVoice to voiceTotal-1

if VarPtr$(vdPtr+512)="Mary" then
vdPtr=Get_VoiceData(i)   ' Get Voice Data for the Current (TTS Engine) Voice.
IF vdPtr<>0 THEN ' vdPtr is a pointer to the voiceData (index) Array.
volumespeech=Get_Volume(i)
pitch=Get_Pitch(i)
speed=Get_Speed(i)
end if
exit for
END IF

next i

say "Speech engine enabled"

end sub

SUB say(speech AS string)
if usespeech.checked=0 then exit sub
' Speak Text using the Current (TTS Engine) Voice. The text is ASCII Text
' (The C DLL uses WCHAR Text, but I convert it to BYTE/CHAR).
'
' REUSE_CURRENT_TTS - Do not delete the Current TTS Engine - No pause
'                     between button presses.
' NEW_TTS_ALWAYS    - Delete the Current TTS Engine - Pause between
'                     button presses (Safe Option)
'
' USE_CLIPBOARD or USE_TEXT. Using a string requires the address of that
' string (any Address so that this can utilize a Buffer). The clipboard
' will be read into internal buffers by the DLL. CLEAR_TEXT_BUFFER,
' CLEAR_CLIPBOARD_BUFFER and CLEAR_TEXTSPEECH_BUFFER allow you to zero
' the buffer/s before copying clipboard/text data to the buffer/s.
' CLEAR_ options were added so you can read the clipboard on the Fly
' (I.e Copy Clipboard, Read Clipboard and then copy again, read again
' without the first buffer overlapping. Use DONT_CLEAR_BUFFERS for
' overlap work.
stg$=speech
Speak_String(USE_TEXT,VarPtr(stg$),CLEAR_TEXTSPEECH_BUFFER,currentVoice,NEW_TTS_ALWAYS,USE_DEFAULT_VOLUME,volumespeech,USE_DEFAULT_PITCH,pitch,USE_DEFAULT_SPEED,speed)

' Set the volume to 32768 and Pause for 5 seconds. Tags on work whilst
' speaking (after Speak_String() has been called).
'
'Tag_Speech("\Vol=32768\ \Pau=5000\")


' As an example of Save_WAVFileEx I will save a WAV file with fast speech,
' to show that a WAV file can be saved differently to Speak_String.
' If you use the same parameters as Speak_String, with Save_WAVEFileEx,
' you can save the same voice/speech.
'
' Save_WAVFileEx on its own does not allow you to hear the speech - It
' just saves the speech (or whatevers in the Voice Engine`s buffer at
' the time. I.e nothing!) to a .WAV file. If you want to hear the speech
' before saving, use Speak_String and then Save_WAVFileEx.
'
' The clipboard TEXT contents can be saved as a WAV file if you
' USE_CLIPBOARD. 5000 is the default buffer size for text (add more
' if need be).
'
'Save_WAVFileEx("C:\\My Documents\\WAVFile1.wav",5000,USE_TEXT,VarPtr(stg$),CLEAR_TEXT_BUFFER,currentVoice,USE_DEFAULT_VOLUME,volume,USE_DEFINED_PITCH,&HBB,USE_DEFINED_SPEED,&HFF)


' The voice to use does not have to be the current voice. The buffer
' (text) and voiceNumber can be unique to this function or they can be
' the same as Speak_String()`s values. In other words. Either use
' Save_WAVFile() on its own (for simple text) or use Speak_String() for
' speech with more options.
'
'Save_WAVFile("C:\\My Documents\\WAVFile1.wav",currentVoice,VarPtr(stg$))
END SUB

sub speechdeinitialization
End_Speech     ' CleanUp the Speech (De-Initialize/Un-Initialize).
end sub

sub checkusespeech
if usespeech.checked=1 then 
usespeechwatchlist.checked=1
speechinitialization
exit sub
else 
usespeechwatchlist.checked=0
speechdeinitialization
exit sub
end if
end sub

sub checkusespeechwatchlist
if usespeechwatchlist.checked=1 then 
usespeech.checked=1
speechinitialization
exit sub
else 
usespeech.checked=0
speechdeinitialization
exit sub
end if
end sub

sub showspeechform
speechform.visible=1
end sub

SUB exportfileauto()    

dim expfilename as string
    expfilename=homepath+"\"+StripFileName(importedfile(displayedfile))
    expfilename=MID$(expfilename , 0 , LEN(expfilename) - 4) + "x" + tfmult.Text + ".csv"    
    
        DIM csvFile AS QFILESTREAM
        csvFile.open(expfilename , 65535) '65535 = fmCreate
        DIM csvi AS INTEGER
        DIM datecsv AS STRING
        DIM timecsv AS STRING
        DIM opencsv AS STRING
        DIM highcsv AS STRING
        DIM lowcsv AS STRING
        DIM closecsv AS STRING
        DIM volumecsv AS STRING

        SELECT CASE axistypecomboitemindex
            CASE 0 :
                FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                    datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                    timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                    opencsv = Grid.Cell(rowgridoffset + 3 , csvi)
                    highcsv = Grid.Cell(rowgridoffset + 4 , csvi)
                    lowcsv = Grid.Cell(rowgridoffset + 5 , csvi)
                    closecsv = Grid.Cell(rowgridoffset + 6 , csvi)
                    volumecsv = Grid.Cell(rowgridoffset + 7 , csvi)
                    csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
                NEXT csvi
            CASE 1 :
                FOR csvi = 1 TO chartbars(displayedfile) 'val(csvbars)
                    datecsv = Grid.Cell(rowgridoffset + 1 , csvi)
                    timecsv = Grid.Cell(rowgridoffset + 2 , csvi)
                    opencsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 3 , csvi))) , ffGeneral , 4 , 4)
                    highcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 4 , csvi))) , ffGeneral , 4 , 4)
                    lowcsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 5 , csvi))) , ffGeneral , 4 , 4)
                    closecsv = strf$(log10(VAL(Grid.Cell(rowgridoffset + 6 , csvi))) , ffGeneral , 4 , 4)
                    volumecsv = ROUND(log10(VAL(Grid.Cell(rowgridoffset + 7 , csvi))))
                    csvFile.WriteLine(datecsv + "," + timecsv + "," + opencsv + "," + highcsv + "," + lowcsv + "," + closecsv + "," + volumecsv)
                NEXT csvi
        END SELECT
        csvFile.close
    
END SUB

SUB exportcollectionauto()

    useindi.Checked = 0

    exportfileauto

    barsdisplayed.Text = "7"
    dispbarsok_click

    DIM jjj AS string :
    jjj = importedfile(displayedfile)
    DIM kkk AS INTEGER
    kkk = INSTR(0 , jjj , ".")
    DIM iii AS INTEGER
    DIM lll AS STRING
    FOR iii = kkk - 1 TO 0 STEP - 1
        lll = MID$(jjj , iii , 1)
        IF ASC(lll) < 48 OR ASC(lll) > 57 THEN
            EXIT FOR
        END IF
    NEXT iii
    DIM mmm AS STRING
    mmm = MID$(jjj , iii + 1)
    mmm = MID$(mmm , 0 , INSTR(0 , mmm , ".") - 1)

    SELECT CASE VAL(mmm)

        CASE 30 :
            tfmult.Text = "48"
            tfmultok_click
            exportfileauto
            tfmult.Text = "336"
            tfmultok_click
            exportfileauto

        CASE 60 :
            tfmult.Text = "24"
            tfmultok_click
            exportfileauto
            tfmult.Text = "168"
            tfmultok_click
            exportfileauto

        CASE 240 :
            tfmult.Text = "6"
            tfmultok_click
            exportfileauto
            tfmult.Text = "42"
            tfmultok_click
            exportfileauto

    END SELECT

END SUB

'===============================================================================
' STRIPFILENAME : Returns file name (without path)
Function StripFileName (fullname as string) as string
result = right$(fullname, len(fullname) - rinstr(fullname, "\"))
end function
'===============================================================================

sub updates
'InetIsOffline returns 0 if you're connected
DefInt A

A = InetIsOffLine(0)
If A = 0 Then
'Print "Connected To Internet"
Else
'Print "Not Connected to Internet"
showmessage "No internet connection"
exit sub
End If

DEFSTR url = "http://www.qchartist.net/updates/builds.txt?"+STR$(timeGetTime)

    DEFSTR outFileName = "builds.txt"

    CHDIR homepath + "\updates"

    IF GetFileHTTP(url , outFileName) THEN
        SHOWMESSAGE "Download Error : " & url
        EXIT SUB
    ELSE
        'SHOWMESSAGE "Download Finished & OK : " & URL
    END IF
    
DIM lastver AS STRING
DIM lastverfile AS QFILESTREAM
lastverfile.open(homepath + "\updates\builds.txt" , fmOpenRead)
do
lastver = lastverfile.ReadLine() 'Read an entire line
loop until lastverfile.eof
lastverfile.close  

if (val(QC_build)<val(lastver)) then
'using DateFromSerial
'DEFLNG yy, mm, dd,DayOfWeek
'DayOfWeek = DateFromSerial(val(lastver), yy, mm, dd)
'defstr lastverstr=str$(yy)+"-"+str$(mm)+"-"+str$(dd)
'showmessage "A new version of QChartist is available (your version: "+QC_version+", last version: "+lastver+")"+chr$(10)+"Go to http://www.qchartist.net to download it."
IF MessageDlg("A new version of QChartist is available (your build: "+QC_build+", last build: "+lastver+")"+chr$(10)+"Upgrade now?", mtConfirmation, mbYes OR mbNo, 0) = mrYes THEN
    '-- Upgrade
    run homepath+"\update.exe"
    run "c:\qchartist\qckill.exe"

end if

else
showmessage "Your already have the lastest version of QChartist (build: "+QC_build+")"
end if
end sub

sub fibofanstandardradioclickedsub
symetryfrompoint=0
end sub

sub fibofansymetryfrompointradioclickedsub
symetryfrompoint=1
end sub

sub fibofanpricemirrorradioclickedsub
symetryfrompoint=0
end sub

sub whatsnewsub

DEFSTR url = "http://www.qchartist.net/updates/readme.txt?"+STR$(timeGetTime)

    DEFSTR outFileName = "readme.txt"

    CHDIR homepath + "\updates"

    IF GetFileHTTP(url , outFileName) THEN
        SHOWMESSAGE "Download Error : " & url
        EXIT SUB
    ELSE
        'SHOWMESSAGE "Download Finished & OK : " & URL
    END IF
    
'dim whatsnewfile as qfilestream
    
'whatsnewfile.open (homepath + "\updates\readme.txt",fmopenread)
'dim whatsnewline as string

frmwhatsnew.visible=1

whatsnewedit.text=""
whatsnewedit.loadfromfile homepath + "\updates\readme.txt"

'do

'whatsnewline=whatsnewfile.readline
'whatsnewedit.text=whatsnewedit.text+whatsnewline+chr$(10)

'loop until whatsnewfile.eof    

'whatsnewfile.close

end sub

'-- ***********************************************************************'
sub FileCopy (FileSrc$, FileDst$) '- -----------------------------------'
'Andrew Shelkovenko dec 2003
'Copy FileSrc$ to FileDst$
' if path dest is not exists - create it.

dim FileSrc as QFileStream
dim FileDst as QFileStream
defstr dr$

dr$=StripPath (FileDst$) 
'print "dr$=" ,dr$

'MKDIR dr$ 'StripPath (FileDst$)

if dr$<>"" then
MKSubDir dr$
if DIREXISTS(dr$ ) =0 then showmessage ("FileCopy Can't create directory "+dr$ ): 'exit sub
end if

FileSrc.Open(FileSrc$, fmOpenRead) 
FileDst.Open(FileDst$, fmCreate) 

FileDst.CopyFrom  (FileSrc, 0)
        FileSrc.close
        FileDst.close
'print "FileCopy (";FileSrc$, FileDst$;") done" 
end sub

'===============================================================================
' STRIPPATH : Returns file path (without file name) 
Function StripPath (fullname as string) as string
result = left$(fullname, rinstr(fullname, "\"))
end function

'-- *****************************************************'
function MKSubDir (DirDst$) as short
'Andrew Shelkovenko dec 2003, jul 2004
'Create DirDst$ directory with full subdir structure
'----------------------------------------------
'print "MKSubDir DirDst$="; DirDst$
result=0
dim DirDst1$ as string
defint z1,z2
defstr SubDirDst$
DirDst1$=string$(len(DirDst$),"a") 
'chartooem DirDst$,DirDst1$ 
DirDst1$=DirDst$ 

if right$(DirDst1$,1)<>BkSl then DirDst1$=DirDst1$+BkSl 
z1=instr(DirDst1$,BkSl)
z2=0
while z1>0
SubDirDst$=left$(DirDst1$,z1 )
if DIREXISTS(SubDirDst$)=0 then MKDIR SubDirDst$ :'print "MKSubDir SubDirDst$=" ,SubDirDst$
z2=z1+1
z1=instr(z2,DirDst1$,BkSl)
wend

result=1
end function

declare sub datetest

sub hotkeysub

'For Cnthotkey = 0 To 255
'        If GetAsyncKeyState(Cnthotkey) <> 0 Then
'            print str$(Cnthotkey)
'            Exit sub
'        End If
'Next Cnthotkey

cnthotkey=82
If GetAsyncKeyState(Cnthotkey) <> 0 Then
'print "ok"
reimportfilesub
end if

cnthotkey=83
If GetAsyncKeyState(Cnthotkey) <> 0 Then
'print "ok"
defstr sndfreqstr=str$(400+ang_a_pub*3)
defstr snddurstr=str$(400)
cpptmpfuncreturn=varptr$(playsoundcpp(varptr(sndfreqstr),varptr(snddurstr)))
end if

cnthotkey=84
If GetAsyncKeyState(Cnthotkey) <> 0 Then
'showmessage str$(datetimeserial(0))
'defint zeroint=0
'showmessage varptr$(timebcpp(varptr(zeroint)))
cpptmpfuncreturn=Scilab_test()
end if

cnthotkey=32
If GetAsyncKeyState(Cnthotkey) <> 0 Then
'print "ok"
graphclicked
end if

end sub

sub chatformsub
chatform.visible=1
end sub

sub swephformsub
swephform.visible=1
end sub

sub chatformtimerexpired
if usernameedit.text="" then exit sub
'InetIsOffline returns 0 if you're connected
DefInt A

A = InetIsOffLine(0)
If A = 0 Then
'Print "Connected To Internet"
Else
'Print "Not Connected to Internet"
'showmessage "No internet connection"
exit sub
End If

DEFSTR url
DEFSTR outFileName

url = "http://www.qchartist.net/messages/user_alive.php?user="+usernameedit.text+"&"+STR$(timeGetTime)

    outFileName = "user_alive.txt"

    CHDIR homepath + "\chat"

    IF GetFileHTTP(url , outFileName) THEN
        'SHOWMESSAGE "Download Error : " & url
        EXIT SUB
    ELSE
        'SHOWMESSAGE "Download Finished & OK : " & URL
    END IF
    
 
url = "http://www.qchartist.net/messages/retreive_users.php?"+STR$(timeGetTime)

    outFileName = "retreive_users.txt"

    CHDIR homepath + "\chat"

    IF GetFileHTTP(url , outFileName) THEN
        'SHOWMESSAGE "Download Error : " & url
        EXIT SUB
    ELSE
        'SHOWMESSAGE "Download Finished & OK : " & URL
    END IF

usernameslist.clear   
DIM retuser AS STRING
DIM retuserfile AS QFILESTREAM
retuserfile.open(homepath + "\chat\retreive_users.txt" , fmOpenRead)
do
usernameslist.additems retuserfile.ReadLine() 'Read an entire line
loop until retuserfile.eof
retuserfile.close 

url = "http://www.qchartist.net/messages/read_messages.php?"+STR$(timeGetTime)

    outFileName = "read_messages.txt"

    CHDIR homepath + "\chat"

    IF GetFileHTTP(url , outFileName) THEN
        'SHOWMESSAGE "Download Error : " & url
        EXIT SUB
    ELSE
        'SHOWMESSAGE "Download Finished & OK : " & URL
    END IF

chatbox.clear   
DIM readmsg AS STRING
DIM readmsgfile AS QFILESTREAM
readmsgfile.open(homepath + "\chat\read_messages.txt" , fmOpenRead)
do
chatbox.text=chatbox.text+readmsgfile.ReadLine()+chr$(10) 'Read an entire line
loop until readmsgfile.eof
readmsgfile.close 
chatbox.selstart=len(chatbox.text)
end sub

sub chatformonshowsub
if usernameedit.text="" then
usernameedit.text="Guest"+STR$(timeGetTime)
end if
chatformtimerexpired
chatformtimer.enabled=1
end sub

sub chatformonclosesub
chatformtimer.enabled=0
end sub

sub sendmsgbtnonclicksub
if usernameedit.text="" then exit sub
if sendmsgedit.text="" then exit sub
'InetIsOffline returns 0 if you're connected
DefInt A

A = InetIsOffLine(0)
If A = 0 Then
'Print "Connected To Internet"
Else
'Print "Not Connected to Internet"
showmessage "No internet connection"
exit sub
End If

DEFSTR url
DEFSTR outFileName

url = "http://www.qchartist.net/messages/send_message.php?user="+usernameedit.text+"&message="+sendmsgedit.text+"&"+STR$(timeGetTime)

    outFileName = "send_message.txt"

    CHDIR homepath + "\chat"

    IF GetFileHTTP(url , outFileName) THEN
        'SHOWMESSAGE "Download Error : " & url
        EXIT SUB
    ELSE
        'SHOWMESSAGE "Download Finished & OK : " & URL
    END IF
    
sendmsgedit.text=""

chatformtimerexpired    

end sub

sub sendmsgeditkeydown(Key AS WORD)

IF Key = 13 then
sendmsgbtnonclicksub
CALL PeekMessage(MyMsg,NULL,WM_CHAR,WM_CHAR,PM_REMOVE) 'Remove message from queue
end if

end sub

function monthtostr(month as integer) as string
select case month
case 1: result="Jan"
case 2: result="Feb"
case 3: result="Mar"
case 4: result="Apr"
case 5: result="May"
case 6: result="Jun"
case 7: result="Jul"
case 8: result="Aug"
case 9: result="Sep"
case 10: result="Oct"
case 11: result="Nov"
case 12: result="Dec"
end select
end function

function strtomonth(str as string) as string
select case str
case "Jan": result="01"
case "Feb": result="02"
case "Mar": result="03"
case "Apr": result="04"
case "May": result="05"
case "Jun": result="06"
case "Jul": result="07"
case "Aug": result="08"
case "Sep": result="09"
case "Oct": result="10"
case "Nov": result="11"
case "Dec": result="12"
end select
end function

sub reimportfilesub
importfileauto(importedfile(displayedfile))
reimportfile()
end sub

sub pricescaleplusbtnclick
ymaxgraphglobal=ymaxgraphglobal/2
ymingraphglobal=ymingraphglobal/2
IF scrollchartpositionwait = 1 THEN
        IF scrollmodebtn.Flat = 0 THEN
            scrollmodebtn.Flat = 1
            scrollmodebtn.Color = &H88cc88
            scrollmode = 1
            Scrollchart.Enabled = 1
        END IF
        btnOnClick(drwBox)
    END IF
end sub

sub pricescaleminusbtnclick
ymaxgraphglobal=ymaxgraphglobal*2
ymingraphglobal=ymingraphglobal*2
IF scrollchartpositionwait = 1 THEN
        IF scrollmodebtn.Flat = 0 THEN
            scrollmodebtn.Flat = 1
            scrollmodebtn.Color = &H88cc88
            scrollmode = 1
            Scrollchart.Enabled = 1
        END IF
        btnOnClick(drwBox)
    END IF
end sub

' Sweph
Function outdeg(x As Double) As String
  defdbl fract = Abs(x) - Int(Abs(x))
  defdbl Min = Int(fract * 60)
  defdbl sec = fract * 3600 - Min * 60
  'result = Format(Sgn(x) * Int(Abs(x)), "###0") + "o" + Format(Min, "00") + "'" + Format(sec, "00.0000")
  defstr minstr=str$(min)
  if len(minstr)<2 then minstr="0"+minstr
  defstr secstr=replacesubstr$(Format$("%2.4f",sec),".",",")
  if len(mid$(secstr,1,instr(secstr,",")-1))<2 then secstr="0"+secstr
  result = str$(Sgn(x) * Int(Abs(x))) + "o" + minstr + "'" + secstr
End Function

Function outdeg3(x As Double) As String
  defdbl fract = Abs(x) - Int(Abs(x))
  defdbl Min = Int(fract * 60)
  defdbl sec = fract * 3600 - Min * 60
  'result = Format(Sgn(x) * Int(Abs(x)), "###0") + "o" + Format(Min, "00") + "'" + Format(sec, "00.0000")
  defstr hourstr=str$(Sgn(x) * Int(Abs(x)))
  if len(hourstr)=1 then hourstr="00"+hourstr
  if len(hourstr)=2 then hourstr="0"+hourstr  
  defstr minstr=str$(min)
  if len(minstr)<2 then minstr="0"+minstr
  defstr secstr=replacesubstr$(Format$("%2.4f",sec),".",",")
  if len(mid$(secstr,1,instr(secstr,",")-1))<2 then secstr="0"+secstr
  result = hourstr + "o" + minstr + "'" + secstr
End Function

' the DLL returns Null-terminated C strings; for VB the terminating NULL
' character must befound and the string length must be set accordingly
Function set_strlen(c$) As String
defint i = InStr(c$, Chr$(0))
If (i > 0) Then c$ = Left$(c$, i - 1)
result = c$
End Function

Sub bary_flag_Click()
 If bary_flag.checked=1 Then hel_flag.checked = 0
End Sub

Sub Compute_sweph_Click()
   
    Dim x(6) As Double
    Dim x2(6) As Double
    Dim cusp(13) As Double
    Dim ascmc(10) As Double
    Dim attr(20) As Double
    Dim tret(20) As Double
    Dim geopos(10) As Double
    Dim geoposx(10) As Double
    Dim xnasc(6) As Double
    Dim xndsc(6) As Double
    Dim xperi(6) As Double
    Dim xaphe(6) As Double
    Dim cal As Byte
    Dim o As orient
    Dim ss As String * 16
    cal = 103  ' g for gregorian calendar
    swephout.clear
    defdbl h = ihour + imin / 60
    'olen = LenB(ss)
    geopos(0) = lon
    geopos(1) = lat
    geopos(2) = 0
    
 ' the next two functions do the same job, converting a calendar date
 ' into a Julian day number
 ' swe_date_conversion() checks for legal dates while swe_julday() handles
 ' even illegal things like 45 Januar etc.

    defstr iyearstr,imonthstr,idaystr,hstr
    iyearstr=str$(iyear)
    imonthstr=str$(imonth)
    idaystr=str$(iday)
    hstr=str$(h)
    parameters=iyearstr+";"+imonthstr+";"+idaystr+";"+hstr+";1"
    defstr tjd_utstr=varptr$(swe_julday(varptr(parameters)))
    tjd_ut=val(tjd_utstr)
            
    parameters=iyearstr+";"+imonthstr+";"+idaystr+";"+hstr+";g;"+tjd_utstr
    defstr retvalstr=varptr$(swe_date_conversion(varptr(parameters)))
    deflng retval = val(retvalstr)

    If retval <> 0 Then
        showmessage "Illegal Date"
        Exit Sub
    End If        
    
    If et_flag.checked=1 Then
     defdbl tjd_et = tjd_ut
     defstr tjd_etstr=str$(tjd_et)
     tjd_ut = tjd_et - val(varptr$(swe_deltat(varptr(tjd_etstr))))
    Else    
     tjd_et = tjd_ut + val(varptr$(swe_deltat(varptr(tjd_utstr))))
    End If    
    
    defdbl t2 = tjd_ut - 2415018.5
    If t2 < 0 Then
      t2 = t2
    End If
    
    defstr tjd_ut_formated=Format$("%.8f", tjd_ut)
    defstr tjd_et_formated=Format$("%.8f", tjd_et)   
    
    defstr ut$
    
    'If is_equal(varptr(tjd_ut_formated),varptr(tjd_et_formated))=1 Then
    'If val(tjd_ut_formated)=val(tjd_et_formated) Then
    If tjd_ut=tjd_et Then
      ut$ = ""
      
    Else
      'ut$ = "  UT=" + Format(tjd_ut)
      ut$ = "  UT=" + tjd_ut_formated
    End If    
 
    swephout.text=swephout.text+"ET="+tjd_et_formated+" "+ ut$ + chr$(10)

    defint planet
     For planet = SE_SUN To SE_PLUTO_PICKERING
        deflng iflag = SEFLG_SPEED + SEFLG_SWIEPH
        If bary_flag.checked = 1 Then
            iflag = iflag + SEFLG_BARYCTR
        End If
        If hel_flag.checked = 1 Then
            iflag = iflag + SEFLG_HELCTR
        End If
        If is_j2000.checked = 1 Then
            iflag = iflag + SEFLG_J2000
        End If
        If Not is_apparent.checked = 1 Then
           iflag = iflag + SEFLG_TRUEPOS
        End If
        If is_sidereal.checked = 1 Then
           iflag = iflag + SEFLG_SIDEREAL
           'a = swe_set_sid_mode(SEFLG_SIDM_FAGAN_BRADLEY, 0, 0)
        End If
        defstr serr$ = String$(255, 0)
        defstr plnam$ = String$(20, 0)
        tjd_etstr=str$(tjd_et)
        defstr planetstr=str$(planet)
        defstr iflagstr=str$(iflag)
        defstr x0str=str$(x(0))
        parameters=tjd_etstr+";"+planetstr+";"+iflagstr
        defdbl ret_flag = val(varptr$(swe_calc(varptr(parameters),varptr(x(0)),varptr(serr$))))        

        serr$ = set_strlen(serr$)
        If ret_flag <> iflag And Len(serr$) > 0 Then
            swephout.text=swephout.text+"swe_calc reports: "+ serr$+chr$(10)
        End If

        parameters=planetstr+";"
        cpptmpfuncreturn=varptr$(swe_get_planet_name(varptr(parameters),varptr(plnam$)))

        plnam$ = set_strlen(plnam$)
        plnam$ = Left$(plnam$, 10)
        swephout.text=swephout.text+ plnam$+" "+ outdeg3(x(0))+" "+ outdeg(x(1))+"  "+ str$(x(2))+chr$(10)
        swephout.text=swephout.text+ plnam$+" "+ str$(x(0)* 0.017453)+" "+ str$(x(1)* 0.017453)+"  "+ str$(x(2))+chr$(10)

        If planet = SE_VESTA Then
          If add_hypo.checked = 0 Then Exit For
          planet = SE_CUPIDO    ' skip undefined planet numbers
          swephout.text=swephout.text+ ""
        End If
        'serr$ = String(255, 0)
        'retflag = swe_nod_aps_ut(tjd_ut, planet, iflag, 0, xnasc(0), xndsc(0), xperi(0), xaphe(0), serr$)
        'fMainForm.out.Print "  node", outdeg3(xnasc(0)), outdeg(xnasc(1)); "  ", xnasc(2)
        'serr$ = String(255, 0)
        'retflag = swe_rise_trans(tjd_ut, planet, "", 0, SE_CALC_RISE, geopos(0), 0, 0, tret(0), serr$)
        'fMainForm.out.Print "  rise", tret(0)
     Next planet
     ' if something was entered in the fixed star field, it is computed
     If Len(starname) > 0 Then
       serr$ = String$(255, "0")
       starname = starname + String$(40, "0")  ' make it at least 40 bytes
       'ret_flag = swe_fixstar(starname, tjd_et, iflag, x(0), serr$)
       serr$ = set_strlen(serr$)
       starname = set_strlen(starname)
       If ret_flag < 0 Then
         swephout.text=swephout.text+ "swe_fixstar() reports: "+ serr$
       Else
       swephout.text=swephout.text+ starname+" "+ outdeg3(x(0))+" "+ outdeg(x(1))+ "  "+ x(2)
       End If
     End If
     ' now come the houses
     If with_houses.checked=1 Then
       swephout.text=swephout.text+ ""
       'ret_flag = swe_houses_ex(tjd_ut, iflag, lat, lon, Asc("P"), cusp(0), ascmc(0))
       defint i
     For i = 1 To 12
        ' x(0) = cusp(i)
        ' x(1) = 0
        swephout.text=swephout.text+ "House "+" "+ i+" "+ outdeg3(cusp(i)) ' outdeg3(x(1)),
        If i Mod 3 = 0 Then swephout.text=swephout.text+ ""
       Next i
     End If
     'serr$ = String(255, 0)
     'ret_flag = swe_sol_eclipse_when_glob(tjd_ut, SEFLG_SWIEPH, 0, tret(0), 0, serr$)
     'serr$ = String(255, 0)
     'ret_flag = swe_sol_eclipse_where(tret(0), SEFLG_SWIEPH, geoposx(0), attr(0), serr$)
     'fMainForm.out.Print "eclipse "; ret_flag, tret(0), outdeg3(geoposx(0)), outdeg3(geopos(1)),
     'serr$ = String(255, 0)
     'ret_flag = swe_rise_trans(tjd_ut, SE_MOON, "", SEFLG_SWIEPH, SE_CALC_RISE, geopos(0), 1013.25, 10, tret(0), serr$)
     'fMainForm.out.Print "next rise of Moon "; ret_flag, tret(0), 'outdeg3(geoposx(0)), outdeg3(geopos(1)),
     'serr$ = String(255, 0)
     'retc = swe_time_equ(tjd_ut, tret(0), serr$)
     'fMainForm.out.Print " te", tret(0)
    'swe_close
End Sub

function get_helio_longitude(planet as integer,year as string,month as string,day as string,hour as string) as string
   
    Dim x(6) As Double
    Dim x2(6) As Double
    Dim cusp(13) As Double
    Dim ascmc(10) As Double
    Dim attr(20) As Double
    Dim tret(20) As Double
    Dim geopos(10) As Double
    Dim geoposx(10) As Double
    Dim xnasc(6) As Double
    Dim xndsc(6) As Double
    Dim xperi(6) As Double
    Dim xaphe(6) As Double
    Dim cal As Byte
    Dim o As orient
    Dim ss As String * 16
    cal = 103  ' g for gregorian calendar
    swephout.clear
    defdbl h = ihour + imin / 60
    'olen = LenB(ss)
    geopos(0) = lon
    geopos(1) = lat
    geopos(2) = 0
    
 ' the next two functions do the same job, converting a calendar date
 ' into a Julian day number
 ' swe_date_conversion() checks for legal dates while swe_julday() handles
 ' even illegal things like 45 Januar etc.

    defstr iyearstr,imonthstr,idaystr,hstr
    iyearstr=year 'str$(iyear)
    imonthstr=month 'str$(imonth)
    idaystr=day 'str$(iday)
    hstr=hour 'str$(h)
    parameters=iyearstr+";"+imonthstr+";"+idaystr+";"+hstr+";1"
    defstr tjd_utstr=varptr$(swe_julday(varptr(parameters)))
    tjd_ut=val(tjd_utstr)
            
    parameters=iyearstr+";"+imonthstr+";"+idaystr+";"+hstr+";g;"+tjd_utstr
    defstr retvalstr=varptr$(swe_date_conversion(varptr(parameters)))
    deflng retval = val(retvalstr)

    If retval <> 0 Then
        showmessage "Illegal Date"
        Exit Sub
    End If        
    
    'If et_flag.checked=1 Then
     defdbl tjd_et = tjd_ut
     defstr tjd_etstr=str$(tjd_et)
     tjd_ut = tjd_et - val(varptr$(swe_deltat(varptr(tjd_etstr))))
    'Else    
    ' tjd_et = tjd_ut + val(varptr$(swe_deltat(varptr(tjd_utstr))))
    'End If    
    
    defdbl t2 = tjd_ut - 2415018.5
    If t2 < 0 Then
      t2 = t2
    End If
    
    defstr tjd_ut_formated=Format$("%.8f", tjd_ut)
    defstr tjd_et_formated=Format$("%.8f", tjd_et)   
    
    defstr ut$
    
    'If is_equal(varptr(tjd_ut_formated),varptr(tjd_et_formated))=1 Then
    'If val(tjd_ut_formated)=val(tjd_et_formated) Then
    If tjd_ut=tjd_et Then
      ut$ = ""
      
    Else
      'ut$ = "  UT=" + Format(tjd_ut)
      ut$ = "  UT=" + tjd_ut_formated
    End If    
 
    'swephout.text=swephout.text+"ET="+tjd_et_formated+" "+ ut$ + chr$(10)

    'defint planet
     'For planet = SE_SUN To SE_PLUTO_PICKERING
        deflng iflag = SEFLG_SPEED + SEFLG_SWIEPH
        'If bary_flag.checked = 1 Then
        '    iflag = iflag + SEFLG_BARYCTR
        'End If
        'If hel_flag.checked = 1 Then
            iflag = iflag + SEFLG_HELCTR
        'End If
        'If is_j2000.checked = 1 Then
        '    iflag = iflag + SEFLG_J2000
        'End If
        'If Not is_apparent.checked = 1 Then
        '   iflag = iflag + SEFLG_TRUEPOS
        'End If
        'If is_sidereal.checked = 1 Then
        '   iflag = iflag + SEFLG_SIDEREAL
        '   'a = swe_set_sid_mode(SEFLG_SIDM_FAGAN_BRADLEY, 0, 0)
        'End If
        defstr serr$ = String$(255, 0)
        defstr plnam$ = String$(20, 0)
        tjd_etstr=str$(tjd_et)
        defstr planetstr=str$(planet)
        defstr iflagstr=str$(iflag)
        defstr x0str=str$(x(0))
        parameters=tjd_etstr+";"+planetstr+";"+iflagstr
        defdbl ret_flag = val(varptr$(swe_calc(varptr(parameters),varptr(x(0)),varptr(serr$))))        

        serr$ = set_strlen(serr$)
        If ret_flag <> iflag And Len(serr$) > 0 Then
            swephout.text=swephout.text+"swe_calc reports: "+ serr$+chr$(10)
        End If

        parameters=planetstr+";"
        cpptmpfuncreturn=varptr$(swe_get_planet_name(varptr(parameters),varptr(plnam$)))

        plnam$ = set_strlen(plnam$)
        plnam$ = Left$(plnam$, 10)
        'swephout.text=swephout.text+ plnam$+" "+ outdeg3(x(0))+" "+ outdeg(x(1))+"  "+ str$(x(2))+chr$(10)
        'swephout.text=swephout.text+ plnam$+" "+ str$(x(0)* 0.017453)+" "+ str$(x(1)* 0.017453)+"  "+ str$(x(2))+chr$(10)
        result=str$(x(0))

        'If planet = SE_VESTA Then
        '  If add_hypo.checked = 0 Then Exit For
        '  planet = SE_CUPIDO    ' skip undefined planet numbers
        '  swephout.text=swephout.text+ ""
        'End If
        'serr$ = String(255, 0)
        'retflag = swe_nod_aps_ut(tjd_ut, planet, iflag, 0, xnasc(0), xndsc(0), xperi(0), xaphe(0), serr$)
        'fMainForm.out.Print "  node", outdeg3(xnasc(0)), outdeg(xnasc(1)); "  ", xnasc(2)
        'serr$ = String(255, 0)
        'retflag = swe_rise_trans(tjd_ut, planet, "", 0, SE_CALC_RISE, geopos(0), 0, 0, tret(0), serr$)
        'fMainForm.out.Print "  rise", tret(0)
     'Next planet
     ' if something was entered in the fixed star field, it is computed
'     If Len(starname) > 0 Then
'       serr$ = String$(255, "0")
'       starname = starname + String$(40, "0")  ' make it at least 40 bytes
'       'ret_flag = swe_fixstar(starname, tjd_et, iflag, x(0), serr$)
'       serr$ = set_strlen(serr$)
'       starname = set_strlen(starname)
'       If ret_flag < 0 Then
'         swephout.text=swephout.text+ "swe_fixstar() reports: "+ serr$
'       Else
'       swephout.text=swephout.text+ starname+" "+ outdeg3(x(0))+" "+ outdeg(x(1))+ "  "+ x(2)
'       End If
'     End If
     ' now come the houses
'     If with_houses.checked=1 Then
'       swephout.text=swephout.text+ ""
'       'ret_flag = swe_houses_ex(tjd_ut, iflag, lat, lon, Asc("P"), cusp(0), ascmc(0))
'       defint i
'     For i = 1 To 12
'        ' x(0) = cusp(i)
'        ' x(1) = 0
'        swephout.text=swephout.text+ "House "+" "+ i+" "+ outdeg3(cusp(i)) ' outdeg3(x(1)),
'        If i Mod 3 = 0 Then swephout.text=swephout.text+ ""
'       Next i
'     End If
     'serr$ = String(255, 0)
     'ret_flag = swe_sol_eclipse_when_glob(tjd_ut, SEFLG_SWIEPH, 0, tret(0), 0, serr$)
     'serr$ = String(255, 0)
     'ret_flag = swe_sol_eclipse_where(tret(0), SEFLG_SWIEPH, geoposx(0), attr(0), serr$)
     'fMainForm.out.Print "eclipse "; ret_flag, tret(0), outdeg3(geoposx(0)), outdeg3(geopos(1)),
     'serr$ = String(255, 0)
     'ret_flag = swe_rise_trans(tjd_ut, SE_MOON, "", SEFLG_SWIEPH, SE_CALC_RISE, geopos(0), 1013.25, 10, tret(0), serr$)
     'fMainForm.out.Print "next rise of Moon "; ret_flag, tret(0), 'outdeg3(geoposx(0)), outdeg3(geopos(1)),
     'serr$ = String(255, 0)
     'retc = swe_time_equ(tjd_ut, tret(0), serr$)
     'fMainForm.out.Print " te", tret(0)
    'swe_close
End function

function get_geo_longitude(lat2 as double,lon2 as double,alt2 as double,planet as integer,year as string,month as string,day as string,hour as string) as string
   
    Dim x(6) As Double
    Dim x2(6) As Double
    Dim cusp(13) As Double
    Dim ascmc(10) As Double
    Dim attr(20) As Double
    Dim tret(20) As Double
    Dim geopos(10) As Double
    Dim geoposx(10) As Double
    Dim xnasc(6) As Double
    Dim xndsc(6) As Double
    Dim xperi(6) As Double
    Dim xaphe(6) As Double
    Dim cal As Byte
    Dim o As orient
    Dim ss As String * 16
    cal = 103  ' g for gregorian calendar
    swephout.clear
    defdbl h = ihour + imin / 60
    'olen = LenB(ss)
    geopos(0) = lon
    geopos(1) = lat
    geopos(2) = 0
    defstr latstr=str$(lat2)
    defstr lonstr=str$(lon2)
    defstr altstr=str$(alt2)        
    
 ' the next two functions do the same job, converting a calendar date
 ' into a Julian day number
 ' swe_date_conversion() checks for legal dates while swe_julday() handles
 ' even illegal things like 45 Januar etc.

    defstr iyearstr,imonthstr,idaystr,hstr
    iyearstr=year 'str$(iyear)
    imonthstr=month 'str$(imonth)
    idaystr=day 'str$(iday)
    hstr=hour 'str$(h)
    parameters=iyearstr+";"+imonthstr+";"+idaystr+";"+hstr+";1"
    defstr tjd_utstr=varptr$(swe_julday(varptr(parameters)))
    tjd_ut=val(tjd_utstr)
            
    parameters=iyearstr+";"+imonthstr+";"+idaystr+";"+hstr+";g;"+tjd_utstr
    defstr retvalstr=varptr$(swe_date_conversion(varptr(parameters)))
    deflng retval = val(retvalstr)

    If retval <> 0 Then
        showmessage "Illegal Date"
        Exit Sub
    End If        
    
    'If et_flag.checked=1 Then
     defdbl tjd_et = tjd_ut
     defstr tjd_etstr=str$(tjd_et)
     tjd_ut = tjd_et - val(varptr$(swe_deltat(varptr(tjd_etstr))))
    'Else    
    ' tjd_et = tjd_ut + val(varptr$(swe_deltat(varptr(tjd_utstr))))
    'End If    
    
    defdbl t2 = tjd_ut - 2415018.5
    If t2 < 0 Then
      t2 = t2
    End If
    
    defstr tjd_ut_formated=Format$("%.8f", tjd_ut)
    defstr tjd_et_formated=Format$("%.8f", tjd_et)   
    
    defstr ut$
    
    'If is_equal(varptr(tjd_ut_formated),varptr(tjd_et_formated))=1 Then
    'If val(tjd_ut_formated)=val(tjd_et_formated) Then
    If tjd_ut=tjd_et Then
      ut$ = ""
      
    Else
      'ut$ = "  UT=" + Format(tjd_ut)
      ut$ = "  UT=" + tjd_ut_formated
    End If    
 
    'swephout.text=swephout.text+"ET="+tjd_et_formated+" "+ ut$ + chr$(10)    

    'defint planet
     'For planet = SE_SUN To SE_PLUTO_PICKERING
        deflng iflag = SEFLG_SPEED + SEFLG_SWIEPH + SEFLG_TOPOCTR
        'If bary_flag.checked = 1 Then
        '    iflag = iflag + SEFLG_BARYCTR
        'End If
        'If hel_flag.checked = 1 Then
            'iflag = iflag + SEFLG_HELCTR
        'End If
        'If is_j2000.checked = 1 Then
        '    iflag = iflag + SEFLG_J2000
        'End If
        'If Not is_apparent.checked = 1 Then
        '   iflag = iflag + SEFLG_TRUEPOS
        'End If
        'If is_sidereal.checked = 1 Then
        '   iflag = iflag + SEFLG_SIDEREAL
        '   'a = swe_set_sid_mode(SEFLG_SIDM_FAGAN_BRADLEY, 0, 0)
        'End If
        defstr serr$ = String$(255, 0)
        defstr plnam$ = String$(20, 0)
        tjd_etstr=str$(tjd_et)
        defstr planetstr=str$(planet)
        defstr iflagstr=str$(iflag)
        defstr x0str=str$(x(0))
        parameters=lonstr+";"+latstr+";"+altstr+";"+tjd_etstr+";"+planetstr+";"+iflagstr
        defdbl ret_flag = val(varptr$(swe_set_topo_and_swe_calc(varptr(parameters),varptr(x(0)),varptr(serr$))))        

        serr$ = set_strlen(serr$)
        If ret_flag <> iflag And Len(serr$) > 0 Then
            swephout.text=swephout.text+"swe_calc reports: "+ serr$+chr$(10)
        End If

        parameters=planetstr+";"
        cpptmpfuncreturn=varptr$(swe_get_planet_name(varptr(parameters),varptr(plnam$)))

        plnam$ = set_strlen(plnam$)
        plnam$ = Left$(plnam$, 10)
        'swephout.text=swephout.text+ plnam$+" "+ outdeg3(x(0))+" "+ outdeg(x(1))+"  "+ str$(x(2))+chr$(10)
        'swephout.text=swephout.text+ plnam$+" "+ str$(x(0)* 0.017453)+" "+ str$(x(1)* 0.017453)+"  "+ str$(x(2))+chr$(10)
        result=str$(x(0))

        'If planet = SE_VESTA Then
        '  If add_hypo.checked = 0 Then Exit For
        '  planet = SE_CUPIDO    ' skip undefined planet numbers
        '  swephout.text=swephout.text+ ""
        'End If
        'serr$ = String(255, 0)
        'retflag = swe_nod_aps_ut(tjd_ut, planet, iflag, 0, xnasc(0), xndsc(0), xperi(0), xaphe(0), serr$)
        'fMainForm.out.Print "  node", outdeg3(xnasc(0)), outdeg(xnasc(1)); "  ", xnasc(2)
        'serr$ = String(255, 0)
        'retflag = swe_rise_trans(tjd_ut, planet, "", 0, SE_CALC_RISE, geopos(0), 0, 0, tret(0), serr$)
        'fMainForm.out.Print "  rise", tret(0)
     'Next planet
     ' if something was entered in the fixed star field, it is computed
'     If Len(starname) > 0 Then
'       serr$ = String$(255, "0")
'       starname = starname + String$(40, "0")  ' make it at least 40 bytes
'       'ret_flag = swe_fixstar(starname, tjd_et, iflag, x(0), serr$)
'       serr$ = set_strlen(serr$)
'       starname = set_strlen(starname)
'       If ret_flag < 0 Then
'         swephout.text=swephout.text+ "swe_fixstar() reports: "+ serr$
'       Else
'       swephout.text=swephout.text+ starname+" "+ outdeg3(x(0))+" "+ outdeg(x(1))+ "  "+ x(2)
'       End If
'     End If
     ' now come the houses
'     If with_houses.checked=1 Then
'       swephout.text=swephout.text+ ""
'       'ret_flag = swe_houses_ex(tjd_ut, iflag, lat, lon, Asc("P"), cusp(0), ascmc(0))
'       defint i
'     For i = 1 To 12
'        ' x(0) = cusp(i)
'        ' x(1) = 0
'        swephout.text=swephout.text+ "House "+" "+ i+" "+ outdeg3(cusp(i)) ' outdeg3(x(1)),
'        If i Mod 3 = 0 Then swephout.text=swephout.text+ ""
'       Next i
'     End If
     'serr$ = String(255, 0)
     'ret_flag = swe_sol_eclipse_when_glob(tjd_ut, SEFLG_SWIEPH, 0, tret(0), 0, serr$)
     'serr$ = String(255, 0)
     'ret_flag = swe_sol_eclipse_where(tret(0), SEFLG_SWIEPH, geoposx(0), attr(0), serr$)
     'fMainForm.out.Print "eclipse "; ret_flag, tret(0), outdeg3(geoposx(0)), outdeg3(geopos(1)),
     'serr$ = String(255, 0)
     'ret_flag = swe_rise_trans(tjd_ut, SE_MOON, "", SEFLG_SWIEPH, SE_CALC_RISE, geopos(0), 1013.25, 10, tret(0), serr$)
     'fMainForm.out.Print "next rise of Moon "; ret_flag, tret(0), 'outdeg3(geoposx(0)), outdeg3(geopos(1)),
     'serr$ = String(255, 0)
     'retc = swe_time_equ(tjd_ut, tret(0), serr$)
     'fMainForm.out.Print " te", tret(0)
    'swe_close
End function

function get_ascmc(lat2 as double,lon2 as double,year as string,month as string,day as string,hour as string,ascormc as string) as string
   
    Dim x(6) As Double
    Dim x2(6) As Double
    Dim cusp(13) As Double
    Dim ascmc(10) As Double
    Dim attr(20) As Double
    Dim tret(20) As Double
    Dim geopos(10) As Double
    Dim geoposx(10) As Double
    Dim xnasc(6) As Double
    Dim xndsc(6) As Double
    Dim xperi(6) As Double
    Dim xaphe(6) As Double
    Dim cal As Byte
    Dim o As orient
    Dim ss As String * 16
    cal = 103  ' g for gregorian calendar
    swephout.clear
    defdbl h = ihour + imin / 60
    'olen = LenB(ss)
    geopos(0) = lon
    geopos(1) = lat
    geopos(2) = 0
    defstr latstr=str$(lat2)
    defstr lonstr=str$(lon2)
    
 ' the next two functions do the same job, converting a calendar date
 ' into a Julian day number
 ' swe_date_conversion() checks for legal dates while swe_julday() handles
 ' even illegal things like 45 Januar etc.

    defstr iyearstr,imonthstr,idaystr,hstr
    iyearstr=year 'str$(iyear)
    imonthstr=month 'str$(imonth)
    idaystr=day 'str$(iday)
    hstr=hour 'str$(h)
    parameters=iyearstr+";"+imonthstr+";"+idaystr+";"+hstr+";1"
    defstr tjd_utstr=varptr$(swe_julday(varptr(parameters)))
    tjd_ut=val(tjd_utstr)
            
    parameters=iyearstr+";"+imonthstr+";"+idaystr+";"+hstr+";g;"+tjd_utstr
    defstr retvalstr=varptr$(swe_date_conversion(varptr(parameters)))
    deflng retval = val(retvalstr)

    If retval <> 0 Then
        showmessage "Illegal Date"
        Exit Sub
    End If        
    
    'If et_flag.checked=1 Then
     defdbl tjd_et = tjd_ut
     defstr tjd_etstr=str$(tjd_et)
     tjd_ut = tjd_et - val(varptr$(swe_deltat(varptr(tjd_etstr))))
     tjd_utstr=str$(tjd_ut)
    'Else    
    ' tjd_et = tjd_ut + val(varptr$(swe_deltat(varptr(tjd_utstr))))
    'End If    
    
    defdbl t2 = tjd_ut - 2415018.5
    If t2 < 0 Then
      t2 = t2
    End If
    
    defstr tjd_ut_formated=Format$("%.8f", tjd_ut)
    defstr tjd_et_formated=Format$("%.8f", tjd_et)   
    
    defstr ut$
    
    'If is_equal(varptr(tjd_ut_formated),varptr(tjd_et_formated))=1 Then
    'If val(tjd_ut_formated)=val(tjd_et_formated) Then
    If tjd_ut=tjd_et Then
      ut$ = ""
      
    Else
      'ut$ = "  UT=" + Format(tjd_ut)
      ut$ = "  UT=" + tjd_ut_formated
    End If    
 
    'swephout.text=swephout.text+"ET="+tjd_et_formated+" "+ ut$ + chr$(10)

    'defint planet
     'For planet = SE_SUN To SE_PLUTO_PICKERING
        deflng iflag = SEFLG_SPEED + SEFLG_SWIEPH
        'If bary_flag.checked = 1 Then
        '    iflag = iflag + SEFLG_BARYCTR
        'End If
        'If hel_flag.checked = 1 Then
            iflag = iflag + SEFLG_HELCTR
        'End If
        'If is_j2000.checked = 1 Then
        '    iflag = iflag + SEFLG_J2000
        'End If
        'If Not is_apparent.checked = 1 Then
        '   iflag = iflag + SEFLG_TRUEPOS
        'End If
        'If is_sidereal.checked = 1 Then
        '   iflag = iflag + SEFLG_SIDEREAL
        '   'a = swe_set_sid_mode(SEFLG_SIDM_FAGAN_BRADLEY, 0, 0)
        'End If
        defstr serr$ = String$(255, 0)
        defstr plnam$ = String$(20, 0)
        tjd_etstr=str$(tjd_et)
        defstr planetstr=str$(planet)
        defstr iflagstr=str$(iflag)
        defstr x0str=str$(x(0))
        parameters=tjd_etstr+";"+planetstr+";"+iflagstr
        'defdbl ret_flag = val(varptr$(swe_calc(varptr(parameters),varptr(x(0)),varptr(serr$))))        

        'serr$ = set_strlen(serr$)
        'If ret_flag <> iflag And Len(serr$) > 0 Then
        '    swephout.text=swephout.text+"swe_calc reports: "+ serr$+chr$(10)
        'End If

        'parameters=planetstr+";"
        'cpptmpfuncreturn=varptr$(swe_get_planet_name(varptr(parameters),varptr(plnam$)))

        'plnam$ = set_strlen(plnam$)
        'plnam$ = Left$(plnam$, 10)
        'swephout.text=swephout.text+ plnam$+" "+ outdeg3(x(0))+" "+ outdeg(x(1))+"  "+ str$(x(2))+chr$(10)
        'swephout.text=swephout.text+ plnam$+" "+ str$(x(0)* 0.017453)+" "+ str$(x(1)* 0.017453)+"  "+ str$(x(2))+chr$(10)
        'result=str$(x(0))

        'If planet = SE_VESTA Then
        '  If add_hypo.checked = 0 Then Exit For
        '  planet = SE_CUPIDO    ' skip undefined planet numbers
        '  swephout.text=swephout.text+ ""
        'End If
        'serr$ = String(255, 0)
        'retflag = swe_nod_aps_ut(tjd_ut, planet, iflag, 0, xnasc(0), xndsc(0), xperi(0), xaphe(0), serr$)
        'fMainForm.out.Print "  node", outdeg3(xnasc(0)), outdeg(xnasc(1)); "  ", xnasc(2)
        'serr$ = String(255, 0)
        'retflag = swe_rise_trans(tjd_ut, planet, "", 0, SE_CALC_RISE, geopos(0), 0, 0, tret(0), serr$)
        'fMainForm.out.Print "  rise", tret(0)
     'Next planet
     ' if something was entered in the fixed star field, it is computed
'     If Len(starname) > 0 Then
'       serr$ = String$(255, "0")
'       starname = starname + String$(40, "0")  ' make it at least 40 bytes
'       'ret_flag = swe_fixstar(starname, tjd_et, iflag, x(0), serr$)
'       serr$ = set_strlen(serr$)
'       starname = set_strlen(starname)
'       If ret_flag < 0 Then
'         swephout.text=swephout.text+ "swe_fixstar() reports: "+ serr$
'       Else
'       swephout.text=swephout.text+ starname+" "+ outdeg3(x(0))+" "+ outdeg(x(1))+ "  "+ x(2)
'       End If
'     End If
     ' now come the houses
'     If with_houses.checked=1 Then
'       swephout.text=swephout.text+ ""
iflag =0
iflagstr=str$(iflag)
'parameters=latstr+";"+lonstr+";"+tjd_utstr+";"+str$(asc("P"))
'defdbl ret_flag = val(varptr$(swe_houses(varptr(parameters),varptr(cusp(0)),varptr(ascmc(0)))))
parameters=latstr+";"+lonstr+";"+tjd_utstr+";"+iflagstr+";"+str$(asc("P"))
'defdbl ret_flag = val(varptr$(swe_houses(varptr(parameters),varptr(cusp(0)),varptr(ascmc(0)))))
defdbl ret_flag = val(varptr$(swe_houses_ex(varptr(parameters),varptr(cusp(0)),varptr(ascmc(0)))))
if ascormc="asc" then result=str$(ascmc(0))
if ascormc="mc" then result=str$(ascmc(1))
'       'ret_flag = swe_houses_ex(tjd_ut, iflag, lat, lon, Asc("P"), cusp(0), ascmc(0))
'       defint i
'     For i = 1 To 12
'        ' x(0) = cusp(i)
'        ' x(1) = 0
'        swephout.text=swephout.text+ "House "+" "+ i+" "+ outdeg3(cusp(i)) ' outdeg3(x(1)),
'        If i Mod 3 = 0 Then swephout.text=swephout.text+ ""
'       Next i
'     End If
     'serr$ = String(255, 0)
     'ret_flag = swe_sol_eclipse_when_glob(tjd_ut, SEFLG_SWIEPH, 0, tret(0), 0, serr$)
     'serr$ = String(255, 0)
     'ret_flag = swe_sol_eclipse_where(tret(0), SEFLG_SWIEPH, geoposx(0), attr(0), serr$)
     'fMainForm.out.Print "eclipse "; ret_flag, tret(0), outdeg3(geoposx(0)), outdeg3(geopos(1)),
     'serr$ = String(255, 0)
     'ret_flag = swe_rise_trans(tjd_ut, SE_MOON, "", SEFLG_SWIEPH, SE_CALC_RISE, geopos(0), 1013.25, 10, tret(0), serr$)
     'fMainForm.out.Print "next rise of Moon "; ret_flag, tret(0), 'outdeg3(geoposx(0)), outdeg3(geopos(1)),
     'serr$ = String(255, 0)
     'retc = swe_time_equ(tjd_ut, tret(0), serr$)
     'fMainForm.out.Print " te", tret(0)
    'swe_close
End function

Sub Day_Change()
 iday = Val(Day.Text)
End Sub

Sub swephformonshowsub()
    iday = 1
    imonth = 1
    iyear = 1997
    lon = 8
    lat = 47
End Sub

Sub fstar_Change()
 starname = fstar.Text
End Sub

Sub geolat_Change()
  lat = Val(geolat)
End Sub

Sub geolon_Change()
  lon = Val(geolon)
End Sub

Sub hel_flag_Click()
  If hel_flag.checked=1 Then bary_flag.checked = 0
End Sub

Sub hour_Change()
 ihour = Val(hour.Text)
End Sub

Sub minute_Change()
 imin = Val(minute.Text)
End Sub

Sub Month_Change()
imonth = Val(Month.Text)
End Sub

Sub Year_Change()
iyear = Val(Year.Text)
End Sub

sub datetest

defstr $mydate="2015;02;15;00;00;00"
cpptmpfuncreturn=varptr$(date_to_unix_time(varptr($mydate)))
defdbl myunixtime=val(cpptmpfuncreturn)+3600
defstr myunixtimestr=Format$("%12.0f", myunixtime)
cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(myunixtimestr)))
showmessage cpptmpfuncreturn
defstr year,month,day,hour,minute
year=mid$(cpptmpfuncreturn,0,4)
month=mid$(cpptmpfuncreturn,6,2)
day=mid$(cpptmpfuncreturn,9,2)
hour=mid$(cpptmpfuncreturn,12,2)
minute=mid$(cpptmpfuncreturn,15,2)
showmessage year+"-"+month+"-"+day+" "+hour+":"+minute

end sub

sub detect_timeframe

defstr year,month,day,hours,minutes,$mydate
defint i,j
defint n=5 ' number of successive different intervals of time to check from the bar 0
defdbl unix(n+1)

for i=0 to n

year=mid$(Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)-i),1,4)
month=mid$(Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)-i),6,2)
day=mid$(Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)-i),9,2)
hours=mid$(Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)-i),1,2)
minutes=mid$(Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)-i),4,2)

$mydate=year+";"+month+";"+day+";"+hours+";"+minutes+";"+"00"
cpptmpfuncreturn=varptr$(date_to_unix_time(varptr($mydate)))
unix(i)=val(cpptmpfuncreturn)

next i

defdbl unixdiff_minutes(n)
for i=0 to n-1
unixdiff_minutes(i)=(unix(i)-unix(i+1))/60
next i

defdbl real_tf
defint how_often(n),max_how_often=0
for j=0 to n-1
how_often(j)=1
for i=0 to n-1
if unixdiff_minutes(j)=unixdiff_minutes(i) and j<>i then how_often(j)=how_often(j)+1
next i
if how_often(j)>max_how_often then 
max_how_often=how_often(j)
real_tf=unixdiff_minutes(j)
end if
next j

charttf(displayedfile)=real_tf
displayedfilestr=str$(displayedfile):defstr charttfdisplayedfilestr=str$(charttf(displayedfile)):cpptmpfuncreturn=varptr$(setcharttf(varptr(charttfdisplayedfilestr),varptr(displayedfilestr)))
writetf(displayedfile,charttf(displayedfile))
defstr tftowritestr=str$(charttf(displayedfile)):cpptmpfuncreturn=varptr$(writetfcpp(varptr(tftowritestr)))

if charttf(displayedfile)<>1 and _
charttf(displayedfile)<>5 and _
charttf(displayedfile)<>15 and _
charttf(displayedfile)<>30 and _
charttf(displayedfile)<>60 and _
charttf(displayedfile)<>240 and _
charttf(displayedfile)<>1440 and _
charttf(displayedfile)<>10080 and _
charttf(displayedfile)<>43200 then
print "Warning: uncommon timeframe detected: unable to attribute a timeframe, indicators may not work correctly"
end if

end sub

sub addbars

DIM inputaddbars AS qinputbox , inputaddbarstxt AS STRING
inputaddbarstxt = inputaddbars.INPUT("How many bars to add?")
defint nbbarstoadd=val(inputaddbarstxt)

defint i

defstr year0,month0,day0,hours0,minutes0    
year0=mid$(Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)),1,4)
month0=mid$(Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)),6,2)
day0=mid$(Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)),9,2)
hours0=mid$(Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)),1,2)
minutes0=mid$(Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)),4,2)

defdbl myunixtime  
defstr myunixtimestr
defstr year,month,day,hour,minute  
    
defstr $mydate=year0+";"+month0+";"+day0+";"+hours0+";"+minutes0+";"+"00"
cpptmpfuncreturn=varptr$(date_to_unix_time(varptr($mydate)))
myunixtime=val(cpptmpfuncreturn)    
  
for i=chartbars(displayedfile)+1 to chartbars(displayedfile)+nbbarstoadd

myunixtime=myunixtime+charttf(displayedfile)*60

myunixtimestr=Format$("%12.0f", myunixtime)
cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(myunixtimestr)))

year=mid$(cpptmpfuncreturn,0,4)
month=mid$(cpptmpfuncreturn,6,2)
day=mid$(cpptmpfuncreturn,9,2)
hour=mid$(cpptmpfuncreturn,12,2)
minute=mid$(cpptmpfuncreturn,15,2)

Grid.Cell(rowgridoffset + 1 , i) = year+"."+month+"."+day
Grid.Cell(rowgridoffset + 2 , i) = hour+":"+minute
Grid.Cell(rowgridoffset + 3 , i) = Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile))
Grid.Cell(rowgridoffset + 4 , i) = Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile))
Grid.Cell(rowgridoffset + 5 , i) = Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile))
Grid.Cell(rowgridoffset + 6 , i) = Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile))
Grid.Cell(rowgridoffset + 7 , i) = "0"

next i    

chartbars(displayedfile) = chartbars(displayedfile)+nbbarstoadd
chartbarsdisplayedfilestr=str$(chartbars(displayedfile)):displayedfilestr=str$(displayedfile):cpptmpfuncreturn=varptr$(setchartbars(varptr(chartbarsdisplayedfilestr),varptr(displayedfilestr)))

exportfilename

Scrollchart.Max = chartbars(displayedfile)
    Scrollchart.Position = chartbars(displayedfile)
    chartstart = Scrollchart.Position - numbars
    btnOnClick(drwBox)

end sub

sub astrowheelsettingssub
astrowheelsettingsform.visible=1
end sub

sub formsq9showsub
formsq9.visible=1
end sub

sub premarketsub
defstr tmppath4 = CurDir$
CHDIR "c:\qchartist\csv\Pre_Market"
run "investing.exe"
CHDIR tmppath4
end sub

sub clockontimersub

clockdate=date$ ' MM-DD-YYYY
clocktime=time$ ' HH:MM:SS

end sub

sub symbolrefreshintervaleditonchange
quotetimer.interval=val(symbolrefreshintervaledit.text)
end sub

sub getquoteonoffbutonclick

if getquoteonoffbut.caption="Start" then
quotetimer.enabled=1
getquoteonoffbut.caption="Stop"
exit sub
end if

if getquoteonoffbut.caption="Stop" then
quotetimer.enabled=0
getquoteonoffbut.caption="Start"
end if

end sub

sub quoteontimersub

dim quotestream as qfilestream
defstr curquote=""
if currencytype.checked=1 then quotestream.open("c:\qchartist\csv\Alpha_Vantage\test15.txt",0)
if stocktype.checked=1 then quotestream.open("c:\qchartist\csv\Alpha_Vantage\test14.txt",0)
'quotestream.open("c:\qchartist\perl\scripts\quote.txt",0)

if currencytype.checked=1 then 
while not quotestream.eof
curquote=curquote+quotestream.readline
wend
end if
if stocktype.checked=1 then 
while not quotestream.eof
curquote=quotestream.readline
wend
end if
quotestream.close

DEFINT quoteloc 
defint filequoteloc
DEFSTR filequote = ""
filequote=curquote
    
if currencytype.checked=1 then
    filequoteloc = INSTR(filequote , chr$(34)+"5. Exchange Rate"+chr$(34)+": "+chr$(34))
    filequote = MID$(filequote , filequoteloc + 21,len(filequote))
    filequoteloc = INSTR(filequote , chr$(34))
    filequote = MID$(filequote , 0,filequoteloc-1)
    curquote=filequote
end if

if stocktype.checked=1 then
    filequoteloc = INSTR(filequote , ",")
    filequote = MID$(filequote , filequoteloc + 1,len(filequote))
    filequoteloc = INSTR(filequote , ",")
    filequote = MID$(filequote , filequoteloc + 1,len(filequote))
    filequoteloc = INSTR(filequote , ",")
    filequote = MID$(filequote , filequoteloc + 1,len(filequote))
    filequoteloc = INSTR(filequote , ",")
    filequote = MID$(filequote , filequoteloc + 1,len(filequote))
    filequoteloc = INSTR(filequote , ",")
    filequote = MID$(filequote , 0,filequoteloc-1)
    curquote=filequote
end if

if curquote<>"" then currentquote=curquote

btnOnClick(drwBox)

dim busystream as qfilestream
busystream.open("c:\qchartist\csv\Alpha_Vantage\isbusy.txt",0)
defstr isbusy=""
while not busystream.eof
isbusy=isbusy+busystream.readline
wend
busystream.close

defstr cur1=mid$(symboledit.text,1,3)
defstr cur2=mid$(symboledit.text,4,3)

if val(isbusy)=0 then
dim pid as long
defstr tmppath=curdir$
'chdir "c:\qchartist\perl\scripts"
chdir "c:\qchartist\csv\Alpha_Vantage"
'if like(platform,"*Wine*")=0 then
'if currencytype.checked=1 then pid=shell ("getcurrency.bat "+cur1+" "+cur2,0)
'if stocktype.checked=1 then pid=shell ("getstock.bat "+placecombobox.item(placecombobox.itemindex)+" "+symboledit.text,0)
'end if
'if like(platform,"*Wine*")=1 then
'if currencytype.checked=1 then pid=shell ("/bin/sh -c "+chr$(34)+"./getcurrency.sh "+cur1+" "+cur2+chr$(34),0)
'if stocktype.checked=1 then pid=shell ("/bin/sh -c "+chr$(34)+"./getstock.sh "+placecombobox.item(placecombobox.itemindex)+" "+symboledit.text+chr$(34),0)
'end if
if currencytype.checked=1 then pid=shell ("test15.bat "+cur1+" "+cur2+" "+alphavantageapikeyedit.text, 0)
if stocktype.checked=1 then pid=shell ("test14.bat "+symboledit.text+" "+alphavantageapikeyedit.text, 0)
'else
'showmessage "busy"
chdir tmppath
end if

end sub

sub previousbarbuttonclick

if astrowheelmarketbar>1 and getquoteonoffbut.caption="Start" and openedchartpriceradio.checked=1 then

astrowheelmarketbar=astrowheelmarketbar-1

defstr date=Grid.Cell(rowgridoffset + 1 , astrowheelmarketbar)
defstr time=Grid.Cell(rowgridoffset + 2 , astrowheelmarketbar)                    

defstr year,month,day,hour,minute

year=mid$(date,1,4)
month=mid$(date,6,2)
day=mid$(date,9,2)
specifydatecal.y=val(year)
specifydatecal.m=val(month)
specifydatecal.d=val(day)     
specifydatecal.panel2.caption=year+"-"+month+"-"+day
specifytimeedit.Text=time

btnOnClick(drwBox)

end if

end sub

sub nextbarbuttonclick

if astrowheelmarketbar<chartbars(displayedfile) and getquoteonoffbut.caption="Start" and openedchartpriceradio.checked=1 then

if astrowheelmarketbar=0 then btnOnClick(drwBox)

astrowheelmarketbar=astrowheelmarketbar+1

defstr date=Grid.Cell(rowgridoffset + 1 , astrowheelmarketbar)
defstr time=Grid.Cell(rowgridoffset + 2 , astrowheelmarketbar)                    

defstr year,month,day,hour,minute

year=mid$(date,1,4)
month=mid$(date,6,2)
day=mid$(date,9,2)
specifydatecal.y=val(year)
specifydatecal.m=val(month)
specifydatecal.d=val(day)
Dim pBuffer As String, ST As SYSTEMTIME     
specifydatecal.panel2.caption=year+"-"+month+"-"+day
specifytimeedit.Text=time

btnOnClick(drwBox)

end if

end sub

sub googlegetquotesub

IF dssource.ItemIndex = 2 THEN
    SELECT CASE dstimeframe.ItemIndex
        CASE 5  :
            SHOWMESSAGE "Google Finance supports only timeframes between 1M and 60M"
            dsok.Enabled = 1
            EXIT SUB
        CASE 6  :
            SHOWMESSAGE "Google Finance supports only timeframes between 1M and 60M"
            dsok.Enabled = 1
            EXIT SUB
        CASE 7  :
            SHOWMESSAGE "Google Finance supports only timeframes between 1M and 60M"
            dsok.Enabled = 1
            EXIT SUB
        CASE 8  :
            SHOWMESSAGE "Google Finance supports only timeframes between 1M and 60M"
            dsok.Enabled = 1
            EXIT SUB
    END SELECT
END IF

IF dssource.ItemIndex = 0 THEN
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            SHOWMESSAGE "Yahoo Finance real time supports only daily timeframe"
            dsok.Enabled = 1
            EXIT SUB
        CASE 1  :
            SHOWMESSAGE "Yahoo Finance real time supports only daily timeframe"
            dsok.Enabled = 1
            EXIT SUB
        CASE 2  :
            SHOWMESSAGE "Yahoo Finance real time supports only daily timeframe"
            dsok.Enabled = 1
            EXIT SUB
        CASE 3  :
            SHOWMESSAGE "Yahoo Finance real time supports only daily timeframe"
            dsok.Enabled = 1
            EXIT SUB
        CASE 4  :
            SHOWMESSAGE "Yahoo Finance real time supports only daily timeframe"
            dsok.Enabled = 1
            EXIT SUB
        CASE 5  :
            SHOWMESSAGE "Yahoo Finance real time supports only daily timeframe"
            dsok.Enabled = 1
            EXIT SUB
        CASE 7  :
            SHOWMESSAGE "Yahoo Finance real time supports only daily timeframe"
            dsok.Enabled = 1
            EXIT SUB
        CASE 8  :
            SHOWMESSAGE "Yahoo Finance real time supports only daily timeframe"
            dsok.Enabled = 1
            EXIT SUB            
    END SELECT
END IF

busystream.Open("c:\qchartist\csv\google\isbusy.txt" , fmCreate)
busystream.WriteLine("1")
busystream.Close

'dim pid as integer
'pid=shell ("getcurrency.bat EUR USD",1)
'goingto="readquote":busytimer.enabled=1

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\csv\google"

DIM pid AS INTEGER

DIM dstf AS STRING
SELECT CASE dstimeframe.ItemIndex
    CASE 0  :
        dstf = "1"
    CASE 1  :
        dstf = "5"
    CASE 2  :
        dstf = "15"
    CASE 3  :
        dstf = "30"
    CASE 4  :
        dstf = "60"
    CASE 5  :
        dstf = "240"
    CASE 6  :
        dstf = "1440"
    CASE 7  :
        dstf = "10080"
    CASE 8  :
        dstf = "43200"
END SELECT

IF googlerealtimecheckbox.Checked = 0 THEN
    pid = SHELL("getdata.bat " + STR$(VAL(dstf) * 60) + " " + googledaysbackedit.Text + " " + UCASE$(dssymboledit.Text) , 0)
ELSE
    pid = SHELL("getdata.bat " + STR$(1 * 60) + " " + googledaysbackedit.Text + " " + UCASE$(dssymboledit.Text) , 0)
    IF dssource.ItemIndex = 2 THEN pid = SHELL("getdata2.bat " + STR$(VAL(dstf) * 60) + " " + googledaysbackedit.Text + " " + UCASE$(dssymboledit.Text) , 0)
    IF dssource.ItemIndex = 0 THEN
        DEFINT A

        A = InetIsOffLine(0)
        IF A = 0 THEN
            'Print "Connected To Internet"
        ELSE
            'Print "Not Connected to Internet"
            SHOWMESSAGE "No internet connection"
            EXIT SUB
        END IF
        dsok.Enabled = 0
        DIM dsstartcalendarobjm AS STRING , dsstartcalendarobjd AS STRING , dsstartcalendarobjy AS STRING , dsendcalendarobjm AS STRING , dsendcalendarobjd AS STRING , dsendcalendarobjy AS STRING
        dsstartcalendarobjd = MID$(dsstartcalendarobj.Text , 4 , 2)
        dsstartcalendarobjm = MID$(dsstartcalendarobj.Text , 1 , 2)
        dsstartcalendarobjy = MID$(dsstartcalendarobj.Text , 7 , 4)
        dsendcalendarobjd = MID$(dsendcalendarobj.Text , 4 , 2)
        dsendcalendarobjm = MID$(dsendcalendarobj.Text , 1 , 2)
        dsendcalendarobjy = MID$(dsendcalendarobj.Text , 7 , 4)

        DEFSTR url
        IF dssource.ItemIndex = 0 THEN url = "http://ichart.finance.yahoo.com/table.csv?s=" + UCASE$(dssymboledit.Text) + "&a=" + dsstartcalendarobjm + "&b=" + dsstartcalendarobjd + "&c=" + dsstartcalendarobjy + "&d=" + dsendcalendarobjm + "&e=" + dsendcalendarobjd + "&f=" + dsendcalendarobjy + "&g=" + LCASE$(LEFT$(dstimeframe.Item(dstimeframe.ItemIndex) , 1)) + "&ignore=.csv"
        'if dssource.itemindex=1 then url = "http://stooq.com/q/d/l/?s=" + LCASE$(dssymboledit.Text) + "&d1="+dsstartcalendarobjy+dsstartcalendarobjm+dsstartcalendarobjd+"&d2="+dsendcalendarobjy+dsendcalendarobjm+dsendcalendarobjd+"&i="+ LCASE$(LEFT$(dstimeframe.Item(dstimeframe.ItemIndex) , 1))
        'if dssource.itemindex=2 then
        'googlegetquotesub
        'exit sub
        'end if
        DEFSTR outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"

        CHDIR homepath + "\csv"

        IF GetFileHTTP(url , outFileName) THEN
            SHOWMESSAGE "Download Error : " & url
            dsok.Enabled = 1
            EXIT SUB
        ELSE
            'PRINT "Download Finished & OK : " & URL
            'showmessage "Download Finished & OK : " & URL
            DIM filestream AS QFILESTREAM
            DEFSTR filecontentstr = ""
            filestream.Open(outFileName , 0)
            WHILE NOT filestream.eof
                filecontentstr = filecontentstr + filestream.ReadLine
            WEND
            IF VAL(barsdisplayed.Text) > filestream.LineCount - 1 AND LEN(filecontentstr) > 7 THEN barsdisplayed.Text = STR$(filestream.LineCount - 1)
            filestream.Close
            IF LEN(filecontentstr) < 8 THEN
                SHOWMESSAGE "Invalid symbol"
                dsok.Enabled = 1
                EXIT SUB
            END IF
            IF VAL(barsdisplayed.Text) < 1 THEN barsdisplayed.Text = "1"
        END IF
    END IF
END IF
googlegoingto = "googlereadquote"  :  googlebusytimer.Interval = 1000  :  googlebusytimer.Enabled = 1

CHDIR tmpdir

end sub




sub stooqgetdatasub

IF dssource.ItemIndex = 1 THEN
    SELECT CASE dstimeframe.ItemIndex
        CASE 5  :
            SHOWMESSAGE "Stooq does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 4  :
            SHOWMESSAGE "Stooq does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 3  :
            SHOWMESSAGE "Stooq does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 2  :
            SHOWMESSAGE "Stooq does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 1  :
            SHOWMESSAGE "Stooq does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 0  :
            SHOWMESSAGE "Stooq does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
    END SELECT
END IF

busystream.Open("c:\qchartist\csv\stooq\isbusy.txt" , fmCreate)
busystream.WriteLine("1")
busystream.Close

'dim pid as integer
'pid=shell ("getcurrency.bat EUR USD",1)
'goingto="readquote":busytimer.enabled=1

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\csv\stooq"

DIM pid AS INTEGER

DIM dstf AS STRING

SELECT CASE dstimeframe.ItemIndex
    CASE 0  :
        dstf = "1"
    CASE 1  :
        dstf = "5"
    CASE 2  :
        dstf = "15"
    CASE 3  :
        dstf = "30"
    CASE 4  :
        dstf = "60"
    CASE 5  :
        dstf = "240"
    CASE 6  :
        dstf = "1440"
    CASE 7  :
        dstf = "10080"
    CASE 8  :
        dstf = "43200"
END SELECT

DIM dsstartcalendarobjm AS STRING , dsstartcalendarobjd AS STRING , dsstartcalendarobjy AS STRING , dsendcalendarobjm AS STRING , dsendcalendarobjd AS STRING , dsendcalendarobjy AS STRING
        dsstartcalendarobjd = MID$(dsstartcalendarobj.Text , 4 , 2)
        dsstartcalendarobjm = MID$(dsstartcalendarobj.Text , 1 , 2)
        dsstartcalendarobjy = MID$(dsstartcalendarobj.Text , 7 , 4)
        dsendcalendarobjd = MID$(dsendcalendarobj.Text , 4 , 2)
        dsendcalendarobjm = MID$(dsendcalendarobj.Text , 1 , 2)
        dsendcalendarobjy = MID$(dsendcalendarobj.Text , 7 , 4)

dim yffilestream as qfilestream
yffilestream.Open("c:\qchartist\csv\stooq\test2.bat" , fmCreate)

IF googlerealtimecheckbox.Checked = 0 and (val(dstf)=1440 or val(dstf)=10080 or val(dstf)=43200) and dssource.ItemIndex = 1 THEN
    yffilestream.WriteLine("curl -k -o test2.txt "+chr$(34)+"https://stooq.com/q/d/l/"+chr$(34)+" -G -d "+chr$(34)+"s="+UCASE$(dssymboledit.Text)+"&i="+LCASE$(LEFT$(dstimeframe.Item(dstimeframe.ItemIndex),1))+"&d1="+dsstartcalendarobjy + dsstartcalendarobjm + dsstartcalendarobjd + "&d2="+dsendcalendarobjy + dsendcalendarobjm + dsendcalendarobjd+chr$(34))
END IF

yffilestream.WriteLine("echo 0 > isbusy.txt")
yffilestream.Close

pid = SHELL("test2.bat", 0)

'IF googlerealtimecheckbox.Checked = 0 and (val(dstf)=1440 or val(dstf)=10080 or val(dstf)=43200) and dssource.ItemIndex = 1 THEN
'    pid = SHELL("test2.bat " + UCASE$(dssymboledit.Text) + " " + LCASE$(LEFT$(dstimeframe.Item(dstimeframe.ItemIndex),1)) + " " + dsstartcalendarobjy + dsstartcalendarobjm + dsstartcalendarobjd + " " + dsendcalendarobjy + dsendcalendarobjm + dsendcalendarobjd, 0)
'END IF

if val(dstf)=1440 then stooqgoingto = "stooqreadquotedaily"  :  stooqbusytimer.Interval = 1000  :  stooqbusytimer.Enabled = 1
if val(dstf)=10080 then stooqgoingto = "stooqreadquotedaily"  :  stooqbusytimer.Interval = 1000  :  stooqbusytimer.Enabled = 1
if val(dstf)=43200 then stooqgoingto = "stooqreadquotedaily"  :  stooqbusytimer.Interval = 1000  :  stooqbusytimer.Enabled = 1
CHDIR tmpdir

end sub




sub alphavantagegetdatasub

IF dssource.ItemIndex = 3 THEN
    SELECT CASE dstimeframe.ItemIndex
        CASE 5  :
            SHOWMESSAGE "Alpha Vantage Stocks does not support 240M timeframe"
            dsok.Enabled = 1
            EXIT SUB
    END SELECT
END IF
IF dssource.ItemIndex = 4 THEN
    SELECT CASE dstimeframe.ItemIndex
        CASE 5  :
            SHOWMESSAGE "Alpha Vantage Forex does not support 240M timeframe"
            dsok.Enabled = 1
            EXIT SUB
    END SELECT
END IF
IF dssource.ItemIndex = 5 THEN    
    SELECT CASE dstimeframe.ItemIndex
        CASE 5  :
            SHOWMESSAGE "Alpha Vantage Cryptocurrencies does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 4  :
            SHOWMESSAGE "Alpha Vantage Cryptocurrencies does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 3  :
            SHOWMESSAGE "Alpha Vantage Cryptocurrencies does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 2  :
            SHOWMESSAGE "Alpha Vantage Cryptocurrencies does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 1  :
            SHOWMESSAGE "Alpha Vantage Cryptocurrencies does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
        CASE 0  :
            SHOWMESSAGE "Alpha Vantage Cryptocurrencies does not support intraday timeframes"
            dsok.Enabled = 1
            EXIT SUB
    END SELECT
END IF

busystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , fmCreate)
busystream.WriteLine("1")
busystream.Close

'dim pid as integer
'pid=shell ("getcurrency.bat EUR USD",1)
'goingto="readquote":busytimer.enabled=1

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\csv\alpha_vantage"

DIM pid AS INTEGER

DIM dstf AS STRING
SELECT CASE dstimeframe.ItemIndex
    CASE 0  :
        dstf = "1"
    CASE 1  :
        dstf = "5"
    CASE 2  :
        dstf = "15"
    CASE 3  :
        dstf = "30"
    CASE 4  :
        dstf = "60"
    CASE 5  :
        dstf = "240"
    CASE 6  :
        dstf = "1440"
    CASE 7  :
        dstf = "10080"
    CASE 8  :
        dstf = "43200"
END SELECT

IF googlerealtimecheckbox.Checked = 0 and val(dstf)<=60 and dssource.ItemIndex = 3 THEN
    pid = SHELL("test2.bat " + UCASE$(dssymboledit.Text) + " " + STR$(VAL(dstf)) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 3 THEN
    pid = SHELL("test4.bat " + UCASE$(dssymboledit.Text) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 3 THEN
    pid = SHELL("test5.bat " + UCASE$(dssymboledit.Text) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 3 THEN
    pid = SHELL("test6.bat " + UCASE$(dssymboledit.Text) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)<=60 and dssource.ItemIndex = 4 THEN
    pid = SHELL("test7.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + STR$(VAL(dstf)) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 4 THEN
    pid = SHELL("test8.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 4 THEN
    pid = SHELL("test9.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 4 THEN
    pid = SHELL("test10.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 5 THEN
    pid = SHELL("test11.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 5 THEN
    pid = SHELL("test12.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 5 THEN
    pid = SHELL("test13.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
END IF
if val(dstf)<=60 then alphavantagegoingto = "alphavantagereadquoteintraday"  :  alphavantagebusytimer.Interval = 1000  :  alphavantagebusytimer.Enabled = 1
if val(dstf)=1440 then alphavantagegoingto = "alphavantagereadquotedaily"  :  alphavantagebusytimer.Interval = 1000  :  alphavantagebusytimer.Enabled = 1
if val(dstf)=10080 then alphavantagegoingto = "alphavantagereadquoteweekly"  :  alphavantagebusytimer.Interval = 1000  :  alphavantagebusytimer.Enabled = 1
if val(dstf)=43200 then alphavantagegoingto = "alphavantagereadquotemonthly"  :  alphavantagebusytimer.Interval = 1000  :  alphavantagebusytimer.Enabled = 1
CHDIR tmpdir

end sub

sub finnhubgetdatasub

IF dssource.ItemIndex = 8 or dssource.ItemIndex = 9 THEN
    SELECT CASE dstimeframe.ItemIndex
        CASE 5  :
            SHOWMESSAGE "finnhub.io Stocks and cryptos do not support 240M timeframe"
            dsok.Enabled = 1
            EXIT SUB
    END SELECT
END IF

busystream.Open("c:\qchartist\csv\finnhub_get\isbusy.txt" , fmCreate)
busystream.WriteLine("1")
busystream.Close

'dim pid as integer
'pid=shell ("getcurrency.bat EUR USD",1)
'goingto="readquote":busytimer.enabled=1

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\csv\finnhub_get"

DIM pid AS INTEGER

DIM dstf AS STRING
SELECT CASE dstimeframe.ItemIndex
    CASE 0  :
        dstf = "1"
    CASE 1  :
        dstf = "5"
    CASE 2  :
        dstf = "15"
    CASE 3  :
        dstf = "30"
    CASE 4  :
        dstf = "60"
    CASE 5  :
        dstf = "240"
    CASE 6  :
        dstf = "1440"
    CASE 7  :
        dstf = "10080"
    CASE 8  :
        dstf = "43200"
END SELECT

defstr dstf2=dstf
if dstf2="1440" then dstf2="D"
if dstf2="10080" then dstf2="W"
if dstf2="43200" then dstf2="M"

defstr yfyearstart,yfmonthstart,yfdaystart,yfhourstart,yfminutestart
defstr yfyearend,yfmonthend,yfdayend,yfhourend,yfminuteend

yfyearstart=mid$(dsstartcalendarobj.text,7,4)
yfmonthstart=mid$(dsstartcalendarobj.text,1,2)
yfdaystart=mid$(dsstartcalendarobj.text,4,2)
yfhourstart=mid$(dsstartcalendarobj.text,12,2)
yfminutestart=mid$(dsstartcalendarobj.text,15,2)

yfyearend=mid$(dsendcalendarobj.text,7,4)
yfmonthend=mid$(dsendcalendarobj.text,1,2)
yfdayend=mid$(dsendcalendarobj.text,4,2)
yfhourend=mid$(dsendcalendarobj.text,12,2)
yfminuteend=mid$(dsendcalendarobj.text,15,2)

DEFSTR $mydatestartyf = yfyearstart + ";" + yfmonthstart + ";" + yfdaystart + ";" + yfhourstart + ";" + yfminutestart + ";" + "00"
defstr $mydatestartyfunixtime = VARPTR$(date_to_unix_time(VARPTR($mydatestartyf)))
$mydatestartyfunixtime=mid$($mydatestartyfunixtime,1,instr($mydatestartyfunixtime,".")-1)
'print $mydatestartyfunixtime

DEFSTR $mydateendyf = yfyearend + ";" + yfmonthend + ";" + yfdayend + ";" + yfhourend + ";" + yfminuteend + ";" + "00"
defstr $mydateendyfunixtime = VARPTR$(date_to_unix_time(VARPTR($mydateendyf)))
$mydateendyfunixtime=mid$($mydateendyfunixtime,1,instr($mydateendyfunixtime,".")-1)

dim yffilestream as qfilestream
IF dssource.ItemIndex = 8 then yffilestream.Open("c:\qchartist\csv\finnhub_get\test2.bat" , fmCreate)
IF dssource.ItemIndex = 9 then yffilestream.Open("c:\qchartist\csv\finnhub_get\crypto.bat" , fmCreate)

IF googlerealtimecheckbox.Checked = 0 and dssource.ItemIndex = 8 THEN
    yffilestream.WriteLine("curl -k -o test2.txt "+chr$(34)+"https://finnhub.io/api/v1/stock/candle"+chr$(34)+" -G -d "+chr$(34)+"symbol="+UCASE$(dssymboledit.Text)+"&resolution="+dstf2+"&token="+finnhubapikeyedit.Text+"&format=csv"+"&from="+$mydatestartyfunixtime + "&to="+$mydateendyfunixtime+chr$(34))
END IF

IF googlerealtimecheckbox.Checked = 0 and dssource.ItemIndex = 9 THEN
    yffilestream.WriteLine("curl -k -o crypto.txt "+chr$(34)+"https://finnhub.io/api/v1/crypto/candle"+chr$(34)+" -G -d "+chr$(34)+"symbol="+UCASE$(dssymboledit.Text)+"&resolution="+dstf2+"&token="+finnhubapikeyedit.Text+"&format=csv"+"&from="+$mydatestartyfunixtime + "&to="+$mydateendyfunixtime+chr$(34))
END IF

yffilestream.WriteLine("echo 0 > isbusy.txt")
yffilestream.Close

'IF googlerealtimecheckbox.Checked = 0 and val(dstf)>=1 and val(dstf)<=60 and dssource.ItemIndex = 8 THEN
'    pid = SHELL("test2.bat " + UCASE$(dssymboledit.Text) + " " + STR$(VAL(dstf)) + " " + finnhubapikeyedit.Text + " " + $mydatestartyfunixtime + " " + $mydateendyfunixtime, 0)
'END IF
'
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 8 THEN
'   pid = SHELL("test2.bat " + UCASE$(dssymboledit.Text) + " " + "D" + " " + finnhubapikeyedit.Text + " " + $mydatestartyfunixtime + " " + $mydateendyfunixtime, 0)
'END IF
'
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 8 THEN
'    pid = SHELL("test2.bat " + UCASE$(dssymboledit.Text) + " " + "W" + " " + finnhubapikeyedit.Text + " " + $mydatestartyfunixtime + " " + $mydateendyfunixtime, 0)
'END IF
'
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 8 THEN
'    pid = SHELL("test2.bat " + UCASE$(dssymboledit.Text) + " " + "M" + " " + finnhubapikeyedit.Text + " " + $mydatestartyfunixtime + " " + $mydateendyfunixtime, 0)
'END IF

'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 3 THEN
'    pid = SHELL("test4.bat " + UCASE$(dssymboledit.Text) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 3 THEN
'    pid = SHELL("test5.bat " + UCASE$(dssymboledit.Text) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 3 THEN
'    pid = SHELL("test6.bat " + UCASE$(dssymboledit.Text) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)<=60 and dssource.ItemIndex = 4 THEN
'    pid = SHELL("test7.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + STR$(VAL(dstf)) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 4 THEN
'    pid = SHELL("test8.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 4 THEN
'    pid = SHELL("test9.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 4 THEN
'    pid = SHELL("test10.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 5 THEN
'    pid = SHELL("test11.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 5 THEN
'    pid = SHELL("test12.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
'END IF
'IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 5 THEN
'    pid = SHELL("test13.bat " + UCASE$(mid$(dssymboledit.Text,1,3)) + " " + UCASE$(mid$(dssymboledit.Text,4,3)) + " " + alphavantageapikeyedit.Text, 0)
'END IF

IF dssource.ItemIndex = 8 then pid = SHELL("test2.bat", 0)
IF dssource.ItemIndex = 9 then pid = SHELL("crypto.bat", 0)

if val(dstf)<=60 then finnhubgoingto = "finnhubreadquoteintraday"  :  finnhubbusytimerget.Interval = 1000  :  finnhubbusytimerget.Enabled = 1
if val(dstf)=1440 then finnhubgoingto = "finnhubreadquoteintraday"  :  finnhubbusytimerget.Interval = 1000  :  finnhubbusytimerget.Enabled = 1
if val(dstf)=10080 then finnhubgoingto = "finnhubreadquoteintraday"  :  finnhubbusytimerget.Interval = 1000  :  finnhubbusytimerget.Enabled = 1
if val(dstf)=43200 then finnhubgoingto = "finnhubreadquoteintraday"  :  finnhubbusytimerget.Interval = 1000  :  finnhubbusytimerget.Enabled = 1
CHDIR tmpdir

end sub

sub yahoofinancegetdatasub

IF dssource.ItemIndex = 0 THEN
    SELECT CASE dstimeframe.ItemIndex
        CASE 5  :
            SHOWMESSAGE "Yahoo Finance does not support 240M timeframe"
            dsok.Enabled = 1
            EXIT SUB
    END SELECT
END IF

busystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , fmCreate)
busystream.WriteLine("1")
busystream.Close

'dim pid as integer
'pid=shell ("getcurrency.bat EUR USD",1)
'goingto="readquote":busytimer.enabled=1

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\csv\yahoo_finance"

DIM pid AS INTEGER

DIM dstf AS STRING
SELECT CASE dstimeframe.ItemIndex
    CASE 0  :
        dstf = "1"
    CASE 1  :
        dstf = "5"
    CASE 2  :
        dstf = "15"
    CASE 3  :
        dstf = "30"
    CASE 4  :
        dstf = "60"
    CASE 5  :
        dstf = "240"
    CASE 6  :
        dstf = "1440"
    CASE 7  :
        dstf = "10080"
    CASE 8  :
        dstf = "43200"
END SELECT

'defint yahoofinancecurrenttimestamp=val(varptr$(current_time()))
'defint yahoofinancecurrenttimestamponeminute=yahoofinancecurrenttimestamp-129600
'defint yahoofinancecurrenttimestampfiveminutes=yahoofinancecurrenttimestamp-800393
'defint yahoofinancecurrenttimestamp15minutes=yahoofinancecurrenttimestamp-2401181
'defint yahoofinancecurrenttimestamp30minutes=yahoofinancecurrenttimestamp-4802363
'defint yahoofinancecurrenttimestamphourly=yahoofinancecurrenttimestamp-6243071
'defint yahoofinancecurrenttimestampdaily=yahoofinancecurrenttimestamp-137894400
'defint yahoofinancecurrenttimestampweekly=yahoofinancecurrenttimestamp-160876800
'defint yahoofinancecurrenttimestampmonthly=yahoofinancecurrenttimestamp-689472000


defstr yfyearstart,yfmonthstart,yfdaystart,yfhourstart,yfminutestart
defstr yfyearend,yfmonthend,yfdayend,yfhourend,yfminuteend

yfyearstart=mid$(dsstartcalendarobj.text,7,4)
yfmonthstart=mid$(dsstartcalendarobj.text,1,2)
yfdaystart=mid$(dsstartcalendarobj.text,4,2)
yfhourstart=mid$(dsstartcalendarobj.text,12,2)
yfminutestart=mid$(dsstartcalendarobj.text,15,2)

yfyearend=mid$(dsendcalendarobj.text,7,4)
yfmonthend=mid$(dsendcalendarobj.text,1,2)
yfdayend=mid$(dsendcalendarobj.text,4,2)
yfhourend=mid$(dsendcalendarobj.text,12,2)
yfminuteend=mid$(dsendcalendarobj.text,15,2)

DEFSTR $mydatestartyf = yfyearstart + ";" + yfmonthstart + ";" + yfdaystart + ";" + yfhourstart + ";" + yfminutestart + ";" + "00"
defstr $mydatestartyfunixtime = VARPTR$(date_to_unix_time(VARPTR($mydatestartyf)))
$mydatestartyfunixtime=mid$($mydatestartyfunixtime,1,instr($mydatestartyfunixtime,".")-1)
'print $mydatestartyfunixtime

DEFSTR $mydateendyf = yfyearend + ";" + yfmonthend + ";" + yfdayend + ";" + yfhourend + ";" + yfminuteend + ";" + "00"
defstr $mydateendyfunixtime = VARPTR$(date_to_unix_time(VARPTR($mydateendyf)))
$mydateendyfunixtime=mid$($mydateendyfunixtime,1,instr($mydateendyfunixtime,".")-1)
'print $mydateendyfunixtime

'showmessage UCASE$(dssymboledit.Text)+" "+$mydatestartyfunixtime+" "+$mydateendyfunixtime

while dssymboledit.Text=""
    doevents
wend

'while displayedfile>0
'    doevents
'wend

dim yffilestream as qfilestream
yffilestream.Open("c:\qchartist\csv\yahoo_finance\yf1.bat" , fmCreate)

IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1 and dssource.ItemIndex = 0 THEN
    yffilestream.WriteLine("curl --connect-timeout 20 -m 20 -k -o yf1.txt "+chr$(34)+"https://query1.finance.yahoo.com/v8/finance/chart/"+UCASE$(dssymboledit.Text)+chr$(34)+" -G -d "+chr$(34)+"interval=1m&period1="+$mydatestartyfunixtime+"&period2="+$mydateendyfunixtime+chr$(34))
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=5 and dssource.ItemIndex = 0 THEN
    yffilestream.WriteLine("curl --connect-timeout 20 -m 20 -k -o yf1.txt "+chr$(34)+"https://query1.finance.yahoo.com/v8/finance/chart/"+UCASE$(dssymboledit.Text)+chr$(34)+" -G -d "+chr$(34)+"interval=5m&period1="+$mydatestartyfunixtime+"&period2="+$mydateendyfunixtime+chr$(34))
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=15 and dssource.ItemIndex = 0 THEN
    yffilestream.WriteLine("curl --connect-timeout 20 -m 20 -k -o yf1.txt "+chr$(34)+"https://query1.finance.yahoo.com/v8/finance/chart/"+UCASE$(dssymboledit.Text)+chr$(34)+" -G -d "+chr$(34)+"interval=15m&period1="+$mydatestartyfunixtime+"&period2="+$mydateendyfunixtime+chr$(34))
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=30 and dssource.ItemIndex = 0 THEN
    yffilestream.WriteLine("curl --connect-timeout 20 -m 20 -k -o yf1.txt "+chr$(34)+"https://query1.finance.yahoo.com/v8/finance/chart/"+UCASE$(dssymboledit.Text)+chr$(34)+" -G -d "+chr$(34)+"interval=30m&period1="+$mydatestartyfunixtime+"&period2="+$mydateendyfunixtime+chr$(34))
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=60 and dssource.ItemIndex = 0 THEN
    yffilestream.WriteLine("curl --connect-timeout 20 -m 20 -k -o yf1.txt "+chr$(34)+"https://query1.finance.yahoo.com/v8/finance/chart/"+UCASE$(dssymboledit.Text)+chr$(34)+" -G -d "+chr$(34)+"interval=1h&period1="+$mydatestartyfunixtime+"&period2="+$mydateendyfunixtime+chr$(34))
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 0 THEN
    yffilestream.WriteLine("curl --connect-timeout 20 -m 20 -k -o yf1.txt "+chr$(34)+"https://query1.finance.yahoo.com/v8/finance/chart/"+UCASE$(dssymboledit.Text)+chr$(34)+" -G -d "+chr$(34)+"interval=1d&period1="+$mydatestartyfunixtime+"&period2="+$mydateendyfunixtime+chr$(34))
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 0 THEN
yffilestream.WriteLine("curl --connect-timeout 20 -m 20 -k -o yf1.txt "+chr$(34)+"https://query1.finance.yahoo.com/v8/finance/chart/"+UCASE$(dssymboledit.Text)+chr$(34)+" -G -d "+chr$(34)+"interval=1wk&period1="+$mydatestartyfunixtime+"&period2="+$mydateendyfunixtime+chr$(34))
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 0 THEN
yffilestream.WriteLine("curl --connect-timeout 20 -m 20 -k -o yf1.txt "+chr$(34)+"https://query1.finance.yahoo.com/v8/finance/chart/"+UCASE$(dssymboledit.Text)+chr$(34)+" -G -d "+chr$(34)+"interval=1mo&period1="+$mydatestartyfunixtime+"&period2="+$mydateendyfunixtime+chr$(34))
END IF

yffilestream.WriteLine("echo 0 > isbusy.txt")
yffilestream.Close

pid = SHELL("yf1.bat", 0)

if val(dstf)<60 then yahoofinancegoingto = "yahoofinancereadquoteintraday"  :  yahoofinancebusytimer.Interval = 1000  :  yahoofinancebusytimer.Enabled = 1
if val(dstf)=60 then yahoofinancegoingto = "yahoofinancereadquoteintraday"  :  yahoofinancebusytimer.Interval = 1000  :  yahoofinancebusytimer.Enabled = 1
if val(dstf)=1440 then yahoofinancegoingto = "yahoofinancereadquoteintraday"  :  yahoofinancebusytimer.Interval = 1000  :  yahoofinancebusytimer.Enabled = 1
if val(dstf)=10080 then yahoofinancegoingto = "yahoofinancereadquoteintraday"  :  yahoofinancebusytimer.Interval = 1000  :  yahoofinancebusytimer.Enabled = 1
if val(dstf)=43200 then yahoofinancegoingto = "yahoofinancereadquoteintraday"  :  yahoofinancebusytimer.Interval = 1000  :  yahoofinancebusytimer.Enabled = 1
CHDIR tmpdir

end sub

sub tiingogetdatasub

'IF dssource.ItemIndex = 0 THEN
'    SELECT CASE dstimeframe.ItemIndex
'        CASE 5  :
'            SHOWMESSAGE "Yahoo Finance does not support 240M timeframe"
'            dsok.Enabled = 1
'            EXIT SUB
'    END SELECT
'END IF

busystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , fmCreate)
busystream.WriteLine("1")
busystream.Close

'dim pid as integer
'pid=shell ("getcurrency.bat EUR USD",1)
'goingto="readquote":busytimer.enabled=1

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\csv\tiingo"

DIM pid AS INTEGER

DIM dstf AS STRING
SELECT CASE dstimeframe.ItemIndex
    CASE 0  :
        dstf = "1"
    CASE 1  :
        dstf = "5"
    CASE 2  :
        dstf = "15"
    CASE 3  :
        dstf = "30"
    CASE 4  :
        dstf = "60"
    CASE 5  :
        dstf = "240"
    CASE 6  :
        dstf = "1440"
    CASE 7  :
        dstf = "10080"
    CASE 8  :
        dstf = "43200"
END SELECT

'defint yahoofinancecurrenttimestamp=val(varptr$(current_time()))
'defint yahoofinancecurrenttimestamponeminute=yahoofinancecurrenttimestamp-129600
'defint yahoofinancecurrenttimestampfiveminutes=yahoofinancecurrenttimestamp-800393
'defint yahoofinancecurrenttimestamp15minutes=yahoofinancecurrenttimestamp-2401181
'defint yahoofinancecurrenttimestamp30minutes=yahoofinancecurrenttimestamp-4802363
'defint yahoofinancecurrenttimestamphourly=yahoofinancecurrenttimestamp-6243071
'defint yahoofinancecurrenttimestampdaily=yahoofinancecurrenttimestamp-137894400
'defint yahoofinancecurrenttimestampweekly=yahoofinancecurrenttimestamp-160876800
'defint yahoofinancecurrenttimestampmonthly=yahoofinancecurrenttimestamp-689472000


defstr yfyearstart,yfmonthstart,yfdaystart,yfhourstart,yfminutestart
defstr yfyearend,yfmonthend,yfdayend,yfhourend,yfminuteend

yfyearstart=mid$(dsstartcalendarobj.text,7,4)
yfmonthstart=mid$(dsstartcalendarobj.text,1,2)
yfdaystart=mid$(dsstartcalendarobj.text,4,2)
yfhourstart=mid$(dsstartcalendarobj.text,12,2)
yfminutestart=mid$(dsstartcalendarobj.text,15,2)

yfyearend=mid$(dsendcalendarobj.text,7,4)
yfmonthend=mid$(dsendcalendarobj.text,1,2)
yfdayend=mid$(dsendcalendarobj.text,4,2)
yfhourend=mid$(dsendcalendarobj.text,12,2)
yfminuteend=mid$(dsendcalendarobj.text,15,2)

DEFSTR $mydatestartyf = yfyearstart + "-" + yfmonthstart + "-" + yfdaystart ' + ";" + yfhourstart + ";" + yfminutestart + ";" + "00"
'defstr $mydatestartyfunixtime = VARPTR$(date_to_unix_time(VARPTR($mydatestartyf)))
'$mydatestartyfunixtime=mid$($mydatestartyfunixtime,1,instr($mydatestartyfunixtime,".")-1)
'print $mydatestartyfunixtime

DEFSTR $mydateendyf = yfyearend + "-" + yfmonthend + "-" + yfdayend '+ ";" + yfhourend + ";" + yfminuteend + ";" + "00"
'defstr $mydateendyfunixtime = VARPTR$(date_to_unix_time(VARPTR($mydateendyf)))
'$mydateendyfunixtime=mid$($mydateendyfunixtime,1,instr($mydateendyfunixtime,".")-1)
'print $mydateendyfunixtime

'showmessage UCASE$(dssymboledit.Text)+" "+$mydatestartyfunixtime+" "+$mydateendyfunixtime

while dssymboledit.Text=""
    doevents
wend

'while displayedfile>0
'    doevents
'wend

IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t1.bat " + tiingoapikeyedit.text + " " + UCASE$(dssymboledit.Text) + " " + $mydatestartyf + " " + "1min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=5 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t1.bat " + tiingoapikeyedit.text + " " + UCASE$(dssymboledit.Text) + " " + $mydatestartyf + " " + "5min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=15 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t1.bat " + tiingoapikeyedit.text + " " + UCASE$(dssymboledit.Text) + " " + $mydatestartyf + " " + "15min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=30 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t1.bat " + tiingoapikeyedit.text + " " + UCASE$(dssymboledit.Text) + " " + $mydatestartyf + " " + "30min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=60 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t1.bat " + tiingoapikeyedit.text + " " + UCASE$(dssymboledit.Text) + " " + $mydatestartyf + " " + "60min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=240 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t1.bat " + tiingoapikeyedit.text + " " + UCASE$(dssymboledit.Text) + " " + $mydatestartyf + " " + "240min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t1.bat " + tiingoapikeyedit.text + " " + UCASE$(dssymboledit.Text) + " " + $mydatestartyf + " " + "1440min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t1.bat " + tiingoapikeyedit.text + " " + UCASE$(dssymboledit.Text) + " " + $mydatestartyf + " " + "10080min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 6 THEN
    pid = SHELL("t2.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + " " + $mydatestartyf + " " + $mydateendyf + " " + "monthly", 0)
END IF

if val(dstf)<60 then tiingogoingto = "tiingoreadquoteintraday"  :  tiingobusytimer.Interval = 1000  :  tiingobusytimer.Enabled = 1
if val(dstf)=60 then tiingogoingto = "tiingoreadquoteintraday"  :  tiingobusytimer.Interval = 1000  :  tiingobusytimer.Enabled = 1
if val(dstf)=240 then tiingogoingto = "tiingoreadquoteintraday"  :  tiingobusytimer.Interval = 1000  :  tiingobusytimer.Enabled = 1
if val(dstf)=1440 then tiingogoingto = "tiingoreadquoteintraday"  :  tiingobusytimer.Interval = 1000  :  tiingobusytimer.Enabled = 1
if val(dstf)=10080 then tiingogoingto = "tiingoreadquoteintraday"  :  tiingobusytimer.Interval = 1000  :  tiingobusytimer.Enabled = 1
if val(dstf)=43200 then tiingogoingto = "tiingoreadquoteintraday"  :  tiingobusytimer.Interval = 1000  :  tiingobusytimer.Enabled = 1
CHDIR tmpdir

end sub

sub tiingo_IEX_getdatasub

'IF dssource.ItemIndex = 0 THEN
'    SELECT CASE dstimeframe.ItemIndex
'        CASE 5  :
'            SHOWMESSAGE "Yahoo Finance does not support 240M timeframe"
'            dsok.Enabled = 1
'            EXIT SUB
'    END SELECT
'END IF

busystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , fmCreate)
busystream.WriteLine("1")
busystream.Close

'dim pid as integer
'pid=shell ("getcurrency.bat EUR USD",1)
'goingto="readquote":busytimer.enabled=1

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\csv\tiingo"

DIM pid AS INTEGER

DIM dstf AS STRING
SELECT CASE dstimeframe.ItemIndex
    CASE 0  :
        dstf = "1"
    CASE 1  :
        dstf = "5"
    CASE 2  :
        dstf = "15"
    CASE 3  :
        dstf = "30"
    CASE 4  :
        dstf = "60"
    CASE 5  :
        dstf = "240"
    CASE 6  :
        dstf = "1440"
    CASE 7  :
        dstf = "10080"
    CASE 8  :
        dstf = "43200"
END SELECT

'defint yahoofinancecurrenttimestamp=val(varptr$(current_time()))
'defint yahoofinancecurrenttimestamponeminute=yahoofinancecurrenttimestamp-129600
'defint yahoofinancecurrenttimestampfiveminutes=yahoofinancecurrenttimestamp-800393
'defint yahoofinancecurrenttimestamp15minutes=yahoofinancecurrenttimestamp-2401181
'defint yahoofinancecurrenttimestamp30minutes=yahoofinancecurrenttimestamp-4802363
'defint yahoofinancecurrenttimestamphourly=yahoofinancecurrenttimestamp-6243071
'defint yahoofinancecurrenttimestampdaily=yahoofinancecurrenttimestamp-137894400
'defint yahoofinancecurrenttimestampweekly=yahoofinancecurrenttimestamp-160876800
'defint yahoofinancecurrenttimestampmonthly=yahoofinancecurrenttimestamp-689472000


defstr yfyearstart,yfmonthstart,yfdaystart,yfhourstart,yfminutestart
defstr yfyearend,yfmonthend,yfdayend,yfhourend,yfminuteend

yfyearstart=mid$(dsstartcalendarobj.text,7,4)
yfmonthstart=mid$(dsstartcalendarobj.text,1,2)
yfdaystart=mid$(dsstartcalendarobj.text,4,2)
yfhourstart=mid$(dsstartcalendarobj.text,12,2)
yfminutestart=mid$(dsstartcalendarobj.text,15,2)

yfyearend=mid$(dsendcalendarobj.text,7,4)
yfmonthend=mid$(dsendcalendarobj.text,1,2)
yfdayend=mid$(dsendcalendarobj.text,4,2)
yfhourend=mid$(dsendcalendarobj.text,12,2)
yfminuteend=mid$(dsendcalendarobj.text,15,2)

DEFSTR $mydatestartyf = yfyearstart + "-" + yfmonthstart + "-" + yfdaystart ' + ";" + yfhourstart + ";" + yfminutestart + ";" + "00"
'defstr $mydatestartyfunixtime = VARPTR$(date_to_unix_time(VARPTR($mydatestartyf)))
'$mydatestartyfunixtime=mid$($mydatestartyfunixtime,1,instr($mydatestartyfunixtime,".")-1)
'print $mydatestartyfunixtime

DEFSTR $mydateendyf = yfyearend + "-" + yfmonthend + "-" + yfdayend '+ ";" + yfhourend + ";" + yfminuteend + ";" + "00"
'defstr $mydateendyfunixtime = VARPTR$(date_to_unix_time(VARPTR($mydateendyf)))
'$mydateendyfunixtime=mid$($mydateendyfunixtime,1,instr($mydateendyfunixtime,".")-1)
'print $mydateendyfunixtime

'showmessage UCASE$(dssymboledit.Text)+" "+$mydatestartyfunixtime+" "+$mydateendyfunixtime

while dssymboledit.Text=""
    doevents
wend

'while displayedfile>0
'    doevents
'wend

IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t1_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + "1min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=5 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t1_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + "5min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=15 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t1_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + "15min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=30 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t1_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + "30min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=60 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t1_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + "60min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=240 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t1_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + "240min", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=1440 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t2_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + $mydateendyf + " " + "daily", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=10080 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t2_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + $mydateendyf + " " + "weekly", 0)
END IF
IF googlerealtimecheckbox.Checked = 0 and val(dstf)=43200 and dssource.ItemIndex = 7 THEN
    pid = SHELL("t2_IEX.bat " + UCASE$(dssymboledit.Text) + " " + tiingoapikeyedit.text + " " + $mydatestartyf + " " + $mydateendyf + " " + "monthly", 0)
END IF

if val(dstf)<60 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday"  :  tiingo_IEX_busytimer.Interval = 1000  :  tiingo_IEX_busytimer.Enabled = 1
if val(dstf)=60 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday"  :  tiingo_IEX_busytimer.Interval = 1000  :  tiingo_IEX_busytimer.Enabled = 1
if val(dstf)=240 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday"  :  tiingo_IEX_busytimer.Interval = 1000  :  tiingo_IEX_busytimer.Enabled = 1
if val(dstf)=1440 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday"  :  tiingo_IEX_busytimer.Interval = 1000  :  tiingo_IEX_busytimer.Enabled = 1
if val(dstf)=10080 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday"  :  tiingo_IEX_busytimer.Interval = 1000  :  tiingo_IEX_busytimer.Enabled = 1
if val(dstf)=43200 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday"  :  tiingo_IEX_busytimer.Interval = 1000  :  tiingo_IEX_busytimer.Enabled = 1
CHDIR tmpdir

end sub


SUB alphavantagesearchsymbolbusytimersub
DIM alphavantagebusystream AS QFILESTREAM
IF alphavantagegoingto = "alphavantagereadsearchresult" THEN alphavantagebusystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , 0)
    
DEFSTR isbusy = ""
    WHILE NOT alphavantagebusystream.eof
        isbusy = isbusy + alphavantagebusystream.ReadLine
    WEND
    alphavantagebusystream.Close

IF VAL(isbusy) = 0 THEN

        alphavantagesearchsymbolbusytimer.Enabled = 0
        SELECT CASE alphavantagegoingto

            CASE "alphavantagereadsearchresult"
                GOTO alphavantagereadsearchresult                            
        END SELECT

    END IF

    EXIT SUB

alphavantagereadsearchresult :

DIM filestream AS QFILESTREAM
DEFSTR filestr = ""
 filestream.Open("c:\qchartist\csv\alpha_vantage\test3.txt" , 0)
filestr = ""
    defstr filestreamlinecoun
    alphavantagesearchsymbolrichedit.clear
    WHILE NOT filestream.eof
        alphavantagesearchsymbolrichedit.AddString filestream.ReadLine
        DOEVENTS
    WEND

    filestream.Close
    alphavantagesearchsymbolbutton.enabled=1
    GOTO endlabel
    
endlabel :

end sub

SUB alphavantagebusytimersub

'defint pid
    DIM alphavantagebusystream AS QFILESTREAM
    IF alphavantagegoingto = "alphavantagereadquoteintraday" THEN alphavantagebusystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , 0)
    IF alphavantagegoingto = "alphavantagereadquotedaily" THEN alphavantagebusystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , 0)
    IF alphavantagegoingto = "alphavantagereadquoteweekly" THEN alphavantagebusystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , 0)
    IF alphavantagegoingto = "alphavantagereadquotemonthly" THEN alphavantagebusystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , 0)
    'IF alphavantagegoingto = "googlereadlastquote" THEN googlebusystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , 0)
    DEFSTR isbusy = ""
    WHILE NOT alphavantagebusystream.eof
        isbusy = isbusy + alphavantagebusystream.ReadLine
    WEND
    alphavantagebusystream.Close

    'IF googlegoingto = "googlereadquote" AND googlerealtimecheckbox.Checked = 1 THEN
    '    googlebusystream.Open("c:\qchartist\csv\google\isbusy2.txt" , 0)
    '    DEFSTR isbusy2 = ""
    '    WHILE NOT googlebusystream.eof
    '        isbusy2 = isbusy2 + googlebusystream.ReadLine
    '    WEND
    '    googlebusystream.Close
    'END IF

    'IF googlerealtimecheckbox.Checked = 1 AND VAL(isbusy2) = 1 THEN EXIT SUB

    IF VAL(isbusy) = 0 THEN

        alphavantagebusytimer.Enabled = 0
        SELECT CASE alphavantagegoingto

            CASE "alphavantagereadquoteintraday"
                GOTO alphavantagereadquoteintraday
            CASE "alphavantagereadquotedaily"
                GOTO alphavantagereadquotedaily
            CASE "alphavantagereadquoteweekly"
                GOTO alphavantagereadquoteweekly
            CASE "alphavantagereadquotemonthly"
                GOTO alphavantagereadquotemonthly
                'case "googlereadlastquote"
                'goto googlereadlastquote

        END SELECT

    END IF

    EXIT SUB

    alphavantagereadquoteintraday :
    'showmessage "0"
    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT
    'showmessage "1"
    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    DEFSTR dstfreal = dstf
    '    dstf = "1"
    'END IF

    'DEFSTR currentime00 = VARPTR$(current_time())
    'DEFSTR ft00 = VARPTR$(unix_time_to_date(VARPTR(currentime00)))
    'DEFSTR year00 = MID$(ft00 , 21 , 4)
    'DEFSTR month00 = MID$(ft00 , 5 , 3)
    'DEFSTR day00 = MID$(ft00 , 9 , 2)
    'DEFSTR hour00 = MID$(ft00 , 12 , 2)
    'DEFSTR minute00 = MID$(ft00 , 15 , 2)

    'if val(dstf)<>1 and googlerealtimecheckbox.checked=1 then
    'showmessage "Realtime mode only works for 1M timeframe until now. Please choose 1M instead."
    'dsok.enabled=1
    'exit sub
    'end if

    'if dstf="1" then
    'IF VAL(MID$(TIME$ , 7 , 2)) > 10 AND googlerealtimecheckbox.Checked = 1 THEN
    '    clock.Visible = 1
    '    timclock.Enabled = 1
    '    pleasewaitclocklabel.Caption = "Please wait " + STR$(60 - VAL(MID$(TIME$ , 7 , 2))) + "s"
    '    googlegoingto = "googlereadquote" : googlebusytimer.Enabled = 1
    '    EXIT SUB
    'END IF
    'end if

    DIM filestream AS QFILESTREAM
    'filestream.Open("c:\qchartist\csv\google\connection_status.log" , 0)
    DEFSTR filestr = ""
    'WHILE NOT filestream.eof
    '    filestr = filestr + filestream.ReadLine
    'WEND
    'filestream.Close
    'check if connection exists
    'IF like(filestr , "*80... connected*200 OK*") = 0 THEN
    '    PRINT "Can't connect to Google Finance"
    '    googlerealtimecheckbox.Checked = 0
    '    dsok.Enabled = 1
    '    'googlerealtimebusytimer.enabled=0
    '    EXIT SUB
    'END IF

    'googlecurrenttimestamp = VAL(VARPTR$(current_time())) 'val(Format$("%.8f",varptr$(current_time())))

    if dssource.ItemIndex = 3 then filestream.Open("c:\qchartist\csv\alpha_vantage\test2.txt" , 0)
    if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
    'if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test2.txt" , 0)
    'filestr = ""
    'defstr filestreamlinecoun
   ' WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 THEN
        if filestream.size<1000 then
        PRINT "Invalid symbol or > 5 calls per minute and 500 calls per day"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        filestream.Close
        EXIT SUB
        END IF
        'IF like(filestr , "*Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency.*") = 1 THEN
        'PRINT "Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency."
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        ''googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'END IF
        'DOEVENTS
    'WEND
    'filestreamlinecount=filestream.linecount
    filestream.Close
    'showmessage "2"
    'IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
    '    'showmessage "realtime"
    'END IF
    

    
    DEFSTR outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"
    DEFINT lineloop = 0
    if dssource.ItemIndex = 3 then filestream.Open("c:\qchartist\csv\alpha_vantage\test2.txt" , 0)
    if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
    DIM filestream2 AS QFILESTREAM
    filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
    'filestr = ""
    DEFSTR fileline = ""
    'filestream.Close
    filestream2.Close
    filestream2.Open("c:\qchartist\csv\" + outFileName , fmOpenReadWrite)
    'showmessage "3"
    dim alphavantagearrtmp(0 TO 100000) as string
     DIM avincr as integer
     avincr=-1
     DO
         avincr++
         alphavantagearrtmp(avincr) = filestream.ReadLine
     LOOP UNTIL filestream.eof
     filestream.close
     'showmessage "4"
     dim avincr2 as integer
     defint secondsfind,secondsfind2
     defstr avpart1,avpart2
     'showmessage "5"
     for avincr2=avincr to 1 step -1
     'showmessage alphavantagearrtmp(avincr2)
     alphavantagearrtmp(avincr2)=replacesubstr$(alphavantagearrtmp(avincr2)," ",",")
     alphavantagearrtmp(avincr2)=replacesubstr$(alphavantagearrtmp(avincr2),"-",".")
     secondsfind=instr(alphavantagearrtmp(avincr2),":")
     'showmessage str$(secondsfind)
     secondsfind2=instr(secondsfind+1,alphavantagearrtmp(avincr2),":")
     'showmessage str$(secondsfind2)
     avpart1=mid$(alphavantagearrtmp(avincr2),1,secondsfind2-1)
     'showmessage avpart1
     avpart2=mid$(alphavantagearrtmp(avincr2),secondsfind2+3,len(alphavantagearrtmp(avincr2)))
     'showmessage avpart2
     alphavantagearrtmp(avincr2)=avpart1+avpart2
     if dssource.ItemIndex = 4 then alphavantagearrtmp(avincr2)=alphavantagearrtmp(avincr2)+",1"
     filestream2.writeline(alphavantagearrtmp(avincr2))
     next avincr2
     'showmessage "6"
     'filestream.close
     'showmessage "7"
     filestream2.close     
    'showmessage "8"
    'WHILE NOT filestream.eof

    'WHILE NOT filestream.eof

    '    fileline = filestream.ReadLine
    '    lineloop ++

    '    IF lineloop > 7 THEN


    '        IF MID$(fileline , 1 , 1) = "a" THEN
    '            DEFINT comaposition = INSTR(fileline , ",")
    '            DEFINT comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '            DEFINT comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '            DEFINT comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '            DEFINT comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '            DEFSTR closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '            DEFSTR highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '            DEFSTR lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '            DEFSTR openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '            DEFSTR volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '            DEFSTR ut = MID$(fileline , 2 , comaposition - 2)
    '            DEFSTR ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '            DEFSTR year , month , day , hour , minute
    '            year = MID$(ft , 21 , 4)
    '            month = MID$(ft , 5 , 3)
    '            day = MID$(ft , 9 , 2)
    '            hour = MID$(ft , 12 , 2)
    '            minute = MID$(ft , 15 , 2)
    '            ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '            fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '        ELSE
    '            IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                comaposition = INSTR(fileline , ",")
    '                comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                DEFSTR nb = MID$(fileline , 1 , comaposition - 1)
    '                DEFSTR utn = Format$("%.8f" , VAL(ut) + (VAL(dstf) * 60) * VAL(nb))
    '                ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                year = MID$(ft , 21 , 4)
    '                month = MID$(ft , 5 , 3)
    '                day = MID$(ft , 9 , 2)
    '                hour = MID$(ft , 12 , 2)
    '                minute = MID$(ft , 15 , 2)
    '                ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '            END IF

    '        END IF
    '        IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '    END IF
        'lineloop++
        'DOEVENTS
    'WEND

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    DEFINT currt = VAL(VARPTR$(current_time()))
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        DEFSTR nextutn = STR$(VAL(utn) + VAL(dstf) * 60)
    '        DEFSTR nextutn2 = Format$("%.8f" , VAL(nextutn))
    '        DEFSTR nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '        DEFSTR nextyear = MID$(nextft , 21 , 4)
    '        DEFSTR nextmonth = MID$(nextft , 5 , 3)
    '        DEFSTR nextday = MID$(nextft , 9 , 2)
    '        DEFSTR nexthour = MID$(nextft , 12 , 2)
    '        DEFSTR nextminute = MID$(nextft , 15 , 2)
    '        nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '        DEFSTR nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '        filestream2.WriteLine(nextfileline)
    '    END IF
    '    IF currt - VAL(dstf) * 60 > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        googlerealtimecheckbox.Checked = 0
    '        SHOWMESSAGE "US market closed"
    '        clock.Visible = 0
    '        timclock.Enabled = 0
    '    END IF
    'END IF

    'filestream.Close
    'filestream2.Close

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        'defdbl quotenexttimestamp1=val(nextutn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'defdbl quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+(val(utn)+60)
    '        quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstf)
    '    ELSE
    '        'quotenexttimestamp1=val(utn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+val(utn)
    '        quotenexttimestamp = VAL(utn) + 60 * VAL(dstf)
    '    END IF
    'END IF

    'print utn
    'print str$(quotenexttimestamp)

    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    'IF filestream.LineCount = 0 THEN
        'IF googlerealtimecheckbox.Checked = 1 THEN
        '    filestream.Close
        '    'googlereadlastquotetimestamp=val(varptr$(current_time()))
        '    firstfilevol = 1
        '    googlegetquotesub
        '    PRINT "no data"
        '    EXIT SUB
        'END IF
    'END IF
    filestream.Close

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")
    'ELSE

    '    importfile1m("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")


    '   IF dssource.ItemIndex = 2 THEN

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        filestr = ""
    '        WHILE NOT filestream.eof
    '            filestr = filestr + filestream.ReadLine
    '            DOEVENTS
    '        WEND
    '        filestream.Close
    '        IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
    '            'showmessage "realtime"
    '        END IF
    '        IF like(filestr , "*a*") = 0 THEN
    '            PRINT "Invalid symbol"
    '            dsok.Enabled = 1
    '            'googlerealtimebusytimer.enabled=0
    '            EXIT SUB
    '        END IF


    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
    '        lineloop = 0

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        'dim filestream2 as qfilestream
    '        filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream.eof

    '            fileline = filestream.ReadLine
    '            lineloop ++

    '            IF lineloop > 7 THEN


    '                IF MID$(fileline , 1 , 1) = "a" THEN
    '                    comaposition = INSTR(fileline , ",")
    '                    comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                    comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                    comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                    comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                    closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                    highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                    lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                    openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                    volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                    ut = MID$(fileline , 2 , comaposition - 2)
    '                    utn=ut
    '                    ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '                    'defstr year,month,day,hour,minute
    '                    year = MID$(ft , 21 , 4)
    '                    month = MID$(ft , 5 , 3)
    '                    day = MID$(ft , 9 , 2)
    '                    hour = MID$(ft , 12 , 2)
    '                    minute = MID$(ft , 15 , 2)
    '                    ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                    fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '                ELSE
    '                    IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                        comaposition = INSTR(fileline , ",")
    '                        comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                        comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                        comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                        comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                        closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                        highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                        lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                        openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                        volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                        nb = MID$(fileline , 1 , comaposition - 1)
    '                        utn = Format$("%.8f" , VAL(ut) + (VAL(dstfreal) * 60) * VAL(nb))
    '                        ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                        year = MID$(ft , 21 , 4)
    '                        month = MID$(ft , 5 , 3)
    '                        day = MID$(ft , 9 , 2)
    '                        hour = MID$(ft , 12 , 2)
    '                        minute = MID$(ft , 15 , 2)
    '                        ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                        fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '                    END IF

    '                END IF
    '                IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '            END IF
    '            DOEVENTS
    '        WEND


    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.WriteLine(nextfileline)
    '        END IF


    '        filestream.Close
    '        filestream2.Close

    '    END IF


    '    IF dssource.ItemIndex = 0 THEN

    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
            
            
    '        dim yhooarrtmp(0 TO 100000) as string
    '        DIM file AS QFILESTREAM,yincr as integer
    '        file.open("c:\qchartist\csv\" + outFileName , 0)
    '        yincr=-1
    '        DO
    '            yincr++
    '            yhooarrtmp(yincr) = file.ReadLine
    '        LOOP UNTIL file.eof
    '        file.close
     
    '        file.open("c:\qchartist\csv\" + outFileName , 65535)
    '        dim yincr2 as integer
    '        defstr linetmp
    '        defint linetmploc
    '        for yincr2=yincr to 1 step -1
    '            linetmp=mid$(yhooarrtmp(yincr2),1,11)+"00:00,"+mid$(yhooarrtmp(yincr2),12,len(yhooarrtmp(yincr2)))
    '            linetmp=mid$(linetmp,1,rinstr(linetmp,",")-1)
    '            file.writeline(linetmp)
    '        next yincr2
    '        file.close
            
            
    '        lineloop = 0

    '        filestream2.Open("c:\qchartist\csv\" + outFileName , 0)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream2.eof

    '            lineloop ++
                
    '            filestr=filestream2.ReadLine

    '            IF lineloop = filestream2.LineCount THEN

    '                'filestr = filestream2.ReadLine

    '                DEFSTR year0 , month0 , day0 , hours0 , minutes0
    '                year0 = MID$(filestr , 1 , 4)
    '                month0 = MID$(filestr , 6 , 2)
    '                day0 = MID$(filestr , 9 , 2)
    '                hours0 = MID$(filestr , 12 , 2)
    '                minutes0 = MID$(filestr , 15 , 2)

    '                DEFDBL myunixtime
    '                DEFSTR myunixtimestr


    '                DEFSTR $mydate = year0 + ";" + month0 + ";" + day0 + ";" + hours0 + ";" + minutes0 + ";" + "00"

    '                cpptmpfuncreturn = VARPTR$(date_to_unix_time(VARPTR($mydate)))
    '                utn = VAL(cpptmpfuncreturn)

    '            END IF
    '            DOEVENTS
    '        WEND
    '        filestream2.Close

    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.Open("c:\qchartist\csv\" + outFileName , 2)
    '            filestream2.position=filestream2.size
    '            filestream2.WriteLine(nextfileline)
    '            filestream2.Close
    '        END IF

    '    END IF


    '    'firstfilevol = 1


    '    IF googlerealtimecheckbox.Checked = 1 THEN
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN

    '            quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstfreal)
    '        ELSE

    '            quotenexttimestamp = VAL(utn) + 60 * VAL(dstfreal)
    '        END IF
    '    END IF


    '    importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstfreal + ".csv")

    '    DEFINT i
    '    DEFINT j
    '    FOR i = 0 TO chartbars(displayedfile) - 1
    '        if VAL(dstfreal)<1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)) THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '        if VAL(dstfreal)=1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = "14:30" THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '    NEXT i
    '    DEFDBL lasthigh , lastlow
    '    defint volumacc=0
    '    lasthigh = high1(j)
    '    lastlow = low1(j)
    '    FOR i = j TO 0 STEP - 1
    '        IF high1(i) > lasthigh THEN lasthigh = high1(i)
    '        IF low1(i) < lastlow THEN lastlow = low1(i)
    '        volumacc=volumacc+volume1(i)
    '    NEXT i
    '    Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)) = STR$(lasthigh)
    '    Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)) = STR$(lastlow)
    '    Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)) = STR$(close1(0))
    '    Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)) = STR$(volumacc)
    END IF
    
    'defint k
    '' getting volume since the opening of the day
    'FOR i = 0 TO 999 'chartbars(displayedfile) - 1
    '        IF date1(i+1)<>date1(i) THEN
    '            k=i
    '            EXIT FOR
    '        END IF
    'NEXT i
    'volumacc=0
    'for i=k to j+1 step -1
    '    volumacc=volumacc+volume1(i)
    'next i
    'filevoltmp=volumacc
    

    'if googlerealtimebusytimer.enabled=1 then
    'importfileauto("c:\qchartist\csv\"+UCASE$(dssymboledit.Text) + dstf + ".csv")
    'reimportfile()
    'end if

    'exportfilename
    'btnOnClick(drwBox)

    'clock.Visible = 0
    'timclock.Enabled = 0

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    'ELSE
    '    googlebusytimer.Interval = 1000
    '    '-----------------------------------------------------------------
    '    busystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , fmCreate)
    '    busystream.WriteLine("1")
    '    busystream.Close

    '    DEFSTR tmpdir = CurDir$
    '    CHDIR "c:\qchartist\perl\scripts"

    '    DIM pid AS INTEGER
    '    IF like(platform , "*Wine*") = 0 THEN pid = SHELL("getstockvol.bat usa " + UCASE$(dssymboledit.Text) , 0)
    '    IF like(platform , "*Wine*") = 1 THEN pid = SHELL("/bin/sh -c " + CHR$(34) + "./getstockvol.sh usa " + UCASE$(dssymboledit.Text) + CHR$(34) , 0)
    '    CHDIR tmpdir
    '    '----------------------------------------------------------------
    '    googlegoingto = "googlereadlastquote"  ':googlebusytimer.enabled=1
    '    googlereadlastquotetimer.Enabled = 1
    '    'googlereadlastquotetimestamp=val(varptr$(current_time())):googlerealtimebusytimer.enabled=1
    END IF
    GOTO endlabel
    
    alphavantagereadquotedaily :

    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT
    

    if dssource.ItemIndex = 3 then filestream.Open("c:\qchartist\csv\alpha_vantage\test4.txt" , 0)
    if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test8.txt" , 0)
    if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test11.txt" , 0)
    'filestr = ""

    'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 THEN
        if filestream.size<1000 then
        PRINT "Invalid symbol or > 5 calls per minute and 500 calls per day"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        EXIT SUB
        filestream.Close
        END IF
        
        'DOEVENTS
    'WEND

    filestream.Close

'    IF like(filestr , "*Error Message*") = 1 THEN
'        PRINT "Invalid symbol"
'        if useindiCheckedtmp=1 then useindi.checked=1
'        dsok.Enabled = 1
'
'        EXIT SUB
'    END IF
'    IF like(filestr , "*Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency.*") = 1 THEN
'        PRINT "Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency."
'        if useindiCheckedtmp=1 then useindi.checked=1
'        dsok.Enabled = 1
'        'googlerealtimebusytimer.enabled=0
'        EXIT SUB
'    END IF

    
    outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"

    lineloop = 0

    if dssource.ItemIndex = 3 then filestream.Open("c:\qchartist\csv\alpha_vantage\test4.txt" , 0)
    if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test8.txt" , 0)
    if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test11.txt" , 0)

    filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)

    fileline = ""

    filestream2.Close

    filestream2.Open("c:\qchartist\csv\" + outFileName , fmOpenReadWrite)    

    dim alphavantagearrtmp2stringgrid as qstringgrid
    alphavantagearrtmp2stringgrid.colcount=1
    alphavantagearrtmp2stringgrid.rowcount=filestream.linecount
     defint avincr3,avincr4
     avincr3=-1
     DO
         avincr3++
         alphavantagearrtmp2stringgrid.cell(1,avincr3)= filestream.ReadLine
     LOOP UNTIL filestream.eof
     filestream.close

     defstr avpart3,avpart4

     for avincr4=avincr3 to 1 step -1

     alphavantagearrtmp2stringgrid.cell(1,avincr4)=replacesubstr$(alphavantagearrtmp2stringgrid.cell(1,avincr4),"-",".")

     secondsfind=instr(alphavantagearrtmp2stringgrid.cell(1,avincr4),",")

     avpart3=mid$(alphavantagearrtmp2stringgrid.cell(1,avincr4),1,secondsfind)

     avpart4=mid$(alphavantagearrtmp2stringgrid.cell(1,avincr4),secondsfind+1,len(alphavantagearrtmp2stringgrid.cell(1,avincr4)))

     alphavantagearrtmp2stringgrid.cell(1,avincr4)=avpart3+"00:00,"+avpart4
     
     if dssource.ItemIndex = 4 then alphavantagearrtmp2stringgrid.cell(1,avincr4)=alphavantagearrtmp2stringgrid.cell(1,avincr4)+",1"

     filestream2.writeline(alphavantagearrtmp2stringgrid.cell(1,avincr4))

     next avincr4

     filestream2.close     

    'WHILE NOT filestream.eof

    'WHILE NOT filestream.eof

    '    fileline = filestream.ReadLine
    '    lineloop ++

    '    IF lineloop > 7 THEN


    '        IF MID$(fileline , 1 , 1) = "a" THEN
    '            DEFINT comaposition = INSTR(fileline , ",")
    '            DEFINT comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '            DEFINT comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '            DEFINT comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '            DEFINT comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '            DEFSTR closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '            DEFSTR highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '            DEFSTR lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '            DEFSTR openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '            DEFSTR volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '            DEFSTR ut = MID$(fileline , 2 , comaposition - 2)
    '            DEFSTR ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '            DEFSTR year , month , day , hour , minute
    '            year = MID$(ft , 21 , 4)
    '            month = MID$(ft , 5 , 3)
    '            day = MID$(ft , 9 , 2)
    '            hour = MID$(ft , 12 , 2)
    '            minute = MID$(ft , 15 , 2)
    '            ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '            fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '        ELSE
    '            IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                comaposition = INSTR(fileline , ",")
    '                comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                DEFSTR nb = MID$(fileline , 1 , comaposition - 1)
    '                DEFSTR utn = Format$("%.8f" , VAL(ut) + (VAL(dstf) * 60) * VAL(nb))
    '                ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                year = MID$(ft , 21 , 4)
    '                month = MID$(ft , 5 , 3)
    '                day = MID$(ft , 9 , 2)
    '                hour = MID$(ft , 12 , 2)
    '                minute = MID$(ft , 15 , 2)
    '                ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '            END IF

    '        END IF
    '        IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '    END IF
        'lineloop++
        'DOEVENTS
    'WEND

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    DEFINT currt = VAL(VARPTR$(current_time()))
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        DEFSTR nextutn = STR$(VAL(utn) + VAL(dstf) * 60)
    '        DEFSTR nextutn2 = Format$("%.8f" , VAL(nextutn))
    '        DEFSTR nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '        DEFSTR nextyear = MID$(nextft , 21 , 4)
    '        DEFSTR nextmonth = MID$(nextft , 5 , 3)
    '        DEFSTR nextday = MID$(nextft , 9 , 2)
    '        DEFSTR nexthour = MID$(nextft , 12 , 2)
    '        DEFSTR nextminute = MID$(nextft , 15 , 2)
    '        nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '        DEFSTR nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '        filestream2.WriteLine(nextfileline)
    '    END IF
    '    IF currt - VAL(dstf) * 60 > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        googlerealtimecheckbox.Checked = 0
    '        SHOWMESSAGE "US market closed"
    '        clock.Visible = 0
    '        timclock.Enabled = 0
    '    END IF
    'END IF

    'filestream.Close
    'filestream2.Close

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        'defdbl quotenexttimestamp1=val(nextutn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'defdbl quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+(val(utn)+60)
    '        quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstf)
    '    ELSE
    '        'quotenexttimestamp1=val(utn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+val(utn)
    '        quotenexttimestamp = VAL(utn) + 60 * VAL(dstf)
    '    END IF
    'END IF

    'print utn
    'print str$(quotenexttimestamp)

    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    'IF filestream.LineCount = 0 THEN
        'IF googlerealtimecheckbox.Checked = 1 THEN
        '    filestream.Close
        '    'googlereadlastquotetimestamp=val(varptr$(current_time()))
        '    firstfilevol = 1
        '    googlegetquotesub
        '    PRINT "no data"
        '    EXIT SUB
        'END IF
    'END IF
    filestream.Close

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")
    'ELSE

    '    importfile1m("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")


    '   IF dssource.ItemIndex = 2 THEN

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        filestr = ""
    '        WHILE NOT filestream.eof
    '            filestr = filestr + filestream.ReadLine
    '            DOEVENTS
    '        WEND
    '        filestream.Close
    '        IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
    '            'showmessage "realtime"
    '        END IF
    '        IF like(filestr , "*a*") = 0 THEN
    '            PRINT "Invalid symbol"
    '            dsok.Enabled = 1
    '            'googlerealtimebusytimer.enabled=0
    '            EXIT SUB
    '        END IF


    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
    '        lineloop = 0

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        'dim filestream2 as qfilestream
    '        filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream.eof

    '            fileline = filestream.ReadLine
    '            lineloop ++

    '            IF lineloop > 7 THEN


    '                IF MID$(fileline , 1 , 1) = "a" THEN
    '                    comaposition = INSTR(fileline , ",")
    '                    comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                    comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                    comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                    comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                    closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                    highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                    lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                    openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                    volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                    ut = MID$(fileline , 2 , comaposition - 2)
    '                    utn=ut
    '                    ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '                    'defstr year,month,day,hour,minute
    '                    year = MID$(ft , 21 , 4)
    '                    month = MID$(ft , 5 , 3)
    '                    day = MID$(ft , 9 , 2)
    '                    hour = MID$(ft , 12 , 2)
    '                    minute = MID$(ft , 15 , 2)
    '                    ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                    fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '                ELSE
    '                    IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                        comaposition = INSTR(fileline , ",")
    '                        comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                        comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                        comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                        comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                        closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                        highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                        lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                        openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                        volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                        nb = MID$(fileline , 1 , comaposition - 1)
    '                        utn = Format$("%.8f" , VAL(ut) + (VAL(dstfreal) * 60) * VAL(nb))
    '                        ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                        year = MID$(ft , 21 , 4)
    '                        month = MID$(ft , 5 , 3)
    '                        day = MID$(ft , 9 , 2)
    '                        hour = MID$(ft , 12 , 2)
    '                        minute = MID$(ft , 15 , 2)
    '                        ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                        fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '                    END IF

    '                END IF
    '                IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '            END IF
    '            DOEVENTS
    '        WEND


    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.WriteLine(nextfileline)
    '        END IF


    '        filestream.Close
    '        filestream2.Close

    '    END IF


    '    IF dssource.ItemIndex = 0 THEN

    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
            
            
    '        dim yhooarrtmp(0 TO 100000) as string
    '        DIM file AS QFILESTREAM,yincr as integer
    '        file.open("c:\qchartist\csv\" + outFileName , 0)
    '        yincr=-1
    '        DO
    '            yincr++
    '            yhooarrtmp(yincr) = file.ReadLine
    '        LOOP UNTIL file.eof
    '        file.close
     
    '        file.open("c:\qchartist\csv\" + outFileName , 65535)
    '        dim yincr2 as integer
    '        defstr linetmp
    '        defint linetmploc
    '        for yincr2=yincr to 1 step -1
    '            linetmp=mid$(yhooarrtmp(yincr2),1,11)+"00:00,"+mid$(yhooarrtmp(yincr2),12,len(yhooarrtmp(yincr2)))
    '            linetmp=mid$(linetmp,1,rinstr(linetmp,",")-1)
    '            file.writeline(linetmp)
    '        next yincr2
    '        file.close
            
            
    '        lineloop = 0

    '        filestream2.Open("c:\qchartist\csv\" + outFileName , 0)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream2.eof

    '            lineloop ++
                
    '            filestr=filestream2.ReadLine

    '            IF lineloop = filestream2.LineCount THEN

    '                'filestr = filestream2.ReadLine

    '                DEFSTR year0 , month0 , day0 , hours0 , minutes0
    '                year0 = MID$(filestr , 1 , 4)
    '                month0 = MID$(filestr , 6 , 2)
    '                day0 = MID$(filestr , 9 , 2)
    '                hours0 = MID$(filestr , 12 , 2)
    '                minutes0 = MID$(filestr , 15 , 2)

    '                DEFDBL myunixtime
    '                DEFSTR myunixtimestr


    '                DEFSTR $mydate = year0 + ";" + month0 + ";" + day0 + ";" + hours0 + ";" + minutes0 + ";" + "00"

    '                cpptmpfuncreturn = VARPTR$(date_to_unix_time(VARPTR($mydate)))
    '                utn = VAL(cpptmpfuncreturn)

    '            END IF
    '            DOEVENTS
    '        WEND
    '        filestream2.Close

    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.Open("c:\qchartist\csv\" + outFileName , 2)
    '            filestream2.position=filestream2.size
    '            filestream2.WriteLine(nextfileline)
    '            filestream2.Close
    '        END IF

    '    END IF


    '    'firstfilevol = 1


    '    IF googlerealtimecheckbox.Checked = 1 THEN
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN

    '            quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstfreal)
    '        ELSE

    '            quotenexttimestamp = VAL(utn) + 60 * VAL(dstfreal)
    '        END IF
    '    END IF


    '    importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstfreal + ".csv")

    '    DEFINT i
    '    DEFINT j
    '    FOR i = 0 TO chartbars(displayedfile) - 1
    '        if VAL(dstfreal)<1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)) THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '        if VAL(dstfreal)=1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = "14:30" THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '    NEXT i
    '    DEFDBL lasthigh , lastlow
    '    defint volumacc=0
    '    lasthigh = high1(j)
    '    lastlow = low1(j)
    '    FOR i = j TO 0 STEP - 1
    '        IF high1(i) > lasthigh THEN lasthigh = high1(i)
    '        IF low1(i) < lastlow THEN lastlow = low1(i)
    '        volumacc=volumacc+volume1(i)
    '    NEXT i
    '    Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)) = STR$(lasthigh)
    '    Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)) = STR$(lastlow)
    '    Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)) = STR$(close1(0))
    '    Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)) = STR$(volumacc)
    END IF
    
    'defint k
    '' getting volume since the opening of the day
    'FOR i = 0 TO 999 'chartbars(displayedfile) - 1
    '        IF date1(i+1)<>date1(i) THEN
    '            k=i
    '            EXIT FOR
    '        END IF
    'NEXT i
    'volumacc=0
    'for i=k to j+1 step -1
    '    volumacc=volumacc+volume1(i)
    'next i
    'filevoltmp=volumacc
    

    'if googlerealtimebusytimer.enabled=1 then
    'importfileauto("c:\qchartist\csv\"+UCASE$(dssymboledit.Text) + dstf + ".csv")
    'reimportfile()
    'end if

    'exportfilename
    'btnOnClick(drwBox)

    'clock.Visible = 0
    'timclock.Enabled = 0

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    'ELSE
    '    googlebusytimer.Interval = 1000
    '    '-----------------------------------------------------------------
    '    busystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , fmCreate)
    '    busystream.WriteLine("1")
    '    busystream.Close

    '    DEFSTR tmpdir = CurDir$
    '    CHDIR "c:\qchartist\perl\scripts"

    '    DIM pid AS INTEGER
    '    IF like(platform , "*Wine*") = 0 THEN pid = SHELL("getstockvol.bat usa " + UCASE$(dssymboledit.Text) , 0)
    '    IF like(platform , "*Wine*") = 1 THEN pid = SHELL("/bin/sh -c " + CHR$(34) + "./getstockvol.sh usa " + UCASE$(dssymboledit.Text) + CHR$(34) , 0)
    '    CHDIR tmpdir
    '    '----------------------------------------------------------------
    '    googlegoingto = "googlereadlastquote"  ':googlebusytimer.enabled=1
    '    googlereadlastquotetimer.Enabled = 1
    '    'googlereadlastquotetimestamp=val(varptr$(current_time())):googlerealtimebusytimer.enabled=1
    END IF
    
    GOTO endlabel
    
    alphavantagereadquoteweekly :

    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT
    

    if dssource.ItemIndex = 3 then filestream.Open("c:\qchartist\csv\alpha_vantage\test5.txt" , 0)
    if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test9.txt" , 0)
    if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test12.txt" , 0)
    'filestr = ""

    'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 THEN
        if filestream.size<1000 then
        PRINT "Invalid symbol or > 5 calls per minute and 500 calls per day"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        filestream.Close
        EXIT SUB
        END IF
        'IF like(filestr , "*Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency.*") = 1 THEN
        'PRINT "Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency."
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'END IF
        'DOEVENTS
    'WEND

    filestream.Close

    
    
    outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"

    lineloop = 0

    if dssource.ItemIndex = 3 then filestream.Open("c:\qchartist\csv\alpha_vantage\test5.txt" , 0)
    if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test9.txt" , 0)
    if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test12.txt" , 0)

    filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)

    fileline = ""

    filestream2.Close

    filestream2.Open("c:\qchartist\csv\" + outFileName , fmOpenReadWrite)    

    dim alphavantagearrtmp2stringgrid2 as qstringgrid
    alphavantagearrtmp2stringgrid2.colcount=1
    alphavantagearrtmp2stringgrid2.rowcount=filestream.linecount
     defint avincr5,avincr6
     avincr5=-1
     DO
         avincr5++
         alphavantagearrtmp2stringgrid2.cell(1,avincr5)= filestream.ReadLine
     LOOP UNTIL filestream.eof
     filestream.close

     defstr avpart5,avpart6

     for avincr6=avincr5 to 1 step -1

     alphavantagearrtmp2stringgrid2.cell(1,avincr6)=replacesubstr$(alphavantagearrtmp2stringgrid2.cell(1,avincr6),"-",".")

     secondsfind=instr(alphavantagearrtmp2stringgrid2.cell(1,avincr6),",")

     avpart5=mid$(alphavantagearrtmp2stringgrid2.cell(1,avincr6),1,secondsfind)

     avpart6=mid$(alphavantagearrtmp2stringgrid2.cell(1,avincr6),secondsfind+1,len(alphavantagearrtmp2stringgrid2.cell(1,avincr6)))

     alphavantagearrtmp2stringgrid2.cell(1,avincr6)=avpart5+"00:00,"+avpart6
     if dssource.ItemIndex = 4 then alphavantagearrtmp2stringgrid2.cell(1,avincr6)=alphavantagearrtmp2stringgrid2.cell(1,avincr6)+",1"

     filestream2.writeline(alphavantagearrtmp2stringgrid2.cell(1,avincr6))

     next avincr6

     filestream2.close     

    'WHILE NOT filestream.eof

    'WHILE NOT filestream.eof

    '    fileline = filestream.ReadLine
    '    lineloop ++

    '    IF lineloop > 7 THEN


    '        IF MID$(fileline , 1 , 1) = "a" THEN
    '            DEFINT comaposition = INSTR(fileline , ",")
    '            DEFINT comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '            DEFINT comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '            DEFINT comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '            DEFINT comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '            DEFSTR closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '            DEFSTR highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '            DEFSTR lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '            DEFSTR openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '            DEFSTR volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '            DEFSTR ut = MID$(fileline , 2 , comaposition - 2)
    '            DEFSTR ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '            DEFSTR year , month , day , hour , minute
    '            year = MID$(ft , 21 , 4)
    '            month = MID$(ft , 5 , 3)
    '            day = MID$(ft , 9 , 2)
    '            hour = MID$(ft , 12 , 2)
    '            minute = MID$(ft , 15 , 2)
    '            ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '            fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '        ELSE
    '            IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                comaposition = INSTR(fileline , ",")
    '                comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                DEFSTR nb = MID$(fileline , 1 , comaposition - 1)
    '                DEFSTR utn = Format$("%.8f" , VAL(ut) + (VAL(dstf) * 60) * VAL(nb))
    '                ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                year = MID$(ft , 21 , 4)
    '                month = MID$(ft , 5 , 3)
    '                day = MID$(ft , 9 , 2)
    '                hour = MID$(ft , 12 , 2)
    '                minute = MID$(ft , 15 , 2)
    '                ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '            END IF

    '        END IF
    '        IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '    END IF
        'lineloop++
        'DOEVENTS
    'WEND

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    DEFINT currt = VAL(VARPTR$(current_time()))
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        DEFSTR nextutn = STR$(VAL(utn) + VAL(dstf) * 60)
    '        DEFSTR nextutn2 = Format$("%.8f" , VAL(nextutn))
    '        DEFSTR nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '        DEFSTR nextyear = MID$(nextft , 21 , 4)
    '        DEFSTR nextmonth = MID$(nextft , 5 , 3)
    '        DEFSTR nextday = MID$(nextft , 9 , 2)
    '        DEFSTR nexthour = MID$(nextft , 12 , 2)
    '        DEFSTR nextminute = MID$(nextft , 15 , 2)
    '        nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '        DEFSTR nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '        filestream2.WriteLine(nextfileline)
    '    END IF
    '    IF currt - VAL(dstf) * 60 > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        googlerealtimecheckbox.Checked = 0
    '        SHOWMESSAGE "US market closed"
    '        clock.Visible = 0
    '        timclock.Enabled = 0
    '    END IF
    'END IF

    'filestream.Close
    'filestream2.Close

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        'defdbl quotenexttimestamp1=val(nextutn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'defdbl quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+(val(utn)+60)
    '        quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstf)
    '    ELSE
    '        'quotenexttimestamp1=val(utn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+val(utn)
    '        quotenexttimestamp = VAL(utn) + 60 * VAL(dstf)
    '    END IF
    'END IF

    'print utn
    'print str$(quotenexttimestamp)

    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    'IF filestream.LineCount = 0 THEN
        'IF googlerealtimecheckbox.Checked = 1 THEN
        '    filestream.Close
        '    'googlereadlastquotetimestamp=val(varptr$(current_time()))
        '    firstfilevol = 1
        '    googlegetquotesub
        '    PRINT "no data"
        '    EXIT SUB
        'END IF
    'END IF
    filestream.Close

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")
    'ELSE

    '    importfile1m("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")


    '   IF dssource.ItemIndex = 2 THEN

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        filestr = ""
    '        WHILE NOT filestream.eof
    '            filestr = filestr + filestream.ReadLine
    '            DOEVENTS
    '        WEND
    '        filestream.Close
    '        IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
    '            'showmessage "realtime"
    '        END IF
    '        IF like(filestr , "*a*") = 0 THEN
    '            PRINT "Invalid symbol"
    '            dsok.Enabled = 1
    '            'googlerealtimebusytimer.enabled=0
    '            EXIT SUB
    '        END IF


    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
    '        lineloop = 0

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        'dim filestream2 as qfilestream
    '        filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream.eof

    '            fileline = filestream.ReadLine
    '            lineloop ++

    '            IF lineloop > 7 THEN


    '                IF MID$(fileline , 1 , 1) = "a" THEN
    '                    comaposition = INSTR(fileline , ",")
    '                    comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                    comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                    comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                    comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                    closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                    highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                    lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                    openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                    volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                    ut = MID$(fileline , 2 , comaposition - 2)
    '                    utn=ut
    '                    ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '                    'defstr year,month,day,hour,minute
    '                    year = MID$(ft , 21 , 4)
    '                    month = MID$(ft , 5 , 3)
    '                    day = MID$(ft , 9 , 2)
    '                    hour = MID$(ft , 12 , 2)
    '                    minute = MID$(ft , 15 , 2)
    '                    ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                    fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '                ELSE
    '                    IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                        comaposition = INSTR(fileline , ",")
    '                        comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                        comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                        comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                        comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                        closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                        highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                        lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                        openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                        volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                        nb = MID$(fileline , 1 , comaposition - 1)
    '                        utn = Format$("%.8f" , VAL(ut) + (VAL(dstfreal) * 60) * VAL(nb))
    '                        ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                        year = MID$(ft , 21 , 4)
    '                        month = MID$(ft , 5 , 3)
    '                        day = MID$(ft , 9 , 2)
    '                        hour = MID$(ft , 12 , 2)
    '                        minute = MID$(ft , 15 , 2)
    '                        ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                        fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '                    END IF

    '                END IF
    '                IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '            END IF
    '            DOEVENTS
    '        WEND


    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.WriteLine(nextfileline)
    '        END IF


    '        filestream.Close
    '        filestream2.Close

    '    END IF


    '    IF dssource.ItemIndex = 0 THEN

    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
            
            
    '        dim yhooarrtmp(0 TO 100000) as string
    '        DIM file AS QFILESTREAM,yincr as integer
    '        file.open("c:\qchartist\csv\" + outFileName , 0)
    '        yincr=-1
    '        DO
    '            yincr++
    '            yhooarrtmp(yincr) = file.ReadLine
    '        LOOP UNTIL file.eof
    '        file.close
     
    '        file.open("c:\qchartist\csv\" + outFileName , 65535)
    '        dim yincr2 as integer
    '        defstr linetmp
    '        defint linetmploc
    '        for yincr2=yincr to 1 step -1
    '            linetmp=mid$(yhooarrtmp(yincr2),1,11)+"00:00,"+mid$(yhooarrtmp(yincr2),12,len(yhooarrtmp(yincr2)))
    '            linetmp=mid$(linetmp,1,rinstr(linetmp,",")-1)
    '            file.writeline(linetmp)
    '        next yincr2
    '        file.close
            
            
    '        lineloop = 0

    '        filestream2.Open("c:\qchartist\csv\" + outFileName , 0)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream2.eof

    '            lineloop ++
                
    '            filestr=filestream2.ReadLine

    '            IF lineloop = filestream2.LineCount THEN

    '                'filestr = filestream2.ReadLine

    '                DEFSTR year0 , month0 , day0 , hours0 , minutes0
    '                year0 = MID$(filestr , 1 , 4)
    '                month0 = MID$(filestr , 6 , 2)
    '                day0 = MID$(filestr , 9 , 2)
    '                hours0 = MID$(filestr , 12 , 2)
    '                minutes0 = MID$(filestr , 15 , 2)

    '                DEFDBL myunixtime
    '                DEFSTR myunixtimestr


    '                DEFSTR $mydate = year0 + ";" + month0 + ";" + day0 + ";" + hours0 + ";" + minutes0 + ";" + "00"

    '                cpptmpfuncreturn = VARPTR$(date_to_unix_time(VARPTR($mydate)))
    '                utn = VAL(cpptmpfuncreturn)

    '            END IF
    '            DOEVENTS
    '        WEND
    '        filestream2.Close

    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.Open("c:\qchartist\csv\" + outFileName , 2)
    '            filestream2.position=filestream2.size
    '            filestream2.WriteLine(nextfileline)
    '            filestream2.Close
    '        END IF

    '    END IF


    '    'firstfilevol = 1


    '    IF googlerealtimecheckbox.Checked = 1 THEN
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN

    '            quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstfreal)
    '        ELSE

    '            quotenexttimestamp = VAL(utn) + 60 * VAL(dstfreal)
    '        END IF
    '    END IF


    '    importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstfreal + ".csv")

    '    DEFINT i
    '    DEFINT j
    '    FOR i = 0 TO chartbars(displayedfile) - 1
    '        if VAL(dstfreal)<1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)) THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '        if VAL(dstfreal)=1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = "14:30" THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '    NEXT i
    '    DEFDBL lasthigh , lastlow
    '    defint volumacc=0
    '    lasthigh = high1(j)
    '    lastlow = low1(j)
    '    FOR i = j TO 0 STEP - 1
    '        IF high1(i) > lasthigh THEN lasthigh = high1(i)
    '        IF low1(i) < lastlow THEN lastlow = low1(i)
    '        volumacc=volumacc+volume1(i)
    '    NEXT i
    '    Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)) = STR$(lasthigh)
    '    Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)) = STR$(lastlow)
    '    Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)) = STR$(close1(0))
    '    Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)) = STR$(volumacc)
    END IF
    
    'defint k
    '' getting volume since the opening of the day
    'FOR i = 0 TO 999 'chartbars(displayedfile) - 1
    '        IF date1(i+1)<>date1(i) THEN
    '            k=i
    '            EXIT FOR
    '        END IF
    'NEXT i
    'volumacc=0
    'for i=k to j+1 step -1
    '    volumacc=volumacc+volume1(i)
    'next i
    'filevoltmp=volumacc
    

    'if googlerealtimebusytimer.enabled=1 then
    'importfileauto("c:\qchartist\csv\"+UCASE$(dssymboledit.Text) + dstf + ".csv")
    'reimportfile()
    'end if

    'exportfilename
    'btnOnClick(drwBox)

    'clock.Visible = 0
    'timclock.Enabled = 0

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    'ELSE
    '    googlebusytimer.Interval = 1000
    '    '-----------------------------------------------------------------
    '    busystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , fmCreate)
    '    busystream.WriteLine("1")
    '    busystream.Close

    '    DEFSTR tmpdir = CurDir$
    '    CHDIR "c:\qchartist\perl\scripts"

    '    DIM pid AS INTEGER
    '    IF like(platform , "*Wine*") = 0 THEN pid = SHELL("getstockvol.bat usa " + UCASE$(dssymboledit.Text) , 0)
    '    IF like(platform , "*Wine*") = 1 THEN pid = SHELL("/bin/sh -c " + CHR$(34) + "./getstockvol.sh usa " + UCASE$(dssymboledit.Text) + CHR$(34) , 0)
    '    CHDIR tmpdir
    '    '----------------------------------------------------------------
    '    googlegoingto = "googlereadlastquote"  ':googlebusytimer.enabled=1
    '    googlereadlastquotetimer.Enabled = 1
    '    'googlereadlastquotetimestamp=val(varptr$(current_time())):googlerealtimebusytimer.enabled=1
    END IF
    
    GOTO endlabel
    
        alphavantagereadquotemonthly :

    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT
    

    if dssource.ItemIndex = 3 then filestream.Open("c:\qchartist\csv\alpha_vantage\test6.txt" , 0)
    if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test10.txt" , 0)
    if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test13.txt" , 0)
    'filestr = ""

    'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 or filestr="{}" THEN
        if filestream.size<1000 then
        PRINT "Invalid symbol or > 5 calls per minute and 500 calls per day"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        filestream.Close
        EXIT SUB
        END IF
        'IF like(filestr , "*Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency.*") = 1 THEN
        'PRINT "Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency."
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'END IF
        'DOEVENTS
    'WEND

    filestream.Close

    

    
    outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"

    lineloop = 0

    if dssource.ItemIndex = 3 then filestream.Open("c:\qchartist\csv\alpha_vantage\test6.txt" , 0)
    if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test10.txt" , 0)
    if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test13.txt" , 0)

    filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)

    fileline = ""

    filestream2.Close

    filestream2.Open("c:\qchartist\csv\" + outFileName , fmOpenReadWrite)    

    dim alphavantagearrtmp2stringgrid3 as qstringgrid
    alphavantagearrtmp2stringgrid3.colcount=1
    alphavantagearrtmp2stringgrid3.rowcount=filestream.linecount
     defint avincr7,avincr8
     avincr7=-1
     DO
         avincr7++
         alphavantagearrtmp2stringgrid3.cell(1,avincr7)= filestream.ReadLine
     LOOP UNTIL filestream.eof
     filestream.close

     defstr avpart7,avpart8

     for avincr8=avincr7 to 1 step -1

     alphavantagearrtmp2stringgrid3.cell(1,avincr8)=replacesubstr$(alphavantagearrtmp2stringgrid3.cell(1,avincr8),"-",".")

     secondsfind=instr(alphavantagearrtmp2stringgrid3.cell(1,avincr8),",")

     avpart7=mid$(alphavantagearrtmp2stringgrid3.cell(1,avincr8),1,secondsfind)

     avpart8=mid$(alphavantagearrtmp2stringgrid3.cell(1,avincr8),secondsfind+1,len(alphavantagearrtmp2stringgrid3.cell(1,avincr8)))

     alphavantagearrtmp2stringgrid3.cell(1,avincr8)=avpart7+"00:00,"+avpart8
     
     if dssource.ItemIndex = 4 then alphavantagearrtmp2stringgrid3.cell(1,avincr8)=alphavantagearrtmp2stringgrid3.cell(1,avincr8)+",1"

     filestream2.writeline(alphavantagearrtmp2stringgrid3.cell(1,avincr8))

     next avincr8

     filestream2.close     

    'WHILE NOT filestream.eof

    'WHILE NOT filestream.eof

    '    fileline = filestream.ReadLine
    '    lineloop ++

    '    IF lineloop > 7 THEN


    '        IF MID$(fileline , 1 , 1) = "a" THEN
    '            DEFINT comaposition = INSTR(fileline , ",")
    '            DEFINT comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '            DEFINT comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '            DEFINT comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '            DEFINT comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '            DEFSTR closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '            DEFSTR highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '            DEFSTR lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '            DEFSTR openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '            DEFSTR volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '            DEFSTR ut = MID$(fileline , 2 , comaposition - 2)
    '            DEFSTR ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '            DEFSTR year , month , day , hour , minute
    '            year = MID$(ft , 21 , 4)
    '            month = MID$(ft , 5 , 3)
    '            day = MID$(ft , 9 , 2)
    '            hour = MID$(ft , 12 , 2)
    '            minute = MID$(ft , 15 , 2)
    '            ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '            fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '        ELSE
    '            IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                comaposition = INSTR(fileline , ",")
    '                comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                DEFSTR nb = MID$(fileline , 1 , comaposition - 1)
    '                DEFSTR utn = Format$("%.8f" , VAL(ut) + (VAL(dstf) * 60) * VAL(nb))
    '                ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                year = MID$(ft , 21 , 4)
    '                month = MID$(ft , 5 , 3)
    '                day = MID$(ft , 9 , 2)
    '                hour = MID$(ft , 12 , 2)
    '                minute = MID$(ft , 15 , 2)
    '                ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '            END IF

    '        END IF
    '        IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '    END IF
        'lineloop++
        'DOEVENTS
    'WEND

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    DEFINT currt = VAL(VARPTR$(current_time()))
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        DEFSTR nextutn = STR$(VAL(utn) + VAL(dstf) * 60)
    '        DEFSTR nextutn2 = Format$("%.8f" , VAL(nextutn))
    '        DEFSTR nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '        DEFSTR nextyear = MID$(nextft , 21 , 4)
    '        DEFSTR nextmonth = MID$(nextft , 5 , 3)
    '        DEFSTR nextday = MID$(nextft , 9 , 2)
    '        DEFSTR nexthour = MID$(nextft , 12 , 2)
    '        DEFSTR nextminute = MID$(nextft , 15 , 2)
    '        nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '        DEFSTR nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '        filestream2.WriteLine(nextfileline)
    '    END IF
    '    IF currt - VAL(dstf) * 60 > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        googlerealtimecheckbox.Checked = 0
    '        SHOWMESSAGE "US market closed"
    '        clock.Visible = 0
    '        timclock.Enabled = 0
    '    END IF
    'END IF

    'filestream.Close
    'filestream2.Close

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        'defdbl quotenexttimestamp1=val(nextutn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'defdbl quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+(val(utn)+60)
    '        quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstf)
    '    ELSE
    '        'quotenexttimestamp1=val(utn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+val(utn)
    '        quotenexttimestamp = VAL(utn) + 60 * VAL(dstf)
    '    END IF
    'END IF

    'print utn
    'print str$(quotenexttimestamp)

    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    'IF filestream.LineCount = 0 THEN
        'IF googlerealtimecheckbox.Checked = 1 THEN
        '    filestream.Close
        '    'googlereadlastquotetimestamp=val(varptr$(current_time()))
        '    firstfilevol = 1
        '    googlegetquotesub
        '    PRINT "no data"
        '    EXIT SUB
        'END IF
    'END IF
    filestream.Close

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")
    'ELSE

    '    importfile1m("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")


    '   IF dssource.ItemIndex = 2 THEN

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        filestr = ""
    '        WHILE NOT filestream.eof
    '            filestr = filestr + filestream.ReadLine
    '            DOEVENTS
    '        WEND
    '        filestream.Close
    '        IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
    '            'showmessage "realtime"
    '        END IF
    '        IF like(filestr , "*a*") = 0 THEN
    '            PRINT "Invalid symbol"
    '            dsok.Enabled = 1
    '            'googlerealtimebusytimer.enabled=0
    '            EXIT SUB
    '        END IF


    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
    '        lineloop = 0

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        'dim filestream2 as qfilestream
    '        filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream.eof

    '            fileline = filestream.ReadLine
    '            lineloop ++

    '            IF lineloop > 7 THEN


    '                IF MID$(fileline , 1 , 1) = "a" THEN
    '                    comaposition = INSTR(fileline , ",")
    '                    comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                    comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                    comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                    comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                    closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                    highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                    lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                    openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                    volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                    ut = MID$(fileline , 2 , comaposition - 2)
    '                    utn=ut
    '                    ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '                    'defstr year,month,day,hour,minute
    '                    year = MID$(ft , 21 , 4)
    '                    month = MID$(ft , 5 , 3)
    '                    day = MID$(ft , 9 , 2)
    '                    hour = MID$(ft , 12 , 2)
    '                    minute = MID$(ft , 15 , 2)
    '                    ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                    fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '                ELSE
    '                    IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                        comaposition = INSTR(fileline , ",")
    '                        comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                        comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                        comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                        comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                        closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                        highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                        lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                        openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                        volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                        nb = MID$(fileline , 1 , comaposition - 1)
    '                        utn = Format$("%.8f" , VAL(ut) + (VAL(dstfreal) * 60) * VAL(nb))
    '                        ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                        year = MID$(ft , 21 , 4)
    '                        month = MID$(ft , 5 , 3)
    '                        day = MID$(ft , 9 , 2)
    '                        hour = MID$(ft , 12 , 2)
    '                        minute = MID$(ft , 15 , 2)
    '                        ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                        fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '                    END IF

    '                END IF
    '                IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '            END IF
    '            DOEVENTS
    '        WEND


    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.WriteLine(nextfileline)
    '        END IF


    '        filestream.Close
    '        filestream2.Close

    '    END IF


    '    IF dssource.ItemIndex = 0 THEN

    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
            
            
    '        dim yhooarrtmp(0 TO 100000) as string
    '        DIM file AS QFILESTREAM,yincr as integer
    '        file.open("c:\qchartist\csv\" + outFileName , 0)
    '        yincr=-1
    '        DO
    '            yincr++
    '            yhooarrtmp(yincr) = file.ReadLine
    '        LOOP UNTIL file.eof
    '        file.close
     
    '        file.open("c:\qchartist\csv\" + outFileName , 65535)
    '        dim yincr2 as integer
    '        defstr linetmp
    '        defint linetmploc
    '        for yincr2=yincr to 1 step -1
    '            linetmp=mid$(yhooarrtmp(yincr2),1,11)+"00:00,"+mid$(yhooarrtmp(yincr2),12,len(yhooarrtmp(yincr2)))
    '            linetmp=mid$(linetmp,1,rinstr(linetmp,",")-1)
    '            file.writeline(linetmp)
    '        next yincr2
    '        file.close
            
            
    '        lineloop = 0

    '        filestream2.Open("c:\qchartist\csv\" + outFileName , 0)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream2.eof

    '            lineloop ++
                
    '            filestr=filestream2.ReadLine

    '            IF lineloop = filestream2.LineCount THEN

    '                'filestr = filestream2.ReadLine

    '                DEFSTR year0 , month0 , day0 , hours0 , minutes0
    '                year0 = MID$(filestr , 1 , 4)
    '                month0 = MID$(filestr , 6 , 2)
    '                day0 = MID$(filestr , 9 , 2)
    '                hours0 = MID$(filestr , 12 , 2)
    '                minutes0 = MID$(filestr , 15 , 2)

    '                DEFDBL myunixtime
    '                DEFSTR myunixtimestr


    '                DEFSTR $mydate = year0 + ";" + month0 + ";" + day0 + ";" + hours0 + ";" + minutes0 + ";" + "00"

    '                cpptmpfuncreturn = VARPTR$(date_to_unix_time(VARPTR($mydate)))
    '                utn = VAL(cpptmpfuncreturn)

    '            END IF
    '            DOEVENTS
    '        WEND
    '        filestream2.Close

    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.Open("c:\qchartist\csv\" + outFileName , 2)
    '            filestream2.position=filestream2.size
    '            filestream2.WriteLine(nextfileline)
    '            filestream2.Close
    '        END IF

    '    END IF


    '    'firstfilevol = 1


    '    IF googlerealtimecheckbox.Checked = 1 THEN
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN

    '            quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstfreal)
    '        ELSE

    '            quotenexttimestamp = VAL(utn) + 60 * VAL(dstfreal)
    '        END IF
    '    END IF


    '    importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstfreal + ".csv")

    '    DEFINT i
    '    DEFINT j
    '    FOR i = 0 TO chartbars(displayedfile) - 1
    '        if VAL(dstfreal)<1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)) THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '        if VAL(dstfreal)=1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = "14:30" THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '    NEXT i
    '    DEFDBL lasthigh , lastlow
    '    defint volumacc=0
    '    lasthigh = high1(j)
    '    lastlow = low1(j)
    '    FOR i = j TO 0 STEP - 1
    '        IF high1(i) > lasthigh THEN lasthigh = high1(i)
    '        IF low1(i) < lastlow THEN lastlow = low1(i)
    '        volumacc=volumacc+volume1(i)
    '    NEXT i
    '    Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)) = STR$(lasthigh)
    '    Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)) = STR$(lastlow)
    '    Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)) = STR$(close1(0))
    '    Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)) = STR$(volumacc)
    END IF
    
    'defint k
    '' getting volume since the opening of the day
    'FOR i = 0 TO 999 'chartbars(displayedfile) - 1
    '        IF date1(i+1)<>date1(i) THEN
    '            k=i
    '            EXIT FOR
    '        END IF
    'NEXT i
    'volumacc=0
    'for i=k to j+1 step -1
    '    volumacc=volumacc+volume1(i)
    'next i
    'filevoltmp=volumacc
    

    'if googlerealtimebusytimer.enabled=1 then
    'importfileauto("c:\qchartist\csv\"+UCASE$(dssymboledit.Text) + dstf + ".csv")
    'reimportfile()
    'end if

    'exportfilename
    'btnOnClick(drwBox)

    'clock.Visible = 0
    'timclock.Enabled = 0

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    'ELSE
    '    googlebusytimer.Interval = 1000
    '    '-----------------------------------------------------------------
    '    busystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , fmCreate)
    '    busystream.WriteLine("1")
    '    busystream.Close

    '    DEFSTR tmpdir = CurDir$
    '    CHDIR "c:\qchartist\perl\scripts"

    '    DIM pid AS INTEGER
    '    IF like(platform , "*Wine*") = 0 THEN pid = SHELL("getstockvol.bat usa " + UCASE$(dssymboledit.Text) , 0)
    '    IF like(platform , "*Wine*") = 1 THEN pid = SHELL("/bin/sh -c " + CHR$(34) + "./getstockvol.sh usa " + UCASE$(dssymboledit.Text) + CHR$(34) , 0)
    '    CHDIR tmpdir
    '    '----------------------------------------------------------------
    '    googlegoingto = "googlereadlastquote"  ':googlebusytimer.enabled=1
    '    googlereadlastquotetimer.Enabled = 1
    '    'googlereadlastquotetimestamp=val(varptr$(current_time())):googlerealtimebusytimer.enabled=1
    END IF
    
    GOTO endlabel

    endlabel :

END SUB



SUB finnhubbusytimersubget

'defint pid
    DIM finnhubbusystream AS QFILESTREAM
    IF finnhubgoingto = "finnhubreadquoteintraday" THEN finnhubbusystream.Open("c:\qchartist\csv\finnhub_get\isbusy.txt" , 0)
    'IF finnhubgoingto = "finnhubreadquotedaily" THEN finnhubbusystream.Open("c:\qchartist\csv\finnhub_get\isbusy.txt" , 0)
    'IF finnhubgoingto = "finnhubreadquoteweekly" THEN finnhubbusystream.Open("c:\qchartist\csv\finnhub_get\isbusy.txt" , 0)
    'IF finnhubgoingto = "finnhubreadquotemonthly" THEN finnhubbusystream.Open("c:\qchartist\csv\finnhub_get\isbusy.txt" , 0)
    'IF alphavantagegoingto = "googlereadlastquote" THEN googlebusystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , 0)
    DEFSTR isbusy = ""
    WHILE NOT finnhubbusystream.eof
        isbusy = isbusy + finnhubbusystream.ReadLine
    WEND
    finnhubbusystream.Close

    'IF googlegoingto = "googlereadquote" AND googlerealtimecheckbox.Checked = 1 THEN
    '    googlebusystream.Open("c:\qchartist\csv\google\isbusy2.txt" , 0)
    '    DEFSTR isbusy2 = ""
    '    WHILE NOT googlebusystream.eof
    '        isbusy2 = isbusy2 + googlebusystream.ReadLine
    '    WEND
    '    googlebusystream.Close
    'END IF

    'IF googlerealtimecheckbox.Checked = 1 AND VAL(isbusy2) = 1 THEN EXIT SUB

    IF VAL(isbusy) = 0 THEN

        finnhubbusytimerget.Enabled = 0
        SELECT CASE finnhubgoingto

            CASE "finnhubreadquoteintraday"
                GOTO finnhubreadquoteintraday
            'CASE "finnhubreadquotedaily"
            '    GOTO finnhubreadquotedaily
            'CASE "finnhubreadquoteweekly"
            '    GOTO finnhubreadquoteweekly
            'CASE "finnhubreadquotemonthly"
            '    GOTO finnhubreadquotemonthly
                'case "googlereadlastquote"
                'goto googlereadlastquote

        END SELECT

    END IF

    EXIT SUB

    finnhubreadquoteintraday :
    'showmessage "0"
    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT
    
    DIM filestream AS QFILESTREAM
    
    if dssource.ItemIndex = 8 then filestream.Open("c:\qchartist\csv\finnhub_get\test2.txt" , 0)
    IF dssource.ItemIndex = 9 then filestream.Open("c:\qchartist\csv\finnhub_get\crypto.txt" , 0)
    'filestr = ""

    'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 THEN
        if filestream.size<1000 then
        PRINT "Error"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        EXIT SUB
        filestream.Close
        END IF
        
        'DOEVENTS
    'WEND

    filestream.Close
    
    'GOTO endlabel

    
    defstr outFileName = UCASE$(replacesubstr$(dssymboledit.Text,":","_")) + dstf + ".csv"

    defint lineloop = 0

    if dssource.ItemIndex = 8 then filestream.Open("c:\qchartist\csv\finnhub_get\test2.txt" , 0)
    if dssource.ItemIndex = 9 then filestream.Open("c:\qchartist\csv\finnhub_get\crypto.txt" , 0)
    'if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test8.txt" , 0)
    'if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test11.txt" , 0)

    dim filestream2 as qfilestream
    filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)

    defstr fileline = ""

    filestream2.Close

    filestream2.Open("c:\qchartist\csv\" + outFileName , fmOpenReadWrite)    

    dim finnhubarrtmp2stringgrid as qstringgrid
    finnhubarrtmp2stringgrid.colcount=1
    finnhubarrtmp2stringgrid.rowcount=filestream.linecount
     defint avincr3,avincr4
     avincr3=-1
     DO
         avincr3++
         finnhubarrtmp2stringgrid.cell(1,avincr3)= filestream.ReadLine
     LOOP UNTIL filestream.eof
     filestream.close

     defstr avpart3,avpart4
    defint secondsfind

     for avincr4=1 to avincr3 step 1

     'finnhubarrtmp2stringgrid.cell(1,avincr4)=replacesubstr$(finnhubarrtmp2stringgrid.cell(1,avincr4),"-",".")

     secondsfind=instr(finnhubarrtmp2stringgrid.cell(1,avincr4),",")

     avpart3=mid$(finnhubarrtmp2stringgrid.cell(1,avincr4),1,secondsfind-1)
     
     'showmessage avpart3
     
     'defstr myunixtimestr=Format$("%12.0f", val(avpart3))

     cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(avpart3))) ' works here in year 2038

    defstr year,month,day,hour,minute
    year=mid$(cpptmpfuncreturn,0,4)
    month=mid$(cpptmpfuncreturn,6,2)
    day=mid$(cpptmpfuncreturn,9,2)
    hour=mid$(cpptmpfuncreturn,12,2)
    minute=mid$(cpptmpfuncreturn,15,2)


    defstr finnhubdatetime =year + "." + month + "." + day+","+hour+":"+minute
    'showmessage finnhubdatetime

     avpart4=mid$(finnhubarrtmp2stringgrid.cell(1,avincr4),secondsfind+1,len(finnhubarrtmp2stringgrid.cell(1,avincr4)))

     finnhubarrtmp2stringgrid.cell(1,avincr4)=finnhubdatetime+","+avpart4
     
     'if dssource.ItemIndex = 8 then finnhubarrtmp2stringgrid.cell(1,avincr4)=finnhubarrtmp2stringgrid.cell(1,avincr4)+",1"

     filestream2.writeline(finnhubarrtmp2stringgrid.cell(1,avincr4))

     next avincr4

     filestream2.close     

    filestream.Open("c:\qchartist\csv\" + UCASE$(replacesubstr$(dssymboledit.Text,":","_")) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)

    filestream.Close    

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(replacesubstr$(dssymboledit.Text,":","_")) + dstf + ".csv")
    
    END IF
    
    
    'showmessage "1"
    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    DEFSTR dstfreal = dstf
    '    dstf = "1"
    'END IF

    'DEFSTR currentime00 = VARPTR$(current_time())
    'DEFSTR ft00 = VARPTR$(unix_time_to_date(VARPTR(currentime00)))
    'DEFSTR year00 = MID$(ft00 , 21 , 4)
    'DEFSTR month00 = MID$(ft00 , 5 , 3)
    'DEFSTR day00 = MID$(ft00 , 9 , 2)
    'DEFSTR hour00 = MID$(ft00 , 12 , 2)
    'DEFSTR minute00 = MID$(ft00 , 15 , 2)

    'if val(dstf)<>1 and googlerealtimecheckbox.checked=1 then
    'showmessage "Realtime mode only works for 1M timeframe until now. Please choose 1M instead."
    'dsok.enabled=1
    'exit sub
    'end if

    'if dstf="1" then
    'IF VAL(MID$(TIME$ , 7 , 2)) > 10 AND googlerealtimecheckbox.Checked = 1 THEN
    '    clock.Visible = 1
    '    timclock.Enabled = 1
    '    pleasewaitclocklabel.Caption = "Please wait " + STR$(60 - VAL(MID$(TIME$ , 7 , 2))) + "s"
    '    googlegoingto = "googlereadquote" : googlebusytimer.Enabled = 1
    '    EXIT SUB
    'END IF
    'end if

    ''DIM filestream AS QFILESTREAM
    'filestream.Open("c:\qchartist\csv\google\connection_status.log" , 0)
    ''DEFSTR filestr = ""
    'WHILE NOT filestream.eof
    '    filestr = filestr + filestream.ReadLine
    'WEND
    'filestream.Close
    'check if connection exists
    'IF like(filestr , "*80... connected*200 OK*") = 0 THEN
    '    PRINT "Can't connect to Google Finance"
    '    googlerealtimecheckbox.Checked = 0
    '    dsok.Enabled = 1
    '    'googlerealtimebusytimer.enabled=0
    '    EXIT SUB
    'END IF

    'googlecurrenttimestamp = VAL(VARPTR$(current_time())) 'val(Format$("%.8f",varptr$(current_time())))

    ''if dssource.ItemIndex = 8 then filestream.Open("c:\qchartist\csv\finnhub_get\test2.txt" , 0)
    'if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
    'if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test2.txt" , 0)
    'filestr = ""
    'defstr filestreamlinecoun
   ' WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 THEN
        ''if filestream.size<1000 then
        ''PRINT "Invalid symbol or max daily calls reached"
        ''if useindiCheckedtmp=1 then useindi.checked=1
        ''dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        ''filestream.Close
        ''EXIT SUB
        ''END IF
        'IF like(filestr , "*Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency.*") = 1 THEN
        'PRINT "Thank you for using Alpha Vantage! Our standard API call frequency is 5 calls per minute and 500 calls per day. Please visit https://www.alphavantage.co/premium/ if you would like to target a higher API call frequency."
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        ''googlerealtimebusytimer.enabled=0
        'EXIT SUB
        'END IF
        'DOEVENTS
    'WEND
    'filestreamlinecount=filestream.linecount
    ''filestream.Close
    'showmessage "2"
    'IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
    '    'showmessage "realtime"
    'END IF
    

    
    'DEFSTR outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"
    'DEFINT lineloop = 0
    'if dssource.ItemIndex = 8 then filestream.Open("c:\qchartist\csv\alpha_vantage\test2.txt" , 0)
    'if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test7.txt" , 0)
    ''DIM filestream2 AS QFILESTREAM
    ''filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
    'filestr = ""
    ''DEFSTR fileline = ""
    'filestream.Close
    ''filestream2.Close
    ''filestream2.Open("c:\qchartist\csv\" + outFileName , fmOpenReadWrite)
    'showmessage "3"
    ''dim alphavantagearrtmp(0 TO 100000) as string
     ''DIM avincr as integer
     ''avincr=-1
     ''DO
         ''avincr++
         ''alphavantagearrtmp(avincr) = filestream.ReadLine
     ''LOOP UNTIL filestream.eof
     ''filestream.close
     'showmessage "4"
     ''dim avincr2 as integer
     ''defint secondsfind,secondsfind2
     ''defstr avpart1,avpart2
     'showmessage "5"
     ''for avincr2=avincr to 1 step -1
     'showmessage alphavantagearrtmp(avincr2)
     ''alphavantagearrtmp(avincr2)=replacesubstr$(alphavantagearrtmp(avincr2)," ",",")
     ''alphavantagearrtmp(avincr2)=replacesubstr$(alphavantagearrtmp(avincr2),"-",".")
     ''secondsfind=instr(alphavantagearrtmp(avincr2),":")
     'showmessage str$(secondsfind)
     ''secondsfind2=instr(secondsfind+1,alphavantagearrtmp(avincr2),":")
     'showmessage str$(secondsfind2)
     ''avpart1=mid$(alphavantagearrtmp(avincr2),1,secondsfind2-1)
     'showmessage avpart1
     ''avpart2=mid$(alphavantagearrtmp(avincr2),secondsfind2+3,len(alphavantagearrtmp(avincr2)))
     'showmessage avpart2
     ''alphavantagearrtmp(avincr2)=avpart1+avpart2
     ''if dssource.ItemIndex = 4 then alphavantagearrtmp(avincr2)=alphavantagearrtmp(avincr2)+",1"
     ''filestream2.writeline(alphavantagearrtmp(avincr2))
     ''next avincr2
     'showmessage "6"
     'filestream.close
     'showmessage "7"
     'filestream2.close     
    'showmessage "8"
    'WHILE NOT filestream.eof

    'WHILE NOT filestream.eof

    '    fileline = filestream.ReadLine
    '    lineloop ++

    '    IF lineloop > 7 THEN


    '        IF MID$(fileline , 1 , 1) = "a" THEN
    '            DEFINT comaposition = INSTR(fileline , ",")
    '            DEFINT comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '            DEFINT comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '            DEFINT comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '            DEFINT comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '            DEFSTR closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '            DEFSTR highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '            DEFSTR lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '            DEFSTR openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '            DEFSTR volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '            DEFSTR ut = MID$(fileline , 2 , comaposition - 2)
    '            DEFSTR ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '            DEFSTR year , month , day , hour , minute
    '            year = MID$(ft , 21 , 4)
    '            month = MID$(ft , 5 , 3)
    '            day = MID$(ft , 9 , 2)
    '            hour = MID$(ft , 12 , 2)
    '            minute = MID$(ft , 15 , 2)
    '            ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '            fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '        ELSE
    '            IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                comaposition = INSTR(fileline , ",")
    '                comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                DEFSTR nb = MID$(fileline , 1 , comaposition - 1)
    '                DEFSTR utn = Format$("%.8f" , VAL(ut) + (VAL(dstf) * 60) * VAL(nb))
    '                ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                year = MID$(ft , 21 , 4)
    '                month = MID$(ft , 5 , 3)
    '                day = MID$(ft , 9 , 2)
    '                hour = MID$(ft , 12 , 2)
    '                minute = MID$(ft , 15 , 2)
    '                ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '            END IF

    '        END IF
    '        IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '    END IF
        'lineloop++
        'DOEVENTS
    'WEND

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    DEFINT currt = VAL(VARPTR$(current_time()))
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        DEFSTR nextutn = STR$(VAL(utn) + VAL(dstf) * 60)
    '        DEFSTR nextutn2 = Format$("%.8f" , VAL(nextutn))
    '        DEFSTR nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '        DEFSTR nextyear = MID$(nextft , 21 , 4)
    '        DEFSTR nextmonth = MID$(nextft , 5 , 3)
    '        DEFSTR nextday = MID$(nextft , 9 , 2)
    '        DEFSTR nexthour = MID$(nextft , 12 , 2)
    '        DEFSTR nextminute = MID$(nextft , 15 , 2)
    '        nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '        DEFSTR nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '        filestream2.WriteLine(nextfileline)
    '    END IF
    '    IF currt - VAL(dstf) * 60 > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        googlerealtimecheckbox.Checked = 0
    '        SHOWMESSAGE "US market closed"
    '        clock.Visible = 0
    '        timclock.Enabled = 0
    '    END IF
    'END IF

    'filestream.Close
    'filestream2.Close

    'IF googlerealtimecheckbox.Checked = 1 THEN
    '    IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
    '        'if val(minute)<val(mid$(time$,4,2)) then
    '        'defdbl quotenexttimestamp1=val(nextutn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'defdbl quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+(val(utn)+60)
    '        quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstf)
    '    ELSE
    '        'quotenexttimestamp1=val(utn)
    '        'quotenexttimestamp1=timeminute(quotenexttimestamp1)
    '        'quotenexttimestamp2=quotenexttimestamp1/val(dstf)
    '        'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
    '        'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
    '        'quotenexttimestamp=quotenexttimestamp2*60+val(utn)
    '        quotenexttimestamp = VAL(utn) + 60 * VAL(dstf)
    '    END IF
    'END IF

    'print utn
    'print str$(quotenexttimestamp)

    'filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    'IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    'IF filestream.LineCount = 0 THEN
        'IF googlerealtimecheckbox.Checked = 1 THEN
        '    filestream.Close
        '    'googlereadlastquotetimestamp=val(varptr$(current_time()))
        '    firstfilevol = 1
        '    googlegetquotesub
        '    PRINT "no data"
        '    EXIT SUB
        'END IF
    'END IF
    'filestream.Close

    'IF googlerealtimecheckbox.Checked = 0 THEN
        ''importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")
    'ELSE

    '    importfile1m("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")


    '   IF dssource.ItemIndex = 2 THEN

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        filestr = ""
    '        WHILE NOT filestream.eof
    '            filestr = filestr + filestream.ReadLine
    '            DOEVENTS
    '        WEND
    '        filestream.Close
    '        IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
    '            'showmessage "realtime"
    '        END IF
    '        IF like(filestr , "*a*") = 0 THEN
    '            PRINT "Invalid symbol"
    '            dsok.Enabled = 1
    '            'googlerealtimebusytimer.enabled=0
    '            EXIT SUB
    '        END IF


    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
    '        lineloop = 0

    '        filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
    '        'dim filestream2 as qfilestream
    '        filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream.eof

    '            fileline = filestream.ReadLine
    '            lineloop ++

    '            IF lineloop > 7 THEN


    '                IF MID$(fileline , 1 , 1) = "a" THEN
    '                    comaposition = INSTR(fileline , ",")
    '                    comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                    comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                    comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                    comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                    closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                    highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                    lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                    openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                    volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                    ut = MID$(fileline , 2 , comaposition - 2)
    '                    utn=ut
    '                    ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
    '                    'defstr year,month,day,hour,minute
    '                    year = MID$(ft , 21 , 4)
    '                    month = MID$(ft , 5 , 3)
    '                    day = MID$(ft , 9 , 2)
    '                    hour = MID$(ft , 12 , 2)
    '                    minute = MID$(ft , 15 , 2)
    '                    ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                    fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

    '                ELSE
    '                    IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
    '                        comaposition = INSTR(fileline , ",")
    '                        comaposition2 = INSTR(comaposition + 1 , fileline , ",")
    '                        comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
    '                        comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
    '                        comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
    '                        closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
    '                        highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
    '                        lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
    '                        openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
    '                        volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
    '                        nb = MID$(fileline , 1 , comaposition - 1)
    '                        utn = Format$("%.8f" , VAL(ut) + (VAL(dstfreal) * 60) * VAL(nb))
    '                        ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
    '                        year = MID$(ft , 21 , 4)
    '                        month = MID$(ft , 5 , 3)
    '                        day = MID$(ft , 9 , 2)
    '                        hour = MID$(ft , 12 , 2)
    '                        minute = MID$(ft , 15 , 2)
    '                        ft = year + "-" + strtomonth(month) + "-" + day + "," + hour + ":" + minute
    '                        fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
    '                    END IF

    '                END IF
    '                IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

    '            END IF
    '            DOEVENTS
    '        WEND


    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.WriteLine(nextfileline)
    '        END IF


    '        filestream.Close
    '        filestream2.Close

    '    END IF


    '    IF dssource.ItemIndex = 0 THEN

    '        outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
            
            
    '        dim yhooarrtmp(0 TO 100000) as string
    '        DIM file AS QFILESTREAM,yincr as integer
    '        file.open("c:\qchartist\csv\" + outFileName , 0)
    '        yincr=-1
    '        DO
    '            yincr++
    '            yhooarrtmp(yincr) = file.ReadLine
    '        LOOP UNTIL file.eof
    '        file.close
     
    '        file.open("c:\qchartist\csv\" + outFileName , 65535)
    '        dim yincr2 as integer
    '        defstr linetmp
    '        defint linetmploc
    '        for yincr2=yincr to 1 step -1
    '            linetmp=mid$(yhooarrtmp(yincr2),1,11)+"00:00,"+mid$(yhooarrtmp(yincr2),12,len(yhooarrtmp(yincr2)))
    '            linetmp=mid$(linetmp,1,rinstr(linetmp,",")-1)
    '            file.writeline(linetmp)
    '        next yincr2
    '        file.close
            
            
    '        lineloop = 0

    '        filestream2.Open("c:\qchartist\csv\" + outFileName , 0)
    '        filestr = ""
    '        fileline = ""

    '        WHILE NOT filestream2.eof

    '            lineloop ++
                
    '            filestr=filestream2.ReadLine

    '            IF lineloop = filestream2.LineCount THEN

    '                'filestr = filestream2.ReadLine

    '                DEFSTR year0 , month0 , day0 , hours0 , minutes0
    '                year0 = MID$(filestr , 1 , 4)
    '                month0 = MID$(filestr , 6 , 2)
    '                day0 = MID$(filestr , 9 , 2)
    '                hours0 = MID$(filestr , 12 , 2)
    '                minutes0 = MID$(filestr , 15 , 2)

    '                DEFDBL myunixtime
    '                DEFSTR myunixtimestr


    '                DEFSTR $mydate = year0 + ";" + month0 + ";" + day0 + ";" + hours0 + ";" + minutes0 + ";" + "00"

    '                cpptmpfuncreturn = VARPTR$(date_to_unix_time(VARPTR($mydate)))
    '                utn = VAL(cpptmpfuncreturn)

    '            END IF
    '            DOEVENTS
    '        WEND
    '        filestream2.Close

    '        currt = VAL(VARPTR$(current_time()))
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
    '            'if val(minute)<val(mid$(time$,4,2)) then
    '            nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
    '            nextutn2 = Format$("%.8f" , VAL(nextutn))
    '            nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
    '            nextyear = MID$(nextft , 21 , 4)
    '            nextmonth = MID$(nextft , 5 , 3)
    '            nextday = MID$(nextft , 9 , 2)
    '            nexthour = MID$(nextft , 12 , 2)
    '            nextminute = MID$(nextft , 15 , 2)
    '            nextft = nextyear + "-" + strtomonth(nextmonth) + "-" + nextday + "," + nexthour + ":" + nextminute
    '            nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

    '            filestream2.Open("c:\qchartist\csv\" + outFileName , 2)
    '            filestream2.position=filestream2.size
    '            filestream2.WriteLine(nextfileline)
    '            filestream2.Close
    '        END IF

    '    END IF


    '    'firstfilevol = 1


    '    IF googlerealtimecheckbox.Checked = 1 THEN
    '        IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN

    '            quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstfreal)
    '        ELSE

    '            quotenexttimestamp = VAL(utn) + 60 * VAL(dstfreal)
    '        END IF
    '    END IF


    '    importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstfreal + ".csv")

    '    DEFINT i
    '    DEFINT j
    '    FOR i = 0 TO chartbars(displayedfile) - 1
    '        if VAL(dstfreal)<1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)) THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '        if VAL(dstfreal)=1440 then
    '        IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = "14:30" THEN
    '            j = i
    '            EXIT FOR
    '        END IF
    '        end if
    '    NEXT i
    '    DEFDBL lasthigh , lastlow
    '    defint volumacc=0
    '    lasthigh = high1(j)
    '    lastlow = low1(j)
    '    FOR i = j TO 0 STEP - 1
    '        IF high1(i) > lasthigh THEN lasthigh = high1(i)
    '        IF low1(i) < lastlow THEN lastlow = low1(i)
    '        volumacc=volumacc+volume1(i)
    '    NEXT i
    '    Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)) = STR$(lasthigh)
    '    Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)) = STR$(lastlow)
    '    Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)) = STR$(close1(0))
    '    Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)) = STR$(volumacc)
    'END IF
    
    'defint k
    '' getting volume since the opening of the day
    'FOR i = 0 TO 999 'chartbars(displayedfile) - 1
    '        IF date1(i+1)<>date1(i) THEN
    '            k=i
    '            EXIT FOR
    '        END IF
    'NEXT i
    'volumacc=0
    'for i=k to j+1 step -1
    '    volumacc=volumacc+volume1(i)
    'next i
    'filevoltmp=volumacc
    

    'if googlerealtimebusytimer.enabled=1 then
    'importfileauto("c:\qchartist\csv\"+UCASE$(dssymboledit.Text) + dstf + ".csv")
    'reimportfile()
    'end if

    'exportfilename
    'btnOnClick(drwBox)

    'clock.Visible = 0
    'timclock.Enabled = 0

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    'ELSE
    '    googlebusytimer.Interval = 1000
    '    '-----------------------------------------------------------------
    '    busystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , fmCreate)
    '    busystream.WriteLine("1")
    '    busystream.Close

    '    DEFSTR tmpdir = CurDir$
    '    CHDIR "c:\qchartist\perl\scripts"

    '    DIM pid AS INTEGER
    '    IF like(platform , "*Wine*") = 0 THEN pid = SHELL("getstockvol.bat usa " + UCASE$(dssymboledit.Text) , 0)
    '    IF like(platform , "*Wine*") = 1 THEN pid = SHELL("/bin/sh -c " + CHR$(34) + "./getstockvol.sh usa " + UCASE$(dssymboledit.Text) + CHR$(34) , 0)
    '    CHDIR tmpdir
    '    '----------------------------------------------------------------
    '    googlegoingto = "googlereadlastquote"  ':googlebusytimer.enabled=1
    '    googlereadlastquotetimer.Enabled = 1
    '    'googlereadlastquotetimestamp=val(varptr$(current_time())):googlerealtimebusytimer.enabled=1
    END IF
    GOTO endlabel    
    
    'finnhubreadquotedaily :
    'GOTO endlabel
    
    'finnhubreadquoteweekly :
    'GOTO endlabel
    
    'finnhubreadquotemonthly :
    'GOTO endlabel

    endlabel :

END SUB



SUB yahoofinancebusytimersub



 defint pid
    DIM yahoofinancebusystream AS QFILESTREAM
    IF yahoofinancegoingto = "yahoofinancereadquoteintraday" THEN yahoofinancebusystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , 0)
    IF yahoofinancegoingto = "yahoofinancereadquotedaily" THEN yahoofinancebusystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , 0)
    IF yahoofinancegoingto = "yahoofinancereadquoteweekly" THEN yahoofinancebusystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , 0)
    IF yahoofinancegoingto = "yahoofinancereadquotemonthly" THEN yahoofinancebusystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , 0)

    DEFSTR isbusy = ""
    WHILE NOT yahoofinancebusystream.eof
        isbusy = isbusy + yahoofinancebusystream.ReadLine
    WEND
    yahoofinancebusystream.Close

    IF VAL(isbusy) = 0 THEN

        yahoofinancebusytimer.Enabled = 0
        SELECT CASE yahoofinancegoingto

            CASE "yahoofinancereadquoteintraday"
                GOTO yahoofinancereadquoteintraday
            'CASE "yahoofinancereadquotedaily"
            '    GOTO yahoofinancereadquotedaily
            'CASE "yahoofinancereadquoteweekly"
            '    GOTO yahoofinancereadquoteweekly
            'CASE "yahoofinancereadquotemonthly"
            '    GOTO yahoofinancereadquotemonthly

        END SELECT

    END IF

    EXIT SUB

    yahoofinancereadquoteintraday :

    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT

    'DIM filestream AS QFILESTREAM
    'DEFSTR filestr = ""    
    'if dssource.ItemIndex = 0 then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
    'if filestream.size<1000 then
    '    filestr = ""
    '    defstr filestreamlinecoun
    '    WHILE NOT filestream.eof
    '        filestr = filestream.ReadLine
    '        IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
    '            PRINT "Error"
    '            if useindiCheckedtmp=1 then useindi.checked=1
    '            dsok.Enabled = 1
    '            EXIT SUB
    '        END IF
    '    DOEVENTS
    '    WEND
    'end if
    'filestream.Close
    
    DIM filestream AS QFILESTREAM
    'DEFSTR filestr = ""    
    if dssource.ItemIndex = 0 then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
    if filestream.size<1000 then
        PRINT "Error"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        EXIT SUB
    end if
    filestream.Close
    
    '    filestr = ""
    '    defstr filestreamlinecoun
    '    WHILE NOT filestream.eof
    '        filestr = filestream.ReadLine
    '        IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
    '            PRINT "Error"
    '            if useindiCheckedtmp=1 then useindi.checked=1
    '            dsok.Enabled = 1
    '            EXIT SUB
    '        END IF
    '    DOEVENTS
    '    WEND
    'end if
    'filestream.Close
              
    DIM busystream2 AS QFILESTREAM
    busystream2.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , fmCreate)
    busystream2.WriteLine("1")
    busystream2.Close

    DEFSTR tmpdir = CurDir$
    CHDIR "c:\qchartist\csv\yahoo_finance"

    IF googlerealtimecheckbox.Checked = 0 and dssource.ItemIndex = 0 THEN     
        dim yffilestream as qfilestream
        yffilestream.Open("c:\qchartist\csv\yahoo_finance\yf2.bat" , fmCreate)
        yffilestream.WriteLine("yf.exe > "+chr$(34)+"c:\qchartist\csv\"+UCASE$(dssymboledit.Text) + dstf + ".csv"+chr$(34))
        yffilestream.WriteLine("echo 0 > isbusy.txt")
        yffilestream.Close
        pid = SHELL("yf2.bat", 0)
    END IF

    if val(dstf)<60 then yahoofinancegoingto = "yahoofinancereadquoteintraday2"  :  yahoofinancebusytimer2.Interval = 1000  :  yahoofinancebusytimer2.Enabled = 1
    if val(dstf)=60 then yahoofinancegoingto = "yahoofinancereadquoteintraday2"  :  yahoofinancebusytimer2.Interval = 1000  :  yahoofinancebusytimer2.Enabled = 1
    if val(dstf)=1440 then yahoofinancegoingto = "yahoofinancereadquoteintraday2"  :  yahoofinancebusytimer2.Interval = 1000  :  yahoofinancebusytimer2.Enabled = 1
    if val(dstf)=10080 then yahoofinancegoingto = "yahoofinancereadquoteintraday2"  :  yahoofinancebusytimer2.Interval = 1000  :  yahoofinancebusytimer2.Enabled = 1
    if val(dstf)=43200 then yahoofinancegoingto = "yahoofinancereadquoteintraday2"  :  yahoofinancebusytimer2.Interval = 1000  :  yahoofinancebusytimer2.Enabled = 1
    
    CHDIR tmpdir 
    
    

END SUB



SUB stooqbusytimersub



 defint pid
    DIM stooqbusystream AS QFILESTREAM
    'IF stooqgoingto = "stooqreadquoteintraday" THEN stooqbusystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , 0)
    IF stooqgoingto = "stooqreadquotedaily" THEN stooqbusystream.Open("c:\qchartist\csv\stooq\isbusy.txt" , 0)
    'IF stooqgoingto = "stooqreadquoteweekly" THEN stooqbusystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , 0)
    'IF stooqgoingto = "stooqreadquotemonthly" THEN stooqbusystream.Open("c:\qchartist\csv\alpha_vantage\isbusy.txt" , 0)
    'IF stooqgoingto = "googlereadlastquote" THEN googlebusystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , 0)
    DEFSTR isbusy = ""
    WHILE NOT stooqbusystream.eof
        isbusy = isbusy + stooqbusystream.ReadLine
    WEND
    stooqbusystream.Close

    IF VAL(isbusy) = 0 THEN

        stooqbusytimer.Enabled = 0
        SELECT CASE stooqgoingto

            'CASE "stooqreadquoteintraday"
                'GOTO stooqreadquoteintraday
            CASE "stooqreadquotedaily"
                GOTO stooqreadquotedaily
            'CASE "stooqreadquoteweekly"
            '    GOTO stooqreadquoteweekly
            'CASE "stooqreadquotemonthly"
            '    GOTO stooqreadquotemonthly
                'case "googlereadlastquote"
                'goto googlereadlastquote

        END SELECT

    END IF

    EXIT SUB

stooqreadquotedaily :
	DIM dstf AS STRING
	DIM filestream AS qfilestream
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT
    

    if dssource.ItemIndex = 1 then filestream.Open("c:\qchartist\csv\stooq\test2.txt" , 0)
    'filestr = ""

    'WHILE NOT filestream.eof
        'filestr = filestream.ReadLine
        'IF like(filestr , "*Error Message*") = 1 THEN
        if filestream.size<1000 then
        PRINT "Error"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        EXIT SUB
        filestream.Close
        END IF
        
        'DOEVENTS
    'WEND

    filestream.Close
    
    'GOTO endlabel

    
    defstr outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"

    defint lineloop = 0

    if dssource.ItemIndex = 1 then filestream.Open("c:\qchartist\csv\stooq\test2.txt" , 0)
    'if dssource.ItemIndex = 4 then filestream.Open("c:\qchartist\csv\alpha_vantage\test8.txt" , 0)
    'if dssource.ItemIndex = 5 then filestream.Open("c:\qchartist\csv\alpha_vantage\test11.txt" , 0)

    dim filestream2 as qfilestream
    filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)

    defstr fileline = ""

    filestream2.Close

    filestream2.Open("c:\qchartist\csv\" + outFileName , fmOpenReadWrite)    

    dim stooqarrtmp2stringgrid as qstringgrid
    stooqarrtmp2stringgrid.colcount=1
    stooqarrtmp2stringgrid.rowcount=filestream.linecount
     defint avincr3,avincr4
     avincr3=-1
     DO
         avincr3++
         stooqarrtmp2stringgrid.cell(1,avincr3)= filestream.ReadLine
     LOOP UNTIL filestream.eof
     filestream.close

     defstr avpart3,avpart4
	defint secondsfind

     for avincr4=1 to avincr3 step 1

     stooqarrtmp2stringgrid.cell(1,avincr4)=replacesubstr$(stooqarrtmp2stringgrid.cell(1,avincr4),"-",".")

     secondsfind=instr(stooqarrtmp2stringgrid.cell(1,avincr4),",")

     avpart3=mid$(stooqarrtmp2stringgrid.cell(1,avincr4),1,secondsfind)

     avpart4=mid$(stooqarrtmp2stringgrid.cell(1,avincr4),secondsfind+1,len(stooqarrtmp2stringgrid.cell(1,avincr4)))

     stooqarrtmp2stringgrid.cell(1,avincr4)=avpart3+"00:00,"+avpart4
     
     if dssource.ItemIndex = 1 then stooqarrtmp2stringgrid.cell(1,avincr4)=stooqarrtmp2stringgrid.cell(1,avincr4)+",1"

     filestream2.writeline(stooqarrtmp2stringgrid.cell(1,avincr4))

     next avincr4

     filestream2.close     

    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)

    filestream.Close	

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")
    
    END IF

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1

    END IF
    
    GOTO endlabel

endlabel :
    
    

END SUB





SUB tiingobusytimersub



 defint pid
    DIM tiingobusystream AS QFILESTREAM
    IF tiingogoingto = "tiingoreadquoteintraday" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingogoingto = "tiingoreadquotedaily" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingogoingto = "tiingoreadquoteweekly" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingogoingto = "tiingoreadquotemonthly" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)

    DEFSTR isbusy = ""
    WHILE NOT tiingobusystream.eof
        isbusy = isbusy + tiingobusystream.ReadLine
    WEND
    tiingobusystream.Close

    IF VAL(isbusy) = 0 THEN

        tiingobusytimer.Enabled = 0
        SELECT CASE tiingogoingto

            CASE "tiingoreadquoteintraday"
                GOTO tiingoreadquoteintraday
            'CASE "yahoofinancereadquotedaily"
            '    GOTO yahoofinancereadquotedaily
            'CASE "yahoofinancereadquoteweekly"
            '    GOTO yahoofinancereadquoteweekly
            'CASE "yahoofinancereadquotemonthly"
            '    GOTO yahoofinancereadquotemonthly

        END SELECT

    END IF

    EXIT SUB

   tiingoreadquoteintraday :

    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT

    'DIM filestream AS QFILESTREAM
    'DEFSTR filestr = ""    
    'if dssource.ItemIndex = 0 then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
    'if filestream.size<1000 then
    '    filestr = ""
    '    defstr filestreamlinecoun
    '    WHILE NOT filestream.eof
    '        filestr = filestream.ReadLine
    '        IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
    '            PRINT "Error"
    '            if useindiCheckedtmp=1 then useindi.checked=1
    '            dsok.Enabled = 1
    '            EXIT SUB
    '        END IF
    '    DOEVENTS
    '    WEND
    'end if
    'filestream.Close
    
    DIM filestream AS QFILESTREAM
    'DEFSTR filestr = ""    
    if dssource.ItemIndex = 6 then filestream.Open("c:\qchartist\csv\tiingo\t1.txt" , 0)
    if filestream.size<1000 then
        PRINT "Error"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        EXIT SUB
    end if
    filestream.Close
    
    '    filestr = ""
    '    defstr filestreamlinecoun
    '    WHILE NOT filestream.eof
    '        filestr = filestream.ReadLine
    '        IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
    '            PRINT "Error"
    '            if useindiCheckedtmp=1 then useindi.checked=1
    '            dsok.Enabled = 1
    '            EXIT SUB
    '        END IF
    '    DOEVENTS
    '    WEND
    'end if
    'filestream.Close
              
    DIM busystream2 AS QFILESTREAM
    busystream2.Open("c:\qchartist\csv\tiingo\isbusy.txt" , fmCreate)
    busystream2.WriteLine("1")
    busystream2.Close

    DEFSTR tmpdir = CurDir$
    CHDIR "c:\qchartist\csv\tiingo"

    IF googlerealtimecheckbox.Checked = 0 and dssource.ItemIndex = 6 THEN
        pid = SHELL("debugt.bat " + UCASE$(dssymboledit.Text) + dstf + ".csv", 0)
    END IF

    if val(dstf)<60 then tiingogoingto = "tiingoreadquoteintraday2"  :  tiingobusytimer2.Interval = 1000  :  tiingobusytimer2.Enabled = 1
    if val(dstf)=60 then tiingogoingto = "tiingoreadquoteintraday2"  :  tiingobusytimer2.Interval = 1000  :  tiingobusytimer2.Enabled = 1
    if val(dstf)=240 then tiingogoingto = "tiingoreadquoteintraday2"  :  tiingobusytimer2.Interval = 1000  :  tiingobusytimer2.Enabled = 1
    if val(dstf)=1440 then tiingogoingto = "tiingoreadquoteintraday2"  :  tiingobusytimer2.Interval = 1000  :  tiingobusytimer2.Enabled = 1
    if val(dstf)=10080 then tiingogoingto = "tiingoreadquoteintraday2"  :  tiingobusytimer2.Interval = 1000  :  tiingobusytimer2.Enabled = 1
    if val(dstf)=43200 then tiingogoingto = "tiingoreadquoteintraday2"  :  tiingobusytimer2.Interval = 1000  :  tiingobusytimer2.Enabled = 1
    
    CHDIR tmpdir 
    
    

END SUB

SUB tiingo_IEX_busytimersub



 defint pid
    DIM tiingo_IEX_busystream AS QFILESTREAM
    IF tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday" THEN tiingo_IEX_busystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingo_IEX_goingto = "tiingo_IEX_readquotedaily" THEN tiingo_IEX_busystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingo_IEX_goingto = "tiingo_IEX_readquoteweekly" THEN tiingo_IEX_busystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingo_IEX_goingto = "tiingo_IEX_readquotemonthly" THEN tiingo_IEX_busystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)

    DEFSTR isbusy = ""
    WHILE NOT tiingo_IEX_busystream.eof
        isbusy = isbusy + tiingo_IEX_busystream.ReadLine
    WEND
    tiingo_IEX_busystream.Close

    IF VAL(isbusy) = 0 THEN

        tiingo_IEX_busytimer.Enabled = 0
        SELECT CASE tiingo_IEX_goingto

            CASE "tiingo_IEX_readquoteintraday"
                GOTO tiingo_IEX_readquoteintraday
            'CASE "yahoofinancereadquotedaily"
            '    GOTO yahoofinancereadquotedaily
            'CASE "yahoofinancereadquoteweekly"
            '    GOTO yahoofinancereadquoteweekly
            'CASE "yahoofinancereadquotemonthly"
            '    GOTO yahoofinancereadquotemonthly

        END SELECT

    END IF

    EXIT SUB

   tiingo_IEX_readquoteintraday :

    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT

    'DIM filestream AS QFILESTREAM
    'DEFSTR filestr = ""    
    'if dssource.ItemIndex = 0 then filestream.Open("c:\qchartist\csv\yahoo_finance\yf1.txt" , 0)
    'if filestream.size<1000 then
    '    filestr = ""
    '    defstr filestreamlinecoun
    '    WHILE NOT filestream.eof
    '        filestr = filestream.ReadLine
    '        IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
    '            PRINT "Error"
    '            if useindiCheckedtmp=1 then useindi.checked=1
    '            dsok.Enabled = 1
    '            EXIT SUB
    '        END IF
    '    DOEVENTS
    '    WEND
    'end if
    'filestream.Close
    
    DIM filestream AS QFILESTREAM
    'DEFSTR filestr = ""    
    if dssource.ItemIndex = 7 then filestream.Open("c:\qchartist\csv\tiingo\t1.txt" , 0)
    if filestream.size<1000 then
        PRINT "Error"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        EXIT SUB
    end if
    filestream.Close
    
    '    filestr = ""
    '    defstr filestreamlinecoun
    '    WHILE NOT filestream.eof
    '        filestr = filestream.ReadLine
    '        IF like(filestr , "*"+chr$(34)+"error"+chr$(34)+":{"+chr$(34)+"code"+chr$(34)+"*") = 1 THEN
    '            PRINT "Error"
    '            if useindiCheckedtmp=1 then useindi.checked=1
    '            dsok.Enabled = 1
    '            EXIT SUB
    '        END IF
    '    DOEVENTS
    '    WEND
    'end if
    'filestream.Close
              
    DIM busystream2 AS QFILESTREAM
    busystream2.Open("c:\qchartist\csv\tiingo\isbusy.txt" , fmCreate)
    busystream2.WriteLine("1")
    busystream2.Close

    DEFSTR tmpdir = CurDir$
    CHDIR "c:\qchartist\csv\tiingo"

    IF googlerealtimecheckbox.Checked = 0 and dssource.ItemIndex = 7 THEN
        pid = SHELL("debugt.bat " + UCASE$(dssymboledit.Text) + dstf + ".csv", 0)
    END IF

    if val(dstf)<60 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday2"  :  tiingo_IEX_busytimer2.Interval = 1000  :  tiingo_IEX_busytimer2.Enabled = 1
    if val(dstf)=60 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday2"  :  tiingo_IEX_busytimer2.Interval = 1000  :  tiingo_IEX_busytimer2.Enabled = 1
    if val(dstf)=240 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday2"  :  tiingo_IEX_busytimer2.Interval = 1000  :  tiingo_IEX_busytimer2.Enabled = 1
    if val(dstf)=1440 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday2"  :  tiingo_IEX_busytimer2.Interval = 1000  :  tiingo_IEX_busytimer2.Enabled = 1
    if val(dstf)=10080 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday2"  :  tiingo_IEX_busytimer2.Interval = 1000  :  tiingo_IEX_busytimer2.Enabled = 1
    if val(dstf)=43200 then tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday2"  :  tiingo_IEX_busytimer2.Interval = 1000  :  tiingo_IEX_busytimer2.Enabled = 1
    
    CHDIR tmpdir 
    
    

END SUB

SUB yahoofinancebusytimersub2

'defint pid
    DIM yahoofinancebusystream AS QFILESTREAM
    IF yahoofinancegoingto = "yahoofinancereadquoteintraday2" THEN yahoofinancebusystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , 0)
    IF yahoofinancegoingto = "yahoofinancereadquotedaily2" THEN yahoofinancebusystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , 0)
    IF yahoofinancegoingto = "yahoofinancereadquoteweekly2" THEN yahoofinancebusystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , 0)
    IF yahoofinancegoingto = "yahoofinancereadquotemonthly2" THEN yahoofinancebusystream.Open("c:\qchartist\csv\yahoo_finance\isbusy.txt" , 0)

    DEFSTR isbusy = ""
    WHILE NOT yahoofinancebusystream.eof
        isbusy = isbusy + yahoofinancebusystream.ReadLine
    WEND
    yahoofinancebusystream.Close

    IF VAL(isbusy) = 0 THEN

        yahoofinancebusytimer2.Enabled = 0
        SELECT CASE yahoofinancegoingto

            CASE "yahoofinancereadquoteintraday2"
                GOTO yahoofinancereadquoteintraday2
            'CASE "yahoofinancereadquotedaily2"
            '    GOTO yahoofinancereadquotedaily2
            'CASE "yahoofinancereadquoteweekly2"
            '    GOTO yahoofinancereadquoteweekly2
            'CASE "yahoofinancereadquotemonthly2"
            '    GOTO yahoofinancereadquotemonthly2

        END SELECT

    END IF

    EXIT SUB

    yahoofinancereadquoteintraday2 :      
    
    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT   

    DIM filestream AS QFILESTREAM
    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    filestream.Close                       

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")        
    
    END IF   

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    end if

end sub


SUB tiingobusytimersub2

'defint pid
    DIM tiingobusystream AS QFILESTREAM
    IF tiingogoingto = "tiingoreadquoteintraday2" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)

    IF tiingogoingto = "tiingoreadquotedaily2" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingogoingto = "tiingoreadquoteweekly2" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingogoingto = "tiingoreadquotemonthly2" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)

    DEFSTR isbusy = ""
    WHILE NOT tiingobusystream.eof
        isbusy = isbusy + tiingobusystream.ReadLine
    WEND
    tiingobusystream.Close

    IF VAL(isbusy) = 0 THEN

        tiingobusytimer2.Enabled = 0
        SELECT CASE tiingogoingto

            CASE "tiingoreadquoteintraday2"
                GOTO tiingoreadquoteintraday2
            'CASE "yahoofinancereadquotedaily2"
            '    GOTO yahoofinancereadquotedaily2
            'CASE "yahoofinancereadquoteweekly2"
            '    GOTO yahoofinancereadquoteweekly2
            'CASE "yahoofinancereadquotemonthly2"
            '    GOTO yahoofinancereadquotemonthly2

        END SELECT

    END IF

    EXIT SUB

    tiingoreadquoteintraday2 :      

    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT   
    


    DIM filestream AS QFILESTREAM
    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    filestream.Close                       

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")        
    
    END IF   

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    end if

end sub

SUB tiingo_IEX_busytimersub2

'defint pid
    DIM tiingobusystream AS QFILESTREAM
    IF tiingo_IEX_goingto = "tiingo_IEX_readquoteintraday2" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)

    IF tiingo_IEX_goingto = "tiingo_IEX_readquotedaily2" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingo_IEX_goingto = "tiingo_IEX_readquoteweekly2" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)
    IF tiingo_IEX_goingto = "tiingo_IEX_readquotemonthly2" THEN tiingobusystream.Open("c:\qchartist\csv\tiingo\isbusy.txt" , 0)

    DEFSTR isbusy = ""
    WHILE NOT tiingobusystream.eof
        isbusy = isbusy + tiingobusystream.ReadLine
    WEND
    tiingobusystream.Close

    IF VAL(isbusy) = 0 THEN

        tiingo_IEX_busytimer2.Enabled = 0
        SELECT CASE tiingo_IEX_goingto

            CASE "tiingo_IEX_readquoteintraday2"
                GOTO tiingo_IEX_readquoteintraday2
            'CASE "yahoofinancereadquotedaily2"
            '    GOTO yahoofinancereadquotedaily2
            'CASE "yahoofinancereadquoteweekly2"
            '    GOTO yahoofinancereadquoteweekly2
            'CASE "yahoofinancereadquotemonthly2"
            '    GOTO yahoofinancereadquotemonthly2

        END SELECT

    END IF

    EXIT SUB

    tiingo_IEX_readquoteintraday2 :      

    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT   
    


    DIM filestream AS QFILESTREAM
    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    filestream.Close                       

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")        
    
    END IF   

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    end if

end sub


SUB googlebusytimersub

    'defint pid
    DIM googlebusystream AS QFILESTREAM
    IF googlegoingto = "googlereadquote" THEN googlebusystream.Open("c:\qchartist\csv\google\isbusy.txt" , 0)
    IF googlegoingto = "googlereadlastquote" THEN googlebusystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , 0)
    DEFSTR isbusy = ""
    WHILE NOT googlebusystream.eof
        isbusy = isbusy + googlebusystream.ReadLine
    WEND
    googlebusystream.Close

    IF googlegoingto = "googlereadquote" AND googlerealtimecheckbox.Checked = 1 THEN
        googlebusystream.Open("c:\qchartist\csv\google\isbusy2.txt" , 0)
        DEFSTR isbusy2 = ""
        WHILE NOT googlebusystream.eof
            isbusy2 = isbusy2 + googlebusystream.ReadLine
        WEND
        googlebusystream.Close
    END IF

    IF googlerealtimecheckbox.Checked = 1 AND VAL(isbusy2) = 1 THEN EXIT SUB

    IF VAL(isbusy) = 0 THEN

        googlebusytimer.Enabled = 0
        SELECT CASE googlegoingto

            CASE "googlereadquote"
                GOTO googlereadquote
                'case "googlereadlastquote"
                'goto googlereadlastquote

        END SELECT

    END IF

    EXIT SUB

    googlereadquote :
    DIM dstf AS STRING
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT

    IF googlerealtimecheckbox.Checked = 1 THEN
        DEFSTR dstfreal = dstf
        dstf = "1"
    END IF

    DEFSTR currentime00 = VARPTR$(current_time())
    DEFSTR ft00 = VARPTR$(unix_time_to_date(VARPTR(currentime00)))
    DEFSTR year00 = MID$(ft00 , 0,4)
    DEFSTR month00 = MID$(ft00 , 6,2)
    DEFSTR day00 = MID$(ft00 , 9 , 2)
    DEFSTR hour00 = MID$(ft00 , 12 , 2)
    DEFSTR minute00 = MID$(ft00 , 15 , 2)

    'if val(dstf)<>1 and googlerealtimecheckbox.checked=1 then
    'showmessage "Realtime mode only works for 1M timeframe until now. Please choose 1M instead."
    'dsok.enabled=1
    'exit sub
    'end if

    'if dstf="1" then
    IF VAL(MID$(TIME$ , 7 , 2)) > 10 AND googlerealtimecheckbox.Checked = 1 THEN
        clock.Visible = 1
        timclock.Enabled = 1
        pleasewaitclocklabel.Caption = "Please wait " + STR$(60 - VAL(MID$(TIME$ , 7 , 2))) + "s"
        googlegoingto = "googlereadquote" : googlebusytimer.Enabled = 1
        EXIT SUB
    END IF
    'end if

    DIM filestream AS QFILESTREAM
    filestream.Open("c:\qchartist\csv\google\connection_status.log" , 0)
    DEFSTR filestr = ""
    WHILE NOT filestream.eof
        filestr = filestr + filestream.ReadLine
    WEND
    filestream.Close
    'check if connection exists
    IF like(filestr , "*80... connected*200 OK*") = 0 THEN
        PRINT "Can't connect to Google Finance"
        googlerealtimecheckbox.Checked = 0
        dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        EXIT SUB
    END IF

    googlecurrenttimestamp = VAL(VARPTR$(current_time())) 'val(Format$("%.8f",varptr$(current_time())))

    filestream.Open("c:\qchartist\csv\google\Google_quotes.txt" , 0)
    filestr = ""
    WHILE NOT filestream.eof
        filestr = filestr + filestream.ReadLine
        DOEVENTS
    WEND
    filestream.Close
    IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
        'showmessage "realtime"
    END IF
    IF like(filestr , "*a*") = 0 THEN
        PRINT "Invalid symbol"
        if useindiCheckedtmp=1 then useindi.checked=1
        dsok.Enabled = 1
        'googlerealtimebusytimer.enabled=0
        EXIT SUB
    END IF


    DEFSTR outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"
    DEFINT lineloop = 0

    filestream.Open("c:\qchartist\csv\google\Google_quotes.txt" , 0)
    DIM filestream2 AS QFILESTREAM
    filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
    filestr = ""
    DEFSTR fileline = ""

    WHILE NOT filestream.eof

        fileline = filestream.ReadLine
        lineloop ++

        IF lineloop > 7 THEN


            IF MID$(fileline , 1 , 1) = "a" THEN
                DEFINT comaposition = INSTR(fileline , ",")
                DEFINT comaposition2 = INSTR(comaposition + 1 , fileline , ",")
                DEFINT comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
                DEFINT comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
                DEFINT comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
                DEFSTR closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
                DEFSTR highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
                DEFSTR lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
                DEFSTR openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
                DEFSTR volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
                DEFSTR ut = MID$(fileline , 2 , comaposition - 2)
                DEFSTR ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
                DEFSTR year , month , day , hour , minute
                year = MID$(ft , 0,4)
                month = MID$(ft , 6,2)
                day = MID$(ft , 9 , 2)
                hour = MID$(ft , 12 , 2)
                minute = MID$(ft , 15 , 2)
                ft = year + "-" + month + "-" + day + "," + hour + ":" + minute
                fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

            ELSE
                IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
                    comaposition = INSTR(fileline , ",")
                    comaposition2 = INSTR(comaposition + 1 , fileline , ",")
                    comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
                    comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
                    comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
                    closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
                    highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
                    lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
                    openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
                    volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
                    DEFSTR nb = MID$(fileline , 1 , comaposition - 1)
                    DEFSTR utn = Format$("%.8f" , VAL(ut) + (VAL(dstf) * 60) * VAL(nb))
                    ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
                    year = MID$(ft , 0,4)
                    month = MID$(ft , 6,2)
                    day = MID$(ft , 9 , 2)
                    hour = MID$(ft , 12 , 2)
                    minute = MID$(ft , 15 , 2)
                    ft = year + "-" + month + "-" + day + "," + hour + ":" + minute
                    fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
                END IF

            END IF
            IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

        END IF
        DOEVENTS
    WEND

    IF googlerealtimecheckbox.Checked = 1 THEN
        DEFINT currt = VAL(VARPTR$(current_time()))
        IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
            'if val(minute)<val(mid$(time$,4,2)) then
            DEFSTR nextutn = STR$(VAL(utn) + VAL(dstf) * 60)
            DEFSTR nextutn2 = Format$("%.8f" , VAL(nextutn))
            DEFSTR nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
            DEFSTR nextyear = MID$(nextft , 0,4)
            DEFSTR nextmonth = MID$(nextft , 6,2)
            DEFSTR nextday = MID$(nextft , 9 , 2)
            DEFSTR nexthour = MID$(nextft , 12 , 2)
            DEFSTR nextminute = MID$(nextft , 15 , 2)
            nextft = nextyear + "-" + nextmonth + "-" + nextday + "," + nexthour + ":" + nextminute
            DEFSTR nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

            filestream2.WriteLine(nextfileline)
        END IF
        IF currt - VAL(dstf) * 60 > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
            googlerealtimecheckbox.Checked = 0
            SHOWMESSAGE "US market closed"
            clock.Visible = 0
            timclock.Enabled = 0
        END IF
    END IF

    filestream.Close
    filestream2.Close

    IF googlerealtimecheckbox.Checked = 1 THEN
        IF currt - VAL(dstf) * 60 <= VAL(utn) + 60 * (VAL(dstf) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstf) - 1) + 59 THEN
            'if val(minute)<val(mid$(time$,4,2)) then
            'defdbl quotenexttimestamp1=val(nextutn)
            'quotenexttimestamp1=timeminute(quotenexttimestamp1)
            'defdbl quotenexttimestamp2=quotenexttimestamp1/val(dstf)
            'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
            'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
            'quotenexttimestamp=quotenexttimestamp2*60+(val(utn)+60)
            quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstf)
        ELSE
            'quotenexttimestamp1=val(utn)
            'quotenexttimestamp1=timeminute(quotenexttimestamp1)
            'quotenexttimestamp2=quotenexttimestamp1/val(dstf)
            'quotenexttimestamp2=(floor(quotenexttimestamp2)+1)*val(dstf)
            'quotenexttimestamp2=quotenexttimestamp2-quotenexttimestamp1
            'quotenexttimestamp=quotenexttimestamp2*60+val(utn)
            quotenexttimestamp = VAL(utn) + 60 * VAL(dstf)
        END IF
    END IF

    'print utn
    'print str$(quotenexttimestamp)

    filestream.Open("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv" , 0)
    IF VAL(barsdisplayed.Text) > filestream.LineCount AND filestream.LineCount > 0 THEN barsdisplayed.Text = STR$(filestream.LineCount)
    IF filestream.LineCount = 0 THEN
        IF googlerealtimecheckbox.Checked = 1 THEN
            filestream.Close
            'googlereadlastquotetimestamp=val(varptr$(current_time()))
            firstfilevol = 1
            googlegetquotesub
            PRINT "no data"
            EXIT SUB
        END IF
    END IF
    filestream.Close

    IF googlerealtimecheckbox.Checked = 0 THEN
        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")
    ELSE

        importfile1m("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstf + ".csv")


        IF dssource.ItemIndex = 2 THEN

            filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
            filestr = ""
            WHILE NOT filestream.eof
                filestr = filestr + filestream.ReadLine
                DOEVENTS
            WEND
            filestream.Close
            IF like(filestr , "*EXCHANGE*NASDAQ*") = 1 THEN
                'showmessage "realtime"
            END IF
            IF like(filestr , "*a*") = 0 THEN
                PRINT "Invalid symbol"
                dsok.Enabled = 1
                'googlerealtimebusytimer.enabled=0
                EXIT SUB
            END IF


            outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
            lineloop = 0

            filestream.Open("c:\qchartist\csv\google\Google_quotes2.txt" , 0)
            'dim filestream2 as qfilestream
            filestream2.Open("c:\qchartist\csv\" + outFileName , fmCreate)
            filestr = ""
            fileline = ""

            WHILE NOT filestream.eof

                fileline = filestream.ReadLine
                lineloop ++

                IF lineloop > 7 THEN


                    IF MID$(fileline , 1 , 1) = "a" THEN
                        comaposition = INSTR(fileline , ",")
                        comaposition2 = INSTR(comaposition + 1 , fileline , ",")
                        comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
                        comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
                        comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
                        closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
                        highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
                        lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
                        openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
                        volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
                        ut = MID$(fileline , 2 , comaposition - 2)
                        utn=ut
                        ft = VARPTR$(unix_time_to_date(VARPTR(ut)))
                        'defstr year,month,day,hour,minute
                        year = MID$(ft , 0,4)
                        month = MID$(ft , 6,2)
                        day = MID$(ft , 9 , 2)
                        hour = MID$(ft , 12 , 2)
                        minute = MID$(ft , 15 , 2)
                        ft = year + "-" + month + "-" + day + "," + hour + ":" + minute
                        fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr

                    ELSE
                        IF LEFT$(fileline , 8) <> "TIMEZONE" THEN
                            comaposition = INSTR(fileline , ",")
                            comaposition2 = INSTR(comaposition + 1 , fileline , ",")
                            comaposition3 = INSTR(comaposition2 + 1 , fileline , ",")
                            comaposition4 = INSTR(comaposition3 + 1 , fileline , ",")
                            comaposition5 = INSTR(comaposition4 + 1 , fileline , ",")
                            closestr = MID$(fileline , comaposition + 1 , comaposition2 - comaposition - 1)
                            highstr = MID$(fileline , comaposition2 + 1 , comaposition3 - comaposition2 - 1)
                            lowstr = MID$(fileline , comaposition3 + 1 , comaposition4 - comaposition3 - 1)
                            openstr = MID$(fileline , comaposition4 + 1 , comaposition5 - comaposition4 - 1)
                            volumestr = MID$(fileline , comaposition5 + 1 , LEN(fileline) - comaposition5 - 1)
                            nb = MID$(fileline , 1 , comaposition - 1)
                            utn = Format$("%.8f" , VAL(ut) + (VAL(dstfreal) * 60) * VAL(nb))
                            ft = VARPTR$(unix_time_to_date(VARPTR(utn)))
                            year = MID$(ft , 0,4)
                            month = MID$(ft , 6,2)
                            day = MID$(ft , 9 , 2)
                            hour = MID$(ft , 12 , 2)
                            minute = MID$(ft , 15 , 2)
                            ft = year + "-" + month + "-" + day + "," + hour + ":" + minute
                            fileline = ft + "," + openstr + "," + highstr + "," + lowstr + "," + closestr + "," + volumestr
                        END IF

                    END IF
                    IF LEFT$(fileline , 8) <> "TIMEZONE" THEN filestream2.WriteLine(fileline) 'filestr=filestr+fileline+chr$(10)

                END IF
                DOEVENTS
            WEND


            currt = VAL(VARPTR$(current_time()))
            IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
                'if val(minute)<val(mid$(time$,4,2)) then
                nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
                nextutn2 = Format$("%.8f" , VAL(nextutn))
                nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
                nextyear = MID$(nextft , 0,4)
                nextmonth = MID$(nextft ,6,2)
                nextday = MID$(nextft , 9 , 2)
                nexthour = MID$(nextft , 12 , 2)
                nextminute = MID$(nextft , 15 , 2)
                nextft = nextyear + "-" + nextmonth + "-" + nextday + "," + nexthour + ":" + nextminute
                nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

                filestream2.WriteLine(nextfileline)
            END IF


            filestream.Close
            filestream2.Close

        END IF


        IF dssource.ItemIndex = 0 THEN

            outFileName = UCASE$(dssymboledit.Text) + dstfreal + ".csv"
            
            
            dim yhooarrtmp(0 TO 100000) as string
            DIM file AS QFILESTREAM,yincr as integer
            file.open("c:\qchartist\csv\" + outFileName , 0)
            yincr=-1
            DO
                yincr++
                yhooarrtmp(yincr) = file.ReadLine
            LOOP UNTIL file.eof
            file.close
     
            file.open("c:\qchartist\csv\" + outFileName , 65535)
            dim yincr2 as integer
            defstr linetmp
            defint linetmploc
            for yincr2=yincr to 1 step -1
                linetmp=mid$(yhooarrtmp(yincr2),1,11)+"00:00,"+mid$(yhooarrtmp(yincr2),12,len(yhooarrtmp(yincr2)))
                linetmp=mid$(linetmp,1,rinstr(linetmp,",")-1)
                file.writeline(linetmp)
            next yincr2
            file.close
            
            
            lineloop = 0

            filestream2.Open("c:\qchartist\csv\" + outFileName , 0)
            filestr = ""
            fileline = ""

            WHILE NOT filestream2.eof

                lineloop ++
                
                filestr=filestream2.ReadLine

                IF lineloop = filestream2.LineCount THEN

                    'filestr = filestream2.ReadLine

                    DEFSTR year0 , month0 , day0 , hours0 , minutes0
                    year0 = MID$(filestr , 1 , 4)
                    month0 = MID$(filestr , 6 , 2)
                    day0 = MID$(filestr , 9 , 2)
                    hours0 = MID$(filestr , 12 , 2)
                    minutes0 = MID$(filestr , 15 , 2)

                    DEFDBL myunixtime
                    DEFSTR myunixtimestr


                    DEFSTR $mydate = year0 + ";" + month0 + ";" + day0 + ";" + hours0 + ";" + minutes0 + ";" + "00"

                    cpptmpfuncreturn = VARPTR$(date_to_unix_time(VARPTR($mydate)))
                    utn = VAL(cpptmpfuncreturn)

                END IF
                DOEVENTS
            WEND
            filestream2.Close

            currt = VAL(VARPTR$(current_time()))
            IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN
                'if val(minute)<val(mid$(time$,4,2)) then
                nextutn = STR$(VAL(utn) + VAL(dstfreal) * 60)
                nextutn2 = Format$("%.8f" , VAL(nextutn))
                nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
                nextyear = MID$(nextft , 0,4)
                nextmonth = MID$(nextft , 6,2)
                nextday = MID$(nextft , 9 , 2)
                nexthour = MID$(nextft , 12 , 2)
                nextminute = MID$(nextft , 15 , 2)
                nextft = nextyear + "-" + nextmonth + "-" + nextday + "," + nexthour + ":" + nextminute
                nextfileline = nextft + "," + closestr + "," + closestr + "," + closestr + "," + closestr + "," + "0"

                filestream2.Open("c:\qchartist\csv\" + outFileName , 2)
                filestream2.position=filestream2.size
                filestream2.WriteLine(nextfileline)
                filestream2.Close
            END IF

        END IF


        'firstfilevol = 1


        IF googlerealtimecheckbox.Checked = 1 THEN
            IF currt - VAL(dstfreal) * 60 <= VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 AND currt > VAL(utn) + 60 * (VAL(dstfreal) - 1) + 59 THEN

                quotenexttimestamp = VAL(nextutn) + 60 * VAL(dstfreal)
            ELSE

                quotenexttimestamp = VAL(utn) + 60 * VAL(dstfreal)
            END IF
        END IF


        importfileauto2("c:\qchartist\csv\" + UCASE$(dssymboledit.Text) + dstfreal + ".csv")

        DEFINT i
        DEFINT j
        FOR i = 0 TO chartbars(displayedfile) - 1
            if VAL(dstfreal)<1440 then
            IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile)) THEN
                j = i
                EXIT FOR
            END IF
            end if
            if VAL(dstfreal)=1440 then
            IF date1(i) = Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile)) AND time1(i) = "14:30" THEN
                j = i
                EXIT FOR
            END IF
            end if
        NEXT i
        DEFDBL lasthigh , lastlow
        defint volumacc=0
        lasthigh = high1(j)
        lastlow = low1(j)
        FOR i = j TO 0 STEP - 1
            IF high1(i) > lasthigh THEN lasthigh = high1(i)
            IF low1(i) < lastlow THEN lastlow = low1(i)
            volumacc=volumacc+volume1(i)
        NEXT i
        Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)) = STR$(lasthigh)
        Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)) = STR$(lastlow)
        Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)) = STR$(close1(0))
        Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)) = STR$(volumacc)
    END IF
    
    defint k
    ' getting volume since the opening of the day
    FOR i = 0 TO 999 'chartbars(displayedfile) - 1
            IF date1(i+1)<>date1(i) THEN
                k=i
                EXIT FOR
            END IF
    NEXT i
    volumacc=0
    for i=k to j+1 step -1
        volumacc=volumacc+volume1(i)
    next i
    filevoltmp=volumacc
    

    'if googlerealtimebusytimer.enabled=1 then
    'importfileauto("c:\qchartist\csv\"+UCASE$(dssymboledit.Text) + dstf + ".csv")
    'reimportfile()
    'end if

    exportfilename
    btnOnClick(drwBox)

    clock.Visible = 0
    timclock.Enabled = 0

    IF googlerealtimecheckbox.Checked = 0 THEN
        detect_timeframe
        if useindiCheckedtmp=1 then
        useindi.checked=1        
        btnOnClick(drwBox)
        end if        
        dsok.Enabled = 1
    ELSE
        googlebusytimer.Interval = 1000
        '-----------------------------------------------------------------
        busystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , fmCreate)
        busystream.WriteLine("1")
        busystream.Close

        DEFSTR tmpdir = CurDir$
        CHDIR "c:\qchartist\perl\scripts"

        DIM pid AS INTEGER
        IF like(platform , "*Wine*") = 0 THEN pid = SHELL("getstockvol.bat usa " + UCASE$(dssymboledit.Text) , 0)
        IF like(platform , "*Wine*") = 1 THEN pid = SHELL("/bin/sh -c " + CHR$(34) + "./getstockvol.sh usa " + UCASE$(dssymboledit.Text) + CHR$(34) , 0)
        CHDIR tmpdir
        '----------------------------------------------------------------
        googlegoingto = "googlereadlastquote"  ':googlebusytimer.enabled=1
        googlereadlastquotetimer.Enabled = 1
        'googlereadlastquotetimestamp=val(varptr$(current_time())):googlerealtimebusytimer.enabled=1
    END IF
    GOTO endlabel

    endlabel :

END SUB


SUB googlereadlastquoteontimersub

    
IF googlerealtimecheckbox.Checked = 0 THEN
            'googlerealtimebusytimer.enabled=0
            googlereadlastquotetimer.Enabled = 0
            dsok.Enabled = 1
            exit sub
    END IF

DIM googlebusystream AS QFILESTREAM
    googlebusystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , 0)
    DEFSTR isbusy = ""
    WHILE NOT googlebusystream.eof
        isbusy = isbusy + googlebusystream.ReadLine
    WEND
    googlebusystream.Close

    'if val(isbusy)=1 then exit sub

    'googlereadlastquotetimestamp=val(varptr$(current_time()))

    DIM filestream AS QFILESTREAM
    filestream.Open("c:\qchartist\perl\scripts\quote.txt" , 0)
    DEFSTR filestr = ""
    WHILE NOT filestream.eof
        filestr = filestr + filestream.ReadLine
    WEND
    filestream.Close

    DEFSTR filestr2 = filestr
    filestr = MID$(filestr , 1 , INSTR(filestr , ",") - 1)

    IF VAL(filestr) > 0 THEN
        filevol = VAL(MID$(filestr2 , INSTR(filestr2 , ",") + 1 , LEN(filestr2)))
    ELSE
        filevol = VAL(Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile))) + filevoltmp
    END IF
    IF firstfilevol = 1 THEN
        firstfilevol = 0
        filevoltmp = filevol
    END IF
    DEFINT volum = filevol - filevoltmp

    'check if connection exists
    IF VAL(filestr) > 0 THEN
        'ok
    ELSE
        'print "Can't get quote, retrying next time"

        'googlerealtimecheckbox.checked=0
        'dsok.enabled=1
        'googlerealtimebusytimer.enabled=0

        'googlereadlastquotetimestamp=val(varptr$(current_time()))
        'firstfilevol=1
        'googlegetquotesub
        'exit sub

        filestr = Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile))

    END IF

    DEFINT googlecurrenttimestamptmp = googlecurrenttimestamp
    googlecurrenttimestamp = VAL(VARPTR$(current_time())) 'val(Format$("%.8f",varptr$(current_time())))
    IF googlecurrenttimestamp - googlecurrenttimestamptmp > 30 THEN
        PRINT "Connection lagging"
        'googlerealtimecheckbox.checked=0
        'dsok.enabled=1
        'googlerealtimebusytimer.enabled=0

        'googlereadlastquotetimestamp=val(varptr$(current_time()))
        'firstfilevol=1
        'googlegetquotesub
        'exit sub
    END IF

    DEFSTR dstf
    SELECT CASE dstimeframe.ItemIndex
        CASE 0  :
            dstf = "1"
        CASE 1  :
            dstf = "5"
        CASE 2  :
            dstf = "15"
        CASE 3  :
            dstf = "30"
        CASE 4  :
            dstf = "60"
        CASE 5  :
            dstf = "240"
        CASE 6  :
            dstf = "1440"
        CASE 7  :
            dstf = "10080"
        CASE 8  :
            dstf = "43200"
    END SELECT

    DEFSTR outFileName = UCASE$(dssymboledit.Text) + dstf + ".csv"

    'print str$(googlecurrenttimestamp)+" "+str$(quotenexttimestamp)

    IF googlecurrenttimestamp < quotenexttimestamp THEN

        IF VAL(filestr) > VAL(Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile))) THEN Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile)) = filestr
        IF VAL(filestr) < VAL(Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile))) THEN Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile)) = filestr
        Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile)) = filestr
        Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile)) = STR$(volum)

        exportfilename
        btnOnClick(drwBox)

        IF googlerealtimecheckbox.Checked = 0 THEN
            'googlerealtimebusytimer.enabled=0
            googlereadlastquotetimer.Enabled = 0
            dsok.Enabled = 1
        ELSE

            googlebusytimer.Interval = 1000
            '-----------------------------------------
            IF VAL(isbusy) = 0 THEN
                busystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , fmCreate)
                busystream.WriteLine("1")
                busystream.Close


                DEFSTR tmpdir = CurDir$
                CHDIR "c:\qchartist\perl\scripts"


                IF like(platform , "*Wine*") = 0 THEN pid = SHELL("getstockvol.bat usa " + UCASE$(dssymboledit.Text) , 0)
                IF like(platform , "*Wine*") = 1 THEN pid = SHELL("/bin/sh -c " + CHR$(34) + "./getstockvol.sh usa " + UCASE$(dssymboledit.Text) + CHR$(34) , 0)

                CHDIR tmpdir
            END IF
            '------------------------------------------------
            googlegoingto = "googlereadlastquote"  ':googlebusytimer.enabled=1

        END IF

    END IF

    IF googlecurrenttimestamp >= quotenexttimestamp THEN

        'if googlerealtimecheckbox.checked=1 then
        'googlereadlastquotetimestamp=val(varptr$(current_time()))
        'firstfilevol=1
        'googlegetquotesub
        'exit sub
        'end if

        DEFSTR nextutn = STR$(quotenexttimestamp)
        DEFSTR nextutn2 = Format$("%.8f" , VAL(nextutn))
        DEFSTR nextft = VARPTR$(unix_time_to_date(VARPTR(nextutn2)))
        DEFSTR nextyear = MID$(nextft ,0,4)
        DEFSTR nextmonth = MID$(nextft ,6,2)
        DEFSTR nextday = MID$(nextft , 9 , 2)
        DEFSTR nexthour = MID$(nextft , 12 , 2)
        DEFSTR nextminute = MID$(nextft , 15 , 2)

        quotenexttimestamp = quotenexttimestamp + 60 * VAL(dstf)

        Grid.Cell(rowgridoffset + 1 , chartbars(displayedfile) + 1) = nextyear + "-" + nextmonth + "-" + nextday
        Grid.Cell(rowgridoffset + 2 , chartbars(displayedfile) + 1) = nexthour + ":" + nextminute
        Grid.Cell(rowgridoffset + 3 , chartbars(displayedfile) + 1) = filestr
        Grid.Cell(rowgridoffset + 4 , chartbars(displayedfile) + 1) = filestr
        Grid.Cell(rowgridoffset + 5 , chartbars(displayedfile) + 1) = filestr
        Grid.Cell(rowgridoffset + 6 , chartbars(displayedfile) + 1) = filestr
        Grid.Cell(rowgridoffset + 7 , chartbars(displayedfile) + 1) = "0"
        
        firstfilevol = 1

        chartbars(displayedfile) = chartbars(displayedfile) + 1
        chartbarsdisplayedfilestr = STR$(chartbars(displayedfile))  : displayedfilestr = STR$(displayedfile)  : cpptmpfuncreturn = VARPTR$(setchartbars(VARPTR(chartbarsdisplayedfilestr) , VARPTR(displayedfilestr)))

        exportfilename

        Scrollchart.Max = chartbars(displayedfile)
        IF Scrollchart.Position = chartbars(displayedfile) - 1 THEN Scrollchart.Position = chartbars(displayedfile)
        chartstart = Scrollchart.Position - numbars

        btnOnClick(drwBox)

        IF googlerealtimecheckbox.Checked = 0 THEN
            'googlerealtimebusytimer.enabled=0
            googlereadlastquotetimer.Enabled = 0
            dsok.Enabled = 1
        ELSE
            googlebusytimer.Interval = 1000
            '-----------------------------------------
            IF VAL(isbusy) = 0 THEN
                busystream.Open("c:\qchartist\perl\scripts\isbusy.txt" , fmCreate)
                busystream.WriteLine("1")
                busystream.Close


                tmpdir = CurDir$
                CHDIR "c:\qchartist\perl\scripts"


                IF like(platform , "*Wine*") = 0 THEN pid = SHELL("getstockvol.bat usa " + UCASE$(dssymboledit.Text) , 0)
                IF like(platform , "*Wine*") = 1 THEN pid = SHELL("/bin/sh -c " + CHR$(34) + "./getstockvol.sh usa " + UCASE$(dssymboledit.Text) + CHR$(34) , 0)

                CHDIR tmpdir
            END IF
            '------------------------------------------------
            'filevoltmp = filevol
            googlegoingto = "googlereadlastquote"  ':googlebusytimer.enabled=1
        END IF

    END IF
    

END SUB

'sub googlerealtimebusytimersub
'
'if googlereadlastquotetimestamp<val(varptr$(current_time()))-10 then 'googlecurrenttimestamp<val(varptr$(current_time()))-40 then
'   
'    if googlerealtimecheckbox.checked=1 then
'        'googlereadlastquotetimestamp=val(varptr$(current_time()))
'        'googlegetquotesub
'
'    else
'        
'        'googlerealtimecheckbox.checked=0
'        'dsok.enabled=1
'        'googlerealtimebusytimer.enabled=0
'        'exit sub
'    
'    end if
'    
'end if

'end sub

function timeminute(seconds as double) as double

defdbl inhours=seconds/60/60
defdbl minutes=(inhours-floor(inhours))*60
result=minutes

end function

function timehour(seconds as double) as double

defdbl indays=seconds/60/60/24
defdbl hours=(indays-floor(indays))*24
result=hours
      
end function

function timedayofweek(seconds as double) as double

defstr mydate
defstr secondsstr=seconds
'mydate=varptr$(unix_time_to_date(varptr(secondsstr)))
'defstr datestr=mid$(mydate,1,3)          
defdbl dayofweek=(floor(val(secondsstr) / 86400) + 4) mod 7
result=dayofweek
'if datestr="Mon" then result= 1
'if datestr="Tue" then result= 2
'if datestr="Wed" then result= 3
'if datestr="Thu" then result= 4
'if datestr="Fri" then result= 5
'if datestr="Sat" then result= 6
'if datestr="Sun" then result= 0

end sub

sub websitesub  

ShellExecute 0, "open", "http://www.qchartist.net", "", "", 1

end sub

' --- Useless ---
'sub loginsub
'loginform.visible=1
'end sub
' ---------------

sub googlerefreshrateeditchangesub
googlereadlastquotetimer.interval=val(googlerefreshrateedit.text)
end sub

sub loadsymbolslistsub
symbolslistbox.clear
dim filestream as qfilestream
filestream.Open("c:\qchartist\qsymbols\"+markettypecombo.item(markettypecombo.itemindex)+".txt" , 0)
defstr filestr = ""
WHILE NOT filestream.eof
    filestr = filestream.ReadLine
    symbolslistbox.additems mid$(filestr,1,instr(filestr,",")-1)+" | "+mid$(filestr,instr(filestr,",")+1,len(filestr))
WEND
filestream.Close 
end sub

sub markettypecombochangesub
loadsymbolslistsub
end sub

sub searchsymbolslistbtnsub
defint i
defstr searchsymbolsliststr="*"+searchsymbolslistedit.text+"*"
for i=0 to symbolslistbox.itemcount-1
if like(lcase$(symbolslistbox.item(i)),lcase$(searchsymbolsliststr))=1 then
symbolslistbox.itemindex=i
exit for
end if
doevents
next i
end sub

sub searchnextsymbolslistbtnsub
defint i
defstr searchsymbolsliststr="*"+searchsymbolslistedit.text+"*"
for i=symbolslistbox.itemindex+1 to symbolslistbox.itemcount-1
if like(lcase$(symbolslistbox.item(i)),lcase$(searchsymbolsliststr))=1 then
symbolslistbox.itemindex=i
exit for
end if
doevents
next i
end sub

sub updatesymbolslistbtnsub
run "c:\qchartist\qsymbols\qsymbols.exe"
end sub

sub reloadsymbolslistbtnsub
loadsymbolslistsub
end sub

sub restoredefaultdatabtnsub
IF MessageDlg("Restoring default data will overwrite current data. Are you sure?", mtWarning, mbYes OR mbNo, 0) = mrYes THEN
    defint pid
    pid=shell("c:\qchartist\qsymbols\restore_default_data.bat",0)
END IF
end sub

sub selectsymbolslistbtnsub
dssymboledit.text=mid$(symbolslistbox.item(symbolslistbox.itemindex),1,instr(symbolslistbox.item(symbolslistbox.itemindex)," |")-1)
if markettypecombo.item(markettypecombo.itemindex)="AMEX" or _
markettypecombo.item(markettypecombo.itemindex)="CAC_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="commodities_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_fr_paris_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_dow_jones_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_nasdaq_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_nyse_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_other_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_sp_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_treasury_bonds_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_africa-middle_east_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_america_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_asia-pacific_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_europe_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="NASDAQ" or _
markettypecombo.item(markettypecombo.itemindex)="nasdaqtraded" or _
markettypecombo.item(markettypecombo.itemindex)="NSE" or _
markettypecombo.item(markettypecombo.itemindex)="Amsterdam" or _
markettypecombo.item(markettypecombo.itemindex)="Paris" or _
markettypecombo.item(markettypecombo.itemindex)="Frankfurt" or _
markettypecombo.item(markettypecombo.itemindex)="Madrid" or _
markettypecombo.item(markettypecombo.itemindex)="Brussels" or _
markettypecombo.item(markettypecombo.itemindex)="Milano" or _
markettypecombo.item(markettypecombo.itemindex)="Zurich" or _
markettypecombo.item(markettypecombo.itemindex)="Oslo" or _
markettypecombo.item(markettypecombo.itemindex)="Stockholm" or _
markettypecombo.item(markettypecombo.itemindex)="Helsinki" or _
markettypecombo.item(markettypecombo.itemindex)="Lisbon" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="Istanbul" or _
markettypecombo.item(markettypecombo.itemindex)="custom_list" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_ETFS" or _
markettypecombo.item(markettypecombo.itemindex)="HongKong" or _
markettypecombo.item(markettypecombo.itemindex)="Copenhagen" or _
markettypecombo.item(markettypecombo.itemindex)="SaudiArabia" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_Currencies" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_World_Indices" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_Futures" or _
markettypecombo.item(markettypecombo.itemindex)="LSE_exchange" or _
markettypecombo.item(markettypecombo.itemindex)="Toronto" or _
markettypecombo.item(markettypecombo.itemindex)="XETRA" then
dssource.itemindex=0
end if
if markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_ENERGY" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_GRAINS" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_METALS" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_SOFTS" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCIES" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCY_FUTURES" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCY_INDICES" or _
markettypecombo.item(markettypecombo.itemindex)="DAX_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="dji_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="German_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Hungarian_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_ASIA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_EUROPE" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_AMERICA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_AMERICA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_ASIA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_EUROPE" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_OTHERS" or _
markettypecombo.item(markettypecombo.itemindex)="Japan_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Japan_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="MDAX_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nasdaq_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Nasdaq100_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Nikkei225_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_mkt_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Polish_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="sp500_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="TOPIX30_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK100_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="US_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="us_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="WIG30_stocks" then
dssource.itemindex=1
end if
if markettypecombo.item(markettypecombo.itemindex)="Tiigo_cryptocurrencies" or _
markettypecombo.item(markettypecombo.itemindex)="Cryptocurrencies_eToro" then
dssource.itemindex=6
end if
if markettypecombo.item(markettypecombo.itemindex)="finnhub_tickers" then
dssource.itemindex=8
end if
'if markettypecombo.item(markettypecombo.itemindex)="nasdaqtraded" then
'dssource.itemindex=3
'end if
datasourcefrm.visible=1
setfocus(datasourcefrm.handle)
end sub

sub loadsymbolslistbtnsub
dssymboledit.text=mid$(symbolslistbox.item(symbolslistbox.itemindex),1,instr(symbolslistbox.item(symbolslistbox.itemindex)," |")-1)
if markettypecombo.item(markettypecombo.itemindex)="AMEX" or _
markettypecombo.item(markettypecombo.itemindex)="CAC_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="commodities_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_fr_paris_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_dow_jones_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_nasdaq_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_nyse_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_other_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_sp_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_treasury_bonds_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_africa-middle_east_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_america_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_asia-pacific_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_europe_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="NASDAQ" or _
markettypecombo.item(markettypecombo.itemindex)="nasdaqtraded" or _
markettypecombo.item(markettypecombo.itemindex)="NSE" or _
markettypecombo.item(markettypecombo.itemindex)="Amsterdam" or _
markettypecombo.item(markettypecombo.itemindex)="Paris" or _
markettypecombo.item(markettypecombo.itemindex)="Frankfurt" or _
markettypecombo.item(markettypecombo.itemindex)="Madrid" or _
markettypecombo.item(markettypecombo.itemindex)="Brussels" or _
markettypecombo.item(markettypecombo.itemindex)="Milano" or _
markettypecombo.item(markettypecombo.itemindex)="Zurich" or _
markettypecombo.item(markettypecombo.itemindex)="Oslo" or _
markettypecombo.item(markettypecombo.itemindex)="Stockholm" or _
markettypecombo.item(markettypecombo.itemindex)="Helsinki" or _
markettypecombo.item(markettypecombo.itemindex)="Lisbon" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="Istanbul" or _
markettypecombo.item(markettypecombo.itemindex)="custom_list" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_ETFS" or _
markettypecombo.item(markettypecombo.itemindex)="HongKong" or _
markettypecombo.item(markettypecombo.itemindex)="Copenhagen" or _
markettypecombo.item(markettypecombo.itemindex)="SaudiArabia" or _
markettypecombo.item(markettypecombo.itemindex)="Toronto" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_Currencies" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_World_Indices" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_Futures" or _
markettypecombo.item(markettypecombo.itemindex)="LSE_exchange" or _
markettypecombo.item(markettypecombo.itemindex)="XETRA" then
if dssource.itemindex<>0 and dssource.itemindex<>2 then dssource.itemindex=0
end if
if markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_ENERGY" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_GRAINS" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_METALS" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_SOFTS" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCIES" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCY_FUTURES" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCY_INDICES" or _
markettypecombo.item(markettypecombo.itemindex)="DAX_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="dji_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="German_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Hungarian_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_ASIA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_EUROPE" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_AMERICA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_AMERICA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_ASIA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_EUROPE" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_OTHERS" or _
markettypecombo.item(markettypecombo.itemindex)="Japan_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Japan_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="MDAX_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nasdaq_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Nasdaq100_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Nikkei225_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_mkt_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Polish_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="sp500_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="TOPIX30_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK100_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="US_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="us_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="WIG30_stocks" then
dssource.itemindex=1
end if
if markettypecombo.item(markettypecombo.itemindex)="Tiigo_cryptocurrencies" or _
markettypecombo.item(markettypecombo.itemindex)="Cryptocurrencies_eToro" then
dssource.itemindex=6
end if
if markettypecombo.item(markettypecombo.itemindex)="finnhub_tickers" then
dssource.itemindex=8
end if
'if markettypecombo.item(markettypecombo.itemindex)="nasdaqtraded" then
'dssource.itemindex=3
'end if
if dsok.enabled=1 then
barsdisplayed.text="333"
dsokclick
end if
end sub

sub showsymbolslist
symbolslistform.visible=1
symbolslistform.WindowState = 0
setfocus(symbolslistform.handle)
end sub

sub showalphavantageform
alphavantageform.visible=1
alphavantageform.WindowState = 0
setfocus(alphavantageform.handle)
end sub

sub symbolslistboxonclicksub
dssymboledit.text=mid$(symbolslistbox.item(symbolslistbox.itemindex),1,instr(symbolslistbox.item(symbolslistbox.itemindex)," |")-1)
if markettypecombo.item(markettypecombo.itemindex)="AMEX" or _
markettypecombo.item(markettypecombo.itemindex)="CAC_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="commodities_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_fr_paris_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_dow_jones_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_nasdaq_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_nyse_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_other_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_sp_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_us_treasury_bonds_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_africa-middle_east_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_america_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_asia-pacific_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="indices_world_europe_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="NASDAQ" or _
markettypecombo.item(markettypecombo.itemindex)="nasdaqtraded" or _
markettypecombo.item(markettypecombo.itemindex)="NSE" or _
markettypecombo.item(markettypecombo.itemindex)="Amsterdam" or _
markettypecombo.item(markettypecombo.itemindex)="Paris" or _
markettypecombo.item(markettypecombo.itemindex)="Frankfurt" or _
markettypecombo.item(markettypecombo.itemindex)="Madrid" or _
markettypecombo.item(markettypecombo.itemindex)="Brussels" or _
markettypecombo.item(markettypecombo.itemindex)="Milano" or _
markettypecombo.item(markettypecombo.itemindex)="Zurich" or _
markettypecombo.item(markettypecombo.itemindex)="Oslo" or _
markettypecombo.item(markettypecombo.itemindex)="Stockholm" or _
markettypecombo.item(markettypecombo.itemindex)="Helsinki" or _
markettypecombo.item(markettypecombo.itemindex)="Lisbon" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_yahoo" or _
markettypecombo.item(markettypecombo.itemindex)="Istanbul" or _
markettypecombo.item(markettypecombo.itemindex)="custom_list" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_ETFS" or _
markettypecombo.item(markettypecombo.itemindex)="HongKong" or _
markettypecombo.item(markettypecombo.itemindex)="Copenhagen" or _
markettypecombo.item(markettypecombo.itemindex)="SaudiArabia" or _
markettypecombo.item(markettypecombo.itemindex)="Toronto" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_Currencies" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_World_Indices" or _
markettypecombo.item(markettypecombo.itemindex)="Yahoo_Finance_Futures" or _
markettypecombo.item(markettypecombo.itemindex)="LSE_exchange" or _
markettypecombo.item(markettypecombo.itemindex)="XETRA" then
if dssource.itemindex<>0 and dssource.itemindex<>2 then dssource.itemindex=0
end if
if markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_ENERGY" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_GRAINS" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_METALS" or _
markettypecombo.item(markettypecombo.itemindex)="COMMODITIES_SOFTS" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCIES" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCY_FUTURES" or _
markettypecombo.item(markettypecombo.itemindex)="CURRENCY_INDICES" or _
markettypecombo.item(markettypecombo.itemindex)="DAX_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="dji_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="German_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Hungarian_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_ASIA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_EUROPE" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_AMERICA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_AMERICA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_ASIA" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_FUTURES_EUROPE" or _
markettypecombo.item(markettypecombo.itemindex)="INDICES_OTHERS" or _
markettypecombo.item(markettypecombo.itemindex)="Japan_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Japan_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="MDAX_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nasdaq_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Nasdaq100_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Nikkei225_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_mkt_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="nyse_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="Polish_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="sp500_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="TOPIX30_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="UK100_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="US_ETFs_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="us_stocks" or _
markettypecombo.item(markettypecombo.itemindex)="WIG30_stocks" then
dssource.itemindex=1
end if
if markettypecombo.item(markettypecombo.itemindex)="Tiigo_cryptocurrencies" or _
markettypecombo.item(markettypecombo.itemindex)="Cryptocurrencies_eToro" then
dssource.itemindex=6
end if
if markettypecombo.item(markettypecombo.itemindex)="finnhub_tickers" then
dssource.itemindex=8
end if
'if markettypecombo.item(markettypecombo.itemindex)="nasdaqtraded" then
'dssource.itemindex=3
'end if
end sub

sub symbolslistboxondblclicksub
loadsymbolslistbtnsub
end sub

sub enablegetchartbtnsub
getcharttimer.enabled=0
dsok.enabled=1
if useindiCheckedtmp=1 then useindi.checked=1
end sub

sub citytopocombochange
select case citytopocombo.item(citytopocombo.itemindex)
case "Accra,  Ghana"
latitudeedit.text="5.614223"
longitudeedit.text="-0.196336"
altitudeedit.text="23"
timezoneedit.text="0"
case "Ankara,  Turkey"
latitudeedit.text="39.925533"
longitudeedit.text="32.866287"
altitudeedit.text="876"
timezoneedit.text="-2"
case "Athens, Greece"
latitudeedit.text="38.004566"
longitudeedit.text="23.716091"
altitudeedit.text="49"
timezoneedit.text="-2"
case "Atlanta, USA"
latitudeedit.text="33.753746"
longitudeedit.text="-84.386330"
altitudeedit.text="313"
timezoneedit.text="+5"
case "Baghdad, Iraq"
latitudeedit.text="33.312805"
longitudeedit.text="44.361488"
altitudeedit.text="39"
timezoneedit.text="-3"
case "Baku/Sumqayit, Azerbaijan"
latitudeedit.text="40.409264"
longitudeedit.text="49.867092"
altitudeedit.text="24"
timezoneedit.text="-4"
case "Baltimore, USA"
latitudeedit.text="39.299236"
longitudeedit.text="-76.609383"
altitudeedit.text="14"
timezoneedit.text="+5"
case "Bangalore, India"
latitudeedit.text="12.972442"
longitudeedit.text="77.580643"
altitudeedit.text="924"
timezoneedit.text="-5.5"
case "Bangkok, Thailand"
latitudeedit.text="13.736717"
longitudeedit.text="100.523186"
altitudeedit.text="8"
timezoneedit.text="-7"
case "Barcelona, Spain"
latitudeedit.text="41.390205"
longitudeedit.text="2.154007"
altitudeedit.text="36"
timezoneedit.text="-1"
case "Beijing, China"
latitudeedit.text="39.913818"
longitudeedit.text="116.363625"
altitudeedit.text="48"
timezoneedit.text="-8"
case "Beirut, Lebanon"
latitudeedit.text="33.888630"
longitudeedit.text="35.495480"
altitudeedit.text="100"
timezoneedit.text="-2"
case "Belo Horizonte, Brazil"
latitudeedit.text="-19.912998"
longitudeedit.text="-43.940933"
altitudeedit.text="847"
timezoneedit.text="+2"
case "Berlin, Germany"
latitudeedit.text="52.520008"
longitudeedit.text="13.404954"
altitudeedit.text="37"
timezoneedit.text="-1"
case "Birmingham, UK"
latitudeedit.text="52.489471"
longitudeedit.text="-1.898575"
altitudeedit.text="120"
timezoneedit.text="0"
case "Bogota, Colombia"
latitudeedit.text="4.624335"
longitudeedit.text="-74.063644"
altitudeedit.text="2612"
timezoneedit.text="+5"
case "Boston, USA"
latitudeedit.text="42.364758"
longitudeedit.text="-71.067421"
altitudeedit.text="8"
timezoneedit.text="+5"
case "Brasilia, Brazil"
latitudeedit.text="-15.7797200"
longitudeedit.text="-47.9297200"
altitudeedit.text="1136"
timezoneedit.text="+2"
case "Brisbane, Australia"
latitudeedit.text="-27.470125"
longitudeedit.text="153.021072"
altitudeedit.text="28"
timezoneedit.text="-10"
case "Brussels, Belgium"
latitudeedit.text="50.8504500"
longitudeedit.text="4.3487800"
altitudeedit.text="28"
timezoneedit.text="-1"
case "Budapest, Hungary"
latitudeedit.text="47.506851"
longitudeedit.text="19.045776"
altitudeedit.text="106"
timezoneedit.text="-1"
case "Buenos Aires, Argentina"
latitudeedit.text="-34.603722"
longitudeedit.text="-58.381592"
altitudeedit.text="30"
timezoneedit.text="+3"
case "Cairo, Egypt"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Campinas, Brazil"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Cape Town, South Africa"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Chennai, India"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Chicago, USA"
latitudeedit.text="41.881832"
longitudeedit.text="-87.623177"
altitudeedit.text="179"
timezoneedit.text="+6"
case "Cincinnati, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Cleveland, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Cologne/Bonn, Germany"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Copenhagen, Denmark"
latitudeedit.text="55.676098"
longitudeedit.text="12.568337"
altitudeedit.text="7"
timezoneedit.text="-1"
case "Curitiba, Brazil"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Dalian, China"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Dallas/Fort Worth, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Damman , Saudi Arabia"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Delhi, India"
latitudeedit.text="28.644800"
longitudeedit.text="77.216721"
altitudeedit.text="222"
timezoneedit.text="-5.5"
case "Denver, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Detroit, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Dubai, UAE"
latitudeedit.text="25.276987"
longitudeedit.text="55.296249"
altitudeedit.text="0"
timezoneedit.text="-4"
case "Durban, South Africa"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Essen/DÃ¼sseldorf, Germany"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Fortaleza, Brazil"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Frankfurt, Germany"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Fukuoka, Japan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Guadalajara, Mexico"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Hamburg, Germany"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Harare, Zimbabwe"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Ho Chi Minh City, Vietnam"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Houston, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Hyderabad, India"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Istanbul, Turkey"
latitudeedit.text="41.015137"
longitudeedit.text="28.979530"
altitudeedit.text="7"
timezoneedit.text="-2"
case "Jakarta, Indonesia"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Jeddah, Saudi Arabia"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Johannesburg/East Rand, South Africa"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Karachi, Pakistan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Katowice, Poland"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Khartoum, Sudan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Kinshasa, Congo"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Kolkata, India"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Kuala Lumpur, Malaysia"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Kuwait, Kuwait"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Lagos, Nigeria"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Lahore, Pakistan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Lima, Peru"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Lisbon, Portugal"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "London, UK"
latitudeedit.text="51.5085300"
longitudeedit.text="-0.1257400"
altitudeedit.text="20"
timezoneedit.text="0"
case "Los Angeles, USA"
latitudeedit.text="34.052235"
longitudeedit.text="-118.243683"
altitudeedit.text="87"
timezoneedit.text="+8"
case "Madrid, Spain"
latitudeedit.text="40.416775"
longitudeedit.text="-3.703790"
altitudeedit.text="648"
timezoneedit.text="-1"
case "Manchester, UK"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Manila, Philippines"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Melbourne, Australia"
latitudeedit.text="-37.663712"
longitudeedit.text="144.844788"
altitudeedit.text="124"
timezoneedit.text="-11"
case "Mexico City, Mexico"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Miami, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Milan, Italy"
latitudeedit.text="45.467560"
longitudeedit.text="9.189398"
altitudeedit.text="123"
timezoneedit.text="-1"
case "Minneapolis/St. Paul, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Monterey, Mexico"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Montreal., Canada"
latitudeedit.text="45.516136"
longitudeedit.text="-73.656830"
altitudeedit.text="43"
timezoneedit.text="+5"
case "Moscow, Russia"
latitudeedit.text="55.751244"
longitudeedit.text="37.618423"
altitudeedit.text="151"
timezoneedit.text="-3"
case "Mumbai, India"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Munich, Germany"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Nagoya, Japan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Naples, Italy"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "New York Metro, USA"
latitudeedit.text="40.730610"
longitudeedit.text="-73.935242"
altitudeedit.text="7"
timezoneedit.text="+5"
case "Osaka/Kobe/Kyoto, Japan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Paris, France"
latitudeedit.text="48.864716"
longitudeedit.text="2.349014"
altitudeedit.text="36"
timezoneedit.text="-1"
case "Philadelphia, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Phoenix/Mesa, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Pittsburgh, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Portland, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Porto Alegre, Brazil"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Pretoria, South Africa"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Recife, Brazil"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Rio de Janeiro, Brazil"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Riverside/San Bernardino, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Riyadh, Saudi Arabia"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Rome, Italy"
latitudeedit.text="41.890251"
longitudeedit.text="12.492373"
altitudeedit.text="23"
timezoneedit.text="-1"
case "San Diego, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "San Francisco/Oakland , USA"
latitudeedit.text="37.733795"
longitudeedit.text="-122.446747"
altitudeedit.text="133"
timezoneedit.text="+8"
case "San Jose, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "San Juan, Puerto Rico"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
end select ' case nb limit reached, need to open a new select case else it crashs

select case citytopocombo.item(citytopocombo.itemindex)
case "Santiago, Chile"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Sao Paulo, Brazil"
latitudeedit.text="-23.533773"
longitudeedit.text="-46.625290"
altitudeedit.text="729"
timezoneedit.text="+2"
case "Sapporo, Japan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Seattle, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Seoul/Incheon, South Korea"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Shanghai, China"
latitudeedit.text="31.188940"
longitudeedit.text="121.437508"
altitudeedit.text="20"
timezoneedit.text="-8"
case "Shenyang, China"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Shenzhen, China"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Singapore, Singapore"
latitudeedit.text="1.290270"
longitudeedit.text="103.851959"
altitudeedit.text="8"
timezoneedit.text="-8"
case "St Petersburg, Russia"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "St. Louis, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Strasbourg, France"
latitudeedit.text="48.5839200"
longitudeedit.text="7.7455300"
altitudeedit.text="147"
timezoneedit.text="-1"
case "Sydney, Australia"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Taichung, Taiwan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Taipei, Taiwan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Tampa/St. Petersburg, USA"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Tashkent, Uzbekistan"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Tehran, Iran"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Tel Aviv, Israel"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Tianjin, China"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Tokyo/Yokohama, Japan"
latitudeedit.text="35.652832"
longitudeedit.text="139.839478"
altitudeedit.text="5"
timezoneedit.text="-9"
case "Toronto, Canada"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Vancouver, Canada"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Vienna, Austria"
latitudeedit.text=""
longitudeedit.text=""
altitudeedit.text=""
timezoneedit.text=""
case "Warsaw, Poland"
latitudeedit.text="52.237049"
longitudeedit.text="21.017532"
altitudeedit.text="111"
timezoneedit.text="-1"
case "Washington, USA"
latitudeedit.text="47.751076"
longitudeedit.text="-120.740135"
altitudeedit.text="615"
timezoneedit.text="+5"
end select
end sub

sub generalsettings
generalsettingsfrm.visible=1
generalsettingsfrm.windowstate=0
setfocus(generalsettingsfrm.handle)
end sub

sub shiftchart
if val(generalsettingsfuturebarsedit.text)>0 then
generalsettingsfuturebarsedit.text="0"
btnOnClick(drwBox)
exit sub
end if
if val(generalsettingsfuturebarsedit.text)=0 then
generalsettingsfuturebarsedit.text="50"
btnOnClick(drwBox)
exit sub
end if
end sub

sub frmMainonshowsub
if checkupdatesstartupcheckbox.checked=1 then

'InetIsOffline returns 0 if you're connected
DefInt A

A = InetIsOffLine(0)
If A = 0 Then
'Print "Connected To Internet"
Else
'Print "Not Connected to Internet"
'showmessage "No internet connection"
exit sub
End If

DEFSTR url = "http://www.qchartist.net/updates/builds.txt?"+STR$(timeGetTime)

    DEFSTR outFileName = "builds.txt"

    CHDIR homepath + "\updates"

    IF GetFileHTTP(url , outFileName) THEN
        'SHOWMESSAGE "Download Error : " & url
        EXIT SUB
    ELSE
        'SHOWMESSAGE "Download Finished & OK : " & URL
    END IF
    
DIM lastver AS STRING
DIM lastverfile AS QFILESTREAM
lastverfile.open(homepath + "\updates\builds.txt" , fmOpenRead)
do
lastver = lastverfile.ReadLine() 'Read an entire line
loop until lastverfile.eof
lastverfile.close  

if (val(QC_build)<val(lastver)) then
'using DateFromSerial
'DEFLNG yy, mm, dd,DayOfWeek
'DayOfWeek = DateFromSerial(val(lastver), yy, mm, dd)
'defstr lastverstr=str$(yy)+"-"+str$(mm)+"-"+str$(dd)
'showmessage "A new version of QChartist is available (your version: "+QC_version+", last version: "+lastver+")"+chr$(10)+"Go to http://www.qchartist.net to download it."
IF MessageDlg("A new version of QChartist is available (your build: "+QC_build+", last build: "+lastver+")"+chr$(10)+"Upgrade now?", mtConfirmation, mbYes OR mbNo, 0) = mrYes THEN
    '-- Upgrade
    run homepath+"\update.exe"
    run "c:\qchartist\qckill.exe"

end if

else
'showmessage "Your already have the lastest version of QChartist (build: "+QC_build+")"
end if

end if
end sub

sub checkupdatesstartupcheckboxonchange
ini.Section = "Settings"
if checkupdatesstartupcheckbox.checked=1 then
ini.Write("checkforupdates" , "1")
else
ini.Write("checkforupdates" , "0")
end if
end sub

' =================== Watchlist subroutines ==============================


sub initialize_watchlist
symbolslistbox_watchlist.clear
pricelistbox.clear
    dim tickersstream as qfilestream
defstr tickersline=""
defstr tickerspath= homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt"
tickersstream.open(tickerspath,0)


while not tickersstream.eof
tickersline=tickersstream.readline
wend

tickersstream.close

FileCopy (homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt",homepath+"\csv\finnhub\tickers.txt")

DEFINT tickersloc 
defint filetickersloc=0
defint filetickersloc2=0
DEFSTR filetickers = ""
defstr filetickersitem

defint i
do

    filetickersloc = INSTR(tickersline , ",")
    filetickersitem = MID$(tickersline , 0,filetickersloc - 1)
    symbolslistbox_watchlist.additems filetickersitem
    pricelistbox.additems ""
    tickersline = MID$(tickersline , filetickersloc+1,len(tickersline))
loop until filetickersloc=0

end sub

sub startstreamsub_watchlist

if finnhubapikeyedit.Text="" then
    showmessage "Please specify your finnhub.io API key"
    exit sub
end if

startstreambtn.enabled=0
stopstreambtn.enabled=1

connect_watchlist_firsttime=1

defstr tmppath=curdir$

chdir homepath+"\csv\finnhub"

FileCopy (homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt",homepath+"\csv\finnhub\tickers.txt")

dim finnhubfilestream as qfilestream

finnhubfilestream.Open(homepath+"\csv\finnhub\isbusy.txt" , fmCreate)
finnhubfilestream.WriteLine("1")
finnhubfilestream.Close

finnhubfilestream.Open(homepath+"\csv\finnhub\stream_enabled.txt" , fmCreate)
finnhubfilestream.WriteLine("1")
finnhubfilestream.Close

finnhubfilestream.Open(homepath+"\csv\finnhub\runpy.bat" , fmCreate)

finnhubfilestream.WriteLine("sample.exe "+finnhubapikeyedit.text)
    

finnhubfilestream.WriteLine("echo 0 > isbusy.txt")
finnhubfilestream.Close

defint pid = SHELL("runpy.bat", 0)

CHDIR tmppath

finnhubbusytimer.Interval = 1000  :  finnhubbusytimer.Enabled = 1
end sub

sub finnhubbusytimersub

defint pid
    DIM finnhubstream AS QFILESTREAM
    finnhubstream.Open(homepath+"\csv\finnhub\isbusy.txt" , 0)
    

    DEFSTR isbusy = ""
    WHILE NOT finnhubstream.eof
        isbusy = isbusy + finnhubstream.ReadLine
    WEND
    finnhubstream.Close  
    
    IF VAL(isbusy) = 0 THEN
    
    stopstreambtn.enabled=0
    startstreambtn.enabled=1
    PLAYWAV homepath + "\wav\disconnect.wav" , SND_ASYNC
    finnhubbusytimer.Enabled = 0
    
    end if  

    IF VAL(isbusy) = 1 THEN
        ' streaming on
        
        if connect_watchlist_firsttime=1 then 
            PLAYWAV homepath + "\wav\magic-mallet-6262.wav" , SND_ASYNC
            connect_watchlist_firsttime=0
        end if

        'finnhubbusytimer.Enabled = 0
        GOTO finnhubreadquotes
        
    end if
    
    EXIT SUB
    
    finnhubreadquotes :
    
    
    
    finnhubstream.Open(homepath+"\csv\finnhub\quotes.txt" , 0)
    if finnhubstream.size<100 then
        PRINT "Error"
        'if useindiCheckedtmp=1 then useindi.checked=1
        'dsok.Enabled = 1
        EXIT SUB
    end if
    finnhubstream.Close
        
    finnhubstream.Open(homepath+"\csv\finnhub\quotes.txt" , 0)
    DEFSTR finnhubquotes = ""
    WHILE NOT finnhubstream.eof
        finnhubquotes = finnhubquotes + finnhubstream.ReadLine
    WEND
    finnhubstream.Close   
    
    defint i
    for i=0 to symbolslistbox_watchlist.itemcount-1
    'showmessage finnhubquotes
    defint tickerfind=instr(0,finnhubquotes,chr$(34)+"s"+chr$(34)+":"+chr$(34)+symbolslistbox_watchlist.item(i)+chr$(34))
    defstr myticker2=finnhubquotes
    defint tickerfindtmp
    do
    if tickerfind>0 then    
    ''myticker2=mid$(myticker2,tickerfind+len(symbolslistbox_watchlist.item(i)),len(myticker2))
    tickerfindtmp=tickerfind
    tickerfind=instr(tickerfindtmp+len(symbolslistbox_watchlist.item(i))+6,myticker2,chr$(34)+"s"+chr$(34)+":"+chr$(34)+symbolslistbox_watchlist.item(i)+chr$(34))
    'print "--------------- "+ myticker2
    end if
    loop until tickerfind=0
    
    defint tickerfind2=instr(tickerfindtmp,myticker2,"}")
    defstr fullticker2=mid$(myticker2,1,tickerfind2)
    'showmessage myticker2
    'showmessage str$(tickerfindtmp)
    ''if tickerfindtmp=0 then exit sub
    'defstr fullticker=mid$(myticker2,tickerfindtmp-40,100)
    'if instr(0,fullticker,symbolslistbox_watchlist.item(i))>0 then
    defstr fullticker=right$(fullticker2,len(fullticker2)-rinstr(fullticker2,"{"))
    ''showmessage fullticker
    
    if instr(0,fullticker,chr$(34)+"s"+chr$(34)+":"+chr$(34)+symbolslistbox_watchlist.item(i)+chr$(34))>0 then
    
    tickerfind2=instr(0,fullticker,chr$(34)+"p"+chr$(34)+":")
    defstr myticker6=mid$(fullticker,tickerfind2+4,len(fullticker))
    tickerfind2=instr(0,myticker6,",")
    defstr myticker7=mid$(myticker6,0,tickerfind2-1)
    ''showmessage myticker7
    
    pricelistbox.item(i)=myticker7
    
    tickerfind2=instr(0,fullticker,chr$(34)+"t"+chr$(34)+":")
    myticker6=mid$(fullticker,tickerfind2+4,len(fullticker))
    tickerfind2=instr(0,myticker6,",")
    defstr myticker8=mid$(myticker6,0,tickerfind2-1)

    defdbl serverunixtime=val(myticker8)/1000 ' milliseconds to seconds

    if serverunixtime>marketwatchunixtimetmp then
    marketwatchunixtimetmp=serverunixtime

    defstr myunixtimestr=Format$("%12.0f", serverunixtime)

    cpptmpfuncreturn=varptr$(unix_time_to_date(varptr(myunixtimestr))) ' works here in year 2038
    'showmessage cpptmpfuncreturn
    defstr year,month,day,hour,minute,second
    year=mid$(cpptmpfuncreturn,0,4)
    month=mid$(cpptmpfuncreturn,6,2)
    day=mid$(cpptmpfuncreturn,9,2)
    hour=mid$(cpptmpfuncreturn,12,2)
    minute=mid$(cpptmpfuncreturn,15,2)
    'second=mid$(cpptmpfuncreturn,18,2)
    second="00"

    defstr parameters=year+";"+month+";"+day+";"+hour+";"+minute+";"+second
    defdbl inseconds=val(varptr$(calculate_seconds_since_1_1_1970_cpp(varptr(parameters))))
    defdbl difseconds=val(myunixtimestr)-inseconds
    defstr difsecondsstr=str$(difseconds)
    if difseconds<10 then difsecondsstr="0"+difsecondsstr
    
    form_watchlist.caption="Market watch: "+hour+":"+minute+":"+difsecondsstr

    end if
        
    if usespeechwatchlist.enabled=1 then
    if timeGetTime>=speechtime+5000 then
    if i=pricelistbox.itemindex then 
    say myticker7    
    speechtime=timeGetTime
    end if
    end if
    end if      
    
    end if
    
    ''showmessage str$(tickerfind2)
    ''if tickerfind2=0 then exit sub
    ''defstr myticker6=mid$(fullticker,tickerfind2,len(fullticker))
    ''showmessage str$(myticker6)
    ''tickerfind2=instr(0,myticker6,",")
    ''defstr myticker7=mid$(myticker6,0,tickerfind2-1)
    ''pricelistbox.item(i)=myticker7
    ''showmessage str$(myticker7)
    
    '' tickerfind=instr(0,myticker2,","+chr$(34)+"t"+chr$(34)+":")
    '' defstr myticker3=mid$(myticker2,tickerfind+5,len(myticker2))
    '' tickerfind=instr(0,myticker3,",")
    '' defstr tickertimestamp=mid$(myticker3,0,tickerfind-1)
    
    'showmessage tickertimestamp
    'defint tickerfind2=instr(0,finnhubquotes,chr$(34)+symbolslistbox_watchlist.item(0)+chr$(34)+","+chr$(34)+"t"+chr$(34)+":"+tickertimestamp)
    '' defint tickerfind2=instr(0,finnhubquotes,tickertimestamp)
    'defint tickerfind2=rinstr(finnhubquotes,chr$(34)+symbolslistbox_watchlist.item(0)+chr$(34)+","+chr$(34)+"t"+chr$(34)+":"+tickertimestamp)
    'defint tickerfind3=rinstr(tickerfind2,finnhubquotes,chr$(34)+"p"+chr$(34)+":")
    'defstr myticker5=right$(finnhubquotes,tickerfind3)
    'showmessage myticker5

    ''if tickerfind2>0 then
    '' 'showmessage str$(tickerfind2)
    '' defstr myticker4=mid$(finnhubquotes,0,tickerfind2)
    '' 'tickerfind2=rinstr(myticker4,"{")
    '' tickerfind2=rinstr(myticker4,chr$(34)+"p"+chr$(34)+":")
    'showmessage str$(tickerfind2)
    '' if tickerfind2>50 then ' fait a l'a peu pres !
    'showmessage str$(tickerfind2)

    'print "---------------"+str$(tickerfind2)
    '' defstr myticker5=right$(myticker4,38+len(pricelistbox.item(i))) ' fait a l'a peu pres !
    '' tickerfind2=instr(0,myticker5,chr$(34)+"p"+chr$(34)+":")
    '' if tickerfind2>0 then
    '' defstr myticker6=mid$(myticker5,tickerfind2+4,len(myticker5))
    '' tickerfind2=instr(0,myticker6,",")
    '' defstr myticker7=mid$(myticker6,0,tickerfind2-1)
    'print "------------"+myticker4
    'print "----------------"+myticker7
    'showmessage myticker7
    
    '' pricelistbox.item(i)=myticker7

    

    '' end if
    '' end if
    '' end if
    next i
    
end sub

sub stopstreamsub_watchlist

dim finnhubfilestream as qfilestream

finnhubfilestream.Open(homepath+"\csv\finnhub\stream_enabled.txt" , fmCreate)
finnhubfilestream.WriteLine("0")
finnhubfilestream.Close


end sub

sub addtickersub_watchlist

if startstreambtn.enabled=0 then
    showmessage "Please stop the stream first"
    exit sub
    end if
    
    DIM inputticker AS qinputbox , addtickertxt AS STRING
    addtickertxt = ucase$(inputticker.INPUT("Enter your symbol:"))
    
    dim finnhubstream as qfilestream
    'finnhubstream.Open(homepath+"\csv\finnhub\tickers.txt" , 0)
    'DEFSTR finnhubtickers = ""
    'WHILE NOT finnhubstream.eof
    '    finnhubtickers = finnhubtickers + finnhubstream.ReadLine
    'WEND
    'finnhubstream.Close        

    'finnhubtickers=finnhubtickers+addtickertxt+","
    
    symbolslistbox_watchlist.additems addtickertxt
    
    finnhubstream.Open(homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt" , fmcreate)
    
    defint i
    
    defstr mywritelinetickers=""
    
    for i=0 to symbolslistbox_watchlist.itemcount-1
        
    if symbolslistbox_watchlist.item(i)<>"" then mywritelinetickers=mywritelinetickers+symbolslistbox_watchlist.item(i)+","
        
    next i
    
    finnhubstream.Writeline(mywritelinetickers)
    
    finnhubstream.Close
    
    FileCopy (homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt",homepath+"\csv\finnhub\tickers.txt")
    
    symbolslistbox_watchlist.clear
    pricelistbox.clear
    
    initialize_watchlist

end sub

sub removetickersub_watchlist

    if startstreambtn.enabled=0 then
    showmessage "Please stop the stream first"
    exit sub
    end if
    
    symbolslistbox_watchlist.delitems symbolslistbox_watchlist.itemindex
    
    dim finnhubstream as qfilestream
    
    finnhubstream.Open(homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt" , fmcreate)
    
    defint i
    
    defstr mywritelinetickers=""
    
    for i=0 to symbolslistbox_watchlist.itemcount-1
        
    if symbolslistbox_watchlist.item(i)<>"" then mywritelinetickers=mywritelinetickers+symbolslistbox_watchlist.item(i)+","
        
    next i
    
    finnhubstream.Writeline(mywritelinetickers)
    
    finnhubstream.Close

    FileCopy (homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt",homepath+"\csv\finnhub\tickers.txt")
    
    'finnhubstream.Open(homepath+"\csv\finnhub\tickers.txt" , 0)
    'DEFSTR finnhubtickers = ""
    'WHILE NOT finnhubstream.eof
    '    finnhubtickers = finnhubtickers + finnhubstream.ReadLine
    'WEND
    'finnhubstream.Close
    
    'finnhubtickers=replacesubstr$(finnhubtickers,symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex),"")
    'finnhubtickers=replacesubstr$(finnhubtickers,",,","")
    
    'finnhubstream.Open(homepath+"\csv\finnhub\tickers.txt" , fmcreate)
    'finnhubstream.WriteLine(finnhubtickers)
    'finnhubstream.Close
    
    symbolslistbox_watchlist.clear
    pricelistbox.clear
    
    initialize_watchlist

end sub

sub moveuptickersub_watchlist
if startstreambtn.enabled=0 then
    showmessage "Please stop the stream first"
    exit sub
end if    
if symbolslistbox_watchlist.itemindex=0 then exit sub
defstr tmpticker=symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex-1)
symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex-1)=symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex)
symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex)=tmpticker
symbolslistbox_watchlist.itemindex=symbolslistbox_watchlist.itemindex-1
defint tmpitemindex=symbolslistbox_watchlist.itemindex
    dim finnhubstream as qfilestream
    
    finnhubstream.Open(homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt" , fmcreate)
    
    defint i
    
    defstr mywritelinetickers=""
    
    for i=0 to symbolslistbox_watchlist.itemcount-1
        
    if symbolslistbox_watchlist.item(i)<>"" then mywritelinetickers=mywritelinetickers+symbolslistbox_watchlist.item(i)+","
        
    next i
    
    finnhubstream.Writeline(mywritelinetickers)
    
    finnhubstream.Close
    
    FileCopy (homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt",homepath+"\csv\finnhub\tickers.txt")
    
    symbolslistbox_watchlist.clear
    pricelistbox.clear
    
    initialize_watchlist
    
    symbolslistbox_watchlist.itemindex=tmpitemindex
    
end sub

sub movedowntickersub_watchlist
if startstreambtn.enabled=0 then
    showmessage "Please stop the stream first"
    exit sub
end if    
if symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex+1)="" then exit sub
defstr tmpticker=symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex+1)
symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex+1)=symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex)
symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex)=tmpticker
symbolslistbox_watchlist.itemindex=symbolslistbox_watchlist.itemindex+1
defint tmpitemindex=symbolslistbox_watchlist.itemindex
    dim finnhubstream as qfilestream
    
    finnhubstream.Open(homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt" , fmcreate)
    
    defint i
    
    defstr mywritelinetickers=""
    
    for i=0 to symbolslistbox_watchlist.itemcount-1
        
    if symbolslistbox_watchlist.item(i)<>"" then mywritelinetickers=mywritelinetickers+symbolslistbox_watchlist.item(i)+","
        
    next i
    
    finnhubstream.Writeline(mywritelinetickers)
    
    finnhubstream.Close
    
    FileCopy (homepath+"\csv\finnhub\"+watchlisttickerscombo.item(watchlisttickerscombo.itemindex)+".txt",homepath+"\csv\finnhub\tickers.txt")
    
    symbolslistbox_watchlist.clear
    pricelistbox.clear
    
    initialize_watchlist   
    
    symbolslistbox_watchlist.itemindex=tmpitemindex
    
end sub

sub usespeechhelpbtnwatchlistsub
showmessage "Click on a price cell to hear it"
end sub

sub opencharttickerfinnhubbtnsub

if startstreambtn.enabled=1 then
    showmessage "Please start the stream first in order to have realtime chart"
    exit sub
end if

if symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex)="" then 
	showmessage "Please click on a symbol in the list first"
	exit sub
end if

dssource.ItemIndex=8
dssymboledit.text=symbolslistbox_watchlist.item(symbolslistbox_watchlist.itemindex)
dstimeframe.itemindex=4
datetimesetyf
dsokclick

end sub

sub watchlisttickerscombochangesub

if startstreambtn.enabled=1 then initialize_watchlist

if startstreambtn.enabled=0 then
stopstreamsub_watchlist
do
if startstreambtn.enabled=1 then 
initialize_watchlist
startstreamsub_watchlist
exit do
end if
doevents
loop 'until startstreambtn.enabled=1
end if

end sub

sub calculateprimesub

'From:  dakodamc Fri Jan 10, 2003  3:37 am
'Subject:  Re: Creating line drawings - example

'Okay, here's a little example for y'all to try. It uses a sub called
'draw to draw a line from the start point, (x1,y1), to a point (x2,y2)
'specified by an angle and distance. It then sets the start point to
'the (x2,y2) values so the next line starts there.

'Ä Area: F-QUICKBASIC ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
'  Msg#: 382                                          Date: 16 Apr 94  14:02:04
'  From: Michael Gilliam                              Read: Yes    Replied: No 
'    To: All                                          Mark:                     
'  Subj: prime numbers         1/
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
'I've written up a little program that calculates prime numbers, starting
'with 2 and going as far as you want.  I've included it in this message,
'along with the first 2000 prime numbers.  If anyone finds this useful,
'feel free to take it.  And if anyone has any suggestions on how to make
'what I've written faster or smaller or otherwise better, please let me
'know.

'REM************************************************************************
'REM*           MCG INDUSTRIES
'REM* PROGRAM:  PRIMEDAT.BAS
'REM* PURPOSE:  To calculate any number of prime numbers.
'REM* WRITER:   MCGilliam
'REM* DATE:     Apr94
'REM************************************************************************

'COLOR 9, 9: CLS
'LOCATE 7, 12: PRINT "Welcome to PRIMEDAT.BAS.  This program will brute-force"
'LOCATE 8, 12: PRINT "calculate any reasonable number of prime numbers you"
'LOCATE 9, 12: PRINT "like.  As it calculates them, it prints them both to"
'LOCATE 10, 12: PRINT "your screen and to a data file named PRIMES.DAT.  This"
'LOCATE 11, 12: PRINT "file will be written with 10 prime numbers in each"
'LOCATE 12, 12: PRINT "line, separated by commas, and led with a DATA"
'LOCATE 13, 12: PRINT "statement, for easy inclusion in any BASIC program."
'LOCATE 15, 12: INPUT "Enter the number of prime numbers you would like"; howman

' Modified by Julien Moog in 2022-05-13
' This one is for RapidQ Basic
' Visual draw prime numbers with parameters
' Enjoy!

' start of code-------

'DEFSNG x1,y1 ' start point is global

     'x1 = graph.width/2 ' initialize start point
     'y1 = graph.height/2
     
     

primecalculate=1
defint howmany=val(primeiterationsedit.text)
defint count,listcount,np,x
defdbl num
defdbl num2 ' fibo

DIM p(howmany) as double
p(1) = 2
count = 1
listcount = 2
num = val(primestartfromedit.text)+3
np = 0

defdbl ratio=val(primeratioedit.text)

if primeformulacombo.itemindex=16 then
'primeiterationsedit.text="100"
'ratioedit.text="10"      
end if

defint ii,jj
defdbl kk
ii=1
jj=1
kk=-1*val(primestepedit.text)

if primeformulacombo.itemindex=16 then jj=val(primepassesedit.text)

defdbl q=val(primepassesedit.text) '13

    defdbl xc2=prime_x1 'canvas.width/2  'get the initial center 
    defdbl yc2=prime_y1 'canvas.height/2 
 
    defdbl a=0
    defdbl b=0

    DIM a0 AS DOUBLE , b0 AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            'a0 = x3 - x2
            'b0 = y3 - y2
            'c = SQR(a0^2 + b0^2)            
            c=1

    defdbl c1=c*0.1 '1
        'if fibospiralcombo.itemindex=1 then c1=-c*0.1
    'defdbl r=c1*logamplitude ' 1 unit=10 pxls  
      defdbl r=c1*ratio ' 1 unit=10 pxls
     defsng x0=xc2     'set the initial point on the arc drawn with the center 
     defsng y0=yc2-r 
 
    defint i
    defdbl qt


if primenumbertypecombo.itemindex=4 or primenumbertypecombo.itemindex=5 then
defdbl startnb=1
defdbl sqit
defdbl sqitset=1
defdbl sqitsqr

for sqit=1 to q step 1


if sqit mod 4=0 then     'q4 ; check the quadrant 
                          ' and so the center co-ordinates with initial angle 
            yc2=y0-r 
            qt=90
         
        elseif sqit mod 4=1 then  'q1 
         
            xc2=x0-r
             qt=360
         
        elseif sqit mod 4=2 then    'q2 
         
            yc2=y0+r
             qt=270
         
        elseif sqit mod 4=3 then     'q3 
         
            xc2=x0+r 
            qt=180
        
        end if 
defdbl ti
    defdbl qt2=qt-90    
    defdbl theta

for ti=qt to qt2 step -0.1 'draw the quarter circle 
                                   ' x,y is the last plotted point 
 
      
IF primenumbertypecombo.itemindex=4 or primenumbertypecombo.itemindex=5 then
         IF primenumbertypecombo.itemindex=4 then
         
             sqitsqr=sqitset*sqitset
            sqitset=sqitset+4     
            end if 
            IF primenumbertypecombo.itemindex=5 then
                sqitsqr=sqr(sqitset)
               sqitset=sqitset+1
            end if    
              'sqitsqr=sqr(sqitset)
              'sqitset=sqitset+1
         'print str$(num)
         'print str$(count)
         'sleep 0.1
          'c1=num         'next term in the Fibonacci series 
        'r=c1*ratio
         'print sqitsqr
         'sleep 0.02
             theta=(ti*3.14)/180
         x0=x0+(sqitsqr*ratio*cos(theta)) 
         y0=y0+(sqitsqr*ratio*sin(theta)) 
'print x0
'print y0
'sleep 0.1
         'putpixel(x,y,WHITE); 
         
         graph.buffer.pset(x0,y0,rgb(0,0,0)) 
         ''graph.savebuffertmp
             'paint
             doevents
 
        end if      
        
        
        
        if primenumbertypecombo.itemindex=4 or primenumbertypecombo.itemindex=5 then
        IF listcount >= 11 THEN
            'listcount = 1
        END IF        
                
        'IF count >= howmany and np = 0 THEN EXIT for                
              
        end if

        if primecalculate=0 then exit sub     
              
     next ti     
 'paint
 graph.savebuffertmp
 graph.paintchart

IF count >= howmany and (primenumbertypecombo.itemindex=4 or primenumbertypecombo.itemindex=5) THEN exit for

next sqit
end if


if primenumbertypecombo.itemindex=2 or primenumbertypecombo.itemindex=6 then ' or primenumbertypecombo.itemindex=3

       q=13 'val(passesedit.text) '13

     xc2=prime_x1 'canvas.width/2  'get the initial center 
     yc2=prime_y1 'canvas.height/2 
 
      a=0
     b=0

    'DIM a0 AS DOUBLE , b0 AS DOUBLE , c AS DOUBLE , ang_a AS DOUBLE
            'a0 = x3 - x2
            'b0 = y3 - y2
            'c = SQR(a0^2 + b0^2)            
            c=1

     c1=c*0.1 '1
        'if fibospiralcombo.itemindex=1 then c1=-c*0.1
    'defdbl r=c1*logamplitude ' 1 unit=10 pxls  
       r=c1*ratio ' 1 unit=10 pxls
      x0=xc2     'set the initial point on the arc drawn with the center 
      y0=yc2-r 
 
     'i
    ' qt

for i=1 to q step 1  ' loop till the required count 

if primeformulacombo.itemindex=16 and (primenumbertypecombo.itemindex=3 or primenumbertypecombo.itemindex=6) then
kk=kk+val(primestepedit.text)
primestartfromedit.text=str$(kk) 
p(1) = 2
'count = 1
'print count
listcount = 2
'num = val(startfromedit.text)+3
np = 0

end if


        if i mod 4=0 then     'q4 ; check the quadrant 
                          ' and so the center co-ordinates with initial angle 
            yc2=y0-r 
            qt=90
         
        elseif i mod 4=1 then  'q1 
         
            xc2=x0-r
             qt=360
         
        elseif i mod 4=2 then    'q2 
         
            yc2=y0+r
             qt=270
         
        elseif i mod 4=3 then     'q3 
         
            xc2=x0+r 
            qt=180
        
        end if 

    'defdbl ti
     qt2=qt-90  
    'defdbl theta

     for ti=qt to qt2 step -0.1 'draw the quarter circle 
                                   ' x,y is the last plotted point 
 
         if primenumbertypecombo.itemindex=3 or primenumbertypecombo.itemindex=6 then
            FOR x = 1 TO count
            IF p(x) > num/2 THEN EXIT FOR
            IF num/p(x) - INT(num/p(x)) = 0 THEN np = 1: EXIT FOR
            NEXT x


            IF np = 1 THEN
            num = num+1
            END IF
        end if

         ''IF np = 0 and numbertypecombo.itemindex=3 then
         
         'print str$(num)
         'print str$(count)
         'sleep 0.1
          'c1=num         'next term in the Fibonacci series 
        'r=c1*ratio
         
             ''theta=(ti*3.14)/180
         ''x0=xc2+(num*ratio*cos(theta)) 
         ''y0=yc2+(num*ratio*sin(theta)) 
         'putpixel(x,y,WHITE); 
             ''bmp.pset(x0,y0,rgb(0,0,0))
             'paint
             ''drawplot((num*cos(num))/ratio+x1,(num*sin(num))/ratio+y1,rgb(0,0,0))
             ''doevents
 
         ''else
         'print r
         ''theta=(ti*3.14)/180
         ''x0=xc2+(r*cos(theta)) 
         ''y0=yc2+(r*sin(theta)) 
         'putpixel(x,y,WHITE); 
         ''bmp.pset(x0,y0,rgb(0,0,0)) 
             'paint
             ''doevents
        ''end if   
        
        IF np = 0 and primenumbertypecombo.itemindex=6 then
         
         'print str$(num)
         'print str$(count)
         'sleep 0.1
          'c1=num         'next term in the Fibonacci series 
        'r=c1*ratio
         
             theta=(ti*3.14)/180
         x0=xc2+(num*ratio*cos(theta)) 
         y0=yc2+(num*ratio*sin(theta)) 
         'putpixel(x,y,WHITE); 
             ''bmp.pset(x0,y0,rgb(0,0,0))
             'paint
             ''drawplot((num*cos(num))/ratio+x1,(num*sin(num))/ratio+y1,rgb(0,0,0))
             doevents
 
         else
         'print r
         theta=(ti*3.14)/180
         x0=xc2+(r*cos(theta)) 
         y0=yc2+(r*sin(theta)) 
         'putpixel(x,y,WHITE); 
         
         graph.buffer.pset(x0,y0,rgb(0,0,0)) 
         ''graph.savebuffertmp
             'paint
             doevents
        end if   
        
        if np = 0 and primenumbertypecombo.itemindex=3 then
        count = count+1
        listcount = listcount+1        
        end if
        
        if (np = 0 and primenumbertypecombo.itemindex=3) or primenumbertypecombo.itemindex=2 then
        IF listcount >= 11 THEN
            listcount = 1
        END IF        
                
        IF count >= howmany and np = 0 THEN EXIT for                
        
        if np = 0 and primenumbertypecombo.itemindex=3 then
        p(count) = num
        num = num+1                
        end if  
              
        end if
        
        np = 0

        if primecalculate=0 then exit sub     
              
     next ti
     	graph.savebuffertmp
       graph.paintchart      
 
        if primenumbertypecombo.itemindex=2 then
        a=b
        b=c1
        c1=a+b         'next term in the Fibonacci series 
        r=c1*ratio 
        end if

      'paint
      'doevents
      
    IF count >= howmany and primenumbertypecombo.itemindex=6 THEN exit for

    next i 

end if


if primenumbertypecombo.itemindex=0 or primenumbertypecombo.itemindex=3 then
defint incr=1


for ii=1 to jj

if primeformulacombo.itemindex=16 and (primenumbertypecombo.itemindex=0 or primenumbertypecombo.itemindex=3) then
kk=kk+val(primestepedit.text)
primestartfromedit.text=str$(kk) 
p(1) = 2
count = 1
listcount = 2
num = val(primestartfromedit.text)+3
np = 0

end if

do

if primenumbertypecombo.itemindex=2 then
    num2=num+num2*ratio ' fibo
    num=num2+num*ratio ' fibo
end if

'print str$(count)+" "+str$(num2)
'count = count+1
'print str$(count)+" "+str$(num)
'count = count+1
'sleep 1

if primenumbertypecombo.itemindex=0 or primenumbertypecombo.itemindex=3 then
FOR x = 1 TO count
        IF p(x) > num / 2 THEN EXIT FOR
        IF num / p(x) - INT(num / p(x)) = 0 THEN np = 1: EXIT FOR
NEXT x


IF np = 1 THEN
        num = num + 1
END IF
end if

        
IF np = 0 THEN   
        'PRINT num
        ' draw lines (angle,distance)
        select case primeformulacombo.itemindex
        case 0:
        primedraw(count*1000*ratio,num*0.1*ratio,rgb(num,num*count,num))
        case 1:
        primedraw(count*1000*ratio,num*1*ratio,rgb(num,num*count,num))
        case 2:
        primedraw(count*100*ratio,num*1*ratio,rgb(num,num*count,num))
        case 3:
        primedraw(count*10*ratio,sqr(num*1*ratio),rgb(num,num*count,num))
        case 4:
        primedraw(count*10*ratio,sqr(num*0.1*ratio),rgb(num,num*count,num))
        case 5:
        primedraw(count*100*ratio,sqr(num*count),rgb(num,num*count,num))
        case 6:
        primedraw(num*1*ratio,count*0.01*ratio,rgb(num,num*count,num))
        case 7:
        primedraw(num*0.1*ratio,count*0.01*ratio,rgb(num,num*count,num))
        case 8:
        primedraw(num*0.1*ratio,count*0.001*ratio,rgb(num,num*count,num))
        case 9:
        primedraw(num*0.1*ratio,sqr(count*0.01*ratio),rgb(num,num*count,num))
        case 10:
        primedraw(num*0.01*ratio,count/num,rgb(num,num*count,num))
        case 11:
        primedraw(num*0.01*ratio,count*(count/num^2)*10*ratio,rgb(num,num*count,num))
        case 12:
        primedraw(num*count,sqr(count*0.01*ratio),rgb(num,num*count,num))
        case 13:
        primedraw(Sqr(num*count),Sqr(count*0.01*ratio),rgb(num,num*count,num))
        case 14:
        primedraw(num*1*ratio,sqr(count*0.1*ratio),rgb(num,num*count,num))
        case 15:
        primedraw(num*1*ratio,count*0.1*ratio,rgb(num,num,num))
        case 16:
        'primedrawplot((num*cos(num))/ratio+prime_x1,(num*sin(num))/ratio+prime_y1,rgb(0,0,0))
        if primenumbertypecombo.itemindex=0 then         
            'drawplot((num*cos(num))/ratio+x1,(num*sin(num))/ratio+y1,rgb(0,0,0))
            theta=(incr*3.14)/180
            'print count
         x0=xc2+(num*ratio*cos(theta)) 
         y0=yc2+(num*ratio*sin(theta)) 
         'putpixel(x,y,WHITE); 
         
         graph.buffer.pset(x0,y0,rgb(0,0,0)) 
         ''graph.savebuffertmp
             doevents
        end if
        
        if primenumbertypecombo.itemindex=2 then
            primedrawplot((num2*cos(num2))/ratio+prime_x1,(num2*sin(num2))/ratio+prime_y1,rgb(0,0,0))
            primedrawplot((num*cos(num))/ratio+prime_x1,(num*sin(num))/ratio+prime_y1,rgb(0,0,0))
            'draw(num2*ratio,num*ratio,rgb(0,0,0))
            'draw(num*ratio,count,rgb(0,0,0))
            'draw((num2*cos(num2))/ratio+x1,(num2*sin(num2))/ratio+y1,rgb(0,0,0))
            'draw2((num2*cos(num2))/ratio+x1,(num2*sin(num2))/ratio+y1,rgb(0,0,0))
            'draw2((num*cos(num))/ratio+x1,(num*sin(num))/ratio+y1,rgb(0,0,0))
            'print str$(count)            
        end if
        if primenumbertypecombo.itemindex=3 then
            primedrawplot((num*cos(num))/ratio+prime_x1,(num*sin(num))/ratio+prime_y1,rgb(0,0,0))
        end if

        case 17:        
        primedrawplot(COS(num * count) * count*ratio + prime_x1,prime_y1 - SIN(num * count) * count*ratio,rgb(num,num*count,num))
        end select
        graph.savebuffertmp
        graph.PaintChart
        frmmain.caption="Calculating prime number "+str$(count)+" / "+str$(howmany)        
        doevents
        if primenumbertypecombo.itemindex=0 or primenumbertypecombo.itemindex=3 then
        count =  count+ 1
        listcount = listcount+ 1
        end if
        IF listcount >= 11 THEN
            listcount = 1
        END IF
                
        IF count >= howmany THEN EXIT DO
        
        if primenumbertypecombo.itemindex=0 or primenumbertypecombo.itemindex=3 then
        p(count) = num
        num =  num+ 1
        end if
        
        if primenumbertypecombo.itemindex=2 then
        count = count+1
        'print str$(count)
        end if   
        
END IF
np = 0

if primecalculate=0 then exit sub
incr++
loop

IF count >= howmany and primenumbertypecombo.itemindex=2 THEN exit for

next ii

end if

end sub

SUB primedraw(ang AS SINGLE, dis AS SINGLE, mycolor as long)
      DEFSNG x2,y2

      x2 = COS(ang * rad) * dis + prime_x1
      y2 = prime_y1 - SIN(ang * rad) * dis

with Graph      

'.ClearBufferpublic
'Graph.Buffer.FillRect(0 , 0 , Graph.Buffer.Width , Graph.Buffer.Height , Graph.bgColor)
'.ChartExists = FALSE  'Set flag

'Graph.buffer.BMP = Graph.buffertmpz.BMP
'.restorebuffertmpz   
.buffer.line(prime_x1,prime_y1,x2,y2,mycolor)
'Graph.buffertmp.BMP = Graph.buffer.BMP
'.savebuffertmpsimple
'.PaintChart
.savebuffertmp
.paintchart
end with

      'Graph.buffer.line(prime_x1,prime_y1,x2,y2,mycolor)

      prime_x1 = x2
      prime_y1 = y2
END SUB

SUB primedraw2(ang AS SINGLE, dis AS SINGLE, mycolor as long)
      DEFSNG x2,y2
      defdbl theta

      'x2 = RTL_Add(RTL_Multiply (RTL_Cos (RTL_Multiply (ang, rad)), dis), x1)
      'y2 = RTL_Subtract(y1 , RTL_Multiply(RTL_Sin(RTL_Multiply(ang , rad)) , dis))

      'bmp.line(x1,y1,x2,y2,mycolor)

      'x1 = x2
      'y1 = y2
      
      theta=(ang*3.14)/180
      'theta=ang
         x2=prime_x1+(dis*cos(theta)) 
         y2=prime_y1-(dis*sin(theta)) 
         'putpixel(x,y,WHITE); 
         'bmp.pset(x2,y2,mycolor)
         with Graph
            .buffer.line(prime_x1,prime_y1,x2,y2,mycolor)
            .savebuffertmp
            .paintchart
         end with
            prime_x1 = x2
              prime_y1 = y2

      
END SUB
     
SUB primedrawplot(xp AS SINGLE, yp AS SINGLE, mycolor as long)
      'DEFSNG x2,y2

with Graph      

'.ClearBufferpublic
'.restorebuffertmpz   
.buffer.pset(xp,yp,mycolor)
'.savebuffertmpsimple
'.PaintChart
.savebuffertmp
.paintchart
end with

      'bmp.line(x1,y1,xp,yp,mycolor)

      'x1 = xp
      'y1 = yp
END SUB

sub onclickprimestopsub
primecalculate=0
end sub

' ============================================================

SUB primenumbertypecombochangesub
     
     select case primenumbertypecombo.itemindex
     
     case 3:
     primeratioedit.text="10"
     
     case 4:
     primeratioedit.text="0.0000000001"
     
     case 5:
     primeratioedit.text="0.01"
     
     end select
          
end sub
     
SUB primeformulacombochangesub
     
     select case primeformulacombo.itemindex
     
     case 16:
     primenumbertypecombo.enabled=1
     
     case else:
     primenumbertypecombo.enabled=0
     
     end select
     
end sub

' -------------- Vector font ---------------

SUB InitVFont (DataFile$ as string)
defint LinePointer = 1
defint CurrentCode = 0
defint nnn,VFontGridHeight,VFontGridWidth,RefCode
defstr aa

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\fonts"

IF FILEEXISTS(DataFile$) = 0  THEN
  Showmessage "Cannot find font file "+DataFile$+_
                      "  Program will be closed." 
CHDIR tmpdir                      
   Application.Terminate
END IF
 VectorTextFile.Open (DataFile$, fmOpenRead)
DO
 aa = VectorTextFile.ReadLine
 aa = LTRIM$(RTRIM$(aa))
 IF INSTR(aa, "'") THEN
  '  comment sign found
  nnn = INSTR(aa, "'")
  aa = RTRIM$(LEFT$(aa, nnn - 1))
 END IF
 IF LEN(aa) <> 0 THEN
   IF INSTR(aa, "GRIDHEIGHT:") <> 0 THEN
     '  Average height of letters in this font
      nnn = INSTR(aa, ":")
      VFontGridHeight = VAL(LTRIM$(RIGHT$(aa, LEN(aa) - nnn)))
   END IF
   IF INSTR(aa, "GRIDWIDTH:") <> 0 THEN
     ' Average width of letters in this font
      nnn = INSTR(aa, ":")
      VFontGridWidth = VAL(LTRIM$(RIGHT$(aa, LEN(aa) - nnn)))
   END IF
   IF INSTR(aa, "TITLE:") <> 0 THEN
     ' Letter title - not used
     ' 
   END IF
   IF INSTR(aa, "CODE:") THEN
    '  determine letter code , store it's beginning in  VFontData
    nnn = INSTR(aa, ":")
    CurrentCode = VAL(LTRIM$(RIGHT$(aa, LEN(aa) - nnn)))
    VFontPointer(CurrentCode, 1) = LinePointer
   END IF
   IF INSTR(aa, "ADVANCE:") <> 0 THEN
     ' End of letter description 
    nnn = INSTR(aa, ":")
    VFontPointer(CurrentCode, 2) = LinePointer - 1
    VFontPointer(CurrentCode, 3) = VAL(LTRIM$(RIGHT$(aa, LEN(aa) - nnn)))
   END IF
   IF LEFT$(aa, 1) = "L" THEN
    aa = aa + ","
    aa = LTRIM$(RIGHT$(aa, LEN(aa) - 1))
    ' There MUST be 4 values in line ( x,y,x1,y1 )
     VFontData(LinePointer, 1) = VAL(RetSymbol(1, aa))
     VFontData(LinePointer, 2) = VAL(RetSymbol(2, aa))
     VFontData(LinePointer, 3) = VAL(RetSymbol(3, aa))
     VFontData(LinePointer, 4) = VAL(RetSymbol(4, aa))
     LinePointer = LinePointer + 1
   END IF
   IF LEFT$(aa, 1) = "B" THEN
    ' box is converted into  4 lines
    aa = aa + ","
    aa = LTRIM$(RIGHT$(aa, LEN(aa) - 1))
     VFontData(LinePointer, 1) = VAL(RetSymbol(1, aa))
     VFontData(LinePointer, 2) = VAL(RetSymbol(2, aa))
     VFontData(LinePointer, 3) = VAL(RetSymbol(1, aa))
     VFontData(LinePointer, 4) = VAL(RetSymbol(4, aa))
     LinePointer = LinePointer + 1
     VFontData(LinePointer, 1) = VAL(RetSymbol(1, aa))
     VFontData(LinePointer, 2) = VAL(RetSymbol(4, aa))
     VFontData(LinePointer, 3) = VAL(RetSymbol(3, aa))
     VFontData(LinePointer, 4) = VAL(RetSymbol(4, aa))
     LinePointer = LinePointer + 1
     VFontData(LinePointer, 1) = VAL(RetSymbol(3, aa))
     VFontData(LinePointer, 2) = VAL(RetSymbol(4, aa))
     VFontData(LinePointer, 3) = VAL(RetSymbol(3, aa))
     VFontData(LinePointer, 4) = VAL(RetSymbol(2, aa))
     LinePointer = LinePointer + 1
     VFontData(LinePointer, 1) = VAL(RetSymbol(3, aa))
     VFontData(LinePointer, 2) = VAL(RetSymbol(2, aa))
     VFontData(LinePointer, 3) = VAL(RetSymbol(1, aa))
     VFontData(LinePointer, 4) = VAL(RetSymbol(2, aa))
     LinePointer = LinePointer + 1
   END IF
   IF INSTR(aa, "REFERENCE:") <> 0 THEN
     ' appearence is the same with the other letter  (S with 5 for example)
     ' here we make reference to  already loaded symbol
    nnn = INSTR(aa, ":")
    RefCode = VAL(LTRIM$(RIGHT$(aa, LEN(aa) - nnn)))
    VFontPointer(CurrentCode, 1) = VFontPointer(RefCode, 1)
    VFontPointer(CurrentCode, 2) = VFontPointer(RefCode, 2)
    VFontPointer(CurrentCode, 3) = VFontPointer(RefCode, 3)
  END IF
 END IF
LOOP UNTIL VectorTextFile.Position >= VectorTextFile.Size
VectorTextFile.Close
IF VFontGridHeight = 0 then
  ' Default value
    VFontGridHeight = 5
END IF
IF VFontGridWidth = 0 then
  ' Default value
    VFontGridWidth = 5
END IF
' Filling look up tables
defint ii

FOR ii = 0 TO 360
 VFontCOS(ii) = COS(ii * 3.141593 / 180)
 VFontSIN(ii) = SIN(ii * 3.141593 / 180)
NEXT

 '  This is for test purposes : Uncomment to see if your letters are loaded OK
' FOR i = 1 TO 255
'       PRINT "Symbol code"; i
'       PRINT "Range:"; VFontPointer(i, 1); VFontPointer(i, 2)
'       PRINT "Advance:"; VFontPointer(i, 3)
'       PRINT "Data:"
'       FOR j = VFontPointer(i, 1) TO VFontPointer(i, 2)
'          PRINT VFontData(j, 1);" ";VFontData(j, 2),"     ",VFontData(j, 3);" ";VFontData(j, 4)
'       NEXT
'      PRINT "--------------------------------------------"
'     a$ = input$(1)
' NEXT
CHDIR tmpdir
END SUB

' This is internal function used in InitVFont
FUNCTION RetSymbol (nnn as integer, aa$ as string)  as string
  aa$ = LTRIM$((RTRIM$(aa$)))
  DIM nnm AS SINGLE
  nnm = -1
  DIM nnm1 AS SINGLE
  defint BegPos = 1
  defint EndPos = 1
  defint ppp,prpos
  defstr ppps$
  IF nnn = 1 THEN
      ppp = INSTR(aa$, ",")
      ppps$ = MID$(aa$, 1, ppp - 1)
     ' nnm1 = VAL(ppps$)
      IF nnm1 <> 0 THEN
          nnm = nnm1
     END IF
  ELSE
     prpos = 1
     FOR ii = 1 TO nnn
        prpos = EndPos + 1
        EndPos = INSTR(prpos, aa$, ",")
     NEXT
     IF EndPos < prpos THEN
       ' PRINT aa$
       ' PRINT "Error in parsing line:"
       ' PRINT "Digit N"; nnn, "End position."; EndPos, "Beg. position"; prpos
       ' sss$ = INPUT$(1)
     END IF
     ppps$ = MID$(aa$, prpos, (EndPos - prpos))
  END IF
  RetSymbol = ppps$
END FUNCTION

SUB VPrintAng (xx as integer, yy as integer, text$ as string, clr as integer, xf as integer, yf as integer, angle as double, canvas as integer)
DIM CurCOS AS SINGLE
DIM CurSIN AS SINGLE
defint CPX = xx
defint CPY = yy
defint i,lt1,ii,x1,y1,x2,y2
defstr lt$

CurCOS = VFontCOS(angle)
CurSIN = VFontSIN(angle)
  FOR i = 1 TO LEN(text$)
    lt$ = MID$(text$, i, 1)
    lt1 = ASC(lt$)
    FOR ii = VFontPointer(lt1, 1) TO VFontPointer(lt1, 2)
     x1 = xx + ((CPX - xx + VFontData(ii, 1) * xf) * CurCOS + (CPY - yy + VFontData(ii, 2) * yf) * CurSIN)
     y1 = yy + (-1*(CPX - xx + VFontData(ii, 1) * xf) * CurSIN + (CPY - yy + VFontData(ii, 2) * yf) * CurCOS)
     x2 = xx + ((CPX - xx + VFontData(ii, 3) * xf) * CurCOS + (CPY - yy + VFontData(ii, 4) * yf) * CurSIN)
     y2 = yy + (-1*(CPX - xx + VFontData(ii, 3) * xf) * CurSIN + (CPY - yy + VFontData(ii, 4) * yf) * CurCOS)
     if canvas=0 then Graph.buffer.LINE (x1, y1, x2, y2, clr)
     if canvas=1 then canvas.BMP.LINE (x1, y1, x2, y2, clr)
    NEXT
    CPX = CPX + VFontPointer(lt1, 3) * xf
  NEXT

END SUB

' End Vector Font -----------------------------------------------

SUB dispmaxbarssub

defint barsdisplayedmax=chartbars(displayedfile)
if barsdisplayedmax>999 then barsdisplayedmax=999
barsdisplayed.text=str$(barsdisplayedmax)
dispbarsok_click

END SUB

sub chartsavecanvas(filename as string)

defint saveaspng=0

dim filestream as qfilestream

DEFSTR tmpdir = CurDir$
CHDIR "c:\qchartist\bmp"

IF showcanvas = 1 THEN
        
    filestream.Open("c:\qchartist\bmp\isbusy.txt" , fmCreate)
    filestream.WriteLine("1")
    filestream.Close
    
    filestream.Open("c:\qchartist\bmp\1_"+StripFileName(FileName) , 65535) '65535 = fmCreate
    canvas.bmp.SaveToStream(filestream) 'save the data
    filestream.Close
    
    IF MessageDlg("Save as PNG?", mtConfirmation, mbYes OR mbNo, 0) = mrYes THEN
    '-- Save as PNG
    saveaspng=1
    END IF
     
    filestream.Open("c:\qchartist\bmp\concatenate.bat" , fmCreate)    
    filestream.WriteLine("convert "+chr$(34)+"1_"+StripFileName(FileName)+chr$(34)+" -extent "+str$(graph.width)+"x"+str$(canvas.height)+" -transparent white "+chr$(34)+StripFileName(FileName)+"_resized.bmp"+chr$(34))
    filestream.WriteLine("convert -repage +96+0 "+chr$(34)+StripFileName(FileName)+"_resized.bmp"+chr$(34)+" -background none -flatten "+chr$(34)+StripFileName(FileName)+"_shifted.bmp"+chr$(34))
    filestream.WriteLine("convert "+chr$(34)+StripFileName(FileName)+chr$(34)+" "+chr$(34)+StripFileName(FileName)+"_shifted.bmp"+chr$(34)+" -append "+chr$(34)+StripFileName(FileName)+chr$(34))    
    'filestream.WriteLine("imgconvert.exe "+chr$(34)+StripFileName(FileName)+chr$(34)+" "+chr$(34)+REPLACESUBSTR$(StripFileName(FileName) , ".bmp" , ".jpg")+chr$(34))
    if saveaspng=1 then filestream.WriteLine("imgconvert.exe "+chr$(34)+StripFileName(FileName)+chr$(34)+" "+chr$(34)+REPLACESUBSTR$(StripFileName(FileName) , ".bmp" , ".png")+chr$(34))
    if saveaspng=0 then filestream.WriteLine("copy "+chr$(34)+StripFileName(FileName)+chr$(34)+" "+chr$(34)+FileName+chr$(34))
    if saveaspng=1 then filestream.WriteLine("copy "+chr$(34)+REPLACESUBSTR$(StripFileName(FileName) , ".bmp" , ".png")+chr$(34)+" "+chr$(34)+REPLACESUBSTR$(FileName , ".bmp" , ".png")+chr$(34))
    filestream.WriteLine("del "+chr$(34)+StripFileName(FileName)+"_resized.bmp"+chr$(34))
    filestream.WriteLine("del "+chr$(34)+StripFileName(FileName)+"_shifted.bmp"+chr$(34))
    filestream.WriteLine("del "+chr$(34)+StripFileName(FileName)+chr$(34))
    if saveaspng=1 then filestream.WriteLine("del "+chr$(34)+REPLACESUBSTR$(StripFileName(FileName) , ".bmp" , ".png")+chr$(34))
    filestream.WriteLine("del "+chr$(34)+"1_"+StripFileName(FileName)+chr$(34))
    filestream.WriteLine("echo 0 > isbusy.txt")
    filestream.Close

    pid = SHELL("concatenate.bat", 0)
    
    'CHDIR tmpdir
END IF

IF showcanvas = 0 THEN

    'dim filestream as qfilestream

    'DEFSTR tmpdir = CurDir$
    'CHDIR "c:\qchartist\bmp"
    
    filestream.Open("c:\qchartist\bmp\isbusy.txt" , fmCreate)
    filestream.WriteLine("1")
    filestream.Close
    
    'filestream.Open("c:\qchartist\bmp\1_"+StripFileName(FileName) , 65535) '65535 = fmCreate
    'canvas.bmp.SaveToStream(filestream) 'save the data
    'filestream.Close
    
    IF MessageDlg("Save as PNG?", mtConfirmation, mbYes OR mbNo, 0) = mrYes THEN
    '-- Save as PNG
    saveaspng=1
    END IF
    
    
    filestream.Open("c:\qchartist\bmp\concatenate.bat" , fmCreate)    
    'filestream.WriteLine("convert "+chr$(34)+"1_"+StripFileName(FileName)+chr$(34)+" -extent "+str$(graph.width)+"x"+str$(canvas.height)+" -transparent white "+chr$(34)+StripFileName(FileName)+"_resized.bmp"+chr$(34))
    'filestream.WriteLine("convert -repage +96+0 "+chr$(34)+StripFileName(FileName)+"_resized.bmp"+chr$(34)+" -background none -flatten "+chr$(34)+StripFileName(FileName)+"_shifted.bmp"+chr$(34))
    'filestream.WriteLine("convert "+chr$(34)+StripFileName(FileName)+chr$(34)+" "+chr$(34)+StripFileName(FileName)+"_shifted.bmp"+chr$(34)+" -append "+chr$(34)+StripFileName(FileName)+chr$(34))       
    'filestream.WriteLine("imgconvert.exe "+chr$(34)+StripFileName(FileName)+chr$(34)+" "+chr$(34)+REPLACESUBSTR$(StripFileName(FileName) , ".bmp" , ".jpg")+chr$(34))
    if saveaspng=1 then filestream.WriteLine("imgconvert.exe "+chr$(34)+StripFileName(FileName)+chr$(34)+" "+chr$(34)+REPLACESUBSTR$(StripFileName(FileName) , ".bmp" , ".png")+chr$(34))
    if saveaspng=0 then filestream.WriteLine("copy "+chr$(34)+StripFileName(FileName)+chr$(34)+" "+chr$(34)+FileName+chr$(34))
    if saveaspng=1 then filestream.WriteLine("copy "+chr$(34)+REPLACESUBSTR$(StripFileName(FileName) , ".bmp" , ".png")+chr$(34)+" "+chr$(34)+REPLACESUBSTR$(FileName , ".bmp" , ".png")+chr$(34))
    'filestream.WriteLine("del "+chr$(34)+StripFileName(FileName)+"_resized.bmp"+chr$(34))
    'filestream.WriteLine("del "+chr$(34)+StripFileName(FileName)+"_shifted.bmp"+chr$(34))
    filestream.WriteLine("del "+chr$(34)+StripFileName(FileName)+chr$(34))
    if saveaspng=1 then filestream.WriteLine("del "+chr$(34)+REPLACESUBSTR$(StripFileName(FileName) , ".bmp" , ".png")+chr$(34))
    'filestream.WriteLine("del "+chr$(34)+"1_"+StripFileName(FileName)+chr$(34))
    filestream.WriteLine("echo 0 > isbusy.txt")
    filestream.Close

    pid = SHELL("concatenate.bat", 0)
    
    'CHDIR tmpdir
END IF

CHDIR tmpdir

end sub
